[Resolvido]Ajuda para criar módulo.

Amigos, boa tarde!

Tenho este código que uso direto nos forms e gostaria de criar um módulo para chamar a função com as condições informadas. Ex: Call NomeFuncao.

Se algum amigo tiver uma ideia de como criar, por favor me indiquem!

Ola XPTOS,

Acho que sua dúvida não está bem clara.

Qual código que vc utiliza nos forms?

Se possível, poste seu bd para o forum analisar.

Obrigado

Att,

Ops....Editando resposta...

Quando postei minha mensagem, não consegui visualizar o código que vc enviou.
Agora entendi.

XPTOS,

Na estrutura do seu projeto, selecione a guia "Criar", no grupo "Macros e Códigos", clique no botão "Módulo", e em seguida o Access ira abrir a tela do código-fonte.

Em seguida copie o código abaixo e cole dentro do módulo.

Public Function fnMudaLogo(nForm As Form, nUser As String)

With nForm
Select Case (nUser)
Case "AAAA": .btnLogo.Picture = "C:\Base dados\Logotipo\Logo AAAA.jpg"
Case "BBBB": .btnLogo.Picture = "C:\Base dados\Logotipo\Logo BBBB.jpg"
Case Else: .btnLogo.Picture = "C:\Base dados\Logotipo\Logo CCCC.jpg"
End Select

End With

End Function

Clique em "Salvar" e informe o nome desejado para o módulo. (Ex.: mdlFuncoes)

No Load do seu form, coloque a seguinte instrução:

Call fnMudaLogo(Me, Trim(txtUser.Value))

Qualquer problema, poste aqui.

Abraços

Caro Alexandre,

Obrigado pela dica.

Funcionou perfeitamente!