[Resolvido]Alteração da box

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

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

Ola a todos,

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

Abraço a todos

Boas

Criei formulários como ahteixeira evieirasoft me sugeriram

Luís Antunes

Olá Luis Antunes,

Já diz o velho ditado "mais vale tarde que nunca"
Obrigado pelo retorno o fórum agradece.

Abraço

Verdade Álvaro!

Assim diz o "velho deitado"

Mesmo o tópico já dado por resolvido, vou deixar algo para quem ler esse tópico,

sobre os modos do relatório, visualizar impressão e modo de impressão.

Partindo do princípio que o nome já diz, relatório, entende-se

que é o resultado final de uma operação no qual foi usado formulários.

Dito isso, devemos compreender que visualização do relatório, é para uso

do programador poder acertar o layout do relatório no papel, e não para o

uso do usuário.

Portanto, dados exibidos na tela, usa-se formulários, e no papel, relatórios (óbvio, né?)

{ }'s

Balem

Olá Noob,

E com isto "está tudo dito".