ייצוא לPDF באקסס

[מוטי מן]

אני משתמש בקוד הזה כדי לייצא דוח לPDF

DoCmd.OutputTo acOutputReport, "cert", acFormatPDF, "c:\users\XXX\desktop\certs\cert001.pdf", True

ויש לי איתו כמה בעיות,
א. אם תיקיית היעד לא קיימת הקובץ לא מיוצא.
ב. אני חייב להגדיר את שם המשתמש ידני, ולא מצליח להשתמש במשתנה %USERPROFILE%
ג. האם אפשרי לבחור ששם הקובץ יהיה התוכן של אחד מהשדות בדו"ח?

[אוריי]

@מוטי-מן אמר בייצוא לPDF באקסס:

א. אם תיקיית היעד לא קיימת הקובץ לא מיוצא.
ב. אני חייב להגדיר את שם המשתמש ידני, ולא מצליח להשתמש במשתנה %USERPROFILE%

תשתמש בקוד הבא כהפניה יחסית ממיקום הקובץ של האקסס

CurrentProject.Path

@מוטי-מן אמר בייצוא לPDF באקסס:

ג. האם אפשרי לבחור ששם הקובץ יהיה התוכן של אחד מהשדות בדו"ח?

תפעל באותה הצורה שכתבתי לך כאן

[מוטי מן]

@אוריי אמר בייצוא לPDF באקסס:

תשתמש בקוד הבא כהפניה יחסית ממיקום הקובץ של האקסס
CurrentProject.Path

לא עובד לי. איך אני אמור להכניס את זה בנתיב?

[מלא]

@מוטי-מן
הקוד

CurrentProject.Path

מחזיר את נתיב התקיה בה נמצא קובץ האקסס עליו אתה עובד.
תשרשר אליו את התקיה שנמצאת כמובן באותה תקיה של האקסס.
ככה:
במקום זה

"c:\users\XXX\desktop\certs\cert001.pdf"

תכניס

CurrentProject.Path & "\Folder\FileName.PDF"

ותדאג מקודם שתקיית Folder קיימת.

[מוטי מן]

@מלא אמר בייצוא לPDF באקסס:

ותדאג מקודם שתקיית Folder קיימת.

א"א שהאקסס ייצור אותה במידה והיא לא קיימת?

[מלא]

@מוטי-מן אמר בייצוא לPDF באקסס:

א"א שהאקסס ייצור אותה במידה והיא לא קיימת?

Sub CreateFolder(strPath As String)
    If Len(Dir(strPath, vbDirectory)) = 0 Then
        MkDir (strPath)
    End If
End Sub

ותקרא לה ככה:

CreateFolder(CurrentProject.Path & "\Folder")

[מוטי מן]

@מלא תודה!! עובד מעולה!!