samiali4 قام بنشر نوفمبر 27, 2018 مشاركة قام بنشر نوفمبر 27, 2018 انشت نموذج وحدد ككود لتصديره بصيغة pdf ولكن اريد ان يتم التحكم بحجم الملف المخرج بحيث لا يتعدى حجمه 300 كيلوبايت ارجو الافادة رابط هذا التعليق شارك More sharing options...
Yasser M mohamed قام بنشر نوفمبر 28, 2018 مشاركة قام بنشر نوفمبر 28, 2018 up رابط هذا التعليق شارك More sharing options...
samiali2013 قام بنشر نوفمبر 28, 2018 مشاركة قام بنشر نوفمبر 28, 2018 اين خبراء الأكسيس !!! رابط هذا التعليق شارك More sharing options...
ابو عارف قام بنشر نوفمبر 29, 2018 مشاركة قام بنشر نوفمبر 29, 2018 اخي موضوعك مكررة راجع موضو عك السابقة او جرب هذالكود ستجد ملف pdf في نفس مسار البرنامج file1 = CurrentProject.Path & "\Dlt.pdf" DoCmd.OutputTo acOutputForm, "FRM", acFormatPDF, file1 fileSz = FileLen(file1) / 1024 If fileSz > 300 Then If MsgBox("عفواً... لقد تجاوز حجم الملف من حد مسموح للمتابعة اضغط موافق و للالغاء اضغط الغاء", vbYesNo) = vbNo Then Kill file1 Exit Sub End If End If MsgBox "تم تصدير الملف بنجاح" 1 رابط هذا التعليق شارك More sharing options...
samiali4 قام بنشر نوفمبر 29, 2018 الكاتب مشاركة قام بنشر نوفمبر 29, 2018 7 ساعات مضت, ابو عارف said: اخي موضوعك مكررة راجع موضو عك السابقة او جرب هذالكود ستجد ملف pdf في نفس مسار البرنامج file1 = CurrentProject.Path & "\Dlt.pdf" DoCmd.OutputTo acOutputForm, "FRM", acFormatPDF, file1 fileSz = FileLen(file1) / 1024 If fileSz > 300 Then If MsgBox("عفواً... لقد تجاوز حجم الملف من حد مسموح للمتابعة اضغط موافق و للالغاء اضغط الغاء", vbYesNo) = vbNo Then Kill file1 Exit Sub End If End If MsgBox "تم تصدير الملف بنجاح" شكرا على استجابتك لكن هذا الكود يرفض الحفظ اذا كان حجم الملف اكبر من 300 كيلوبايت وليس هذا ما قصدته انا أريده ان يحفظ الملف ويقلل حجمه او دقته بحيث لا يزيد حجمه عن 300 كيلو بايت لاني احتاج لرفعه بعد ذلك على موقع لا يقبل الملفات التي يزيد حجمها عن 300 كيلوبايت رابط هذا التعليق شارك More sharing options...
samiali4 قام بنشر نوفمبر 29, 2018 الكاتب مشاركة قام بنشر نوفمبر 29, 2018 ليه ما فيه رد ؟؟؟!! رابط هذا التعليق شارك More sharing options...
samiali4 قام بنشر ديسمبر 2, 2018 الكاتب مشاركة قام بنشر ديسمبر 2, 2018 ليه ما فيه رد ؟؟؟!! up رابط هذا التعليق شارك 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.