AhmedEmam قام بنشر أبريل 28, 2019 قام بنشر أبريل 28, 2019 السلام عليكم الساده الاعضاء تحية طيبه وبعد اريد عمل تصدير لجدول اكسس الى اكسل بواسطة الضغط على زرار وانا عندى الكود فى القاعدة ولكن مشكلة الكود انه بيحدث على الشيت نفسه انا عايز لما ادوس على الزرار فى كل مرة يصدر الى اكسل برقم شيت مختلف يعنى مثلا New Microsoft Excel Worksheet1 New Microsoft Excel Worksheet2 مرفق المثال ولكم جزيل الشكر..... test.accdb
AhmedEmam قام بنشر أبريل 28, 2019 الكاتب قام بنشر أبريل 28, 2019 (معدل) الف شكر لاهتمام حضرتك ولكن انا عايز كود مختصر على زرار مثل اللى انا بعته لان اليوزر هوا اللى هيصدر البيانات وهوا مش مطالب انو يعرف اسماء الجداول ومش هيفهم كده انا حضرتك عامل برنامج واليوزر عايز يستخرج بيانات بطريقه مختلفه فانا مجرد لما يفتح الشاشه الخاصه بالتقارير هيبقى عنده اختيار التصدير او الطباعه على نفس الشكل وشكرا تم تعديل أبريل 28, 2019 بواسطه AhmedEmam نسيت بيانات
صالح حمادي قام بنشر أبريل 28, 2019 قام بنشر أبريل 28, 2019 السلام عليكم ضع هذا الكود مكان الكود السابق خلف زر الأمر Dim curPath As String Dim i As Integer curPath = CurrentProject.Path & "\REPORT_SALES.xlsx" Do Until Dir(curPath) = "" i = i + 1 curPath = CurrentProject.Path & "\REPORT_SALES" & i & ".xlsx" Loop DoCmd.OutputTo acOutputTable, "REPORT_SALES", acFormatXLSX, curPath, 0 1 1
essam rabea قام بنشر أبريل 28, 2019 قام بنشر أبريل 28, 2019 4 ساعات مضت, jjafferr said: هذا الرابط قد يفيدك إيه ده يا راجل .. ايه الإبداع ده .. بارك الله فيك ونفع بك بعد إذنك أنا لم أستطع أن أعدل فى الكود حتى يتلائم مع ما طلب أ/AhmedEmam (بكل صراحة إستخصرت أحذف منه شيئ لروعته) ولكن أخفيت بعض الكائنات حتى يتلائم مع ما طلبه. وأعتذر عن ذلك إن قبلت وإلا فاحذف المرفق .. شكرا لك مرة أخرى. تحياتى test (1).zip 1 1
jjafferr قام بنشر أبريل 28, 2019 قام بنشر أبريل 28, 2019 20 دقائق مضت, essam rabea said: بكل صراحة إستخصرت أحذف منه شيئ في الواقع عملت على النسخة التالية من برنامج الرابط ، بعدة اضافات ، والاهم ، انك تقدر تنادي الوحدة النمطية اللي تقوم بالعمل ، وترسل لها البيانات ، بسطر واحد ، وهي تقوم بباقي العمل 🙂 جعفر 1
AhmedEmam قام بنشر أبريل 28, 2019 الكاتب قام بنشر أبريل 28, 2019 الف الف شكر لكل الاعضاء اللي اسعدني اهتمامهم بالرد على سؤالي كده تمام الله ينور
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.