ربط التاريخ

[عفرنس]

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

 

Library.rarFetching info...

[kha9009lid]

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

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

الملف مرفق

Library.mdbFetching info...

[عفرنس]

  في 2‏/2‏/2020 at 06:52, kha9009lid said:

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

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

الملف مرفق

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

Expand  

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

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

[kha9009lid]

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

جرب المرفق

Library.mdbFetching info...

[عفرنس]

  في 2‏/2‏/2020 at 07:48, kha9009lid said:

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

جرب المرفق

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

Expand  

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

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

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

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

[kha9009lid]

  في 2‏/2‏/2020 at 08:22, emam1424 said:

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

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

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

Expand  

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

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

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

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

 

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

[عفرنس]

  في 2‏/2‏/2020 at 08:36, kha9009lid said:

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

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

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

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

 

Expand  

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