نموذج بحث وتقرير

[bouchaib zakaria]

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

واجهتني مشكلة في نموذج بحث اذ قمت بعمل حقلين للبحث وزر امر في النموذج 

اردت عمل كود في زر الامر وهو فتح التقرير بشرط ملئ الحقلين والا تظهر  رسالة خطأ

المشكلة هي بعد ان تظهر رسالة الخطا واضغط على ok يفتح االتقرير  !!!

 

الكود 

If IsNull(Texte8) Or Me.Texte8 = "" Then
 " اكتب الاسم "MsgBox 
DoCmd.CancelEvent
End If
DoCmd.OpenReport "mouv", acViewReport

 

تم تعديل ديسمبر 6, 2020 بواسطه bouchaib zakaria

[kanory]

اكتب هذا الكود

If IsNull(Texte8) Or Me.Texte8 = "" Then
 " اكتب الاسم "MsgBox 
DoCmd.CancelEvent
Else
DoCmd.OpenReport "mouv", acViewReport
End If


 

 

[bouchaib zakaria]

تم الامر, جزيل الشكر استاذ

[kanory]

حياك الله .... الحمد لله رب العالمين