اتمنى مساعدة سريعة في هذا الكود وين الغلط

[hamzah6]

If [naa] >= 1 Then
Dim Msg, style, title, result
Msg = "الاسم موجود مسبقا هل تريد حذفه"
style = vbYesNo
title = " مكرر"
result = MsgBox(Msg, style, title)
If result = vbYes Then
DoCmd.RunCommand acCmdDeleteRecord
End If
If result = vbNo Then
 MsgBox "تم الرجوع ", vbInformation, "الغاء العملية"
End If
End If

[محمد ايمن]

جرب هذا الامر اخي الكريم

DoCmd.RunCommand acCmdSelectRecord

عوضا عن  DoCmd.RunCommand acCmdDeleteRecord

[رمهان]

مشاركة مع اخي الاستاذ محمد

اخي الكريم

لا يوجد خطأ . فقط لن يحدث اي شي الا اذا قيمة naa  اكبر من او تساوي 1

بالتوفيق