MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    Função Confirmar

    avatar
    Convidad
    Convidado

    Função Confirmar Empty Função Confirmar

    Mensagem  Convidad em Ter 28 Fev 2012, 6:29 pm


    A função Confirmar tem o objetivo de diminuir o trabalho de digitação de parâmetros em CaixasDeMensagem (MsgBox) de confirmação.
    Ela é uma MsgBox previamente parametrizada, e vc pode personalizar e criar variações.
    Faz uma pergunta ao usuário e retorna True se a resposta for Sim, e False se a resposta for Não.

    Cole o código abaixo num módulo global usado para funções ou num novo módulo.


    Public Function Confirmar(sMensagem As String) As Boolean
    Dim intResp As Integer
    intResp = MsgBox(sMensagem, vbYesNo + vbQuestion, "Confirmação")
    If intResp = vbYes Then
    Confirmar = True
    Else
    Confirmar = False
    End If
    End Function


    Usando a função:

    If Confirmar("Mensagem ao usuário") Then
    ou
    If Not Confirmar("Mensagem ao usuário") Then
    alec_rs
    alec_rs
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 25
    Registrado : 18/08/2011

    Função Confirmar Empty Re: Função Confirmar

    Mensagem  alec_rs em Qua 04 Abr 2012, 8:16 pm

    Boa a ideia, Norberto. Botei em prática, valeeeu!

      Data/hora atual: Sex 04 Dez 2020, 6:51 am