ahmad_mustafa قام بنشر ديسمبر 24, 2021 مشاركة قام بنشر ديسمبر 24, 2021 السلام عليكم بالقاعدة المرفقة فورم استعلام عند فتحه سوف ينشأ تلقائي فولدرين الاول "صور_تذاكر" والاخر "ملفات تم تصديرها" وما اريده مساعدتي بكود عند الضغط على زر التصدير ان يصدر الملف الى الفولدر "ملفات تم تصديرها" وليس الى المستندات . مع العلم ان المسار محدد مسبقا من فورم "frm_msar_folder" تصدير حسب المسار.rar رابط هذا التعليق شارك More sharing options...
محمد أبوعبدالله قام بنشر ديسمبر 24, 2021 مشاركة قام بنشر ديسمبر 24, 2021 وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم 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 تحياتي 1 رابط هذا التعليق شارك More sharing options...
ناقل قام بنشر ديسمبر 24, 2021 مشاركة قام بنشر ديسمبر 24, 2021 مشاركة مع اخي الحبيب .... استخدم هذه الشيفرة في الزر ...... 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 1 رابط هذا التعليق شارك More sharing options...
ahmad_mustafa قام بنشر ديسمبر 24, 2021 الكاتب مشاركة قام بنشر ديسمبر 24, 2021 شيء رائع اشكركم اشكركم رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.