كيف طريقة تغيير حقل يوجد به دالة منشئ التعبير إلى كود برمجي ؟

[goodfas]

بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
أخواني
كيف طريقة تغيير حقل(تاريخ التسليم) وحقل (ملاحظات) في النموذج من دالة (منشئ التعبير) إلى (كود برمجي)
لإنه لا يظهر في مربع البحث ولا التقرير عند المعاينة والطباعة
وكذلك من اجل تسجيل البيانات في الجدول
والسلام عليكم,,,

Tabel1.rar

[عبدالرحمن هاشم]

وعليكم السلام ورحمة الله

جرب أخي هذا التعديل

Tabel1---up.rar

[goodfas]

أخي / عبدالرحمن هاشم

ما شاء الله تبارك الله

الله يعطيك العافية

والله يرحم والديك ويدخلهم الجنة

ممتاز جداً

هذا هو المطلوب 100%

[عبدالرحمن هاشم]

الله يكرمك أخي الفاضل على هذا الدعاء الجميل ولك بمثله إن شاء الله

[goodfas]

المعذرة

عُدنا مرة أخرى أخي/عبدالرحمن 

  

السلام عليكم

 

اضفت حقل جديد (إضافة أيام) للجدول وكذلك للكود بس فيه مشكلة حقل (تاريخ التسليم)
يستجيب ولا يستجيب حاولت ولكن دون فائدة ! إذا تركت حقل (إضافة أيام) فاضي لا يعمل
يعني يجب أن اضع صفر أو اكبر من ذلك من أجل أن يعمل !

Date4 = DateAdd("d", Nz([Date2] + [Date3], 1), [Date1]) - 1 

Tabel2.rar

تم تعديل مايو 6, 2015 بواسطه goodfas

[goodfas]

للرفع ....!

[goodfas]

للرفع ....!

[عبدالرحمن هاشم]

جرب ووافنا بالنتيجة

Tabel2---up.rar

[goodfas]

حل ممتاز أخي/عبدالرحمن

والله يعطيك العافية

وتستاهل (كأفضل إجابة)

بس ما معنى (Hala) بحثت عنها في اسماء الحقول فلم اجدها !

[عبدالرحمن هاشم]

الله يكرمك أخي الفاضل

hala ليس حقل بل هو مسمى من عندي وأقصد به الحالة ويمكنك تغييره

ولو تلاحظ أن بداية عمل الكود هو

Private Sub Hala()

أي اعتبرناه دلالة لعمل الكود بتنفيذ المطلوب لأن العناصر التي سيعمل عليها الكود أكثر من حقل ؛ فبدلا من تكرير الكود تم هذا الاختصار

 

ولو تلاحظ أيضا أنه في حدث عند الخروج لحقل تاريخ التسليم تم وضع هذا الكود

If Me.Date1.Value > Me.Date2.Value & Me.Date1.Value < Me.Date2.Value Then
Hala
Me.Refresh

وفكرته هو افتراضاً مني أنه تم تغيير تاريخ الاستلام بعد إدراجه أول مرة واحتساب الأيام فبدون هذا الكود سيكون هناك خطأ

والكود فكرته أنه إذا تم تغيير تاريخ الاستلام أكبر من أو أصغر من عدد الأيام المسموح بها فيتم الاحتساب مرة أخرى بالكود السابق ذكره hala

[goodfas]

شرح ممتاز وواضح

تسلم أخي/عبدالرحمن

والله يعطيك العافية,,,,