السلام عليكم ورحمة الله ... وبعد
هو اسم الجدول people
هو المفتاح الأساسي نوعه رقم musal
del هو استعلام حذف
....................................................................
والمشكلة قمت بتغيير المفتاح الاساسي من رقم إلى نص وعليه توقف هذا الأمر عن اداء وظيفته
أرجو من الأخوة الأفاضل تغيير مايلزم
ولكم جزيل الشكر والتقدير
إن الله وملائكته يصلون على النبي
اللهم صل وسلم على نبينا محمد وعلى ازواجه وذريته وصحبه الكرام
Private Sub as_Click()
Dim stDocName As String
Dim a As String
a = ("[people]" & "[musal]=aa")
If MsgBox("((ÇäÊ ÊÑíÏ ÍÐÝ ÓÌá (( " & " " & DLookup("ÇáÇÓã", "people", "[musal]=aa"), vbYesNo + vbQuestion, "") = vbYes Then
stDocName = "del"
DoCmd.SetWarnings False
DoCmd.OpenQuery stDocName, acNormal, acEdit
DoCmd.SetWarnings False
Me.Requery
Else
DoCmd.CancelEvent
End If
End Sub