لو عندي حقل ووضعت له قيمة افتراضية في الجدول او النموذج
وبعد فترة احتاج اليوزر ان يغير هذه القيمة ولكن دون ان يدخل الى تصميم البرنامج
فكيف يمكن ذلك
او كيف اقدر اعطيه امكانية تغيير القيمة الافتراضية من دون ما يدخل على تصميم الجدول او النموذج
بفرض ان لدينا نموذج به مربع نص اسمه NewDefult و زر اسمه ChangeDefult ونريد عند الضغط على زر ChangeDefult أن يقوم بتغيير القيمة الافتراضية لحقل Price الموجود فى جدول Products وجعل القيمة الفتراضية مساوية للقيمة الموحودة فى مربع النص NewDefult
نفوم بكتابة هذا الكود فى حدث Click للزر ChangeDefult
Private Sub ChangeDefult_Click()
Dim TAbleName As String
Dim FieldName As String
TAbleName = "Products"
FieldName = "Price"
CurrentDb.TableDefs(TAbleName).Fields(FieldName).DefaultValue