اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

|1| كيف يمكن تغيير القيمة الافتراضية لحقل معين


رامي

الردود الموصى بها

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

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

فكيف يمكن ذلك

او كيف اقدر اعطيه امكانية تغيير القيمة الافتراضية من دون ما يدخل على تصميم الجدول او النموذج

رابط هذا التعليق
شارك

بفرض ان لدينا نموذج به مربع نص اسمه 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 = Me.NewDefult
 End Sub

  • Thanks 2
رابط هذا التعليق
شارك

  • 8 months later...
زائر
هذا الموضوع مغلق.
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information