[Resolvido]Problema no Argumento de Função

Olá a todos.

Tenho uma função em que preciso declarar um argumento. Este é um campo que será informado quando a função for chamada.

A função está assim:
Public Function RBaseTrab(frm As Form)
...
End Function

No formulário ela é chamada assim:
Call RBaseTrab(cTrab)

cTrab é uma função privada dentro do formulário que possui o endereço do campo a ser usado como argumento.
Private Function cTrab ()
Forms!Formulário!Campo
End Function

Caso eu digite Call RBaseTrab(Forms!Formulário!Campo) funciona corretamente.
Caso eu digite Call RBaseTrab(cTrab)ocorre erro.
O primeiro erro foi: "tipos incompatíveis".
Se eu declarar variável para cTrab (As Form), gera outro erro: "uso inválido da propriedade".

rgondim,
Coloque Public Function RBaseTrab(frm As String)

Testei e também deu certo setando:
Public Function RBaseTrab(frm As Control)

E

Private Function cTrab ()
Set cTrab = Forms!Formulário!Campo
End Function

Tanto faz a sua dica como essa solução?

Conforme o uso, podem servir as duas. Se essa serve, mantenha-a

Então, ok.

Muito obrigado pela atenção.