Khalid Jnb قام بنشر أكتوبر 6, 2018 مشاركة قام بنشر أكتوبر 6, 2018 السلام عليكم ارجوا منكم التعديل على كود حقظ التقرير PDF ليصبح:- 1- عند الضغط على زر حفظ التقرير ينشيء مجلد (Folder) بتاريخ اليوم 2- يكون بداخل المجلد (ملف pdf) بتاريخ اليوم ايضا وشكرا لكم test.accdb رابط هذا التعليق شارك More sharing options...
kanory قام بنشر أكتوبر 6, 2018 مشاركة قام بنشر أكتوبر 6, 2018 جرب هذا test (1).accdb 2 رابط هذا التعليق شارك More sharing options...
كريمو2 قام بنشر أكتوبر 6, 2018 مشاركة قام بنشر أكتوبر 6, 2018 لماذا عندما يحفظ التقرير بصغة pdf تتحول بعض الخطوط الى مربعات ؟ رابط هذا التعليق شارك More sharing options...
kanory قام بنشر أكتوبر 6, 2018 مشاركة قام بنشر أكتوبر 6, 2018 35 دقائق مضت, كريمو2 said: لماذا عندما يحفظ التقرير بصغة pdf تتحول بعض الخطوط الى مربعات ؟ هذه صورة من جهازي .... ليس هناك مشكلة .... ربما اشكالك في برنامج قاري الـ pdf لديك . 1 رابط هذا التعليق شارك More sharing options...
كريمو2 قام بنشر أكتوبر 6, 2018 مشاركة قام بنشر أكتوبر 6, 2018 ليس في هذا التقرير استاذ بل في تقرير أخر وخاصة عند الخط العربي Sultan medium وبالتحديد عند بعض الارقام رابط هذا التعليق شارك More sharing options...
kanory قام بنشر أكتوبر 6, 2018 مشاركة قام بنشر أكتوبر 6, 2018 صحيح أخي , بعض الخطوط العربية فيها مشاكل عند التحويل لـ pdf وكذلك عند ادراج المخططات والرسوم البيانية ... لذلك غير نوع الخط عن الحفظ تضبط معك. رابط هذا التعليق شارك More sharing options...
كريمو2 قام بنشر أكتوبر 6, 2018 مشاركة قام بنشر أكتوبر 6, 2018 غيرت استاذ وضبطت معي ولكن حبيت نعرف مالسر ؟ رابط هذا التعليق شارك More sharing options...
Khalid Jnb قام بنشر أكتوبر 6, 2018 الكاتب مشاركة قام بنشر أكتوبر 6, 2018 (معدل) استاذي العزيز اين اسم المجلد الذي وضعتة الرواتب / رواتب الموظفين هي هذه المشكله التي ابحث عن حل لها تم تعديل أكتوبر 6, 2018 بواسطه خالد سيسكو رابط هذا التعليق شارك More sharing options...
Shivan Rekany قام بنشر أكتوبر 6, 2018 مشاركة قام بنشر أكتوبر 6, 2018 5 ساعات مضت, خالد سيسكو said: 1- عند الضغط على زر حفظ التقرير ينشيء مجلد (Folder) بتاريخ اليوم 2- يكون بداخل المجلد (ملف pdf) بتاريخ اليوم ايضا تم الجواب على كل النقاط الاعلاه من قبل استاذ @kanory 8 دقائق مضت, خالد سيسكو said: اين اسم المجلد الذي وضعتة ويتم عمل الفولدر و التقرير في مجلد E وتقدر تتغيره الى اي مكان تريد 1 رابط هذا التعليق شارك More sharing options...
kanory قام بنشر أكتوبر 6, 2018 مشاركة قام بنشر أكتوبر 6, 2018 15 دقائق مضت, خالد سيسكو said: استاذي العزيز اين اسم المجلد الذي وضعتة الرواتب / رواتب الموظفين هي هذه المشكله التي ابحث عن حل لها هل جربت ملفى المرفق بالاعلا . كما ذكر الاخ @Shivan Rekany تمت الاجابه على جميع تساؤلاتك السابقة 2 1 رابط هذا التعليق شارك More sharing options...
Khalid Jnb قام بنشر أكتوبر 6, 2018 الكاتب مشاركة قام بنشر أكتوبر 6, 2018 (معدل) الاخوه الاعزاء زر الحفظ هو يعمل اصلا بصورة ممتازة ويحفظ الملف على شكل PDF في القسم E ويحمل تاريخ اليوم لكن انا اريد فقط ان يظهر تاريخ اليوم بجانب اسم المجلد (الفولدر ) عند انشاءه يعني الكود الاول (انشاء فولدر) الكود باللون الاخضر بالملف وشكرا لتعاونكم اعزائي test.accdb تم تعديل أكتوبر 6, 2018 بواسطه خالد سيسكو رابط هذا التعليق شارك More sharing options...
Shivan Rekany قام بنشر أكتوبر 6, 2018 مشاركة قام بنشر أكتوبر 6, 2018 12 دقائق مضت, خالد سيسكو said: لكن انا اريد فقط ان يظهر تاريخ اليوم بجانب اسم المجلد (الفولدر ) عند انشاءه يعني الكود الاول (انشاء فولدر) الكود باللون الاخضر بالملف تعرف ما هو الخطأ عندك القي نظرتا الى الكود Private Sub أمر26_Click() On Error GoTo ErrorHandler Dim fs, cf, strFolder strFolder = "E:\الرواتب" & Format(Now(), " dd-mm-yyyy ") ' اريد ان يظهر بجانب اسم المجلد تاريخ اليوم لكن هذا الكود لايعمل Set fs = CreateObject("Scripting.FileSystemObject") If fs.FolderExists(strFolder) = False Then Set cf = fs.CreateFolder(strFolder) End If Dim strReport As String Dim strFileName As String strReport = "report" strFileName = "E:\الرواتب\رواتب الموظفين" & Format(Now(), " dd-mm-yyyy ") & ".pdf" DoCmd.OutputTo acOutputReport, strReport, acFormatPDF, strFileName, False MsgBox " تم حفظ تقرير الرواتب " & Format(Now(), " dd-mm-yyyy "), vbInformation, " E - تم الحفظ في القسم" Exit Sub ErrorHandler: MsgBox "لم يتم حفظ التقرير رجاءا", 16, " تنبيه " End Sub القي نظرتا الى هذه الجملة فيه ليس هناك اي مشكلة و بيعمل لك الفولدر هكذا strFolder = "E:\الرواتب" & Format(Now(), " dd-mm-yyyy ") لكن حضرتك بيقول اعمل تقرير في هذا الفولدر strFileName = "E:\الرواتب\رواتب الموظفين" & Format(Now(), " dd-mm-yyyy ") & ".pdf" اي قرص اي في فولدر "E:\الرواتب\رواتب الموظفين" وليس هناك فولدر باسم رواتب الموظفين اي اذا يجب ان تعمل فولد رواتب الموظفين ايضا كما تعمل فولدر الرواتب او يجب ان تحذف رواتب الموظفين 1 رابط هذا التعليق شارك More sharing options...
Khalid Jnb قام بنشر أكتوبر 6, 2018 الكاتب مشاركة قام بنشر أكتوبر 6, 2018 شكرا لك استاذي العزيز تعبتك معي 1 رابط هذا التعليق شارك More sharing options...
ابو فتحى قام بنشر أكتوبر 7, 2018 مشاركة قام بنشر أكتوبر 7, 2018 السلام عليكم و رحمه الله و بركاته ممكن عمل هذه على نسخة 2003 رابط هذا التعليق شارك More sharing options...
Shivan Rekany قام بنشر أكتوبر 7, 2018 مشاركة قام بنشر أكتوبر 7, 2018 30 دقائق مضت, ابو فتحى said: ممكن عمل هذه على نسخة 2003 اتفضل test (1).mdb 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان