كود حدف الحقول في النموذج

[بلال اليامين]

السلام عليكم

اريد كود حدف البيانات في النموذج وعند الحدف تظهر رسالة تنبيه

 

[kanory]

  في 22‏/4‏/2020 at 10:07, بلال اليامين said:

السلام عليكم

اريد كود حدف البيانات في النموذج وعند الحدف تظهر رسالة تنبيه

 

Expand  

هل البيانات في مربعات نص فقط أم كمبولست وغيرها ؟؟؟؟؟

[بلال اليامين]

نعم البيانات في مربع النص فقط

[kanory]

  في 22‏/4‏/2020 at 11:59, بلال اليامين said:

نعم البيانات في مربع النص فقط

Expand  

اعمل زر وضع هذا الكود في حدث عند النقر 

Dim Warning As String
Warning = MsgBox("أنت الآن على وشك مسح البيانات فهل أنت واثق من رغبتك في الحذف", vbYesNo + vbQuestion, "تحذير")
If Warning = vbYes Then

On Error GoTo Err_Handler
Dim ctl As Control
For Each ctl In Me.Controls
If ctl.ControlType = acTextBox Then
ctl.Value = ""
End If
Next ctl
Exit_Handler:
  Set ctl = Nothing
Exit Sub
Err_Handler:
  Resume Exit_Handler
Else
DoCmd.CancelEvent