اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


رابح1999

الردود الموصى بها

السلام عليكم

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

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

 

رابط هذا التعليق
شارك

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

السلام عليكم

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

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

 

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

DoCmd.RunCommand acCmdSaveRecord
 

رابط هذا التعليق
شارك

السلام عليكم

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

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

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

'تحديث بيانات النموذج
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

تحياتي

تم تعديل بواسطه خالد سيسكو
  • Like 2
رابط هذا التعليق
شارك

السلام عليكم

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

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

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

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

 

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

السلام عليكم

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

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

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

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

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

رابط هذا التعليق
شارك

السلام عليكم

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

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

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

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

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

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

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

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

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

تحياتي

1.jpg

2.jpg

3.jpg

 

5.jpg

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

تم تعديل بواسطه خالد سيسكو
  • Like 3
  • Thanks 1
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information