مساعدة في حذف سجلات بشرط

[ازهر عبد العزيز]

السلام عليكم 

لدي نموذج  fmast يحتوي حقلان الاول id mast  وهو ترقيم تلقائي والثاني mast وهو نص احتاج طريقة لخذف السجلات بشرط ان يكون الحقل في id mast  رقم زوجي مثلا 4,6,8,10, 2

mast.accdb

[محمد احمد لطفى]

تفضل بالتوفيق 
 

    Dim strSQL As String
    
    ' Replace "YourTableName" with the actual name of your table
    strSQL = "DELETE FROM TBmast WHERE idmast Mod 2 = 0;"
    
    CurrentDb.Execute strSQL
    
    MsgBox "تم حذف السجلات ذات الرقم الزوجي بنجاح.", vbInformation
    Me.Requery

 

 

mast.accdb

تم تعديل فبراير 9, 2024 بواسطه محمد احمد لطفى

[ازهر عبد العزيز]

21 دقائق مضت, محمد احمد لطفى said:

تفضل بالتوفيق 

سؤال اخر لو سمحت اخي ماذا لو اردت حذف السجلات برقم فردي

[محمد احمد لطفى]

هنا الحل 
 

Mod 2 = 1
Mod 2 <> 0

 

تم تعديل فبراير 9, 2024 بواسطه محمد احمد لطفى