اذهب الي المحتوي
أوفيسنا

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


إذهب إلى أفضل إجابة Solved by kanory,

الردود الموصى بها

  • أفضل إجابة
1 ساعه مضت, بلال اليامين said:

السلام عليكم

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

 

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

  • Like 1
  • Thanks 2
رابط هذا التعليق
شارك

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

 

  • Like 1
  • Thanks 2
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information