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]Retorno de função

    biligo
    biligo
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 228
    Registrado : 10/04/2014

    [Resolvido]Retorno de função Empty [Resolvido]Retorno de função

    Mensagem  biligo 6/11/2017, 12:09

    Boas pessoal,
    Não tenho experiencia na questão e estou tendo dificuldades.

    Tenho um formulário que contem um botão "btnExecutar", ele deverá verificar os botões de opções que estarão ativos "OP1" á "OP13" (13 opções).
    Se o "OP2" por exemplo estiver ativo ele devera executar uma função - Function OP2(Comparado As Variant).
    Até aqui tudo bem mas a partir daqui já não sei como fazer:

    Após a função ser executada me retornar um valor logico.
    Caso seja verdadeiro continuar a executar as outras opções ativas se for falso aplicar uma outra função de finalização.

    As funções OP1 á 13 já tenho e funciona mas não consigo um retorno logico, o retorno que me gera é msgbox
    CassioFabre
    CassioFabre
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 731
    Registrado : 18/01/2013

    [Resolvido]Retorno de função Empty Re: [Resolvido]Retorno de função

    Mensagem  CassioFabre 6/11/2017, 12:22

    Bom dia,

    Basta criar uma função booleana.
    Código:
    Function funcOP2(Comparando as Variant) As Boolean
        'aqui dentro voce faz o que quiser, lembrando sempre de no final retornar um valor para a função. Exemplo
        If Comparando = "Juarez" Then
            funcOP2 = False
        Else
            funcOP2 = True
        End if
    End function

    Aí no botão de verificação, no lugar onde voce verifica qual opção está selecionada (supondo que seja um case)
    Código:
    Case me.OP2 = true
            If funcOP2 = false then
                'chama função de finalização
        End if

    Caso não tenha entendido, poste parte do bd para que possamos avaliar.

    Abraço.


    .................................................................................
    Só não tem código pra morte!
    biligo
    biligo
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 228
    Registrado : 10/04/2014

    [Resolvido]Retorno de função Empty Re: [Resolvido]Retorno de função

    Mensagem  biligo 6/3/2018, 22:10

    Muito obrigado, funcionou perfeitamente,
    Demorei um pooouco pra responde porque achei que teria algum erro, mas acabei não dando como resolvido XD.

    Conteúdo patrocinado


    [Resolvido]Retorno de função Empty Re: [Resolvido]Retorno de função

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/11/2024, 22:12