كود حدف سجل

[بلال اليامين]

السلام عليكم

اريد كود حدف سجل تظهر رسالة تنبه تما حدف البيانات 

[عفرنس]

19 دقائق مضت, بلال اليامين said:

السلام عليكم

اريد كود حدف سجل تظهر رسالة تنبه تما حدف البيانات 

Private Sub cmdDelete_Click()
    Select Case MsgBox(Prompt:="تأكيد عملية الحذف!" & vbCr & "هل أنت متأكد من رغبتك بالحذف!", Buttons:=vbYesNo + vbQuestion + 1572864 + vbDefaultButton1)
    Case vbYes
    CurrentDb.Execute "delete * from Teacher where [f1]=" & Me.txtTeacher & ""
      MsgBox "تم الحذف بنجاح", vbInformation + 1572864
         Me.txtTeacher.Requery
           Case vbNo
         MsgBox "تم التراجع", vbCritical + vbDefaultButton1 + 1572864
    End Select
End Sub

تفضل . 

انسخه وألصقه في محرر الأكواد مباشرة .. 

[بلال اليامين]

اخي فايز عند الضغط على oui تظهر الخطأء في هذه الجملة

اخي فايز  اريد نزع كتابة مكيرو سوف اكسس 

CurrentDb.Execute "delete * from Teacher where [f1]=" & Me.txtTeacher & ""

تم تعديل يونيو 15, 2020 بواسطه بلال اليامين

[عفرنس]

1 دقيقه مضت, بلال اليامين said:

اخي فايز عند الضغط على oui تظهر الخطأء في هذه الجملة

CurrentDb.Execute "delete * from Teacher where [f1]=" & Me.txtTeacher & ""

أرفق ملفك إذا ممكن 

أو مثال منه 

 

[بلال اليامين]

اليك الملف 

اخي فايز اريد نزع كتابة ميكرو سوف اكسس التي بالون الاحمر

A_dbu - 11.rar

تم تعديل يونيو 15, 2020 بواسطه بلال اليامين

[عفرنس]

35 دقائق مضت, بلال اليامين said:

اليك الملف 

اخي فايز اريد نزع كتابة ميكرو سوف اكسس التي بالون الاحمر

A_dbu - 11.rar 92.75 kB · 0 تنزيلات

تفضل 

 

A_dbu - 11.mdb

دائما اكتب أسماء الحقول باللغة الإنجليزية .. 

من أجل سهولة كتابة الأكواد

 

[بلال اليامين]

اخي لم يعمل زر اضافة وزر حدف

[عفرنس]

4 دقائق مضت, بلال اليامين said:

اخي لم يعمل زر اضافة وزر حدف

أضف البيانات في جدول school  ثم جرب زر الحذف 

 

[أبوبسمله]

مشاركه مع اخى @فايز.. جزاه الله خيرا💐

اتفضل التعديل ع مثالك اخى

بالتوفيق اخوانى

 

A_dbu - 11.rar