[Resolvido]Colocar MsgBox

Boa tarde pessoal,

Tenho um Formulario chamado BoletimMedição e nesse formulario tem um campo chamado PENDENCIAS no formato sim/não, tenho um botão de imprimir com o seginte codigo:

Código:

DoCmd.OpenReport "RBoletimMedição", acPreview
DoCmd.PrintOut

eu queria que quando esse campo PENDENCIAS estiver marcado ele não imprima o relatório primeiro mim informe se deseja ou não imprimir por causa das pendencias.

Não testei, mas tente assim no evento clicar do seu botão.

Fiz uma correção

If Me.SeuCampoSimNao = -1 Then

If MsgBox("Existe pendência. Deseja imprimir mesmo assim? ", 36, "Excluindo") = 6 Then

DoCmd.OpenReport "RBoletimMedição", acPreview
DoCmd.PrintOut

Else
End
End If

End If
DoCmd.OpenReport "RBoletimMedição", acPreview
DoCmd.PrintOut
End Sub

Messias

Experimente também:

Código:


If Me.SeuCampoSimNao = -1 Then

   If MsgBox("Boletim de medição com pendências. Deseja imprimir mesmo assim? ", vbQuestion + vbYesNo, "Pendências") = vbYes Then

      DoCmd.OpenReport "RBoletimMedição", acNormal ' emprime diretamente na impressora

  Else
      ' Aqui deixo para você colocar o código caso  não deseje imprimir.
      ' Se for pra não fazer nada, ou seja, desistir da impressão, simples apague essas linha em verde, inclusive a linha
      ' onde tem o Else, deixando as duas ultimas linhas.  


  End If
Endif


Noob

Valeu pessoa funcionol perfeitamente, só não respondi onte porque fiquei sem net, obrigado pela atenção de todos vocês.

Que bom que deu certo !

Valeu o retorno Messias

Boa sorte

Noob

Messias só para ficar mais fácil para os demais usuários que precisarem desse tópico todas as ajudas funcionou? com qual resolvei seu problema?

Sim funcionou perfeitamente, testei todas.