السلام عليكم..
هذا الكود لكي يجعل النموذج فارغا بعد ادخال البيانات...
Dim ctl As Control
For Each ctl In Me.Controls
If ctl.ControlType = acTextBox Or ctl.ControlType = Number Then
ctl = ""
End If
Next ctl
لكن يعمل فقط على الحقل من نوع text
وعند الحقول من نوع تاريخ او رقم يعطي رسالة خظأ
فارجو الحل لانه عندي في النموذج تاريخ ورقم ؟؟
وشكراً
:mad: :mad:
