Dim frm As Form
Dim ctrl As Control

Set frm = Forms("MyForm")
     

     For Each ctrl In frm.Controls
     
      If ctrl.ControlType = acTextBox Then
          
          MsgBox ctrl.name
          
      End If
     Next