أرغب في مسح حقول نموذج

السلام عليكم ورحمة الله

أخي الباشاقمرالزمان

هل الحقول جميعها في النموذج غير منضمة ؟

إن كانت كذلك , أضف الكود التالي لزر (Efface) مثلا

Private Sub Efface_click()
    Dim ctl As Control
    For Each ctl In Me.Controls
        If ctl.ControlType = acTextBox Then
            With ctl
                .SetFocus
                .Enabled = True
                .Text = ""
            End With
        End If
    Next ctl
End Sub

و أرجو أن أكون قد لامست المطلوب

مع تحيات أخيك محمد علوي صوصي (أبو تماضر) الرباط

أخي الكريم

لقد توصلت إلى استخدام الآتي:

m1=Clear
m2=Clear
m3=Clear
m4=Clear

والآن جاري فحص الكود الذي أرفقته بمشاركتك

أشكرك جزيلاً أخي الكريم محمد

والله هو الموفق

الباشا قمر الزمان