m_fouad0003 قام بنشر فبراير 14, 2019 قام بنشر فبراير 14, 2019 (معدل) بسم الله الرحمن الرحيم الاخوه الكرام اعضاء منتدنا الغالى ارجو من سيادتكم مساعدتى فى كود يمكنى من تصدير تقرير الفاتورة بصيغة pdf ويكون اسمه برقم الفاتورة وشكرا جزيل تم تعديل فبراير 14, 2019 بواسطه m_fouad0003
ابو ياسين المشولي قام بنشر فبراير 14, 2019 قام بنشر فبراير 14, 2019 (معدل) 46 دقائق مضت, m_fouad0003 said: بسم الله الرحمن الرحيم الاخوه الكرام اعضاء منتدنا الغالى ارجو من سيادتكم مساعدتى فى كود يمكنى من تصدير تقرير الفاتورة بصيغة pdf ويكون اسمه برقم الفاتورة وشكرا جزيل اهلا بك اخي m_fouad0003 في المنتدى اتفضل Dim RepName As String RepName = Me![ ضع هنا رقم الفاتورة] DoCmd.OutputTo acOutputReport, "اسم التقرير ضعه هنا", acFormatPDF, CurrentProject.path & "\" & RepName & ".PDF", False تم تعديل فبراير 14, 2019 بواسطه ابو ياسين المشولي 1 1
m_fouad0003 قام بنشر فبراير 14, 2019 الكاتب قام بنشر فبراير 14, 2019 شكرا جزيل اخى الكريم ابو ياسين هذا هو المطلوب بالظبط وجزاك الله خيرا
محمد التميمي قام بنشر فبراير 14, 2019 قام بنشر فبراير 14, 2019 3 ساعات مضت, ابو ياسين المشولي said: اهلا بك اخي m_fouad0003 في المنتدى اتفضل Dim RepName As String RepName = Me![ ضع هنا رقم الفاتورة] DoCmd.OutputTo acOutputReport, "اسم التقرير ضعه هنا", acFormatPDF, CurrentProject.path & "\" & RepName & ".PDF", False السلام عليكم استاذ ابو ياسين المحترم انا غيرت بالكد تغيير بسيط ولاكن لم افلح على امل ان يقوم بتصدير فاتورة من اختياري ولاكن قام بتصدير جمبع الفواتير لملف pdf واحد وحسب ما فهمت من الكد المكتوب نقوم بادخال رقم الفاتورة وانا اوريد اختيار اي فاتورة عشوائيا من خلال الضغظ على زو يقوم بتصديرها الى pdf ارجوا التصحيح وجزاكم الله خير الجزاء Dim RepName As String RepName = "[رقم الفاتورة]=" & Me![رقم الفاتورة] DoCmd.OutputTo acOutputReport, "وصل بيع", acFormatPDF, CurrentProject.Path & "\" & RepName & ".PDF", False
ابو ياسين المشولي قام بنشر فبراير 14, 2019 قام بنشر فبراير 14, 2019 طيب اخي محمد شوف الحقل اللي تسجل فيه رقم الفاتورة العشوائي بدل مي فاتورة او ارفع ملف مختصر
محمد التميمي قام بنشر فبراير 15, 2019 قام بنشر فبراير 15, 2019 15 ساعات مضت, ابو ياسين المشولي said: طيب اخي محمد شوف الحقل اللي تسجل فيه رقم الفاتورة العشوائي بدل مي فاتورة او ارفع ملف مختصر تفضل اخي ابو ياسين هذا الملف المرفق الكد الحالي يقوم بتصدير جميع الفواتير الى pdf والمراد تصدير فاتورة واحد فقط والشكر لك فاتورة.accdb
ابو ياسين المشولي قام بنشر فبراير 15, 2019 قام بنشر فبراير 15, 2019 2 ساعات مضت, محمد التميمي said: تفضل اخي ابو ياسين هذا الملف المرفق الكد الحالي يقوم بتصدير جميع الفواتير الى pdf والمراد تصدير فاتورة واحد فقط والشكر لك فاتورة.accdb اتفضل Dim RepName As String Dim stDocName As String RepName = Me![رقم الفاتورة] stLinkCriteria = "[رقم الفاتورة]=" & Me![رقم الفاتورة] stDocName = "وصل بيع" DoCmd.OpenReport stDocName, acViewPreview, , stLinkCriteria DoCmd.OutputTo acOutputReport, stDocName, acFormatPDF, CurrentProject.Path & "\" & RepName & ".PDF", False DoCmd.Close acReport, "وصل بيع"
محمد التميمي قام بنشر فبراير 15, 2019 قام بنشر فبراير 15, 2019 4 ساعات مضت, ابو ياسين المشولي said: اتفضل Dim RepName As String Dim stDocName As String RepName = Me![رقم الفاتورة] stLinkCriteria = "[رقم الفاتورة]=" & Me![رقم الفاتورة] stDocName = "وصل بيع" DoCmd.OpenReport stDocName, acViewPreview, , stLinkCriteria DoCmd.OutputTo acOutputReport, stDocName, acFormatPDF, CurrentProject.Path & "\" & RepName & ".PDF", False DoCmd.Close acReport, "وصل بيع" بارك الله فيك يا اخي واستاذي الكريم وجعله الله في ميزان حسناتك وجدت هذا الكد ادناه ايظاً في فديو انكليزي مع استعلام بسيط وقمت بترجمته وتطبيقه ونجح Dim FileName As String Dim FilePath As String FileName = Me.[اسم المشتري] & "رقم" & Me.رقم_الفاتورة FilePath = "C:\Users\Mxm\Desktop\" & FileName & ".pdf" 'DoCmd.OutputTo acOutputForm, "فاتورة البيع", acFormatPDF, FilePath DoCmd.OutputTo acOutputReport, "وصل بيع", acFormatPDF, FilePath MsgBox "تم حفظ التقرير بصيغة PDF بنجاح", vbInformation, "رسالة تنويه" مع فائق شكري واحترامي....
ابو ياسين المشولي قام بنشر فبراير 15, 2019 قام بنشر فبراير 15, 2019 (معدل) 32 دقائق مضت, محمد التميمي said: بارك الله فيك يا اخي واستاذي الكريم وجعله الله في ميزان حسناتك وجدت هذا الكد ادناه ايظاً في فديو انكليزي مع استعلام بسيط وقمت بترجمته وتطبيقه ونجح Dim FileName As String Dim FilePath As String FileName = Me.[اسم المشتري] & "رقم" & Me.رقم_الفاتورة FilePath = "C:\Users\Mxm\Desktop\" & FileName & ".pdf" 'DoCmd.OutputTo acOutputForm, "فاتورة البيع", acFormatPDF, FilePath DoCmd.OutputTo acOutputReport, "وصل بيع", acFormatPDF, FilePath MsgBox "تم حفظ التقرير بصيغة PDF بنجاح", vbInformation, "رسالة تنويه" مع فائق شكري واحترامي.... بالتوفيق اخي محمد التميمي ولكن هذا يطبع جميع الفواتير تم تعديل فبراير 15, 2019 بواسطه ابو ياسين المشولي
أواب قام بنشر فبراير 15, 2019 قام بنشر فبراير 15, 2019 أخي الكريم أنا أستخدم أوفيس 2003 استخدمت الكود وطلعت لي الرساله أنا محتاج جدا للموضوع
محمد التميمي قام بنشر فبراير 16, 2019 قام بنشر فبراير 16, 2019 10 ساعات مضت, أواب said: أخي الكريم أنا أستخدم أوفيس 2003 استخدمت الكود وطلعت لي الرساله أنا محتاج جدا للموضوع اخي ارسل ملف مرفق ليتم مساعدتك 11 ساعات مضت, ابو ياسين المشولي said: بالتوفيق اخي محمد التميمي ولكن هذا يطبع جميع الفواتير نعم اخي ابو ياسين ولاكن يعمل مع استعلام التقرير ( في رقم الفاتورة) [Forms]![فاتورة البيـع].[رقم الفاتورة]
رمهان قام بنشر فبراير 16, 2019 قام بنشر فبراير 16, 2019 12 ساعات مضت, أواب said: أخي الكريم أنا أستخدم أوفيس 2003 استخدمت الكود وطلعت لي الرساله أنا محتاج جدا للموضوع اكسس 2003 لايدعم الخيار اعلاه هنا مقارنة لخيارات اصدارات الاكسس https://www.fmsinc.com/microsoftaccess/history/features.htm بالتوفيق 1
محمد التميمي قام بنشر فبراير 16, 2019 قام بنشر فبراير 16, 2019 نعم فعلاً هذه الخاصية لا تعمل على اكسس 2003 اليكم الملف المرفق لمن يحتاج اليه اكسس 2013 يعمل بصورة جيدة بالتوفيق PDF تصدير التقرير بصيغة.accdb
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.