(تمت الاجابة) عمل زر أمرللحذف

[tarooq]

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

Test.rar

[Dream_Works]

هذا الكود أخوي

With Me
criteria = "ID = '" & .TxtID & "' and " & _
            "Name = '" & .TxtName & "' and " & _
            "Address = '" & .TxtAddress & "' and " & _
            "phone = '" & .TxtPhone & "'"
End With
' For Removing The Warning Message
' DoCmd.SetWarnings False
DoCmd.RunSQL "Delete From Test Where " & criteria
' DoCmd.SetWarnings true
' Initialize The RecordSet Again
Call Form_Load

ملحوظة :

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