jjafferr

وعليكم السلام 1. هذا اهم شئ ، وهو ان البرنامج يشتغل منفردا 2. ما ادري ، لازم اشوف برنامجك ، وخطوة بخطوة نشوف شو المشكلة ، وعليه نلقى الحل ان شاء الله 3. صدّقني اني اريد اكمل البرنامج اكثر مما تتصور ، ولكن وكما اخبرتك سابقا ، عندي اولويات اخرى ، ان شاء الله اخلصها وارجع للتقرير جعفر

يا سبحان الله ، كأني وضعت البرنامج لك http://www.officena.net/ib/topic/67834-هدية-إحمل-برامجك-داخل-قاعدة-بياناتك/ جعفر

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

لم انزل المرفق ولكن وبدل طريقتي السابقة (لأنك لم تعطي اي معلومات عن ماذا كنت تريد ان تعمل) ، تستطيع في الاستعلام ان تعمل حقل جديد فلنسميه A ، ولنقل ان اسماء حقولك B و C ، عليه يصبح الحقل A: A: nz([b],0) + nz([c],0) جعفر

هذا صحيح في حال طلب الرقم بخانتين عُشريات ، ولكن كان عنده رقم كامل ايضا ، وهذا معناه انه يجب ان يلعب في اعدادات كم خانه عُشرية يريد جعفر

وعليكم السلام حياك الله 1. احفظ النموذج الفرعي كتقرير ، . 2. اجعل استعلام النموذج هو نفس استعلام التقرير ، 3. اعمل زر في النموذج الرئيسي لطباعة ما تراه في النموذج الفرعي جعفر

كلام سليم 100% اذا تم استعمال 3 خانات عُشرية (مثل 0.166) على تنسيق خانتين عُشرية "##.###,#" بينما فهمي للسؤال ، انه سيكون إما رقم كامل او خانتين عُشريات ، لهذا السبب اعطيت تنسيق يخص هذه الحالات فقط "###,#" و "##.###,#" فعلى اساسها ، النتائج لن يكون فيها تقريب ، وستكون صحيحة جعفر

على بركة الله جعفر

السلام عليكم البارحة وانا نص نايم لقيت هذا الملف وبه حل http://www.accessmvp.com/KDSnell/DownloadFiles/FixCascadingCombos.zip جعفر

السلام عليكم ورحمة الله وبركاته في أحد المشاريع التي قمت بها ، كنت محتاج الى برنامج خارجي ليقوم ببعض المهام للمشروع ، فالطريقة المعتادة التي نستعملها هي ، وضع البرنامج هذا داخل احد مجلدات المجلد الرئيسي لقاعدة البيانات ، وبما ان فقدان/حذف هذا البرنامج يجعل المشروع عاجز عن العمل ، لم يكن عندي خيار ، سوى ان اجعل هذا البرنامج داخل قاعدة البيانات ، بطريقة تسمى Blob المرفق فيه هذه الملفات: . النموذج frm_Blob مهم في انه يسمح لك بوضع برامجك في قاعدة البيانات بسهولة ، والزر الاخر هو لتصدير هذا البرنامج الى اي مجلد في الكمبيوتر (لعمل التجارب مثلا) ، وقد وضعت برنامجين في قاعدة البيانات المرفقة: 1. pdftk.exe والذي يقوم بالعديد من العمليات لملفات الـ pdf ، 2. Arc5_S_BE.mdb ، وهي قاعدة بيانات فاضية ، وبها جداول مؤقته ، فبدل ان اعمل هذه الجداول المؤقته داخل قاعدة بياناتي ، ويكبر حجمها ، رأيت ان استعمل جداول خارجية ، وعند اغلاق البرنامج ، كنت اقوم بحذفها من المجلد: . لعمل البرنامج الاول ، استخدم الزر رقم 1 ، والذي سيصدر البرنامج pdftk.exe الى مجلد قاعدة البيانات ، ثم سيدمج الملفين a.pdf و b.pdf ويحفظ النتيجة في ملف ab.pdf ، ويفتحه ، بينما الزر رقم 2 ، سيصدر قاعدة البيانات Arc5_S_BE.mdb الى المجلد الرئيسي لقاعدة بياناتنا: . عند الضغط على الزر 1 ، سنرى هذه الملفات في المجلد الرئيسي لقاعدة البيانات: . ان شاء الله يكون فيه فائدة للجميع جعفر Blob.zip

