أريد كود لمسح البيانات في الحقول

لنفرض ان الحقل الذي تريد مسحه اسمه a

ضع تحت زر امر هذا الكود

a = Null

إذا كنت تقصد هو مسح الريكورد عن طريق هذا الزر فمعندما تضيف ommand button سوف يفتح لك معالج تختار recored operation ومن ثم delete record وتكمل باقي الخطوات

الله الموفق

شكراً لكم جزيلا

بسم الله الرحمن الرحيم

with AdoQuery do

begin

sql.tex:=t'delete from table name where feildname:'=0'

end

قم باٍنشاء زر آخر على النموذج و سميه مثلا "مسح" و ضع الكود التالي في حدث عند النقر عليه:

    Dim response As Integer
    
    response = MsgBox("هل تريد مسح الحقول ؟", 1, "Start Over?")
    
    If response = 1 Then  'yes
        Call ClearControls
    End If