Invalid qualifier

[Leindo 0]

Então eu to fazendo o seguinte....em um form eu chamo o metodo no modulo.Metodo = InsEsp

frmCod:InsEsp ("frmCliente")Modulo:Public Sub InsEsp(Lugar As String)'DA UM ERRO BEM NESSA LINHA DE BAIXO!!!!'EU TENHO Q FALAR O LUGAR ONDE ESTA O TXTNOME'PQ EU VOU USAR ESSE METODO EM DOIS FORMS DIFERENTES If Lugar.txtNome.Text = "" Then 'NOME Lugar.txtNome.Text = "Oi"End sub

Então eu to fazendo o seguinte....em um form eu chamo o metodo no modulo.Metodo = InsEsp

frmCod:InsEsp ("frmCod") ************ tava escrito cliente mas eh "cod"Modulo:Public Sub InsEsp(Lugar As String)'DA UM ERRO BEM NESSA LINHA DE BAIXO!!!!'EU TENHO Q FALAR O LUGAR ONDE ESTA O TXTNOME'PQ EU VOU USAR ESSE METODO EM DOIS FORMS DIFERENTES If Lugar.txtNome.Text = "" Then 'NOME Lugar.txtNome.Text = "Oi"End sub

[luiz humberto 0]

Não sei bem se entendi o que precisa, mas vamos lá...

Como o que está sendo passado para a função é um formulário, faça assim:

 

Public Sub InsEsp(Formulario As Form)

Quando for chamar o procedimento, faça da seguinte forma:

 

Call InsEsp (frmCliente)