jjafferr

ممكن تعمله بشكل تلقائي : اعمل نسخة من البرنامج ، واجعل هذه النسخة لهذه التقارير فقط ، ولنسميه Export_pdf.accdb ، اعمل ماكرو بإسم Export_pdf ، وفيه يكون امر للتقرير انه يشغل تقرير تصدير ملفات pdf ، في التقرير اعمل امر لكي يقفل البرنامج (طبعا بعد ان يحفظ قيمة Start_X في الجدول) ، الآن اعمل برنامج آخر خارجي لا علاقة له ببرنامجك اعلاه ، واعمل نموذج بفتح لما يغمل البرنامج ، اعمل حدث عند تحميل النموذج ، وخلي فيه هذا الكود: dim i as integer for i = 1 to 10 shell_n_wait "C:\Program Files\Microsoft Office\OFFICE12\MSACCESS.EXE" "C:\xx\Export_pdf_files.accdb" /x Export_pdf , vbhidden next i docmd.quit الدالة shell_n_wait موجودة في البرنامج الموجود في اول مشاركة لي ، اما الرقم 10 فهي قيمة (LstG.ListCount - 1) جعفر

وعليكم السلام 🙂 ادخال البيانات يكون بهذا الترتيب ، الحقل ID في الجدول يعطي التسلسل الصحيح : . عليه ، هذه نتيجة ادخال البيانات: . ونتيجة Last صحيحة (لاحظ ان ID يحمل اكبر رقم) . مشكلتك انك عملت فرز بالتاريخ 🙂 جعفر

ومثل ما قال اخوي ابوخليل ، نريد مرفق وفيه بيانات (وبيانات حقيقية ، خصوصا اللي فيها مشاكل) ، واذا البرنامج كان يستعمل mdb فلوسمحت تغيّره الى accdb ، لأن به خاصية ستفيدك 🙂 جعفر

وعليكم السلام 🙂 طريقة العمل الصحيحة ان تعمل البرنامج بحجم اصغر شاشة (في اعتقادي شاشات اللابتوب هي الاصغر الآن ، اي 1366x768) . اذا كان قصدك ان يظل حجم ومكان الكائنات نفسه ولا يتغير بتغير حجم الشاشة: اختلاف التنسيق عند تكبير النموذج - قسم الأكسيس Access - أوفيسنا (officena.net) اما اذا اردت تكبير الكائنات بحسب حجم الشاشة: ملاءمة عناصر النموذج في وضع ملأ الشاشة - قسم الأكسيس Access - أوفيسنا (officena.net) جعفر

في المثال اعلاه ، تم اختيار جميع الحقول ، وتم اعطاء الجميع نفس التنسيق ، بينما تستطيع اعطاء كل حقل التنسيق الذي يناسبك 🙂 جعفر

عفوا ، كان المفروض اقول المشكلة في 2016 فأعلى 🙂 وهذا رابط الموضوع: Access 2016 accde "DoCmd.OutputTo acOutputReport, , - Microsoft Community فهل انزلت التحديث الذي اعطيتك رابطه؟ اذا ما بينفعك ، ما بيضرك ، فجربه 🙂 في تصوري ، الموضوع محصور في: 1. البرنامج/الكود ، وما شفنا شيء خاص في الكود اللي ممكن يكون السبب ، 2. الكمبيوتر ، نعم تقدر تستخدم وندوز 64بت واكثر من 4 جيجا رام ، بحيث يصبح للاكسس اكبر قدر من الرام (الاكسس لا يستفيد من الاوفيس 64بت) ، 3. خلل في الاكسس ، وهذا ما تمت الاشارة اليه !! الوقت مثل ما اخبرتك (اقرأ الرابط مال 8 صفحات اللي ارفقته لك ، فستجده مطابق لمشكلتك ، وحتى توقيف الوقت تم استخدامه) : اما اذا تريد تقسيم الطباعة ، فممكن تقسيمه الى: بدل For XG = 0 To LstG.ListCount - 1 For XC = 0 To LstC.ListCount - 1 For XS = 0 To LstS.ListCount - 1 استعمل For XG = Start_XG To LstG.ListCount - 1 For XC = Start_XC To LstC.ListCount - 1 For XS = Start_XS To LstS.ListCount - 1 جرب فقط في اول دوران: XG لأنها الاطول ، احفظ قيمة Start_XG في الجدول ، واعمل في نهاية الكود انه يعمل دورتين/ثلاث (هذا يعتمد على تجربتك) ، ثم يغلق البرنامج ، ثم لما تشغله من جديد كذلك يعمل دورتين/ثلاث ، ثم يغلق البرنامج ، وكل مرة Start_XG يكون فيه الرقم التالي (او اللي بعده) ، او اذا عندك اكثر من كمبيوتر ، فممكن عمل هذا بتوزيع العمل على اكثر من كمبيوتر ، وبنفس الطريقة اعلاه ، بحيث الجدول الذي تكون فيه قيمة Start_XG ، يكون مشارك في الشبكة. هل هذا الحل مثالي ، طبعا لا ، وارجع واقول ، جرب رابط التحديث قبل كل شيء 🙂 جعفر

