مهند محسن قام بنشر أغسطس 23, 2021 مشاركة قام بنشر أغسطس 23, 2021 السلام عليكم اخوتي اريد رسالة عندما توجد بيانات في النموذج تظهر هذه الرسالة واذا كان النموذج فارغ لاتظهر هذه الرسالة . مع التقدير رابط هذا التعليق شارك More sharing options...
مهند محسن قام بنشر أغسطس 23, 2021 الكاتب مشاركة قام بنشر أغسطس 23, 2021 لايوجد رد رابط هذا التعليق شارك More sharing options...
د.كاف يار قام بنشر أغسطس 23, 2021 مشاركة قام بنشر أغسطس 23, 2021 تفضل 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 1 1 رابط هذا التعليق شارك More sharing options...
مهند محسن قام بنشر أغسطس 24, 2021 الكاتب مشاركة قام بنشر أغسطس 24, 2021 اقتباس كل الشكر استاذ .......... ممنون رابط هذا التعليق شارك More sharing options...
Eng.Qassim قام بنشر أغسطس 24, 2021 مشاركة قام بنشر أغسطس 24, 2021 On 8/23/2021 at 5:47 PM, مهند محسن said: السلام عليكم اخوتي اريد رسالة عندما توجد بيانات في النموذج تظهر هذه الرسالة واذا كان النموذج فارغ لاتظهر هذه الرسالة . مع التقدير اخي العزيز ... بعض الحقول تكون مطلوبة .. فمثلا الاسم مطلوب وعند عدم كتابته تخرخ رسالة If isNull me.txtName then MsgBox "يجب ادخال الاسم ", vbExclamation + vbMsgBoxRight, "مطلوب الاسم " End if رابط هذا التعليق شارك More sharing options...
مهند محسن قام بنشر أغسطس 26, 2021 الكاتب مشاركة قام بنشر أغسطس 26, 2021 كل الشكر رابط هذا التعليق شارك 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.