MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

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


2 participantes

    [Resolvido]Msg Box para impressão

    Agravina
    Agravina
    Agravina
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1623
    Registrado : 18/07/2010
    • Mensagem nº1

    [Resolvido]Msg Box para impressão Empty Msg Box para impressão

    Mensagem  Agravina 6/8/2013, 22:58

    Como cancelar a ação ao clicar no botão cancel da MsgBox

    If KeyCode = vbKeyF6 Then

    If MsgBox("Deseja Imprimir Está venda?", vbYesNo) = vbYes Then
    stDocName = "Cupom"
    DoCmd.OpenReport stDocName, acViewNormal
    End If
    End If
    • Ir para o topo
    Cláudio Machado
    Cláudio Machado
    Cláudio Machado
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1636
    Registrado : 17/03/2011
    • Mensagem nº2

    [Resolvido]Msg Box para impressão Empty Re: [Resolvido]Msg Box para impressão

    Mensagem  Cláudio Machado 7/8/2013, 00:41


    If KeyCode = vbKeyF6 Then

    imprime = MsgBox("Deseja Imprimir Está venda?", vbQuestion + vbYesNo, "Imprimir")
    Select Case imprime
    Case vbYes
    stDocName = "Cupom"
    DoCmd.OpenReport stDocName, acViewNormal

    Case vbNo
    DoCmd.CancelEvent
    MsgBox "Impressão Cancelada !", vbInformation, "Informando..."
    End Select

    End If


    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  AQUI.
    Não esqueça de clicar no Joinha [Resolvido]Msg Box para impressão 90dssg para agradecer a dica que solucionou seu problema.
    • Ir para o topo
    Agravina
    Agravina
    Agravina
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1623
    Registrado : 18/07/2010
    • Mensagem nº3

    [Resolvido]Msg Box para impressão Empty Re: [Resolvido]Msg Box para impressão

    Mensagem  Agravina 7/8/2013, 00:43

    Amigo Claudio
    Não funciona as 2 primeiras linhas ficam em vermelhos.
    • Ir para o topo
    Agravina
    Agravina
    Agravina
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1623
    Registrado : 18/07/2010
    • Mensagem nº4

    [Resolvido]Msg Box para impressão Empty Re: [Resolvido]Msg Box para impressão

    Mensagem  Agravina 7/8/2013, 00:48

    Postamos ao mesmo tempo!
    Agora sim funfa Obrigada ao amigo Cláudio!
    • Ir para o topo
    Cláudio Machado
    Cláudio Machado
    Cláudio Machado
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1636
    Registrado : 17/03/2011
    • Mensagem nº5

    [Resolvido]Msg Box para impressão Empty Re: [Resolvido]Msg Box para impressão

    Mensagem  Cláudio Machado 7/8/2013, 00:48

    Experimenta assim, só pra teste.

    imprime = MsgBox("Deseja Imprimir Está venda?", vbQuestion + vbYesNo, "Imprimir")
    Select Case imprime
    Case vbYes
    stDocName = "Cupom"
    DoCmd.OpenReport stDocName, acViewNormal

    Case vbNo
    DoCmd.CancelEvent
    MsgBox "Impressão Cancelada !", vbInformation, "Informando..."
    End Select


    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  AQUI.
    Não esqueça de clicar no Joinha [Resolvido]Msg Box para impressão 90dssg para agradecer a dica que solucionou seu problema.
    • Ir para o topo
    Cláudio Machado
    Cláudio Machado
    Cláudio Machado
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1636
    Registrado : 17/03/2011
    • Mensagem nº6

    [Resolvido]Msg Box para impressão Empty Re: [Resolvido]Msg Box para impressão

    Mensagem  Cláudio Machado 7/8/2013, 00:49

    Bem que eu estranhei.
    Valeu pelo retorno.
    Abraço.


    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  AQUI.
    Não esqueça de clicar no Joinha [Resolvido]Msg Box para impressão 90dssg para agradecer a dica que solucionou seu problema.
    • Ir para o topo
    Conteúdo patrocinado

    Conteúdo patrocinado


    • Mensagem nº7

    [Resolvido]Msg Box para impressão Empty Re: [Resolvido]Msg Box para impressão

    Mensagem  Conteúdo patrocinado

    • Ir para o topo
      Data/hora atual: 17/5/2024, 03:13