اريد رسالة عندما توجد بيانات في النموذج تظهر هذه الرسالة (معدل)

[مهند محسن]

السلام عليكم اخوتي

اريد رسالة عندما توجد بيانات في النموذج تظهر هذه الرسالة 

 واذا كان النموذج فارغ لاتظهر هذه الرسالة .

مع التقدير

[مهند محسن]

لايوجد رد

 

[د.كاف يار]

تفضل

Dim ctl As Control
    For Each ctl In Me.Controls
        If TypeName(ctl) = "TextBox" Then
            If Not IsNull(ctl) Then
                MsgBox "توجد بيانات بالنموذج", vbExclamation + vbMsgBoxRight, "تأكيد"
            End If
        End If
    Next ctl

 

[مهند محسن]

اقتباس

كل الشكر استاذ .......... ممنون 

 

[Eng.Qassim]

On 8/23/2021 at 5:47 PM, مهند محسن said:

السلام عليكم اخوتي

اريد رسالة عندما توجد بيانات في النموذج تظهر هذه الرسالة 

 واذا كان النموذج فارغ لاتظهر هذه الرسالة .

مع التقدير

اخي العزيز ... بعض الحقول تكون مطلوبة .. فمثلا الاسم مطلوب وعند عدم كتابته تخرخ رسالة

If isNull me.txtName then 
	 MsgBox "يجب ادخال الاسم ", vbExclamation + vbMsgBoxRight, "مطلوب الاسم "
 End if

 

[مهند محسن]

كل الشكر