عفرنس قام بنشر أبريل 8, 2020 مشاركة قام بنشر أبريل 8, 2020 (معدل) في الصورة المرفقة لا أريد أن يظهر الصف المكتوب فيه الاسم والبريد الإلكتروني في جدول techer. @ابوآمنة تم تعديل أبريل 8, 2020 بواسطه فايز.. رابط هذا التعليق شارك More sharing options...
ابوآمنة قام بنشر أبريل 8, 2020 مشاركة قام بنشر أبريل 8, 2020 عندك مجموعة حلول منها : الحل الأول : تعمل استعلام حذف للجدول وتحدد معييار لحقل Teacher = "الإسم" وهذا تضعه في جملة الاستعلام DELETE Teacher.Teacher FROM Teacher WHERE (((Teacher.Teacher)="الإسم")); تفضل بعطيك الحل الثاني إن شاء الله تعالى الحل الثاني : بالكود تفضل : Dim db As DAO.Database Dim rst As DAO.Recordset Set db = CurrentDb Set rst = db.OpenRecordset("Teacher") rst.MoveFirst rst.Delete rst.Close MsgBox "تم الغاء السجل الأول من الجدول", vbOKOnly 2 1 رابط هذا التعليق شارك More sharing options...
أفضل إجابة Barna قام بنشر أبريل 8, 2020 أفضل إجابة مشاركة قام بنشر أبريل 8, 2020 ومشاركة مع اخي واستاذي صالح غير في كود الاستيراد الموجود في النموذج الموجود في الصورة واستبدل كود استيرا بيانات المعلمين بالكود التالي Dim ImportFileName As String ImportFileName = Me.txtPath CurrentDb.Execute ("Delete * From Teacher") CurrentDb.Execute ("Delete * From Temp4") DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "Temp4", ImportFileName, False DoCmd.SetWarnings False DoCmd.RunSQL "INSERT INTO Teacher ( Teacher, Email ) " & _ " SELECT Temp4.f20, Temp4.f7 " & _ " FROM Temp4 " & _ " WHERE (((Temp4.f20)<>""الإسم""))" DoCmd.SetWarnings True MsgBox "تم استيراد أسماء المعلمين بنجاح" End Sub 3 رابط هذا التعليق شارك More sharing options...
ابوآمنة قام بنشر أبريل 8, 2020 مشاركة قام بنشر أبريل 8, 2020 استاذي محمد حل رائع معالجة البيانات أثناء استدعاءها في البرنامج شكراً لك استاذي هديتي لك 🍦 😁 1 رابط هذا التعليق شارك More sharing options...
عفرنس قام بنشر أبريل 8, 2020 الكاتب مشاركة قام بنشر أبريل 8, 2020 إخواني الكرام @Barna @ابوآمنة شكر الله لكما .. تم المطلوب .. رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان