essam rabea

أ.ramyooooo أنشئ المسار التالى D:\My Apps\Data وضع به db001.mdb و db002.mdb وجرب المرفق عسى أن يكون المطلوب بالتوفيق ESTest.mdb

أ.emam1424 .. ما فهمت قصدك من التجميع .. تجميع عدد حصص الغياب لكل طالب بصرف النظر عن رقم الحصة إذا كانت الأولى أم الثانية أم ماذا رجاء التوضيح

أ.اسلام سيد مش عارف انا فهمت صح ولا غلط جرب المويول 'للإخفاء Public Function ESHideTables() Dim dbs As dao.Database Dim tbl As dao.TableDef Dim qry As dao.QueryDef Dim str As String On Error Resume Next Set db = CurrentDb() For Each tbl In db.TableDefs Application.SetHiddenAttribute acTable, tbl.Name, True Next tbl End Function والموديول الثانى 'للإظهار Public Function ESShowTables() Dim dbs As dao.Database Dim tbl As dao.TableDef Dim qry As dao.QueryDef Dim str As String On Error Resume Next Set db = CurrentDb() For Each tbl In db.TableDefs Application.SetHiddenAttribute acTable, tbl.Name,Fales Next tbl End Function وقم بإستاعائهم عن طريق Call ESHideTables للإخفاء أو Call ESShowTables للإظهار أرجو أن أكون وفقت بالتوفيق

ممكن أنا أيضا أكون فاهم غلط 😉

أ.عبدالعزيز محمد أولا قم بربط الجدول الذى به بيانات بقاعدة البيانات التى سيتم الإستيراد إليها (ربط وليس إستيراد) ثانيا قم بعمل إستعلام إضافة وإختر إسم الجدول الذى إدراج البيانات به شغل الاستعلام .. سيتم للإدراج الى الجدول بنجاح إذا كانت جميع الحقول متشابهة إسما ونوعا إنشئ مجلد جديد وسمه Test على المحرك D وضع به المرفقين شغل ملف Aziz افتح جدول TabSudents2 للتأكد من أنه فارغ شغل الإستعلام .. افتح جدول TabSudents2 مرة أخرى للتأكد من أنه تم الإستيراد أرجو أن يكون المطلوب بالتوفيق Aziz.accdb Aziz2.accdb

أستاذنا jjafferr أعتقد أن أ.eslamali2 يسأل عن كود لعمل هوامش التقرير بالسنتيمتر وليس بالبوصه وان كان كذلك فبعد إذنكم فليجرب الكود التالى Private Sub Report_Open(Cancel As Integer) Const TW As Integer = 567 Dim prt As Printer Dim rpt As Report Set rpt = Reports("اسم التقرير") Set prt = rpt.Printer With prt .LeftMargin = 1 * TW .RightMargin = 1 * TW .TopMargin = 1 * TW .BottomMargin = 1 * TW End With Set rpt = Nothing End Sub

اخى الفاضل @Khalf ان شاء الله يمكن عن طريق اضافة زر امر على الفورم ولكن اعذرنى الان لانى خارج نطاق الكمبيوتر وعند العوده سأوافيك بالحل ان لم يسبقنى أساتذتى الى ذلك جمعة مباركة

الله عليك يا أبو عبدالله الحلوانى والله ريحتنى دا أنا كنت لسه هنوى أفكر بكره

أ.Khalf جرب المرفق وأفدنى بالنتيجة بالتوفيق معايير متعددة لاستعلام.accdb

أ.Maznahmad هو بس السؤال مش واضح .. وأساسا نموذج أسعار المواد الجاهزة لا يوجد به أسعار .. من فضلك وضح أكتر ولو التوضيح يكون على القاعدة يبقى تمام وإن شاء الله ستجد الحل

دا انا لسة بقول على مشارف الستين .. يعنى دماغى لم تعد تتحمل التفكير والحاجات دى يا ابو الصلح وزيادة فى المعرفة .. هو لماذا يتم إخفاء النماذج ولا يتم إغلاقها .. إنت عارف لو عندك مثلا 10 نماذج مفتوحة سرعة القاعدة هتبقى عاملة إزاى؟ عموما سأبحث فى هذا الصدد .. ولا تتعجل

بعد الأربعين ماشى .. بس أنا على مشارف الستين 😉

حبيبى يا أبو عبدالله .. أحسنت والله .. وما زلت أتعلم رغم الكِبَر

أ.محمد صلاح1 جرب كده التنقلTest.accdb

يبقى مفيش غير حل واحد .. إنك ترفع مرفق للدراسة وإبداء الرأى

أ.ابو زاهر .. أنا لأ أجيد الشرح ولكنى حاولت قدر المستطاع خالص تحياتى

أ.ابو زاهر فقط عدل فى هذا السطر الـ 3 إجعلها 2 .Cells(lr + 1, c).Formula = "=SUM(" & .Range(.Cells(2, c), .Cells(lr, c)).Address & ")" أما عن الشرح فهذا أمر شرحه يطول .. أمهلنى كما أمهلتنى من قبل لعمل هذا الكود وسأعود إليك إن شاء الله بشرح يثلج صدرك بالتوفيق

أساذنا ابا جودى فكرة جديرة بالإحترام .. ابتديت أشك انك كيميائى

صور لى الرسالة وارسلها هنا وتأكد من إضافة مكتبة Microsoft Excel 16.0 Object Library

أخى الفاضل ابو زاهر على قد ما عرفت جرب ووافنى بالنتيجة بالتوفيق EsExportToExcelTest.rar

أ.محمد صلاح1 هو انا طبعا مش عارف النماذج اللى طبقت عليها فيها ايه بس شوف كدة انتقل التركيز على الفورم الآخر اخفاء نموذج (وليس اغلاقه) عند فتح نموذج اخر ثم العودة للنموذج المخفي وأغلاق المفتوح.mdb

فى النموذج الاول ضع الكود التالى DoCmd.OpenForm "form2" Forms!form2.Visible = True Me.Visible = False وفى الثانى DoCmd.OpenForm "form1" Forms!form1.Visible = True Me.Visible = False فى حدث عند الضغط على المفتاح عسى أن يكون المطلوب