Olá pessoal, tudo bem?
Tenho uma duvida que acho eu vcs já passaram

Segue o código e a explicação:

Private Function CNPJ_NULO()
Dim CNPJaux As Variant
CNPJaux = Nz(Me.CNPJ, 0)
If CNPJaux = 0 Then
MsgBox "Não existe resgistro para esta consulta!", vbExclamation, "Liberação de Saque"
End If
End Function

Qual é minha dúvida, esta função eu rodo no formulario1 onde aparece o CNPJ, mas eu preciso que esta mesma função rode em um outro formulario2 porem buscando a informção do outro formulario1. Fui clara? O que está em vermelho seria a função rodando no proprio formulario...

Primeiramente uma dica, use "Me." apenas quando for acessar uma propriedade do formulario, para acessar um objeto (caixa de texto, botão, etc.) use "Me!".

Vc pode fazer a função receber o CNPJ no cabeçalho e depois eh soh coloca o campo como parametro na hora d chama a função.

Se naum entendeu eu posso explicar melhor... eh soh fala.

quote:

pode fazer a função receber o CNPJ no cabeçalho e depois eh soh coloca o campo como parametro na hora d chama a função.

por favor explique melhor(risos)

bem, ao inves de vc acessar diretamente o campo na função, vc pode fazer com q a função receba o valor do campo no parametro, o cabeçalho da função ficaria assim:

 
Private Function CNPJ_NULO( ValorCNPJ As Variant)
 

e aonde está "Me!CNPJ", vc substituiria pela variavel do cabeçalho "ValorCNPJ"; ai na hora d chama a função ficaria assim:

No Formulario1:

 
CNPJ_NULO(Me!CNPJ)
 

No Formulario2:

 
CNPJ_NULO(forms!Formulario2!CNPJ)
 

entendeu?

quote:

CNPJ_NULO(Me!CNPJ)

Cara Valeu! Funcionou perfeitamente! Muito Obrigado mesmo!