محتاج طريقة حذف البيانات من النموذج

[عبد اللطيف سلوم]

في ٢٣‏/٦‏/٢٠١٩ at 14:39, مسفر said:

Dim f As String
Dim rst As DAO.Recordset
    Set rst = Me.RecordsetClone
    rst.MoveLast: rst.MoveFirst
    RC = rst.RecordCount
    f = rst!Delchk
    For i = 1 To RC
     If f = "true" Then
        rst.Edit
        rst!Delchk = False
        rst.Update
     Else
        rst.Edit
        rst!Delchk = True
        rst.Update
     End If
        
        rst.MoveNext
    Next i
    
    rst.Close: Set rst = Nothing

غير فقط 

Delchk= الحقل في الجدول 

هذا مسمى الحقل في الكود واترك الباقي كما هو 

طبقه على القاعدة كما هو ولن يحدث معك خطأ بإذن الله 

هذا في كود التحديد 

أما كود الإلغاء 

أعمل العكس 

true أجعلها false 

 

 

حاولت تطبيق الكود يعطيني خطا على RC

تم تعديل يونيو 25, 2019 بواسطه عبد اللطيف سلوم

[مسفر]

استاذي واخي عبد اللطيف سلوم

هذا الكود للتحديد 

لو جعلته للحذف لحذف السجلات جميعها 

بعد التحديد استخدم زر حذف أو كما فعل الأخ الوزير بإبدال العنوان واستخدام الجملة الشرطية