مشكلة عند الحذف

[زياد الحسناوي]

السلام عليكم 

ارجوا من الاخوة الافاضل في هذا الموقع مساعدتي في حذف سجل 

 

فعند اضافة زر الحذف لا يتم حذف البيانات وتظهر الرسالة التالية

 

علما ان النموذج الرئيسي يحتوي على نماذج فرعية

تم تعديل نوفمبر 29, 2018 بواسطه zYo

[حسين العربى]

اخي الفاضل ممكن ارفاق مثال لتتضح لنا المشكلة

[زياد الحسناوي]

1 دقيقه مضت, حسين العربى said:

اخي الفاضل ممكن ارفاق مثال لتتضح لنا المشكلة

المشكلة انه الحاسبة ما بيها انترنيت 

وفاتح الان من جهاز موبايل

[حسين العربى]

انشاء الله  الاخوه يساعدوك بدون مثال

[cudi]

 يمكنك ان تكتب ذلك الكود الذي انت استخدمتها للحذف هنا ، اذا انت لا تستطيع ارفاق الملف 

سوف نحاول نساعدتك ان شاء الله

[زياد الحسناوي]

4 ساعات مضت, cudi said:

 يمكنك ان تكتب ذلك الكود الذي انت استخدمتها للحذف هنا ، اذا انت لا تستطيع ارفاق الملف 

سوف نحاول نساعدتك ان شاء الله

ليس كود vb وانما زر 🔘 مايكرو 

[cudi]

اذا تريد حذف رقم الفاتورة الذي تريد حذفها مع بيانات داخل نموذج فرعي ، حاول استبدل ماكرو الى كود

واكتب هذا الكود

Private Sub CmdDelete_Click()
    On Error Resume Next
    
    CurrentDb.Execute _
      "DELETE FROM tblEmployees " & _
      "WHERE tblEmployees = " & Me.EmpID
  
End Sub

اختر جدول الذي تريد لعندك بدلا من tblEmployees واختر رقم الفاتورة عندك بدلا من EmpID

او استخدم هذا الكود

Private Sub CmdDelete_Click()
    On Error GoTo err_CmdDelete_Click
    
    If IsNull(Me.EmpID) Or Me.EmpID = "" Then
        MsgBox "ÑÞã ÇáÝÇÊæÑÉ ÝÇÑÛÉ"
        Exit Sub
    Else
    
        DoCmd.SetWarnings False
        DoCmd.RunCommand acCmdDeleteRecord
        DoCmd.SetWarnings True
        
    End If
exit_CmdDelete_Click:
  Exit Sub
  
err_CmdDelete_Click:
  MsgBox Err.Description
  Resume exit_CmdDelete_Click
End Sub