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

    [Resolvido]Botoes personalizados com 3 opções

    avatar
    vileman
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 579
    Registrado : 25/05/2011

    [Resolvido]Botoes personalizados com 3 opções Empty [Resolvido]Botoes personalizados com 3 opções

    Mensagem  vileman em 23/8/2019, 10:37

    Boa tarde,
    * Uso Access 2003

    Fiz buscas no site e encontrei 3 tópicos relacionados ao assunto pretendido, mas não consegui fazer funcionar:

    CRIQUIO
    https://www.maximoaccess.com/t2390p4-msgboxex-personalizada-com-seu-icone-texto-dos-botoes-permitindo-icoes-e-gif-s
    ------------------------------------------------------------------------------------------------------------------
    CRIQUIO
    https://www.maximoaccess.com/t3326-msgbox-com-texto-dos-botoes-personalizados
    -------------------------------------------------------------------------------------------------------------------
    WEBBRUXIM
    https://www.maximoaccess.com/t30900-msgbox-personalizadas-texto-e-botoes

    O mais próximo que consegui chegar foi com outro tópico que adaptei para mim:
    https://www.maximoaccess.com/t18666-resolvidocaixa-mensagem-interativa

    Conforme rotina abaixo:

    Private Sub MenuRestituicao_Click() 'Rotina incluída em 16/08/2019
    'FONTE: https://www.maximoaccess.com/t18666-resolvidocaixa-mensagem-interativa
    'Autor: Mylton - Participantes: Convidado e Cláudio Machado

    Dim Msg As String
    Msg = MsgBox("Escolha a Opção abaixo: " & vbCrLf & "SIM : Pessoa Física" & vbCrLf & "NÃO: Pessoa Jurídica" & vbCrLf & "Ou Cancelar", vbYesNoCancel + vbInformation, "Sistema")
    Beep
    If Msg = vbNo Then         'Ação para o NÃO
      DoCmd.OpenForm "F13_OperacaoXTermoRestituicaoPJ"
    ElseIf Msg = vbYes Then    'Ação para o SIM
      DoCmd.OpenForm "F13_OperacaoXTermoRestituicaoPF"
    ElseIf Msg = vbCancel Then 'Ação para o CANCELAR
    End If
    End Sub

    O que pretendo é: Numa MsgBox colocar 3 opções: 1: Pessoa Física - 2: Pessoa Jurídica - 3: Cancelar ==> As 2 primeiras abre determinado formulário e a 3ª fecha a rotina
    Mas, ao executar aparece os botões (Padrão) como 'Sim' - 'Não' - 'Cancelar'
    Mylton
    Mylton
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 728
    Registrado : 23/08/2010

    [Resolvido]Botoes personalizados com 3 opções Empty Re: [Resolvido]Botoes personalizados com 3 opções

    Mensagem  Mylton em 23/8/2019, 10:58

    avatar
    vileman
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 579
    Registrado : 25/05/2011

    [Resolvido]Botoes personalizados com 3 opções Empty Botoes personalizados com 3 opções

    Mensagem  vileman em 25/8/2019, 08:17

    Bom dia, Mylton

    Valeu, consegui resolver.
    Obrigado.

      Data/hora atual: 5/8/2020, 11:47