هنا اكواد التحكم بالقيمة الافتراضية برمجيا

[طاهر الوليدي]

التحكم بالقيمة الافتراضية برمجيا
في حقل النص
Private Sub YourTextControlName_AfterUpdate()
If Not IsNull(Me.YourTextControlName.Value) Then
  YourTextControlName.DefaultValue = """" & Me.YourTextControlName.Value & """"
End If
End Sub
في حقل الرقم
Private Sub YourNumericControlName_AfterUpdate()
If Not IsNull(Me.YourNumericControlName.Value) Then
  YourNumericControlName.DefaultValue = Me.YourNumericControlName.Value
End If
End Sub
في حقل التاريخ
Private Sub YourDateControlName_AfterUpdate()
If Not IsNull(Me.YourDateControlName.Value) Then
  YourDateControlName.DefaultValue ="#" &  Me.YourDateControlName & "#"
End If

End Sub

كود تثبيت 

DoCmd.Save ObjectType:=acForm, ObjectName:=Me.Form.Name

[sandanet]

ممكن ترفق مثال لكيفية الاستفادة من تلك الاكواد

[طاهر الوليدي]

مرفق المثال 

تغيير القيمة الافتراضية برمجياً.rar

[sandanet]

رائع جداً وفكرة ممتازة لكن لو تكرمت بشرح بسيط عن كيفية الاستفادة من تلك الفكرة في برامجنا .. ماهي الحالات التي قد نحتاج فيها الى استعمال تلك الفكرة؟

[طاهر الوليدي]

اخي واستاذي العزيز طبعا المثال من فريق منتدى اخر  والعمل يستفاد منه في حالة انك تريد تغيير  اي قيمة افتراضية برمجيا تم وضعها يدويا دون الرجوع للمبرج 

تثبيت اسماء الحقول التي تحتاج الى عملية الادخال بصفة مكررة لتسهيل عملية الادخال 

على سبيل المثال نقوم بادخال بيانات لشهرفبرير من اول الشهر الى اخره  بكم هائل من البيانات والبيانات بعضها من تاريخ سابق مثلا من  يناير ويمنع تعديل تاريخ المستند السابق ونريد نفرزهذه البيانات  في شهر فبراير 

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

وكذلك بقية الحقول المشابهة لذلك مثل حقول ادخال حساب مدين والرجوع الى الدائن  واي حقل تريد تثبيته

 

[sandanet]

شكراً لك على التوضيح وبارك الله فيك