How clear all text in all text box in a form

 Use this code in module


Public Sub clearAll(currentForm As Form)
    Dim ctl As Control
   
    For Each ctl In currentForm.Controls
        If TypeOf ctl Is TextBox Then ctl.Text = ""
    Next
End Sub

Use in Form



Private Sub Form_Load()
'
Call clearAll(Me)
End Sub