علي المصري قام بنشر أغسطس 3, 2012 مشاركة قام بنشر أغسطس 3, 2012 (معدل) السلام عليكم ورحة الله وبركاته المرفق به نموذج به عدد 2 زر أمر ToExcel ToExcel2 الأول يقوم بتصدير الجدول إلى ملف اكسيل مباشرة بدون ان يعطى اي تنبية ( أة أن تظهر مربع حوار لكي أختار المكان الذب اريد الحفظ فيه ) اما الثاني فععند الضغط يظهر مربع حوار يتختر منه نوع الملف هل هو اكسيل 2000 - 2003 أو تكست او Pdf أو أتش تي ام ال ولكن اريد ان اعل بالزر الول لانه من خلاله استطيع الحفظ بالتنسيقات 2010 أو 2007 أو 2003 ....ولكن اريد التعديل عليه بحيث يتعال مع التقارير ولس الجداول مثل الزر الثاني ToExce2 المرفق به مجموعة من النماذج لادراج ساعة أو تاريخ أو نص متحرك DB123.rar تم تعديل أغسطس 3, 2012 بواسطه علي المصري رابط هذا التعليق شارك More sharing options...
علي المصري قام بنشر أغسطس 7, 2012 الكاتب مشاركة قام بنشر أغسطس 7, 2012 السلام عليكم ورحمة الله وبركاته الاخوة الكرام هل من أحد يرد عليا رابط هذا التعليق شارك More sharing options...
علي المصري قام بنشر أغسطس 7, 2012 الكاتب مشاركة قام بنشر أغسطس 7, 2012 الاخوة الكرام الكود التالي يسمح بحفظ الجدول او التقرير أو الاستعلام إلى ملف اكسيل On Error GoTo Err_ToExcel_Click Dim stDocName As String Dim theFilePath As String stDocName = "AliElbasry" 'DoCmd.OpenQuery stDocName theFilePath = Application.CurrentProject.Path theFilePath = theFilePath & stDocName & "" DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12, stDocName, theFilePath, True Exit_ToExcel_Click: Exit Sub Err_ToExcel_Click: MsgBox "Error" Resume Exit_ToExcel_Click End Sub ولكن الكود على حسب المسار المعطى له Application.CurrentProject.Path يقوم بحفظ ملف الاكسيل في نفس مكان قاعدة البيانات يعني اذا كان ملف قاعدة البيانات على سطح المكتب يتم الحفظ على سطح المكتب وخارج المجلد الذي به قاعدة البيانات نريد انه عند الضغط على الزر يظهر مربع حواري نستطيع من خلاله تحديد المكان المراد حفظ الملف فيه أو تعديل بحيث يتم الحفظ مباشرة داخل المجلد الذي يحوي القاعدةة رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر أغسطس 7, 2012 مشاركة قام بنشر أغسطس 7, 2012 تم دمج الموضوعين والتعديل على الملف المرفق حسب الطلب DB1.rar 3 رابط هذا التعليق شارك More sharing options...
علي المصري قام بنشر أغسطس 7, 2012 الكاتب مشاركة قام بنشر أغسطس 7, 2012 شكرا اخي ابو خليل هل يمكن استخدام DoCmd.OutputTo مع الجداول أم هي قاصرة على التقارير حيث أن DoCmd.TransferSpreadsheet يمكن استخدامها مع الكل أرجو التوضيح ولكم جزيل الشكر رابط هذا التعليق شارك More sharing options...
علي المصري قام بنشر أغسطس 7, 2012 الكاتب مشاركة قام بنشر أغسطس 7, 2012 السلام عليكم ورحمة الله وبركاته بعد التجربة توصلت إلى الآتي : الكود يعمل على الجداول في حالة اوفيس 2003 كالتالي : Private Sub ToExcel_Click() DoCmd.OutputTo acOutputTable, "MainTable", "MicrosoftExcelBiff8(*.xls)", "", False Beep MsgBox "xls has been created", vbInformation, "Export xls" End Sub الكود يعمل على اوفيس 2010 كالتالي 'Function getFilName() As String Private Sub ToExcel_Click() DoCmd.OutputTo acOutputTable, "MainTable", "ExcelWorkbook(*.xlsx)", "", False, "", , acExportQualityPrint 'xlxs تنسيق ملف اكسيل 2010 Beep MsgBox "xlsx has been created", vbInformation, "Export xlsx" End Sub حيث في الاخير يمكن تغيير الامتداد من xlsx ( تنسيق اوفيس 2007 وما بعده ) إلى xls ( تنسيق افيس 2003 وما قبله ) كما انني اشكركم لما قدمتوه لي من نصائح وتوجيهات حيث انني أتتممت البرنامج الذي اعمل عليه ( صيفنا مميز ) ولكني انهيته على أوفيس 2010 لما فيه من أشكال جماليه حين الانتهاء سوف ارفعه لكم لأنه أول مشروع لي وأريد ان آخذ برأيكم وكني سوف ارفعه اكسيس 2010 لانه كلما اردت تحويله تظهر رسالة تفيد ان هناك تنسيقات تحتاج إلى اوفيس 2010 شكرا لكم وان شاء الله سوف ابدأ ببرنامج جديد وهو خاص بعملي كمدرس رياضيات وهو برنامج خاص برصد الدرجات وطباعة شهادات وإخطار لولي الأمر كما اتمنى ان يكون قادرا على عمل احصائية عن الطلاب بالتقديرات ( ممتاز ( A) ، جيد جدا ( B) ، جيد (C ) ، مقبول (D) ، متوسط (E) ، ضعيف (F) ، ضعيف جدا (G) ) 1 رابط هذا التعليق شارك More sharing options...
خليفة جاويش قام بنشر سبتمبر 21, 2012 مشاركة قام بنشر سبتمبر 21, 2012 السلام عليكم سأرفق لك تجربتي فى التصدير طبقا لشرحك بس مش شغالة برجاء الافادة وجزاك الله خيرا رابط هذا التعليق شارك More sharing options...
أبو آدم قام بنشر سبتمبر 22, 2012 مشاركة قام بنشر سبتمبر 22, 2012 بانتظار التطبيقات لعموم الفائدة ....!!! ............... رابط هذا التعليق شارك More sharing options...
علي المصري قام بنشر أكتوبر 26, 2012 الكاتب مشاركة قام بنشر أكتوبر 26, 2012 هذه قاعدة البيانات بها تصدير للاكسيل 2010 ، 2003 افتح القاعدة قم بتمكين الماكرو اختر اسم مستخد ستكون له كلمة السر نفس اسم المستخدم الذي اخترته المستخدم باسم ali له كل الصلاحيات اما Ahmed له بعض الصلاحيات قاعدة البيانات هذه تمت بمساعدة الاخواة الافاضل في المنتدى الكريم TheFinal.rar 2 رابط هذا التعليق شارك More sharing options...
alashqar قام بنشر يناير 9, 2013 مشاركة قام بنشر يناير 9, 2013 البرنامج TheFinal.rar 830.5K 41 عدد مرات التحميل كلمة المرور في الصفحة الرئيسية معروفه كما هو موضح بالأعلي لكن الكود ( الحدث ) الموجود في النماذج لا يمكن رؤيته ويوجد كلمة مرور لرؤيته ارجوا أعطائي اياه ولكم الشكر رابط هذا التعليق شارك More sharing options...
عبدالرازق زكى قام بنشر يوليو 5, 2015 مشاركة قام بنشر يوليو 5, 2015 بارك الله فيكم كنت احتاج هذا الموضوع رابط هذا التعليق شارك More sharing options...
al_ashrf قام بنشر مارس 31, 2017 مشاركة قام بنشر مارس 31, 2017 في 1/9/2013 at 00:08, alashqar said: بجد الله ينور عليك رابط هذا التعليق شارك More sharing options...
القبطي قام بنشر أكتوبر 27, 2018 مشاركة قام بنشر أكتوبر 27, 2018 جزاكم الله خيرا رابط هذا التعليق شارك More sharing options...
Khalid Jnb قام بنشر مارس 30, 2019 مشاركة قام بنشر مارس 30, 2019 السلام عليكم هل ممكن كلمة المرور الخاصة بالكود مع التقدير رابط هذا التعليق شارك 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.