Boa tarde Amigos
A linha abaixo cria PDF para os produtos da tabela.
DoCmd.OutputTo acOutputReport, "Modelos", acFormatPDF, strLocal
Queria adicionar a condição abaixo, para criar só Um produto + ou - isto ????
DoCmd.OpenReport "Modelos", acViewPreview, "", "[Modelos]![ref]=[Forms]![modelosnovover]![ref]"
'--------------------------------------------------------------------------------------------
Obrigado
Código completo:
If MsgBox("Confirma a Impress?o do Modelo da Ref. da " & [Ref] & "" & Chr(13) & " Modelo " & [Modelo] & "", vbYesNo, "Aviso") = vbYes Then
If MsgBox("Criar Documento em P. D. F. ? ", vbYesNo, "P. D. F.") = vbYes Then
Dim Caminho As String
Caminho = BackEndPath & "\PDF\"
Dim strArquivo As String
Dim strLocal As String
strArquivo = "Ficha de Modelo da Ref - " & [Ref] & " - " & [Modelo] & " " & [Linha] & ""
strLocal = Caminho & strArquivo & ".PDF"
'Gera arquivo pdf do relat?rio previamente aberto.
DoCmd.OutputTo acOutputReport, "Modelos", acFormatPDF, strLocal
On Error Resume Next
If err = 2501 Then
err.Clear
DoCmd.Close
End If
Else
End If
DoCmd.OpenReport "Modelos", acViewPreview, "", "[Modelos]![ref]=[Forms]![modelosnovover]![ref]"
End If
A linha abaixo cria PDF para os produtos da tabela.
DoCmd.OutputTo acOutputReport, "Modelos", acFormatPDF, strLocal
Queria adicionar a condição abaixo, para criar só Um produto + ou - isto ????
DoCmd.OpenReport "Modelos", acViewPreview, "", "[Modelos]![ref]=[Forms]![modelosnovover]![ref]"
'--------------------------------------------------------------------------------------------
Obrigado
Código completo:
If MsgBox("Confirma a Impress?o do Modelo da Ref. da " & [Ref] & "" & Chr(13) & " Modelo " & [Modelo] & "", vbYesNo, "Aviso") = vbYes Then
If MsgBox("Criar Documento em P. D. F. ? ", vbYesNo, "P. D. F.") = vbYes Then
Dim Caminho As String
Caminho = BackEndPath & "\PDF\"
Dim strArquivo As String
Dim strLocal As String
strArquivo = "Ficha de Modelo da Ref - " & [Ref] & " - " & [Modelo] & " " & [Linha] & ""
strLocal = Caminho & strArquivo & ".PDF"
'Gera arquivo pdf do relat?rio previamente aberto.
DoCmd.OutputTo acOutputReport, "Modelos", acFormatPDF, strLocal
On Error Resume Next
If err = 2501 Then
err.Clear
DoCmd.Close
End If
Else
End If
DoCmd.OpenReport "Modelos", acViewPreview, "", "[Modelos]![ref]=[Forms]![modelosnovover]![ref]"
End If