التاريخ افتراضيا فى نموذج مستمر

=Date()

أذهب الى حقل التاريخ وأختر بيانات وضع القيمة التالية في حقل القيمة الافتراضية

الاخ سجين المحبة

اشكرك و لكن المقصود فى طلبى

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

نجد حقل التاريخ فى ذات السجل يأخذ افتراضيا نفس التاريخ فى السجل السابق له

2/1/2008

اتمنى ان اكون اوضحت

مع شكرى

للرفــــــــــــــــــــــــــــــــع ،،،،،

بســم الله الـرحمــن الرحيــم

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

أخي الكريم .. لعل المثال التالي يلبي طلبك .. وإنتبه لإختلاف الصيغ وهي كما في الكود

Private Sub date1_AfterUpdate()
' إذا كانت الأداة تمثل حقل من نوع تاريخ فيجب أن تكون صيغة القيمة المسندة لخاصية القيمة الإفتراضية كالتالي
Me!date1.DefaultValue = "#" & Format(Me.date1, "dd mmm yy") & "#"
End Sub

Private Sub name1_AfterUpdate()
' إذا كانت الأداة تمثل حقل من نوع نص فيجب أن تكون صيغة القيمة المسندة لخاصية القيمة الإفتراضية كالتالي
Me!name1.DefaultValue = "'" & Me.name1 & "'"
End Sub

Private Sub num_AfterUpdate()
' إذا كانت الأداة تمثل حقل من نوع رقم فيجب أن تكون صيغة القيمة المسندة لخاصية القيمة الإفتراضية كالتالي
Me!num.DefaultValue = "" & Me.num & ""
End Sub

ولا تنسى أن بإعطاء قيمة لـ DefaultValue فإن النموذج المستمر سيدرجها في السجل الجديد تلقائيا ,,, لذا وكتحايلا على البرنامج وضعت حقل ترقيم تلقائي ,, لأمنع إلحاقها بالجدول

وفي المثال خير مقال

koao_Default_Value.zip

اخى الكريم koao

اولا : اشكرك على اهتمامك جدا

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

و اضافة لى تستحق الشكر مرة اخرى

ثالثا : لانشغالى حاليا ساحفظ بردك للدراسة و تطبيقة عندى

رابعا : لنا لقاء مرة اخرى قريبا بعد تطبيق شرحك

مع خالص تقديرى