فقط قم بوضع كلمة Table بين قوسين لتصبح [Table]
Dim Sql As String
Sql = "UPDATE [Table] SET [Table].card = 0;"
If MsgBox("هل تريد تفريغ بيانات الحقل", vbYesNo + vbMsgBoxRight, "اخر تنبيه") = vbYes Then
DoCmd.SetWarnings (warningsoff)
DoCmd.RunSQL (Sql)
DoCmd.SetWarnings (warningson)
Me.Refresh
End If
ونفس الشيئ للتاريخ ولكن غير آخر جملة الـ Sql الى ="""" بدل 0 حيث أنه حقل تاريخ وليس رقمى