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

بفرض أن لدبك مربع نص اسمه M

في فورم اسمه Form1

Private Sub Command6_Click()
Forms![form1].m.SetFocus
Dim mm As String
mm = Forms![form1]![m].Text
mm = "'" + mm + "'"
Forms![form1]![m].DefaultValue = mm
MsgBox "default Value changed to : " + mm
Me.Command6.SetFocus
End Sub

و هذا فعال طالما الفورم مفتوح و لكنه يفقد عند اعلاقها

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

يمكن وضع قيمة افتراضية دائمة بأحد الطرق التالية :

1- الكتابة في سجل وندوز

2- تخزين القيمة في جدول

3- تخزين القيمة في خاصية مخصصة لجدول

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

ولك تحياتي