יצוא דוחות ב Access 2010

[MZaGi]

יצוא דוחות ב Access 2010

שלום
יצרתי אופציה ליצוא דוח בשם ״contacts״ לקובץ pdf במסד הנתונים בעזרת הפונקציה Exportwithformatting.
אני מחפש דרך להגדיר שם קובץ יחודי עם תאריך של היום לקובץ היצוא.
כלומר בכל פעם כשאני מיצא את הקובץ
הפונקציה תוסיף אוטומטית לשם הקובץ את התאריך של היום קובץ הפלט יהיה "contacts 21.3.13"
כמובן שארצה שהפונקציה תשאל את המשתמש איפה לשמור את הקובץ לפני שמירתו.
בתודה מראש

 

[כלליים]

נסה את הפונקציה הזו

הערה: עליך להוסיף רפרנס לספריה microsoft office object library


Private Function selectFolder() As String
Dim FD As FileDialog
Set FD = Application.FileDialog(msoFileDialogFolderPicker)
FD.Title = "בחר תיקיה"
FD.Show

If FD.SelectedItems.Count = 1 Then
selectFolder = FD.SelectedItems(1)
Else
selectFolder = ""
End If
End Function