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

    Compartilhe

    Luís Antunes
    Avançado
    Avançado

    Respeito às Regras 100%

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

    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
    avatar
    vieirasoft
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    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:

    [Você precisa estar registrado e conectado para ver este link.]
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: Alteração da box

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

    Ola a todos,

    Luis Antunes, veja se ajuda:
    [Você precisa estar registrado e conectado para ver este link.]

    Abraço a todos

      Data/hora atual: 16/12/2018, 11:22