[kapetang]

Καλημέρα

Τίμο δοκίμασε τον παρακάτω κώδικα:

Public Function PicFolder() As String
    Dim blnSelect As Boolean
    Dim fld As Object

    Set fld = Application.FileDialog(4)
    fld.AllowMultiSelect = False
    blnSelect = fld.Show
    If blnSelect Then
        PicFolder = fld.SelectedItems(1)
    End If
End Function

Private Sub cmdPDF_ΔελτιοΠαραγγελιας_Click()
    Dim strFolder As String, strFile As String
    strFolder = PicFolder
    If strFolder <> "" Then
        DoCmd.OpenReport "RptΔελτία παραγγελίας", acViewPreview, , _
                         "[ΟΝΟΜΑ_ΠΡΟΜΗΘΕΥΤΗ]=" & "'" & [ΟΝΟΜΑ_ΠΡΟΜΗΘΕΥΤΗ] & "'"

        strFile = strFolder & "\" & CStr(ΟΝΟΜΑ_ΠΡΟΜΗΘΕΥΤΗ) & "_Σύνολο Παραγγελιών_" & _
                  Format(Now(), "yyyymmdd") & ".pdf"
        Exists strFile
    Else
        MsgBox "Δεν επιλέξατε φάκελο"
    End If
    DoCmd.Close acReport, "RptΔελτία παραγγελίας", acSaveNo
End Sub

Public Sub Exists(FileName As String)
    If Dir(FileName) <> "" Then
        If MsgBox("Το αρχείο:" & vbCrLf & FileName & vbCrLf & _
                  "Υπάρχει. Να αντικατασταθεί;", vbCritical + vbYesNo) = vbYes Then
            DoCmd.OutputTo acOutputReport, "RptΔελτία παραγγελίας", acFormatPDF, _
               FileName, True
        End If
    Else
        DoCmd.OutputTo acOutputReport, "RptΔελτία παραγγελίας", acFormatPDF, _
            FileName, True
    End If
End Sub

Σημείωση: Στον κώδικα αντικαταστάθηκε η σταθερά vbOK με την vbYes