عدم فتح التقرير في حالة كان أحد الحقول خالي

[faife 2]

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

في المثال المرفق مطلوب :

- ظهور رسالة تفيد بعدم وجود بيانات في التقرير عندما يكون أحد الحقول احدده خالي من البيانات مثلا حقل TAG في المثال ....

- او يمكن عمل ذلك على زر طباعة التقرير حيث يكون غير نشط عندما يكون حقل TAG خالي من البيانات ويتم تنشيطه عند ادخال بيانات في الحقل ذاته

مع خالص التقدير

ena.rar

[المحاسب الجديد 42]

وعليكم السلام "faife "

تم اضافة الكود التالي لزر معاينة التقرير

Me.Refresh

If IsNull(Me.taj) Then
MsgBox "من فضلك ادخل بيانات في مربع  كذا كذا.. ", , "برنامج faife "
DoCmd.CancelEvent
 DoCmd.GoToControl "taj"

Else

فتظهر هذه الرسالة في حالة كان مربع TAG خالي

واليك الملف

ena20-5.zip

بالتوفيق

[omar19-3 57]

بارك الله فيك أخى المحاسب الجديد.

[faife 2]

بارك الله فيك أخي المحاسب الجديد حل جميل وهو المطلوب

[faife 2]

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

الأخ العزيز محاسب جديد هل يمكن من خلال الكود السابق اضافة عدة حقول على الشرط

مع خالص التقدير

[المحاسب الجديد 42]

شكرا لتشجيعك اخي "omar19-3" بارك الله فيك

وعليكم السلام "faife "

بالطبع يمكن اضافة عدة حقول على الشرط

تم اضافة التالي لزر معاينة التقرير

Me.Refresh

If IsNull(Me.nam) Then
MsgBox "من فضلك ادخل بيانات في مربع  الاسم.. ", , "برنامج faife "
DoCmd.CancelEvent
 DoCmd.GoToControl "nam"
Else
If IsNull(Me.taq) Then
MsgBox "من فضلك ادخل بيانات في مربع  الثالث .. ", , "برنامج faife "
DoCmd.CancelEvent
 DoCmd.GoToControl "taq"
Else
If IsNull(Me.tah) Then
MsgBox "من فضلك ادخل بيانات في مربع  الرابع.. ", , "برنامج faife "
DoCmd.CancelEvent
 DoCmd.GoToControl "tah"
Else
If IsNull(Me.taj) Then
MsgBox "من فضلك ادخل بيانات في مربع  الخامس.. ", , "برنامج faife "
DoCmd.CancelEvent
 DoCmd.GoToControl "taj"
Else

عند وضع المؤشر بالمربع سيصبح لونة اخضر وذلك بسبب وضع تنسيق شرطي

واليك الملف

ena21-5.zip

بالتوفيق

[faife 2]

بارك الله فيك وجعل ذلك في موازين حسناتك ..... مبدع