kha9009lid

انت تريد اذا كان الادمن وكلمة السر صحيحة يغلق الفورم وينفذ تحديث لحقل يوز في جدول1 ÇÓã ãÓÊÎÏã = الادمن ßáãå ÇáÓÑ = كلمة السر هل هذ صحيح

يوجد برنامج في الموقع للاستاذ البريكان ابوآمنة ربما يفيدك الاطلاع عليه هدية : سند قبض وصرف

العفو استاذي

جرب المرفق تغيير كامل حقل يوزر في الجدول حسب الاسم المختار في النموذج aceess55.accdb

مثال رائع يا ابا اشرف ومفيد جزاك الله كل خير

استاذ زاهر حقل غير منظم في نموذج مستمر لو وضعت اي رقم في اول حقل f الغير منظم سوف تاخذ باقي الحقول f في النموذج المستمر نفس الرقم لانه حقل غير مرتبط بسجلات انظر للصورة وجرب في ملفك المرفوع في المشاركة الاخيرة لك ادخل اي رقم في f ثم انتقل لحقل اخر

ماراح يعمل نفس الكود لانك لو تلاحظ اننا استخدمنا امر تحديث على الجدول مباشره

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

في خدمتكم استاذ ازهر

وعليكم السلام السؤال الاول الافضل وضع مرفق لتتضح الفكره المطلوبة فكتابة كود بناء على شروط يتطلب معلومات اكثر السؤال الثاني بخصوص معلومات المؤسسة في التقرير فيكون عن طريق انشاء جدول بمعلومات المؤسسة مثلا اسم الموسسة العنوان ارقام الهاتف البريد الالكتروني السجل التجاري بعد اعداد التقرير نقوم بوضع مربع نص غير منظم ونستدعي المعلومات عن طريق دالة DLookUp الكود المستخدم للنموذج المرفق حمل الملف المرفق وسوف يساعدك على فهم الفكرة =DLookUp("[اسم المؤسسة]";"المؤسسة") المؤسسة.accdb

اساتذتي الافاضل ردودكم وسام على صدري جزاكم الله خير الحزاء

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

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

جرب المرفق واعذرني كتبته على عجالة مرهق ومشغول مع العيد abc2.accdb

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

جرب المرفق تلوين السجل1.accdb

جرب المرفق If Me.c = "x" Then Me.def![f] = Me.def![d] - Me.def![e] ElseIf Me.c = "z" Then Me.def![f] = Me.def![e] + Me.def![d] End If abc.accdb

اذا كان المطلوب تغيير مصدر السجل للنموذج الفرعي للاستفادة منه لاكثر من جدول كما اشار اخي د. كاف يار يمكن الاطلاع على المثال المرفق لدينا جدول1 للموظف وجدول للدورات الداخلية وجدول اخر للدورات الخارجية ونمودجين رئيسي لجدول الموظف ونموذج فرعي لجدولي الدورات ويتم استبدال مصدر السجل عن طريق الكود If Me.أمر9.Caption = "داخلية" Then Me.جدول3.Form.RecordSource = "جدول3" Me.جدول3![الدورة_تسمية].Caption = "دورة داخلية" Me.أمر9.Caption = "خارجية" ElseIf Me.أمر9.Caption = "خارجية" Then Me.جدول3.Form.RecordSource = "جدول2" Me.جدول3![الدورة_تسمية].Caption = "دورة خارجية" Me.أمر9.Caption = "داخلية" End If Database71.accdb

حيث ان رمز الخطاء لترك سجل مطلوب بدون ادخال قيمة = 3314 ويمكن معرفة رمز الاخطاء لرسائل النظام عند ظهور الرسالة ندخل على تعليمات ثم نشاهد رقم الخطاء ونستبدلة بكود vba

اذن نبقي الحقل مطلوب بدون تعديل ونستبدل رسالة اكسس برسالة من قبلنا في حدث عند الخطا نضع الكود Const conErrRequiredData = 3314 Select Case DataErr Case conErrRequiredData MsgBox "حقل مطلوب", vbInformation + vbOKOnly + vbMsgBoxRight, "تنبيه" Response = acDataErrContinue Case Else Response = acDataErrDisplay End Select حقل مطلوب.accdb

جهود مبارك وكرم كبير منك يا ابا اشرف حبينا الموقع وخصصنا جزء كبير من وقتنا له لوجودك وانت وامثالك

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

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

للاجابة نحتاج الى مزيد من المعلومات ماهو مصدر السجلات للنموذج الفرعي هل هو نفس الجدول ام ان النموذج الفرعي له اكثر من مصدر للبيانات ويتم تحديد مصدر البيانات عن طريق الكود ماهو مصدر البيانات للجدول الرئيس هل هو نفس الجدول اذا كان نفس الجدول لماذا يكون لدينا اكثر من نموذج رئيس اين سيتم الربط عن طريق العلاقات بين الجدول الرئيس والفرعي ام عن طريق النماذج اذا كان الرئيس من جدول اخر عند اجراء العلاقة ماهو مصير البيانات المرتبطة بين نموج رئيس1 والنموذج الفرعي والنموذج رئيس 2 مع الفرعي اذا كان id للرئيس 1 = id للرئيس 2 اذا كان الفرعي يحتوي على اكثر من حقل للربط مع الجداول الرئيسية فعند استخدامة مع نموذج 1 سيكون حقل الربط مع نموذج 2 مطلوب وسوف نحصل على رسالة خطا اخيرا الحكم على الشيء فرع عن تصوره والاجابة لن تكون صحيحه الا بالفهم الصحيح اعتذر عن كثرة الاسئلة ولكن التخطيط والتحليل وجمع المعلومات ووضع التصور الكامل يستغرق وقت وجهد اكبر من جهد ووقت انشاء القاعدة تحياتي استاذ محمد وكل عام وانتم بخير

يمكن ترتيب الجدولة عن طريق الكود Me.الهاتف.TabIndex = 3 علما بان الحقل الاول يساوي 0 بخصوص جدولة حقول نموذج ورقة بيانات للاسف لم يعمل معي ويتم الانتقال وفقا لترتيب الحقول الظاهر على الشاشة ويمكن اعادة ترتيب الحقول لورقة بيانات عن طريق السحب والافلات لكامل الحقل والله اعلم