تكملة حقل تلقائيا

[monm]

السادة الزملاء الافاضل مطلوب حقل التاريخ يتم كتابة اول تاريخ باول سجل

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

الزيارات.accdb

[محمد أبوعبدالله]

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

ضع القيمة الافتراضية لحقل التاريخ zeara_date

date()

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

Private Sub Form_BeforeUpdate(Cancel As Integer)
        day_name.Value = WeekdayName(Weekday(zeara_date, 7), True, 7)
End Sub

تحياتي

[monm]

اشكر مرورك الكريم 

ولكن دالة date() تعطى تاريخ اليوم ويظل ثابت فى كل سجل واقوم بتغيره يدويا

المطلوب عند الانتقال للسجل التالى يكتب التاريخ التالى للسجل السابق... وشكرا

[محمد أبوعبدالله]

لا توجد مشكلة ان شاء الله استبدل الكود بالتالي

[Text5]+1

مع استبدال Text5 الى اسم الحقل الحاص بك

تحياتي

[monm]

اشكر حضرتك 

عند وضع الكود فى القيمة الافتراضية لم يصلح

وااليك المرفق 

الزيارات.accdb

[monm]

ارجو الرد  .... من السادة الزملاء

[أواب]

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

 

الزيارات.rar

[monm]

اشكرك على الاستجابة 

ولكن النموذج لا يفتح  ويعطى رسالة كما فى الصورة 

ارجو التعديل 

[أواب]

آسف يا أخي

خطأ غير مقصود

تفضل

 

الزيارات.rar

[monm]

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

فهمت المثال جيدا وعند تطبيقة لم يعمل 

اليك المرفق للتعديل عليه 

ادراج التاريخ.accdb

[أواب]

أخي الكريم

غيرت تسمية رقم المعهد الى n

لأجل البرمجة

ادراج التاريخ.accdb

[monm]

شكرا استاذى الغالى على الاستجابة ولكن 

عند تشغيل الكود داخل القاعدة الاصلية عندى تظهر هذه الرسالة 

فما السبب؟؟؟

 

[أواب]

[monm]

شكرا جزيلا على التجاوب السريع 

وزادك الله علما