اريد تطبيق هذا الكود علي الملف المرفق
Private Sub Command18_Click()
Dim sql As String
sql = "UPDATE tab SET tab.a = Null, tab.b = Null, tab.c = Null, tab.d = Null, tab.e = Null, tab.f = Null, tab.g = Null, tab.h = Null;"
If MsgBox("هل انت متأكد من تفريغ البيانات", vbYesNo) = vbYes Then
DoCmd.SetWarnings (warningsoff)
DoCmd.RunSQL (sql)
DoCmd.SetWarnings (warningson)
Me.Refresh
MsgBox "تم تفريغ البيانات"
Else
Exit Sub
End If
End Sub
وهو كود لحذف بيانات الجدول دون حذف الحقول
قاعدة بيانات مدرسية (2).accdb
أنا اسف ارجو تطبيقه علي جدول data