السلام عليكم
مزيد من التوضيح ..
عندي هذا الكود
If DCount("txtnum", "جدول2") > 5 Then
MsgBox "عــفواً ... هذه النسخة للعرض فقط .. للحصول على نسخة كاملة من البرنامج " & vbCrLf & _
" الــرجــاء الأتــصــال على المبــرمــج " _
& vbCrLf & _
vbCrLf & " AMOTAIB@HOTMAIL.COM ", 0, "أنتهاء مدة العرض"
Me.Undo
Cancel = True
DoCmd.Quit
Else
DoCmd.Maximize
End If
اريد نموذج فيه زرين أمر ... الأول يقوم بتشغيل هذه الكود ليكون فاعلاً ..
والزر الثاني لألغاء الكود وأبطال تأثيره .