عفرنس قام بنشر سبتمبر 23, 2020 مشاركة قام بنشر سبتمبر 23, 2020 السلام عليكم ارغب في ظهور رسالة تنبيه عند فتح البرنامج مفادها ( يوجد لديك عدد ... سجلات فارغة في حقل كذا . وعدد ... سجلات فارغة في حقل كذا ) . بارك الله في جهودكم .. رابط هذا التعليق شارك More sharing options...
أفضل إجابة د.كاف يار قام بنشر سبتمبر 23, 2020 أفضل إجابة مشاركة قام بنشر سبتمبر 23, 2020 اتفضل يابو عبدالرحمن في حدث ازرار الحفظ ضع الكود التالي Dim msg1, msg2 As String msg2 = "عزيزي المستخدم " & vbNewLine & "يرجى تعبئة الحقل / الحقول الفارغة" Dim ctl As Control For Each ctl In Me.Controls If TypeName(ctl) = "TextBox" Then If IsNull(ctl) Or ctl = "" Then If msg1 = "" Then msg1 = " - " & ctl.Name Else msg1 = msg1 & vbNewLine & " - " & ctl.Name End If End If End If Next ctl If msg1 = "" Then DoCmd.RunCommand acCmdSaveRecord MsgBox "تم الحفظ بنجاح", vbInformation, "تأكيد" Else MsgBox msg2 & vbNewLine & msg1, vbCritical, "تنبيه بوجود حقول فراغة" End If 2 رابط هذا التعليق شارك More sharing options...
عفرنس قام بنشر سبتمبر 23, 2020 الكاتب مشاركة قام بنشر سبتمبر 23, 2020 53 دقائق مضت, د.كاف يار said: اتفضل يابو عبدالرحمن في حدث ازرار الحفظ ضع الكود التالي Dim msg1, msg2 As String msg2 = "عزيزي المستخدم " & vbNewLine & "يرجى تعبئة الحقل / الحقول الفارغة" Dim ctl As Control For Each ctl In Me.Controls If TypeName(ctl) = "TextBox" Then If IsNull(ctl) Or ctl = "" Then If msg1 = "" Then msg1 = " - " & ctl.Name Else msg1 = msg1 & vbNewLine & " - " & ctl.Name End If End If End If Next ctl If msg1 = "" Then DoCmd.RunCommand acCmdSaveRecord MsgBox "تم الحفظ بنجاح", vbInformation, "تأكيد" Else MsgBox msg2 & vbNewLine & msg1, vbCritical, "تنبيه بوجود حقول فراغة" End If جزيت خيرا @د.كاف يار الذي أقصده عند الفتح وليس الحفظ . لأنه لا يوجد زر حفظ في برنامجنا . المقصود من الرسالة ( التنبيه بوجود حقول فارغة ) عند فتح البرنامج رابط هذا التعليق شارك More sharing options...
د.كاف يار قام بنشر سبتمبر 23, 2020 مشاركة قام بنشر سبتمبر 23, 2020 17 دقائق مضت, فايز.. said: جزيت خيرا @د.كاف يار الذي أقصده عند الفتح وليس الحفظ . لأنه لا يوجد زر حفظ في برنامجنا . المقصود من الرسالة ( التنبيه بوجود حقول فارغة ) عند فتح البرنامج ما هي مشكلة حط نفس الكود في حدث عند الفتح رابط هذا التعليق شارك More sharing options...
عفرنس قام بنشر سبتمبر 23, 2020 الكاتب مشاركة قام بنشر سبتمبر 23, 2020 58 دقائق مضت, د.كاف يار said: ما هي مشكلة حط نفس الكود في حدث عند الفتح الكود ضبط .. لكن ألا يمكن معرفة وإظهار عدد الحقول الفارغة من خلال هذا الكود ؟؟ رابط هذا التعليق شارك More sharing options...
د.كاف يار قام بنشر سبتمبر 23, 2020 مشاركة قام بنشر سبتمبر 23, 2020 45 دقائق مضت, فايز.. said: الكود ضبط .. لكن ألا يمكن معرفة وإظهار عدد الحقول الفارغة من خلال هذا الكود ؟؟ هذا الكود يعطيك اسم كل حقل فارغ و عشان تضبط مخرجات الاسماء روح لكل حقل في النموذج و عدل الاسم التوضيحي من خلال الخصائص 2 رابط هذا التعليق شارك More sharing options...
عفرنس قام بنشر سبتمبر 23, 2020 الكاتب مشاركة قام بنشر سبتمبر 23, 2020 19 دقائق مضت, د.كاف يار said: هذا الكود يعطيك اسم كل حقل فارغ و عشان تضبط مخرجات الاسماء روح لكل حقل في النموذج و عدل الاسم التوضيحي من خلال الخصائص جزاك الله خيرا .. الأمور تمام رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان