تصدير سجلات لملف pdf الى مسار فولدر محدد سابقا

[ahmad_mustafa]

السلام عليكم 

بالقاعدة المرفقة فورم استعلام عند فتحه سوف ينشأ تلقائي فولدرين الاول "صور_تذاكر"    والاخر     "ملفات تم تصديرها" وما اريده مساعدتي بكود عند الضغط على زر التصدير ان يصدر الملف الى الفولدر "ملفات تم تصديرها" وليس الى المستندات .

مع العلم ان المسار محدد مسبقا   من فورم "frm_msar_folder"

تصدير حسب المسار.rar

[محمد أبوعبدالله]

وعليكم السلام ورحمة الله وبركاته

تفضل اخي الكريم

            Dim myPath As String
            myPath = CurrentProject.Path & "\frm_msar_folder\"

            If LenB(Dir(myPath, vbDirectory)) = 0 Then
               MkDir myPath
            End If

            DoCmd.OutputTo acOutputForm, "ÊÐÇßÑ_äãæÐÌ_ÇÓÊÚáÇã", acFormatPDF, myPath & Format(Now, "DD-MM-YYYY") & ".pdf", False

تصدير حسب المسار.rar

تحياتي

[ناقل]

مشاركة مع اخي الحبيب .... استخدم هذه الشيفرة في الزر ......

Dim Project_path, Dir_File As String
Project_path = DLookup("[Folder_Path]", "tbl_msar_folder", "[Auto_ID]=1")
Dir_File = Project_path & "\ملفات تم تصديرها\"
DoCmd.OutputTo acOutputForm, "تذاكر_نموذج_استعلام", "PDFFormat(*.pdf)", Dir_File & "تذاكر " & Format(Now, "DD-MM-YYYY") & ".pdf", False

 

[ahmad_mustafa]

شيء رائع اشكركم اشكركم