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

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


الحلبي
إذهب إلى أفضل إجابة Solved by د.كاف يار,

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

السلام عليكم 

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

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

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

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

امكانية التسجيل.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

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

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

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

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

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

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

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

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

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


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

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()

image.png.8bda793706d0df351b4259658f98f3c1.png.f764bdf808589d0f8dc2bacb31743076.png
وهذا هو الملف

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

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

استاذ / موسى

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

 

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

 

مودتي 🙂

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

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

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

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

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

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

  • أفضل إجابة

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

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

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

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

 

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

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

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

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

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

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

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

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

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

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

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

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

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

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

هو المطلوب

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

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

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