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


    Alteração da box

    avatar
    Luís Antunes
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 254
    Registrado : 05/04/2016

    Alteração da box Empty Alteração da box

    Mensagem  Luís Antunes em 22/11/2018, 21:42

    Código:
    Private Sub DespFM_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
        On Error GoTo Err
    Me.Refresh

    Dim stDocName As String

    Dim Msg As String

    Msg = MsgBox("  Que Deseja fazer? " & vbCrLf & "  Clique (Sim) para imprimir " & vbCrLf & "  (Não) para visualizar" & vbCrLf & "  (Cancel) para sair", vbYesNoCancel + vbQuestion, "Opções")

    Select Case Msg
    Case vbYes
    DoCmd.OpenReport "Rel_MapaDespesa", acViewNormal
    Case vbNo
    'DoCmd.RunCommand acViewPreview
    DoCmd.OpenReport "Rel_MapaDespesa", acViewPreview
    Case Else

    End Select
    Err:
    End Sub

    Utilizo este código  para selecionar o modo de abrir o relatório.
    é possível, em vez da box ter as opções  "sim - não -Cancelar"
    ter "Visualisar - Imprimir - Saír" ?

    Luís Antunes
    vieirasoft
    vieirasoft
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7306
    Registrado : 11/05/2010

    Alteração da box Empty Re: Alteração da box

    Mensagem  vieirasoft em 22/11/2018, 22:40

    Utilize um formulário, redimensione e crie os botões. É o mais simples e com bons resultados

    ou visite:

    www.mrexcel.com/forum/excel-questions/70581-custom-button-captions-standard-msgbox-not-question.html
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5962
    Registrado : 15/03/2013

    Alteração da box Empty Re: Alteração da box

    Mensagem  ahteixeira em 22/11/2018, 23:01

    Ola a todos,

    Luis Antunes, veja se ajuda:
    http://www.maximoaccess.com/t30900-msgbox-personalizadas-texto-e-botoes

    Abraço a todos

    Conteúdo patrocinado

    Alteração da box Empty Re: Alteração da box

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 24/5/2019, 04:29