Boa noite,
Venho pedir ajuda para resolver o seguinte problema...
Erro ao clicar no botão para imprimir relatório:
O comando ou ação 'Saída para' não está disponível agora.
O script que estou usando no botão é esse:
Private Sub cmdCartão_Click()
On Error GoTo Err_cmdCartão_Click
Dim stDocName As String
Select Case Moldura3 'Criar Retângulo com as ChckBox dentro
Case 1 'Referente a CheckBox
If IsNull(Me.txtd1) Or IsNull(Me.txtd2) Then
MsgBox "É preciso determinar o período do Cartão Fidelidade!", vbOKOnly, "Atenção!"
Else
Me.Visible = True
DoCmd.Close acForm, Me.Name
'Abre o relatório, filtrado pelo número exclusivo do cliente
Dim StrCliente As String
' Call our convert function
' Please note the last param signals whether to perform
' font embedding or not. I have turned font embedding ON for this example.
StrCliente = DLookup("NomeCliente", "tbl_Clientes", "CodClientes")
Dim strCaminho$
strCaminho = "C:\MelkFinanc\Relatórios\Cartão Fidelidade_ " & StrCliente & " " & Format(Now(), "dd-mmmm-yyyy")
DoCmd.OutputTo acOutputReport, "Rel_CartãoFidel", acFormatPDF, strCaminho & ".pdf", True
DoCmd.Maximize
End If
End Select
Exit_cmdCartão_Click:
Exit Sub
Err_cmdCartão_Click:
MsgBox Err.Description
Resume Exit_cmdCartão_Click
End Sub
Onde estou errando? Tem hora que funciona e executa certinho... Mas tem hora que não vai...
Desde já agradeço a quem me ajudar...
Abraços,
Venho pedir ajuda para resolver o seguinte problema...
Erro ao clicar no botão para imprimir relatório:
O comando ou ação 'Saída para' não está disponível agora.
O script que estou usando no botão é esse:
Private Sub cmdCartão_Click()
On Error GoTo Err_cmdCartão_Click
Dim stDocName As String
Select Case Moldura3 'Criar Retângulo com as ChckBox dentro
Case 1 'Referente a CheckBox
If IsNull(Me.txtd1) Or IsNull(Me.txtd2) Then
MsgBox "É preciso determinar o período do Cartão Fidelidade!", vbOKOnly, "Atenção!"
Else
Me.Visible = True
DoCmd.Close acForm, Me.Name
'Abre o relatório, filtrado pelo número exclusivo do cliente
Dim StrCliente As String
' Call our convert function
' Please note the last param signals whether to perform
' font embedding or not. I have turned font embedding ON for this example.
StrCliente = DLookup("NomeCliente", "tbl_Clientes", "CodClientes")
Dim strCaminho$
strCaminho = "C:\MelkFinanc\Relatórios\Cartão Fidelidade_ " & StrCliente & " " & Format(Now(), "dd-mmmm-yyyy")
DoCmd.OutputTo acOutputReport, "Rel_CartãoFidel", acFormatPDF, strCaminho & ".pdf", True
DoCmd.Maximize
End If
End Select
Exit_cmdCartão_Click:
Exit Sub
Err_cmdCartão_Click:
MsgBox Err.Description
Resume Exit_cmdCartão_Click
End Sub
Onde estou errando? Tem hora que funciona e executa certinho... Mas tem hora que não vai...
Desde já agradeço a quem me ajudar...
Abraços,