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]Botoes personalizados com 3 opções

    avatar
    vileman
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 562
    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, 16: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
    http://www.maximoaccess.com/t2390p4-msgboxex-personalizada-com-seu-icone-texto-dos-botoes-permitindo-icoes-e-gif-s
    ------------------------------------------------------------------------------------------------------------------
    CRIQUIO
    http://www.maximoaccess.com/t3326-msgbox-com-texto-dos-botoes-personalizados
    -------------------------------------------------------------------------------------------------------------------
    WEBBRUXIM
    http://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:
    http://www.maximoaccess.com/t18666-resolvidocaixa-mensagem-interativa

    Conforme rotina abaixo:

    Private Sub MenuRestituicao_Click() 'Rotina incluída em 16/08/2019
    'FONTE: http://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 : 720
    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, 16:58

    avatar
    vileman
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

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

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

    Bom dia, Mylton

    Valeu, consegui resolver.
    Obrigado.

    Conteúdo patrocinado

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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 19/11/2019, 14:00