tharwt قام بنشر يوليو 15, 2023 مشاركة قام بنشر يوليو 15, 2023 (معدل) كود لحفظ تقرير عند فتحه للطباعه يحفظ تلقائى داخل ملف بجوار قاعدة البيانات ثم يفتحه للمعاينه تم تعديل يوليو 15, 2023 بواسطه tharwt رابط هذا التعليق شارك More sharing options...
ابو البشر قام بنشر يوليو 16, 2023 مشاركة قام بنشر يوليو 16, 2023 ممكن مثال او توضيح اكثر لان موضوع تحويل التقرير ... هناك العديد من المواضيع في المنتدى تتحدث عن تصدير التقرير الى صيغة pdf .. رابط هذا التعليق شارك More sharing options...
دروب مبرمج قام بنشر يوليو 16, 2023 مشاركة قام بنشر يوليو 16, 2023 تفضل استخدم الكود التالي Dim SetRep As Variant, SetRepNew As Variant SetRep = "Report1" ' اسم التقرير SetRepNew = CurrentProject.Path & "\" & "Reoprt1" & ".pdf" ' اسم و مكان حفظ ملف DoCmd.OutputTo acOutputReport, SetRep, "PDFFormat(*.pdf)", SetRepNew, True رابط هذا التعليق شارك More sharing options...
tharwt قام بنشر يوليو 16, 2023 الكاتب مشاركة قام بنشر يوليو 16, 2023 (معدل) اشكر مجهودكم ولكن المطلوب ان يفتح التقرير ثم يحفظ تلقائى داخل فولدر بجوار قاعدة البيانات وياخد اسمه من حقل فى التقرير نفسه وليكن (ID) اسف على عدم الايضاح فى التعليقات السابقه تم تعديل يوليو 16, 2023 بواسطه tharwt رابط هذا التعليق شارك More sharing options...
tharwt قام بنشر يوليو 17, 2023 الكاتب مشاركة قام بنشر يوليو 17, 2023 هل هذا الامر صعب على الخبراء ( فتح التقرير ثم يحفظ تلقائى داخل فولدر بجوار قاعدة البيانات وياخد اسمه من حقل فى التقرير نفسه وليكن (ID) ) رابط هذا التعليق شارك More sharing options...
دروب مبرمج قام بنشر يوليو 17, 2023 مشاركة قام بنشر يوليو 17, 2023 تفضل Dim SetRep As Variant, SetRepNew As Variant SetRep = "ضع اسم التقرير هنا" SetRepNew = CurrentProject.Path & "\" & [ID] & ".pdf" DoCmd.OpenReport SetRep, acViewPreview DoCmd.OutputTo acOutputReport, SetRep, "PDFFormat(*.pdf)", SetRepNew, True 3 رابط هذا التعليق شارك More sharing options...
tharwt قام بنشر يوليو 20, 2023 الكاتب مشاركة قام بنشر يوليو 20, 2023 ( فتح التقرير ثم يحفظ تلقائى داخل فولدر والذى اسمه Backup بجوار قاعدة البيانات وياخد اسمه " اى التقرير" من حقل فى التقرير نفسه وليكن (ID) ) مرفق صور للتوضيح واشكر استجابتكم والله الموفق رابط هذا التعليق شارك More sharing options...
د.كاف يار قام بنشر يوليو 20, 2023 مشاركة قام بنشر يوليو 20, 2023 عدل هذا السطر CurrentProject.Path & "\ضــع هـــنــــــام اســــم الــفــولـــدر\" & [ID] & ".pdf" رابط هذا التعليق شارك More sharing options...
أفضل إجابة tharwt قام بنشر يوليو 20, 2023 الكاتب أفضل إجابة مشاركة قام بنشر يوليو 20, 2023 شكرا اخونا العزيز دى . كاف . يار تمام هو المطلوب بس انا عملت نفس الكلام بس لم اضع \ فى نهايه الاسم لك الشكر رابط هذا التعليق شارك More sharing options...
dr_bioman قام بنشر يوليو 20, 2023 مشاركة قام بنشر يوليو 20, 2023 السلام عليكم مادا لو اردنا ان يتم عمل فولدر تلقاءى باسم الحقل ID داخل الفولدر backup بحيث يتم حفظ ملف ال PDF داخل فولدلID رابط هذا التعليق شارك More sharing options...
شايب قام بنشر يوليو 20, 2023 مشاركة قام بنشر يوليو 20, 2023 4 ساعات مضت, dr_bioman said: مادا لو اردنا ان يتم عمل فولدر تلقاءى باسم الحقل ID داخل الفولدر backup الفكرة في انشاء وحذف المجلدات في vba مشابهه لاوامر cmd ولكوني غير متخصص فقط سوف اشير الى طريقة انشاء وحذفة المجلد في vba واترك الامر للاساتذه والخبراء صيغة انشاء مجلد MkDir CurrentProject.Path & "\ااسم المجلد\" لحذف المجلد RmDir CurrentProject.Path & "\اسم المجلد\" ويمكن تسمية المجلد من خلال تسمية مباشرة او من خلال حقل في النموذج او اسناد التسمية الى متغير وهكذا ويمكن التأكد من وجود المجلد قبل تنفيذ الامر من خلال If Len(Dir(CurrentProject.Path & "\اسم المجلد\", vbDirectory)) = 0 Then وبناء على النتيجة تنفذ الامر الذي تريده وهنا يتوقف الاخ شايب 🌹 1 رابط هذا التعليق شارك More sharing options...
دروب مبرمج قام بنشر يوليو 20, 2023 مشاركة قام بنشر يوليو 20, 2023 مشاركة مع الاخوة في حال عدم وجود مجلد بإسم ID سيتم انشاء مجلد بإسم ID Dim fso As Object Dim fldrname As String Dim fldrpath As String Set fso = CreateObject("scripting.filesystemobject") fldrpath = CurrentProject.Path & "\Backup\" & [ID] If Not fso.FolderExists(fldrpath) Then fso.createfolder (fldrpath) End If رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان