Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access
Inserir PDF.zip 
PDFFinal.zip 
PauloFerreira Ter 03 Jul 2018, 16:07Public Function fncLocalizarArquivo()
Dim FD As Office.FileDialog
On Error GoTo trataerro
Set FD = Application.FileDialog(msoFileDialogOpen)
With FD
With .Filters
.Clear
.Add "PDF", "*.PDF", 1
.Add "Todos", "*.*", 2
End With
.Title = "Selecionar Arquivo PDF"
.AllowMultiSelect = False
.InitialFileName = CurrentProject.Path & "\PDF"
.InitialView = msoFileDialogViewPreview
If .Show Then
fncLocalizarArquivo = .SelectedItems(1)
End If
End With
Sair:
Exit Function
trataerro:
fncLocalizarArquivo = ""
Resume Sair:
End Function
Private Sub Cbo_FiltraClientes_AfterUpdate()
'faz requery
Me.cxlPDF.Requery
'faz chmada para ficheiro pdf vazio, para nao ficar o ultimo quando muda de cliente
Me!AcroPDF8.LoadFile CurrentProject.Path & "\PDF\vazio.pdf"
End Sub
Private Sub Cbo_FiltraClientes_AfterUpdate()
'faz requery
Me.cxlPDF.Requery
'faz chmada para ficheiro pdf vazio, para nao ficar o ultimo quando muda de cliente
Me!AcroPDF8.LoadFile "\\192.168.1.10\APP\nome_da_app\vazio.pdf"
End Sub
|
|
|