تحويل كود الى sub او Function

[طلب اكسس]

منذ ساعه, Eng.Qassim said:

اذا كنت تريد مسح الاثنين .. يعني الكمبو والتيكست استخدم الكود التالي

Public Sub ClearControls(frm As Form)
On Error Resume next
Dim objControl as Control
For Each objControl in Me.Controls
   With objControl
    if .ControlType = acComboBox  or acTextbox  then
     .Value = Null 
    end if
   End With
Next objControl
End Sub

 

 

 

سلمت الاياد هذا هو المطلوب