اخي احمد 🙂 الكود لا يوجد به مشكلة ، فبدأت بالبحث في الانترنت 🙂 الظاهر ان هذه المشكلة موجودة في الاكسس 2016 ، وليس لها علاقة بكمية المواد في التقرير ، وانما بالوقت: - في بعض نسخ 2016 ، من الوقت الذي تفتح فيه البرنامج ، الى تصدير آخر تقرير الى pdf ، اذا وصل الوقت الى 8 دقائق ، يقفل عندك البرنامج !! - وفي نسخة الاكسس في الاوفيس 365 ، الوقت هو 80 دقيقة !! والحل ، يا تنصب اوفيس اقل من 2016 ، او تنصب التحديث من هنا: Description of the security update for Office 2016: June 13, 2017 (microsoft.com) جعفر

وعليكم السلام 🙂 رجاء تابع هذه المشاركة وخصوصا اسماء الحقول والتسميات ، ثم الكود في الاستعلام 🙂 جعفر

السلام عليكم 🙂 1. تم اضافة حقل الشعبة ، لكي نفرق به بين الصفوف ، وتم تغيير جميع الكلمات التي تحتوي على ( إ ) الى ( ا ) عادية ، حتى يسهل على المستخدم اختيار هذه المعلومة ، في الصف و المرحلة ، وانا انصحك ان تغيرها في الاسم كذلك ، حتى تكون بياناتك متطابقة. (صدقني ، انا شفت: عبدالاله ، عبد الاله ، عبدالإله ، عبد الإله ، وبهذه الطريقة لن تستطيع ان تبحث عن الطالب الذي تريده !!) . 2. محاولتك كانت ممتازة ، ولكني عملت بعض التعديلات ، وتغيير التشكيلة ، واضفت حقل التسلسل Class_Seq . 3. تغيير التشكيلة . 4. هذا الاستعلام سيصبح مصدر بيانات التقرير . 5. وبما ان التقرير لا يحترم ولا يقبل فرز الاستعلام ، فيجب ان نعمل الفرز في التقرير . والنتيجة . جعفر 1354.المدرسة (1).accdb.zip

وعليكم السلام 🙂 قد تستفيد من هذه الروابط : طريقة عمل وبرمجة برنامج بصمة الكترونية للحضور والانصراف الخاص بالموظفين - قسم الأكسيس Access - أوفيسنا (officena.net) مشكلة ماكينة حضور و إنصراف الموظفين - قسم الأكسيس Access - أوفيسنا (officena.net) احتساب الإجازات الساعية كأيام - قسم الأكسيس Access - أوفيسنا (officena.net) جعفر

يا سلام ، انا واخي السيد @husamwahab حلينا الموضوع ، وبدون مشاركة 🙂 يعني لو كان اسمي فقط ، كنتوا بتقولون: عماني وساحر 🙂 جعفر

وعليكم السلام 🙂 اعمل جدول خاص فيه اسماء الصفوف ، وحقل تسلسل بترتيبهم هكذا : kg1 1 kg2 2 3 الاول ثم اعمل استعلام ، اربط فيه هذا الجدول بالجدول الموجود عندك ، الربط يكون باسم الصف ، وفي الاستعلام تُنزل حقل تسلسل الصف ، وفي التقرير ، تجعل الفرز برقم التسلسل (بدلا ان الصف الذي عملته انت) 🙂 جعفر

وعليكم السلام 🙂 اول خطوة تعملها هو تصفية برنامجك من الشوائب ، عن طريق . واذا لازالت المشكلة مستمرة ، فنريد يا المرفق ، ويا الكود كاملا للتقرير (الكود اعلاه يصدر ملف pdf مرة واحدة ، بينما انت تقول انك تصدره عدة مرات) . جعفر

