jjafferr

السلام عليكم 🙂 وخلال جولتي التفقدية للجديد عن الاكسس ، ممرت بهذا الرابط الذي يعطينا معلومات حقيقية عن واقع استعمال المحترفين العالميين اي نسخة من الاكسس https://www.accessforever.org/post/which-access-versions-do-developers-use وبإختصار . . جعفر

هذه اول مرة اسمع ببرنامج يُرجع النماذج والتقارير والكود ، وكله يعمل تمام !!

انا وضعت شرح في مشاركتي السابقة ، فرجاء ترجع لي بشرح اكثر وامثلة اضافيه عن طلبك الثاني

بالعكس ، هذا موضع استعمال الاستعلام مباشرة ، وليس استعماله من الكود 🙂 ثانيا: اضف Not الى الكود ، هكذا IIf(Not IsNumeric(Left([Nass],1)),-1,Null) . اذا اول حرف من اليسار (يعني من بداية الجملة) رقم IsNumeric ، اذن اكتب لي -1 ، وإلا اجعل الحقل Null. اضافة الامر Not معناه اذا اول حرف لم يكن رقم. . ثالثا: جرب هاي IIf(InStr(10,[Nass],Chr(10)),-1,Null) . لاحظت انك لما تكتب الجملة ، فكلامك مستمر ، الى ان توصل الى نهاية الجملة وتتوقف. بينما لما تريد اضافة رقم ، فانت تنتقل الى سطر جديد (رمز التعرف على انك ضغطت على زر Enter على لوحة المفاتيح هو Chr(10) ) ابدا البحث في الجملة عن هذا الرمز ابتدأً من الحرف رقم 10 (اعطيتك مجال اذا الارقام عندك وصلت الى 10 خانات 😁) ، . فيصبح الاستعلام: UPDATE book SET book.check_Page = IIf(Not IsNumeric(Left([Nass],1)),-1,Null), book.check_No = IIf(InStr(10,[Nass],Chr(10)),-1,Null); . . جعفر

السلام عليكم 🙂 ولو يبدو ان مشاركتي دعاية لي 😁 لقواعد البيانات المعطوبة ، استعمل هذا البرنامج : . والبرنامج الذي لا استغنى عنه ، واستعمله عدة مرات في اليوم ، وعلى اي كمبيوتر اشتغل عليه ، فبالاضافة الى عمله في اصلاح بعض البرامج ، واخبارك اذا الاكسس شايف فيه مشكلة في الكود او لم تُعرّف متغير في الكود ، فهو يقوم بعمل نسخة احتياطية : . هذه صورة من جزء من المجلد اللي يحفظ البرنامج فيه النسخ ، ولاحظ عدد النسخ من البرنامج ، وفارق التوقيت بين كل نسخة ، فانا استخدم البرنامج كلما عملت تغيير/اضافة اساسية في برنامجي : . وبهذه الطريقة دائما تقدر ترجع للنسخة السابقة (قلت لك دعاية 🙂) جعفر

السلام عليكم 🙂 لأني مستعجل فما اقدر اعطيك تفاصيل ، اليك هذا استعلام التحديث : UPDATE book SET book.check_Page = IIf(IsNumeric(Left([Nass],1)),-1,Null), book.check_No = IIf(IsNumeric(Left([Nass],1)) And InStr(10,[Nass],Chr(10)),"-1",Null); . اعمل استعلام جديد ، لا تختار اي جدول او استعلام ، انقر بالفأرة اليمين واختار اول اختيار SQL view ، ثم الصق الكود فيه ، وشغل الاستعلام 🙂 جعفر

السلام عليكم 🙂 مسمى نوع حقل DataType الجدول يختلف عن ذلك في الكود ، فكما في الجدول ، نوع DatType النص هو Text (او Short Text للاكسس 2013 فما فوق) ، ففي الكود فيتم تعريفه بـ Dim myText as String ، نفس الشيء بالنسبة للارقام الكبيرة ، في الجدول يسمى Large Number ، وفي الكود LongLong : 1. https://support.microsoft.com/en-us/office/data-types-for-access-desktop-databases-df2b83ba-cef6-436d-b679-3418f622e482 . https://support.microsoft.com/en-us/office/using-the-large-number-data-type-5b623f6e-641d-4e97-8bdf-b77bae076f70 . https://learn.microsoft.com/en-us/office/vba/Language/Reference/User-Interface-Help/longlong-data-type . رجاء قراءة الموضوع التالي ، حيث شرحت فيه بعض هذه الدوال للنواتين: الكثير من دوال Api ستعمل اذا اضفنا PtrSafe في سطر مناداة الدالة ، ولا نحتاج الى تغيير Long الى LongPtr ، ويمكنك قراءة بعض هذه الدوال من السطر التالي في الموضوع اعلاه : . والآن الى الرابط التالي: . فمنه نرى انه لا يوجد قانون ثابت في تغيير جميع دوال/متغيرات Long الى LongPtr ، فبعض الاحيان نحتاج الى تغيير نوع الدالة ، وبعض الاوقات نحتاج الى تغيير نوع المتغير في الدالة ، وبعض الاحيان نحتاج الى تغيير الاثنين معاً 🙂 جعفر

هل تقصد الميزان الالكتروني للسيارات ؟ او الميزان الالكتروني لمحلات بيع الخضار والفواكه ؟

