كود تحديث البيانات في النموذج

[رابح1999]

السلام عليكم

اريد  كود تحديث بيانات في النموذج و عند ترك الحقل فارغ يتغير خلفية الحقل الى الون الاحمر

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

 

[عفرنس]

1 ساعه مضت, رابح1999 said:

السلام عليكم

اريد  كود تحديث بيانات في النموذج و عند ترك الحقل فارغ يتغير خلفية الحقل الى الون الاحمر

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

 

تفضل هذا كود التحديث : 

DoCmd.RunCommand acCmdSaveRecord
 

[Khalid Jnb]

السلام عليكم

الافضل ان ترفق مثال عند طرح السؤال لتوفير الوقت على الجميع

* بالنسبة للالوان ممكن عمل ذلك عن طريق الكود او عن طريق التنسيق الشرطي

انظر للاكواد اتمنى تكون المطلوب

'تحديث بيانات النموذج
me.Refresh
Docmd.Requery
'---------------------
'تغير خلفية الحقل الى اللون الاحمر اذا كان فارغ 
If IsNull(Me.text1) Then
Me.text1.BackColor = vbRed
End If
'-----------------------------------------
'يوضع في التنسيق الشرطي في التعبيير لتغيير اللون
IsNull([text1])
'-------------------------------------------
' باكثر من شرط يوضع بالنموذج
If Not IsNull(Me.[اسم الموظف]) And Not IsNull(Me.[الدرجة الوظيفية]) Then
Beep
MsgBox "مبروك كل الحقول مملوءة"
End If

تحياتي

تم تعديل فبراير 18, 2020 بواسطه خالد سيسكو

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

السلام عليكم 

اين اضع الكود واسم الحقل

[Khalid Jnb]

السلام عليكم

يا اخي من الافضل  ارفاق مثال  لغرص التعديل افضل للجميع 

1- بالنسبة لكود تحديث النموذج  الذي يضع في زر عند النقر غي نفس النموذج الذي تعمل عليه.

2- بالنسبة لكود  الحقل الفارغ ممكن وضعه عند فتح النموذج او  قبل التحديث

3- بالنسبة لكود الرسالة يضع بعد تحديث النموذج

 

تم تعديل فبراير 18, 2020 بواسطه خالد سيسكو

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

السلام عليكم

اليك المثل اخي

قاعدة بيانات (220000).rar

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

السلام عليكم

اخي اليك المثل لوضع كود  تغيير خلفية الحقل عند تركه فارغا

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

اخي لدي ثلاثة نماذج اسم النموذج الاول حالة مدنية والثاني المعلومات الشخصية والثالث بطاقة المهنية

اريد  دمج النماذج الثلاثة في نموذج واحد ووضع الزر لتحديث البيانات

المثل لقد ارفقته 

[Khalid Jnb]

السلام عليكم

تفضل اخي الكريم

اتمنى ان يكون المطلوب

ملاحظة لقد قمت بتغيير اسماء الحقول الاربعةالى (text1,text2,rext3,text4)  لغرض سهولة الكتابة باللغة الانكليزية

قاعدة بيانات (220000).rar

تم تعديل فبراير 18, 2020 بواسطه خالد سيسكو

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

اخي  بارك الله فيك 

وكيف اكمال الحقول الاخرى بتغير خلفية الحقول بالون الاحمر

[Khalid Jnb]

السلام عليكم اخي الكريم

تفضل الشرح بالصور  عن طريق التنيسق الشرطي (افتح النموذج في وضع التصميم ثم  قم بتاشير الحقل ثم اضغط على التنسيق الشرطي)

وباقي الشرح بالصور

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

تحياتي

 

قاعدة بيانات (220000).rar

تم تعديل فبراير 19, 2020 بواسطه خالد سيسكو