Boas
Uma ajuda, tenho vários relatórios na mesma tabela e pretendia imprimir só um relatório. Por exemplo o ultimo inserido.
Neste momento me imprime todos os relatórios.
Utilizo o access 2007
O Procedimento de acontecimento é o seguinte:
Private Sub cmdOPGL_Click()
On Error GoTo Err_cmdOPGL_Click
On Error Resume Next
Me.cmdACT.Enabled = True
Me.cmdACT.SetFocus
Me.cmdOPGL.Enabled = False
Me.CtlSeparador58.Visible = False
Dim stDocName As String
stDocName = "relGUIA_LICENCA"
DoCmd.OpenReport stDocName, acViewNormal, "LICENCA_ID = " & Me.[LICENCA_ID]
Exit_cmdOPGL_Click:
Exit Sub
Err_cmdOPGL_Click:
MsgBox Err.Description
Resume Exit_cmdOPGL_Click
Como podem ver a acção de imprimir é accianada por uma tecla com o nome "cmdOPGL
Agradeço toda ajuda dos mestres
Uma ajuda, tenho vários relatórios na mesma tabela e pretendia imprimir só um relatório. Por exemplo o ultimo inserido.
Neste momento me imprime todos os relatórios.
Utilizo o access 2007
O Procedimento de acontecimento é o seguinte:
Private Sub cmdOPGL_Click()
On Error GoTo Err_cmdOPGL_Click
On Error Resume Next
Me.cmdACT.Enabled = True
Me.cmdACT.SetFocus
Me.cmdOPGL.Enabled = False
Me.CtlSeparador58.Visible = False
Dim stDocName As String
stDocName = "relGUIA_LICENCA"
DoCmd.OpenReport stDocName, acViewNormal, "LICENCA_ID = " & Me.[LICENCA_ID]
Exit_cmdOPGL_Click:
Exit Sub
Err_cmdOPGL_Click:
MsgBox Err.Description
Resume Exit_cmdOPGL_Click
Como podem ver a acção de imprimir é accianada por uma tecla com o nome "cmdOPGL
Agradeço toda ajuda dos mestres