كود حذف سجل محدد

[النهر العطشان]

السلام عليكم 

ارجوا المساعدة في كتابة كود حذف سجل بحيث عند كتابة رقم اي سجل في المربع وعند الضغط على رز الحذف يقوم بالحذف وكما مرفق في الملف وشكرا

ID.rar

[Shivan Rekany]

1 ساعه مضت, النهر العطشان said:

السلام عليكم 

ارجوا المساعدة في كتابة كود حذف سجل بحيث عند كتابة رقم اي سجل في المربع وعند الضغط على رز الحذف يقوم بالحذف وكما مرفق في الملف وشكرا

ID.rar

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

    If DCount("[id]", "table1", "[id]=" & Me.Text1) > 0 Then
            If MsgBox("هل تريد ان تحذف سجل رقم ( " & Me.Text1 & " ) فعلا", vbYesNo + vbMsgBoxRight, "") = vbYes Then
                Dim sql As String
                    sql = "DELETE Table1.ID, Table1.NAME, Table1.TEL, Table1.DATE FROM Table1 WHERE (((Table1.ID)=[Forms]![Form1]![Text1]));"
                DoCmd.SetWarnings False
                    DoCmd.RunSQL (sql)
                DoCmd.SetWarnings True
                    MsgBox "تم حذف السجل المرقم ( " & Me.Text1 & " ) بنجاح"
                    Me.Text1 = ""
            End If ' msgbox
        Else
                    MsgBox "ليس لدينا اي سجل برقم ( " & Me.Text1 & " ) في جدولنا"
    End If ' dcount

وهذا قاعدة بايناتك بعد اضافة الكود الاعلاه

 

ID.rar

[النهر العطشان]

شكرا استاذي الفاضل هذا بالضبط ما اريده جعلها الله حسنات في ميزانك

[foadch]

شكرا👍