وعليكم السلام ياريت تعطي مثال بطلبك ، توفر علينا نحن الاثنين الوقت اذا كان قصدك ان تجمع قيم الحقول في سجل واحد ، فهذا الكود يعطيك الحقول للسجل ، وجمع قيمها: Dim rst As DAO.Recordset Dim fld As Field 'get this Name Record from the table Set rst = CurrentDb.OpenRecordset("Select * From [salary2015+2014] Where Full_Name='" & F & "'") T = 0 'initial Total 'loop through the fields For Each fld In rst.Fields 'Debug.Print fld.Name & vbTab & fld.Value 'skip the Full_Name field name If fld.Name <> "Full_Name" Then 'add the field values T = T + fld.Value End If Next fld rst.close : set rst=nothing جعفر

وعليكم السلام اذا اردت فتح البرنامج بحجم الشاشة ، جميل ان تقرأ الرابط التالي من اوله لآخره ، وتنزل المرفق من الرابط واللي فيه طلبك: http://www.officena.net/ib/topic/65914-قفل-نموذج-او-كبسة-command-برقم-سري/#comment-429339 جعفر

تفضل . جعفر 316.Aziz1.accdb.zip

السلام عليكم وما تعريف "القسط الاول"؟ جعفر هل هو مبلغ فقط ، او له علاقة بالتاريخ كذلك؟ جعفر

وعليكم السلام احد قواعد الاكسس التي يجب عليك ان تتبعها لبرنامج افضل ، هو إضافة حقل الترقيم التلقائي مفهرس ، فالبرنامج يحتاج اليه ليرتب وضعه في الفهرسة ويكون اسرع في العمل جعفر

تفضل الوحدة النمطية هذه تقوم بالعمل ، ولكن بعد ان عملت الكود اتضح باننا ما محتاجين للحقل Client_Type ، ولكني تركته هناك ، كما اني في اسفل الوحدة النمطية ، جمعت الشروط في سطر واحد ، حتى نستخدمها كبديل في الاستعلام مباشرة ، بدل الوحدة النمطية: Function B_con(CT, T, B) 'CT = Client Type 'T = Type 'B = Balance If T = "Cash" And B >= 10000 Then B_con = B ElseIf T = "Cash" And B < 10000 Then B_con = 0 ElseIf T = "Credit" Then B_con = B End If 'B_con = IIf(T = "Cash" And B >= 10000, B, _ IIf(T = "Cash" And B < 10000, 0, _ B)) End Function . هذا الاستعلام ، B ينادي الوحدة النمطية ويأخذ نتائجه منها ، بينما معادلة B2 موجودة مباشرة في الاستعلام وبدون الحاجة للوحدة النمطية ، ولكن ، اذا اردت عملت تعديل على الشروط ، فستجد ان التعديل في الوحدة النمطية اسهل بكثير . وهذه النتائج: . جعفر 315.TEST.accdb.zip

معلش خذني على قد عقلي ، واعطنا مثال لوسمحت جعفر

هلا بأخوي رمهان ، عسى ما شر ، نوّرنا بدل هل الوجوه الغاضبة جعفر

ابدا مافي مشكلة ولا اشكال جعفر

اذا انت مرتاح من "شكل" التنسيق ، فتوكل على الله لأن التنسيق هو عبارة عن: إعطاء شكل النتيجة ، بالطريقة التي نريدها ولأن التنسيق "شكل" فقط ، لهذا السبب ، وعند التعامل مع بيانات هذا الحقل ، لا نهتم بالتنسيق يعني في الاستعلام لما تريد ان تعمل تصفية للحقل aaaa اعلاه ، فتكتب الرقم 12345 مثلا (بدون تنسيق) ، ولا تكتب .12,345$ جعفر

هذا لازم تستخدم معادلة علشانه ، في الاستعلام مثلا: IIf([Selling] - Int([Selling])=0,Format([Selling],"#,###",Format([Selling],"#,###.##")) جعفر

وليش خيفان ، اضف العلامة اول السطر وجرب جعفر

وعليكم السلام استخدم التنسيق التالي للحقل: #,###.00 جعفر