Matin_Murad قام بنشر نوفمبر 11, 2019 مشاركة قام بنشر نوفمبر 11, 2019 DoCmd.SetWarnings False Dim x1 (x1 = Nz(DLookup("barcode", "tabl1", "[barcode] = " & Me.aa), 0) If x1 = 0 Then "MsgBox "This code is not registered", vbMsgBoxRight + vbCritical, "notes" DoCmd.RunCommand acCmdSelectRecord DoCmd.RunCommand acCmdDeleteRecord Exit Sub End If السلام عليكم ..... اريد اضهار msgbox هذا كود مسجل ( This is a registered code )' رابط هذا التعليق شارك More sharing options...
أفضل إجابة ابو ياسين المشولي قام بنشر نوفمبر 11, 2019 أفضل إجابة مشاركة قام بنشر نوفمبر 11, 2019 جرب DoCmd.SetWarnings False Dim x1 (x1 = Nz(DLookup("barcode", "tabl1", "[barcode] = " & Me.aa), 0) If x1 = 0 Then "MsgBox "This code is not registered", vbMsgBoxRight + vbCritical, "notes" DoCmd.RunCommand acCmdSelectRecord DoCmd.RunCommand acCmdDeleteRecord else MsgBox " This is a registered code", vbMsgBoxRight + vbCritical, "notes" Exit Sub End If 1 رابط هذا التعليق شارك More sharing options...
Matin_Murad قام بنشر نوفمبر 12, 2019 الكاتب مشاركة قام بنشر نوفمبر 12, 2019 ممتاز ( ابو ياسين الشمولي ) بارك الله فيك رابط هذا التعليق شارك More sharing options...
ابو ياسين المشولي قام بنشر نوفمبر 12, 2019 مشاركة قام بنشر نوفمبر 12, 2019 بالتوفيق 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.