هل قصدك كلمات مرور VBA وليس البرنامج !!

وعليكم السلام : محتاجين تفصيل اكثر لوسمحت 🙂 جعفر

اخوي ابو حسان ، احنا نحاول ان نساعدك تتعلم ، فرجاء ساعدنا علشان نساعدك !! ارفق اللي عملته علشان تتعلم ونخبرك وين الخطأ في عملك. واخبرنا الخطوات علشان نحصل على اللي انت حصلت عليه

وعليكم السلام 🙂 رجاء مراعاة كتابة العنوان الصحيح في المرات القادمة 🙂 يجب تضبيط اعدادات الكمبيوتر ، هكذا جعفر

تفضل DATA14.mdb

الله الله يا ابوخليل ، صحيح انك اخونا العود ، وما ادري من وين تجيب هالعبارات الجميلة (كان زين لو كنا نعرف بعض من ايام الشباب، كنت بأستفيد من كلماتك لأمور خاصة 😁) 🙂 كلامك في محله ، ولكني لما حولت برنامج اخونا ابو حسان من الاكسل الى الاكسس ، حاولت مراعاة اصول قواعد البيانات ، ولكني لم اعرف جميع تفاصيل برنامجه ، فعملته على قدر المعلومات المتوفرة 🙂 ولكن ، لو كنت اعلم في ذلك الوقت ما اعلمه اليوم ، لكان هناك تغييرات في برنامجه 🙂 افتح الاستعلام الموجود في الصورة في وضع التصميم ، اذهب الى حقل فارغ ، ثم انسخ الكود الذي وضعته لك ، واكتب باقي الاشياء هناك ، فيصبح الحقل كما في الصورة. جعفر

بالنسبة للدالة ، فرجاء التأكد بأنها كما يلي ، بينما الدالة التي عرضتها في مشاركتك اعلاه (غير صحيحة) ، والموجودة في مرفقك (تم تغييرها الى) : Public Function PN_All(N As Double) As Double 'PN_All : Positive, Negative, All 'N = iAmount Dim frm_Option As String frm_Option = Forms!frm_Main!srch_All_PN If frm_Option = "All" Then PN_All = N ElseIf frm_Option = "Positive" And N > 0 Then PN_All = N ElseIf frm_Option = "Negative" And N < 0 Then PN_All = N End If End Function . الموضوع ماله علاقة بالدالة ، انت تريد عمل تصفية للسجلات ، لهذا السبب ، تم اضافة جقل الاستعلام ليقوم بهبه المهمة : . IIf([Forms]![frm_Main]![srch_All_PN]="Positive",[iAmount]>0,IIf([Forms]![frm_Main]![srch_All_PN]="Negative",[iAmount]<0,[iAmount])) . وما اقدر ارفع برنامجك ، لأني لما اعمل على برنامج وفيه اخفاء الاكسس وصلاحيات زنماذج منبثقة ، فانا اغير جميع هذه الاعدادات حتى اقدر اني اشتغل على كيفي 🙂 جعفر

انزلت المرفق ولكن لم احصل على جواب !! انت قلت: البرنامج لا يسمح ان نختار من 1 او 2 ، فرجاء تخبرنا كيف ممكن نختار منهم !!

في الدالة PN_All لم نذكر كيفية التعامل مع القيمة صفر ، وحتى اذا كتبناها ، ففي التقرير لما نجمع ، بنحصل على اصفار !! الطريقة التالية تعطيك كل الارقام ، ولكن لما تحصل على صفر ، فهي تخفية ، لجميع الحالات All و Positive و Negative . وهذا مجرد تنسيق ، من اليسار الى اليمين: القيمة الموجبة ، القيمة السالبة ، القيمة صفر ، القيمة Null : #;\-#;"";""

عفوا ، قصدي اختار قيمة معينه من النموذج واعطنا خطوات العمل ، حتى نقدر نعملها نحن كذلك . تقدر ترفعه على احد مواقع الرفع ، ثم تعطينا الرابط هنا

اختار Top Left ، اما الباقين فهي لأمور اخرى ، انظر : جعل برنامجك يتحجم تبعاً لاختلاف الشاشات - responsive design - قسم الأكسيس Access - أوفيسنا (officena.net) جعفر