عدم امكانية التسجيل فى النموذج قبل تعبئة حقل معين

[الحلبي]

السلام عليكم 

مرفق مثال مصغر

اريد عدم امكانية ادخال اي بيانات فى اى حقل الا بعد تحديد نوع الفاتورة علما بان التاريخ يظهر تلقائى بتاريخ اليوم ـ وطريقة الدفع ـ ورقم الفاتورة يظهران تلقائى

بمعنى : عدم التسجيل او ادخال بيانات فى اى حقل الا بعد ملئ وتعبئة حقل نوع الفاتورة 

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

امكانية التسجيل.accdb

[Moosak]

تفضل أخي ..

امكانية التسجيل.accdb

 

[الحلبي]

الله يزيد فضلك

ليس المطلوب

المطلوب عند الادخال او بعد الادخال فى اى حقل تأتى رسالة " عدم امكانية التسجيل الا بعد تعبئة حقل نوع الفاتورة"

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

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

انا حاولت فى خصائص النموذج "قبل الادراج فى النموذج او بعد الادراج وقبل تحديث النموذج وقبل تحديث النموذج فلا يستجيب"

 

[ابوخليل]

مشاركة مع اخي موسى

تفضل

Dim ctl As Control
For Each ctl In Me.Controls
If xtyp <> "" Then
Cancel = False
Me.pay = "اجل"
Else
MsgBox "لا يمكن التسجيل الا بعد تعبئة حقل نوع الفاتورة "
Cancel = True
Undo
Exit Sub
End If
Next ctl

اضفت الكود مرتين في حدث قبل التحديث للنموذج وفي حدث زر الحفظ

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

ويمكنك تعطيل السطر Undo من اجل التسهيل على المستخدم  وعدم اعادة كتابة البيانات وانما يكتفي باختيار نوع الفاتورة

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

 

امكانية التسجيل2.accdb

[ابوخليل]

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

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

[ابوخليل]

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

انظر المثال

امكانية التسجيل3.accdb

[الحلبي]

استاذنا ومعملنا الجليل / @ابوخليل يعطيك الف عافية

الامثله كلها جميلة واحسن من بعضها ولكن 

انا اريد عند الادخال فى اى حقل تظهر الرسالة لاسباب اخرى

جزاكم الله كل خير وبارك الله فيكم 

[Moosak]

تم الحل أخي الحلبي ولله الحمد بهذه الدالة :

Private Function NoEntry()

    If xtyp = "" Or IsNull(xtyp) Then
        Me.AllowEdits = False
        MsgBox "لا يمكن التسجيل الا بعد تعبئة حقل نوع الفاتورة"
        Me.xtyp.SetFocus
    Else
        Me.AllowEdits = True
    End If

End Function

تحدد جميع العناصر وتضع في حدث عند التركيز اسم الدالة هكذا بهذه الصورة : 

=NoEntry()

وهذا هو الملف

امكانية التسجيل2.accdb

تم تعديل نوفمبر 20, 2021 بواسطه Moosak

[الحلبي]

استاذ / موسى

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

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

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

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

لك كل احترام وتقدير استاذى

تم تعديل نوفمبر 20, 2021 بواسطه الحلبي

[Moosak]

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

بدل ان ادخل على جميع الحقول واضع الكود العبقرى عند التركيز

للعلم ما يحتاج تدخل لمحرر الأكواد لربط العناصر بالكود .. فقط حدد العناصر كلها في نفس الوقت وألصق الكود في المكان الذي حددته لك بالمستطيل الأحمر 🙂

[الحلبي]

استاذى / @Moosak

تمام يااستاذ الله يكرمك

[ابو جودي]

مشاركة مع أساتذتي الكرام 

فكرتي المتواضعة

 

امكانية التسجيل.accdb

[الحلبي]

بشمهندس/ @ابا جودى

فكرة جميلة وتستحق التقدير 

ولكن امكانية متابعة السجلات متوقفة اى لكى ترى السجل الاول ثم الثانى ثم الثالث متوقفة تماما

ولان النموذج مرتبط بنموذج فرعى ويوجد ايضا خاصية البحث فى النموذج الاصل لزم ان ترى جميع السجلات

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

[ابو جودي]

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

ولكن امكانية متابعة السجلات متوقفة اى لكى ترى السجل الاول ثم الثانى ثم الثالث متوقفة تماما

ولان النموذج مرتبط بنموذج فرعى ويوجد ايضا خاصية البحث فى النموذج الاصل لزم ان ترى جميع السجلات

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

• طيب يا دكتور ممكن مرفق من القاعدة الاصلية انا وضعت فكرتى حسب المرفق الموجود 

 

[الحلبي]

استاذى ومعلمى / @ابا جودى

صعب جدا لان البرنامج مرتبط باشياء كثيرة 

وبالتالى يصعب عليك حل المشكلة ان لم يكن هناك مثال واضح حتى تعرف ابعاد المشكلة

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

ولان النموذج به حقول كثيره جدا سوف يكون الامر صعبا بعض الشئ

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

[ابو جودي]

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

يعنى ببساطة مثل هذه المعادلة والتي هي أساس تفكيري ووضع التصورات اللازمة لإيجاد الحلول المناسبة

معطى +مجهول = معلوم

انا الان لا امتلك المعطيات اللازمة ولا عندي فكرة عن المعلومات الثابتة لذلك لن استطع الوصول لنتيجة المجهول 

[Moosak]

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

ولكن امكانية متابعة السجلات متوقفة اى لكى ترى السجل الاول ثم الثانى ثم الثالث متوقفة تماما

ولان النموذج مرتبط بنموذج فرعى ويوجد ايضا خاصية البحث فى النموذج الاصل لزم ان ترى جميع السجلات

أخي الحلبي لا يمكننا التنبؤ بمكونات قاعدة بياناتك الأصلية إن لم توضح جميع المعطيات عندك أو ترفقها كما هي ..

 

مودتي 🙂

تم تعديل نوفمبر 22, 2021 بواسطه Moosak

[الحلبي]

اخوانى : جزاكم الله خير 

كلامكم مصبوط جدا وانا من انصار هذا الكلام

لكن  احيانا يصعب علينا ان تعبر ان توضح اشياء متداخلة جدا مع بعضها

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

[د.كاف يار]

تفضل هذا التعديل 

بكود واحد فقط ...

- لن يستطيع المستخدم الإدخال الا بعد اختيار نوع الفاتورة

- جميع الحقول متاحة لكن لن يستطيع المستخدم ادخال البيانات الا بعد اختيار نوع الفاتورة

 

امكانية التسجيل.accdb

[ابو جودي]

48 دقائق مضت, د.كاف يار said:

تفضل هذا التعديل 

بكود واحد فقط ...

- لن يستطيع المستخدم الإدخال الا بعد اختيار نوع الفاتورة

- جميع الحقول متاحة لكن لن يستطيع المستخدم ادخال البيانات الا بعد اختيار نوع الفاتورة

رائع جدا استاذى القدير ومعلمى الجليل  ما شاء الله

[الحلبي]

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

الله الله الله الله الله عليك استاذ ودكتور ومعلم كبير قوى

هو هذا الذى اريده

عبقرى يادكتور واسف لتأخيرى فى الرد

رينا يرحم والديك ويبارك فى اسرتك ويعلو شانك ويبارك فى صحتك وعافيك

هو المطلوب

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