ربط التاريخ

[عفرنس]

أريد عند اختيار التاريخ يظهر اليوم الموافق له في خانة اليوم مباشرة 

 

Library.rar

[kha9009lid]

في حدث بعد التحديث لحقل التاريخ ضع الكود التالي

[Zday] = Format([ZDate], "dddd")

الملف مرفق

Library.mdb

[عفرنس]

43 دقائق مضت, kha9009lid said:

في حدث بعد التحديث لحقل التاريخ ضع الكود التالي

[Zday] = Format([ZDate], "dddd")

الملف مرفق

Library.mdb 3.46 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 2 تنزيلات

جزاك الله خيرا .. مضبوط أستاذي 

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

[kha9009lid]

لابد من وضع اسم الحقل الخاص بالتاريخ والخاص باليوم

جرب المرفق

Library.mdb

[عفرنس]

26 دقائق مضت, kha9009lid said:

لابد من وضع اسم الحقل الخاص بالتاريخ والخاص باليوم

جرب المرفق

Library.mdb 3.83 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 1 تنزيلات

وفقك الله .. تم المطلوب 

لكن عندي استفسار بسيط لو تكرمت : 

نفس النموذج اذا أدخلت بيانات حقل أو حقلين ثم أغلقت البرنامج يتم حفظ البيانات المدخلة قبل إكمال البيانات التي لم تدخل في السابق

طبعا لا أدري هل هذه ميزة أو لا ... ولك احترامي وتقديري . 

[kha9009lid]

14 دقائق مضت, emam1424 said:

لكن عندي استفسار بسيط لو تكرمت : 

نفس النموذج اذا أدخلت بيانات حقل أو حقلين ثم أغلقت البرنامج يتم حفظ البيانات المدخلة قبل إكمال البيانات التي لم تدخل في السابق

طبعا لا أدري هل هذه ميزة أو لا

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

ويمكن التغلب على ذلك بعدة طرق منها

1. في خصائص الحقول في الجدول نختار مطلوب = نعم
2. عن طريق كود في حدث قبل التحديث للنموذج نضع الامر

If MsgBox("هل ترغب في حفظ السجل", vbInformation + vbYesNo, "مطلوب") = vbNo Then
Undo
DoCmd.CancelEvent
Else
End If

 

تم تعديل فبراير 2, 2020 بواسطه kha9009lid

[عفرنس]

19 دقائق مضت, kha9009lid said:

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

ويمكن التغلب على ذلك بعدة طرق منها

1. في خصائص الحقول في الجدول نختار مطلوب = نعم
2. عن طريق كود في حدث قبل التحديث للنموذج نضع الامر

If MsgBox("هل ترغب في حفظ السجل", vbInformation + vbYesNo, "مطلوب") = vbNo Then
Undo
DoCmd.CancelEvent
Else
End If

 

بيض الله وجهك وأسعدك في الدارين ..