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

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

السلام عليكم

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

 

[kanory]

1 ساعه مضت, بلال اليامين said:

السلام عليكم

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

 

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

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

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

[kanory]

46 دقائق مضت, بلال اليامين said:

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

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

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