كيف اشغل استعلام حذف من زر داخل فورم

    If MsgBox("Are You Sure !!!", 4 + 16 + 256, "Alert Delete") = vbNo Then
     Exit Sub
    End If

    DoCmd.SetWarnings False
    DoCmd.RunSQL "DELETE SITES.*, SITES.ID FROM SITES " & _
                 "WHERE (((SITES.ID)=[Forms]![ACQ_F]![ACQ1].[Form]![ID]));"
    Forms![ACQ_F]![ACQ1].Form.Requery
    Forms![ACQ_F].Refresh
    DoCmd.SetWarnings True

عليكم السلام ورحمة الله وبركاته ..

أخي الكريم/

إضافة للموضوع يمكنك إشاء زر أمر عن طريق المعالج ثم تحديد تشغيل إستعلام

وتحديد إسمة وذلك في تصميم النموذج وإن شاء الله يكون هذا تقصدة .

أبو ربـــى;)

طريقة أخرى :

Dim db as ADODB.Connection

Dim sq AS String



Set db=CurrentProject.Connection



sq=" Delete tblName from tblName where IDtbl=1"

db.Excute sq



Set db=Nothing