مشكلة في أمر حذف سجل المفتاح الاساسي للجدول نص

[AboSaad17]

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

 

هو اسم الجدول  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
 

[AboSaad17]

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

 

تم حل المشكلة حيث أستخدمت في الاستعلام حقل أخر بدلا عن الحقل ( musal) 

 

الكود الأن  يؤدي وظيفته والإرهاق الذهني له دور في ذلك أعتذر للجميع 

 

 

 

اللهم صل وسلم على سيدنا محمد