MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


2 participantes

    [Resolvido]Ajuda para criar módulo.

    XPTOS
    XPTOS
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 601
    Registrado : 20/01/2014

    [Resolvido]Ajuda para criar módulo. Empty [Resolvido]Ajuda para criar módulo.

    Mensagem  XPTOS 17/2/2018, 19:45

    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!



    .................................................................................
    Grato,
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3190
    Registrado : 13/12/2016

    [Resolvido]Ajuda para criar módulo. Empty Re: [Resolvido]Ajuda para criar módulo.

    Mensagem  Alexandre Fim 17/2/2018, 21:37

    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.
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3190
    Registrado : 13/12/2016

    [Resolvido]Ajuda para criar módulo. Empty Re: [Resolvido]Ajuda para criar módulo.

    Mensagem  Alexandre Fim 17/2/2018, 22:17

    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






    XPTOS
    XPTOS
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 601
    Registrado : 20/01/2014

    [Resolvido]Ajuda para criar módulo. Empty Re: [Resolvido]Ajuda para criar módulo.

    Mensagem  XPTOS 18/2/2018, 01:57

    Caro Alexandre,

    Obrigado pela dica.

    Funcionou perfeitamente!


    .................................................................................
    Grato,

    Conteúdo patrocinado


    [Resolvido]Ajuda para criar módulo. Empty Re: [Resolvido]Ajuda para criar módulo.

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 13:59