MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Ajuda para criar módulo.

    Compartilhe
    avatar
    XPTOS
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    [Resolvido]Ajuda para criar módulo.

    Mensagem  XPTOS em Sab Fev 17, 2018 2:45 pm

    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,
    avatar
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

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

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

    Mensagem  Alexandre Fim em Sab Fev 17, 2018 4:37 pm

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

    Respeito às Regras 100%

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

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

    Mensagem  Alexandre Fim em Sab Fev 17, 2018 5:17 pm

    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






    avatar
    XPTOS
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

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

    Mensagem  XPTOS em Sab Fev 17, 2018 8:57 pm

    Caro Alexandre,

    Obrigado pela dica.

    Funcionou perfeitamente!


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

      Data/hora atual: Sab Jul 21, 2018 9:44 am