جلب تسميه توضيحه بدل الاسم البرمجي للكائن في msgbox

[رياض البرعي]

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

بعد الاطلاع على موضوع (عدم الحفظ عندما يكون الحقل فارغاً)

و كان الكود للأخ @jjafferr مناسب جداً لتطبيقي
ولكن تظهر الرسالة وقد جلبت الاسم البرمجي للكائن و كذلك اي كائن نصي مخفي لاي غرض يقوم الكود باظهار انه حقل مطلوب تعبئته
و المطلوب :
اظهار التسميه التوضيحة بدل الاسم البرمجي للكائن .
و كذلك عدم اظهار اي اسم لكائن مخفي في النموذج .
ولكم جــــــزيل الشكر 

 

 

user.accdb

[شايب]

5 ساعات مضت, رياض البرعي said:

اظهار التسميه التوضيحة بدل الاسم البرمجي للكائن .
و كذلك عدم اظهار اي اسم لكائن مخفي في النموذج .

نعم ممكن استبدل كود الاخ جعفر بالتالي

Dim I_am_Empty As String, Set_Focus_On_Me As Control

Dim ctl As Control
For Each ctl In Me.Controls
    If ctl.ControlType = acTextBox And ctl.Visible = True Then
        If Len(ctl.Value & "") = 0 Then
            I_am_Empty = I_am_Empty & vbCrLf & ctl.Controls.Item(0).Caption
            Set Set_Focus_On_Me = ctl
        End If
    End If
Next ctl

If Len(I_am_Empty & "") <> 0 Then
            Cancel = True
            MsgBox "رجاء تعبئة الحقول الفارغة التالية" & I_am_Empty
            Set_Focus_On_Me.SetFocus
            Set ctl = Nothing: Set Set_Focus_On_Me = Nothing
            Exit Sub
End If
   

طبعا التعديل في السطرين الرابع والسادس فقط وباقي الكود كما هو

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

الملف مرفق

اخونا الشايب

 

user.accdb