السلام عليكم 🙂 على قدر السؤال تأتي الاجابة 🙂 هل تريد التقرير هكذا: . . . جعفر 1538.Two_Column_Report.accdb.zip

السلام عليكم اخي tiger wanted 🙂 اجعل البحث في الموقع صديقك ، فهناك ما لذ وطاب 🙂 تفضل ، هذه نتائج البحث في قسم الاكسس عن ميزان الكتروني 🙂 جعفر

السلام عليكم 🙂 اعتقد السؤال الاصح هو: الاكسس الافضل اليوم 🙂 في هذا الرابط تم نقاش معظم النقاط في موضوعك ، وفيه رابط آخر لتكملة النقاش : . وختاما ، هذا ما قاله اخي خالد @مبرمج متقاعد : . في كمبيوتري الجديد اتمنى ان يكون آخر اصدار الوندوز بنواة 64بت ، والاوفيس Microsoft 365 نواة 64بت 🙂 اذا لم تستعمل الازرار والاشكال الجديدة في النسخة الحديثة من الوندوز الاكسس ، فأعتقد بإمكان برنامجك العمل على معظم نسخ accdb 🙂 جعفر

اخي الفاضل @kkhalifa1960 ، شكرا على الهدية 🙂 جعفر

عملت تعديل اخير ، ورفعته مكان المشاركة الاولى 🙂 مع ان جوابي هو ما ممكن ، ولكن اخونا العود @ابوخليل نصحني بعدم استعمال هذه العبارة ، فيمكن يجي مبرمج اشطر مني ، ويعطينا الحل 🙂 ممكن هنا اطلب من اخوي موسى @Moosak ان يحاول بلعبته الجديدة : اداة بحث ثورية ان يجد لنا الحل هناك 🙂 جعفر

اما السؤال عن فائدة استخدام ملف pdf في المقارنة ، فلاحظت الخطوط في هذا التقرير ، اللي عليها الاسهم سميكة ، وما المفروض ان يصير هذا الشيء . ولكن لما صدرته الى ملف pdf وفتحته ، اتضح ان تقرير الاكسس لم يعطيني رؤية صحيحة للخطوط !! . جعفر

ما اعتقد له علاقة بالطابعة ، فأنا طابعتي هو طابعة pdf افتراضية !! بالنسبة لتجاربي ، فكانت بعكس طلبك ، يعني ما لاحقت سبب سمك التقرير ، وانما جعلت سمك التقرير ذو الخطوط الانحف يساوي نفس سمك التقرير الآخر. ولكني لاحقا حاولت معرفة سبب البرواز السميك ، ولم استطع ، بالرغم اني عملت تغيير للكثير من الاعدادات !!

انا جربت قبل ان اضع مشاركتي السابقة ، فللتقريرين كان BW=10 وللعلم ، فالامر BorderStyle = 0 يشمل البراوييز الداخليه (مكان Hide Duplicates) ، ولا يشمل البرواز الذي تناديه من Detail_Print ، لأنك لم تكتبه هناك ايضا !! جرب الكلام اللي اخبرتك في مشاركتي الاولى ، وشوف النتائج

بكلام آخر ، انظر الى البروازين (تكبير بنسبة 1600% بعد تصديرهم الى ملف pdf) ، الخارجي للتقرير rptReport1 ، والداخلي للتقرير qry_rpt1-test ، سترى انهما بنفس الحجم : . 1. قمت بتصدير qry_rpt1-test الى pdf كما هو : 20Pixel+10Pixels=30Pixels 2. غير الكود ، واجعل قيمة العرض = 30Pixel ، ثم قم بتصدير التقرير rptReport1 الى ملف pdf ، سترى ان البروازين اصبحوا بنفس الحجم 🙂

وعليكم السلام 🙂 1. انت سمحت لإظهار البرواز بعرض 1Point=20Pixel ، . 2. ثم عملت برواز بعرض 10Pixels عن طريق الكود . بينما في التقرير الثاني (الخطوط الاضعف) ، قمت بعمل البرواز عن طريق الكود فقط : . جعفر

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

شغل جميل 🙂 بدل تخزين البيانات في الجدول ، انا استعملت Array لحل الموضوع ، وانت موضوعك اسهل لأنك استعملت عمودين فقط 🙂 جعفر

وعليكم السلام اخي عمر 🙂 شكرا لك لمشاركتك هذا المجهود الكبير ، والمطلوب دائما 🙂 حصلت لي بعض الاشكالات عند فتح البرنامج ، فياريت تعالجها ثم ترفق التعديل : 1. هل انت بحاجة الى جميع هذه المكتبات ؟ انا ظهرت عندي مشكلة في عدم وجود برنامجين (لاحظ كلمة Missing) ، وتوقف البرنامج الى ان حذفت اشارة الصح √ من امام المكتبتين : . 2. الرسالة التالية كانت تشتكي لعدم وجود برنامج الجداول في المكان الذي برمجته انت فيه ، فاقترح عليك ان تضع كود يفتح نافذة اختيار الملف ، ويطلب من المستخدم التوجه له واختياره . 3. وبعد تعدي المشكلتين اعلاه ، توقفت عند هذا النموذج ، فلم اعرف ما يجب ان افعله !! . جعفر

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

البرنامج جميل وسريع 🙂 جعفر

السلام عليكم 🙂 تفضل اخي هاني ، هذا الرابط به تقريرك . جعفر

السلام عليكم 🙂 الحمدلله انتهيت من المشروع ، وهذا رابطه جعفر