حفظ المعلومات في النموذج

[بلال اليامين]

السلام  عليكم

عند فتح النموذج  والضغط على زر التسجيل  وعند الضغط على زر تاكيد المعلومات تظهر رسالة تنبه تما حفظ المعلومات 

وبعدها تظهر رسالة تنبيه اكمل البيانات

المطلوب هو عند الضغط على زر حفظ المعلومات والحقول فارغ تظهر رسالة التنبه اكمل البيانات 

وان لم يقوم بملء البيانات لم يحفظ البيانات في النموذج الفرعي

 

hamza.rar

[اشرف]

السلام عليكم

موجود في المنتدي ما يرد علي سؤالك انظر الموضوع الاتي

 

[د.كاف يار]

تفضل هذا الكود

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

مرفق الملف بعد التعديل

 

hamza.zip

[الحلبي]

استاذنا ومعلمنا / @د.كاف يار

هل ممكن الرسالة التى تظهر اسماء الحقول ان تكون باللغة العربية  فى حال اننا كتبناها فى تصميم الجدول باللغة العربية 

بمعنى اننا فى تصميم الجدول يكتب الحقل باللغة الانجليزية وفى اسفل الجدول عند كلمة  caption نكتبها باللغة العربية كالمعتاد 

وبعدين تأتى الرسالة وتقول الحقل (بالعربى ) نافص

جزاك الله كل خير وجعله فى ميزان حسناتك 

[Eng.Qassim]

51 دقائق مضت, الحلبي said:

هل ممكن الرسالة التى تظهر اسماء الحقول ان تكون باللغة العربية

انظر للمرفق دكتور

الموضوع يتعلق بال Tag في هذا المثال

 

Input Validation for TextBoxes.accdb

تم تعديل فبراير 1, 2022 بواسطه Eng.Qassim

[الحلبي]

استاذنا ومعلمنا / @Eng.Qassim

الله عليك فى منتهى الروعة تسلم ايدك وجعله فى ميزان حسناتك يارب

ولكن استاذى فى المثال المرفق عند التطبيق عليه  لا تظهر النتيجة المرغوبة

اعتقد فى شئ هيتغير فى الكود حسب اسم الجدول او اسم الفورم لا اعرف 

جزاك الله كل خير

الحفظ.accdb

[Eng.Qassim]

عزيزي دكتور @الحلبي.. اذا نظرت لهذا السطر من الكود

str = str & ctrl.Tag & vbNewLine

فانه يأخذ الاسم من هنا

الحفظ.accdb

[الحلبي]

استاذنا ومعلمنا / @Eng.Qassim

ياالله الله عليك ، بارك الله فيك وفى افكارك وفى علمك وكشف عنك الغمة وزرقك من غير حساب

الان فهمت كلمة  tag هى تعمل كل هذا ـ مع انك اشرت اليها وقلت حلى بالك 

انا اللى طلعت اى كلام اعذرنى اخى الكريم 

كل شئ اصبح تمام التمام واشكرك اخى الكريم / المهندس قاسم 

كل الاحترام والتقدير لكم 

[Eng.Qassim]

2 ساعات مضت, الحلبي said:

انا اللى طلعت اى كلام

😍.. بالعكس .. انت كل الكلام دكتور

دائما تعطيني الدعم ... وبسبب دعمك اقرأ يوميا عن اي شيء جديد

وعلى كل حال مازلنا تلاميذ صغار امام اساتذة منتدانا العظيم