عدم استيراد صف الاسم والبريد

[عفرنس]

في الصورة المرفقة لا أريد أن يظهر الصف المكتوب فيه الاسم والبريد الإلكتروني في جدول techer.

@ابوآمنة

تم تعديل أبريل 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

 

[Barna]

ومشاركة مع اخي واستاذي صالح 

غير في كود الاستيراد الموجود في النموذج الموجود في الصورة واستبدل كود استيرا بيانات المعلمين بالكود التالي 

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

 

[ابوآمنة]

استاذي محمد حل رائع 

معالجة البيانات أثناء استدعاءها في البرنامج شكراً لك استاذي هديتي لك  🍦

😁

[عفرنس]

إخواني الكرام @Barna @ابوآمنة 

شكر الله لكما .. 

تم المطلوب ..