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

[عفرنس]

السلام عليكم 

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

بارك الله في جهودكم .. 

[د.كاف يار]

اتفضل يابو عبدالرحمن 

في حدث ازرار الحفظ ضع الكود التالي 

 

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

 

[عفرنس]

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

 

جزيت خيرا @د.كاف يار 

الذي أقصده عند الفتح وليس الحفظ . لأنه لا يوجد زر حفظ في برنامجنا . 

المقصود من الرسالة ( التنبيه بوجود حقول فارغة ) عند فتح البرنامج

[د.كاف يار]

17 دقائق مضت, فايز.. said:

جزيت خيرا @د.كاف يار 

الذي أقصده عند الفتح وليس الحفظ . لأنه لا يوجد زر حفظ في برنامجنا . 

المقصود من الرسالة ( التنبيه بوجود حقول فارغة ) عند فتح البرنامج

ما هي مشكلة حط نفس الكود في حدث عند الفتح

[عفرنس]

58 دقائق مضت, د.كاف يار said:

ما هي مشكلة حط نفس الكود في حدث عند الفتح

الكود ضبط .. لكن ألا يمكن معرفة وإظهار عدد الحقول الفارغة من خلال هذا الكود ؟؟ 

[د.كاف يار]

45 دقائق مضت, فايز.. said:

الكود ضبط .. لكن ألا يمكن معرفة وإظهار عدد الحقول الفارغة من خلال هذا الكود ؟؟ 

هذا الكود يعطيك اسم كل حقل فارغ و عشان تضبط مخرجات الاسماء روح لكل حقل في النموذج و عدل الاسم التوضيحي من خلال الخصائص

[عفرنس]

19 دقائق مضت, د.كاف يار said:

هذا الكود يعطيك اسم كل حقل فارغ و عشان تضبط مخرجات الاسماء روح لكل حقل في النموذج و عدل الاسم التوضيحي من خلال الخصائص

جزاك الله خيرا .. الأمور تمام