Estou tentando usar a rotina abaixo para limpar todos os textbox do formulário depois da inclusão.

Nâo sei porque quando executo essa rotina recebo a mensagem de erro de sintaxe

Private Sub Limpa_Campos()
 Dim controle As Control
 For Each controle In Me.Controls
  If typeoffcontrole Is TextBox Then
   controle.Text = Empty
  Next controle
  chkInativo.Value = 0
 End Sub
 

Bom dia.

 

Experimente alterar a parte do "If" para o que se segue:

 

 

 

JSFF 

Fala aí, se não dé certo tenta isso:                                                                 Private Sub Command1_Click()
    Limpa_Campos Form1
End Sub

Private Sub Form_Load()
    Text1.Text = "Barata1"
    Text2.Text = "Barata2"
    Text3.Text = "Barata3"

    Limpa_Campos Form1
End Sub
Private Sub Limpa_Campos(nome As Form)
 Dim controle As Control
    For Each controle In nome.Controls
      If TypeOf controle Is TextBox Then controle.Text = ""
   Next controle
End Sub