تغير القيمة الافتراضية

[jo_2010]

اريد عند تغيير التاريخ من + او-                                        

      التاريخ الذى اقف عندة تصبح هو القيمة الافتراضية  للسجلات التالية حتى اقوم بتغييرة مرة اخرىl

مرفق ملف ببتعديلDatabase date+ -.accdb

[AbuuAhmed]

مثال للكود عند الزيادة:
 

    With Me.dDATE
        .Value = .Value + 1
        .DefaultValue = "Dateserial(" & Year(.Value) & "," & _
                                        Month(.Value) & "," & _
                                        Day(.Value) & ")"
    End With

 

[jo_2010]

خالص الشكر