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

    Compartilhe
    avatar
    biligo
    Avançado
    Avançado

    Respeito às Regras 100%

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

    [Resolvido]Retorno de função

    Mensagem  biligo em 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
    avatar
    CassioFabre
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Retorno de função

    Mensagem  CassioFabre em 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!
    avatar
    biligo
    Avançado
    Avançado

    Respeito às Regras 100%

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

    Re: [Resolvido]Retorno de função

    Mensagem  biligo em 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.

      Data/hora atual: 21/11/2018, 02:22