الضياء2008

شوف التعديل بس الجداول المرفقة غير منضبطة بالمرة قوائم الفصول.rar

فين بيانات الفصول فى جدول الطلاب ؟ هيتم الاستعلام على أى أساس و لا يوجد تحديد للفصل ولا الصف ولا المرحلة الى الطالب ملتحق بيها

ادخل على الكود وعدل اسم الملف والبارتشن المراد عمل التصدير اليه اصنع ملفجديد على الباتشن f باسم tttt أو غير هنا باللون الأحمر 😕Set dbs = ws.CreateDatabase("f\tttt\Schl_" & i & ".mdb", dbLangArabic) DoCmd.CopyObject "f😕tttt\Schl_" & i & ".mdb", "School", acTable, "School" SlicingDB.rar

دالة مع الملف يحتوى على الكود Option Explicit ' ### Provided By Nart Lebzo For www.officena.net ### Public Function RowNum(FRM As Form) As Variant On Error GoTo Err_RowNum With FRM.RecordsetClone .Bookmark = FRM.Bookmark RowNum = .AbsolutePosition + 1 End With Exit_RowNum: Exit Function Err_RowNum: If Err.Number <> 3021& Then 'Ignore "No bookmark" at new row. Debug.Print "RowNum() error " & Err.Number & " - " & Err.Description End If RowNum = Null Resume Exit_RowNum End Function ثم عنصر التحكم الذى اشرت اليه واضح من الكود استاذنا اللى كتبه

الكود يعمل ... بس انت أكمل باقى النموذج اكيد فيه بيانات أخرى ستضاف لأنه يجبان تظل فى النموذج بعد تحديث بيانات الحقل

تفضل أخى الكريم الكود لأحد عمالقة المنتدى Database111.rar

tst2.rar

شرط الترحيل الى جدول سلة المحذوفات أن يكون منقطع لذا لا يوجد خطأ يمكن اضافة السطر التالى فى لتحديث البيانات فى النموذج الأول Me.Requery القصد من شرط الترحيل إعطاء أكثر من اختيار يمكن عمل نفس الخطوات للحذف النهائى أو من أمر حذف المعتاد

آسف لعطل في الانترنت https://up.top4top.net/downloadf-1271dfz0l1-rar.html

محاولة بسيطةtst1.rar

يا ريت شرح كيفية الرفع

تسلم يا أستاذنا لا تطل عنا الغياب

أستاذى العزيز كل الفضل يعود لأساتذتى فى هذا المنتدى استمارة 2 تأمينات.rar

معنى الرسالة أنه يجب ضبط اللغة العربية على الجهاز بشكل صحيح

أين البرنامج نفسه؟