Bom dia,
Gostaria mais uma vez da ajuda de vocês, estou utilizando este código abaixo mais ele esta dando erro quando clico em imprimir que a ordem não esta autorizada (Erro: A execução deste aplicativo foi interrompida devido a um erro em tempo de execução, o programa será encerrado), quando ela esta autorizada ela funciona perfeitamente. meu banco de dados esta no formato accdr.
Desde já agradeço a tenção de todos.
Gostaria mais uma vez da ajuda de vocês, estou utilizando este código abaixo mais ele esta dando erro quando clico em imprimir que a ordem não esta autorizada (Erro: A execução deste aplicativo foi interrompida devido a um erro em tempo de execução, o programa será encerrado), quando ela esta autorizada ela funciona perfeitamente. meu banco de dados esta no formato accdr.
- Código:
Private Sub Imprimir_relatório_Click()
If Me.Autorizo = 0 Then
If MsgBox("Ordem não Autorizada? ", vbQuestion + vbNo, "Aviso!") = vbNo Then
DoCmd.OpenReport "ROrdemDeCompra", acPreview
DoCmd.PrintOut
Else
End
End If
End If
DoCmd.OpenReport "ROrdemDeCompra", acPreview
DoCmd.PrintOut
End Sub
Desde já agradeço a tenção de todos.