Oi Pessoal...

Tenho um modulo com uma função chamada Totaliza.

Essa função é utilizada pelo sistema em vários forms, ela totaliza alguns campos desses forms. Em todos os forms os campos têm o mesmo nome.

O problema é o seguinte... Como eu mando o nome do form para essa função para que ele faça, por exemplo a seguinte conta:

Val(nameform.vrfield(1).text) + Val(nameform.vrfield(2).text)

Sendo esse nameform o formulário que chamou a função...

Grato

JoFer

No Modulo

Public Sub MostraNomeDoForm(Frm As Form)
    MsgBox "O Nome do Form é :  " & Frm
End Sub

 

no formulário

Private Sub Command1_Click()
    MostraNomeDoForm Me
End Sub