طلب مساعده في كود لحذف السجل الفارغ الياً

[imad2024]

السلام عليكم طلب مساعده في  كود لحذف جميع السجل الفارغ الياً عند الخروج من السجل وتركه فارغ بدون ادخال بيانات فيه

قمت بوضع كود قبل التحديث ولكنه لم ينجح الامر

يرجى المساعده

مع الاحترام

مرفق برنامج للتجربه

program.accdb

[سامي الحداد]

وعليكم السلام 

تفضل اخي الكريم 

عملت الكود حسب الحقول الموجودة في الجدول إذا كان هناك حقل فارغ سيتم حذف السجل نهائيا. جرب ووافنا بالنتيجة

بالتوفيق

Private Sub Form_AfterUpdate()

    Dim rs As DAO.Recordset
    Dim strSQL As String
    Dim Field1, Field2, Field3 As Variant
    
        strSQL = "SELECT * FROM aaa"
        Set rs = CurrentDb.OpenRecordset(strSQL)
                      rs.MoveFirst
                      Do Until rs.EOF
         Field1 = rs.Fields("Nam").Value
         Field2 = rs.Fields("Home").Value
         Field3 = rs.Fields("dats").Value

        If IsNull(Field1) Or Field1 = "" Or IsNull(Field2) Or Field2 = "" Or IsNull(Field3) Or Field3 = "" Then
        
                      MsgBox "توجد حقول غير مكتملة ...  سوف يتم حذف السجل كليا", vbExclamation, "تنبيه"
                      rs.Delete
                      If Not rs.EOF Then
                      rs.MoveNext
        End If
                      Else
                      rs.MoveNext
        End If
        
        Loop
                      rs.Close
                      Set rs = Nothing
                      DoCmd.Requery
    
                      MsgBox " . تمت عملية حذف الحقول الفارغة ", vbInformation, "تمت العملية بنجاح"
End Sub

وهذا الملف بعد التعديل

program.accdb

[imad2024]

اشكرا كثيرا على هذه الاجابه الرائع

وهي ما اريد 

شكرا كثيرا