jjafferr

الحمدلله على السلامة اختي أم عهود :)     جعفر

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

وعليكم السلام اختي :)   انا عملت استعلام آخر باسم qry_Sum_uq2 ، وجعلته مصدر بيانات النموذج :) وللعلم ، فان بعض الفواتير تتكرر بنفس الرقم ، واحدة للقبض باسم شخص واخرى نقدي باسم شخص آخر (وهنا كذلك اعتقد بان هذا يصير بسبب عدم تنظيم البيانات بطريقة صحيحة :( )     اما بالنسبة الى فتح النموذجين sell  و bonds ،   فقد غيرت كود فتح النماذج من نموذج 2 الى: If Me.type_of_pay = "قبض" Then DoCmd.OpenForm "bonds", , , "[bonds_number]=" & Me.SellBillNum, acFormReadOnly, , "I_want_Read_Only" Else DoCmd.OpenForm "sell", , , "[SellBillNum]='" & Me.SellBillNum & "'", acFormReadOnly, , "I_want_Read_Only" End If لاحظي آخر السطرين ، فقد مررت قيمة I_want_Read_Only في الامر Me.OpenArgs الى النماذج عند فتحها (واذكرك بان النموذج للقراءة فقط ولايمكن تغيير او اضافة سجل فيه) ،   وعليه ، فكود حدث فتح النماذج اصبح يبحث فيما اذا هذه القيمة موجودة في الامر  Me.OpenArgs ، فاذا وجدت ، لم يفتح سجل جديد ، وإلا ، فهو يفتح سجل جديد : If IsNull(Me.OpenArgs) Then DoCmd.GoToRecord , , acNewRec End If جعفر 269.2.الحركة.accdb.zip

ممكن انك تصطاد زر Enter بمعلومات من هذا الرابط : http://arabteam2000-forum.com/index.php/topic/293234-عند-الضغط-على-زر-enter-يتم-حفظ-البيانات-في-الاكسس/?p=1397918   واعمل فيه ما تشاء :)     جعفر

وعليكم السلام اختي :)   اذا نظرتي في صورة الاستعلام اللي ارفقتيها بمشاركتك الاخيرة ، ستجدين بان اسم الحقل PaiedMoney ، بينما في ارسال المعلومات ، انت ارسلت الحقل Payment ، اي انك عملتي نسخ من الاستعلام السابق ونسيتي تغيري اسم الحقل :(    انا لاحظت وجود الكثير من السجلات الفاضية في التقرير (اللي معلوماتها صفر) ، واللي قد يكون سبب وجودها هو انك لم تدخلي المبالغ والعملة في جميع السجلات (وهاي معناه ان جميع التجارب اللي نقوم بيها الى اليوم قد يكون فيها إشكال :( ) ، لهذا ، عملت حقل اخير في الاستعلام ، لا يظهر هذه الارقام في التقرير :)     جعفر 331.3.y - Copy.accdb.zip

تفضل :)           جعفر

وطريقة اخرى :)   اذا كانت توجد قيمة في الحقل Text1 ، فلا تخرج من الحقل اصلا: Private Sub Text1_Exit(Cancel As Integer) If Len(Me.Text1 & "") <> 0 Then Cancel = True End If End Subجعفر

تمام  :thumb_up:

حياك الله :)       الرابط التالي يعطينا تسلسل الحدث بالنسبة للنموذج ، والكائنات في النموذج ، والسجلات في هذه الكائنات: http://office.microsoft.com/en-za/access-help/order-of-events-for-database-objects-HP005186761.aspx     لو انك فكرت في الموضوع ، لوجدت ان ما يفعله اكسس صحيح: 1. الحدث الذي تم استعماله (او اي حدث آخر) يحصل عندما يتم تغيير القيمة ، ولكننا لم نغادر الحقل ، 2. والطريقة الوحيدة التي يمكننا ان نعود للحقل الذي كنا ، هو عندما نفارق هذا الحقل ونذهب الى حقل آخر (الى الحقل التالي مثلا) ، لذا ، يمكننا استخدام هذا الكود: Private Sub Text2_Enter() If Len(Me.Text1 & "") <> 0 Then Me.Text1.SetFocus End IfEnd Subفبمجرد ان ندخل الحقل التالي (اي نكون قد خرجنا من الحقل الاول) ، فالكود يستطيع ان يرجع الى الحقل الاول (واذا لاحظت ، ستجد باننا استعمالنا طريقة الكود في مشاركتي الاولى) ، حيث: 1. ذهبنا الى حقل آخر (عن طريق زر Tab او Enter (اي ليس بالكود)، 2. ثم رجعنا الى حقلنا السابق بالكود  :)     جعفر

وعليكم السلام :)   1. اعمل التقرير بجميع الحقول ، ولكن بدون Employee Information Tab  2. في النموذج عندك كود الصورة في الحدث "الحالي" On Current ، اعمل نسخة من الكود وضعها في التقرير في الحدث:   Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)     جعفر 355.تقرير_صوري.mdb.zip

وعليكم السلام :)   ما تستطيع ان ترجع له مباشرة ، لازم تروح لحقل آخر ثم ترجع له : Private Sub Text1_AfterUpdate() 'DoCmd.GoToControl ("Text1") If Len(Me.Text1 & "") <> 0 Then Me.Text2.SetFocus Me.Text1.SetFocus End If End Subجعفر

وعليكم السلام اخي جعفر :)   للأسف لا يمكن ذلك ، وذلك لأن التقارير لديها تنسيق يختلف يإختلاف ذوق المبرمج :)   نعم هناك اوامر جاهزة في الاكسس لتصدير التقارير الى الاكسل ، ولكنها في الكثير من الاحيان لا تحترم تنسيق التقرير :(     جعفر

حياك الله :)   يعني هل افهم من ردك ان الموضوع تم السيطرة عليه؟ في النموذج والتقرير؟     جعفر

السلام عليكم أخي رمهان :)   اسمح لي اطلعك على احد اسراري :)   في الكثير من المشاريع التي اقوم بها ، استخدم جدول الاشهر التالي:       فحسب طلب المستخدم ، سواء تاريخ عربي او انجليزي او عراقي (وما اعرف ايش اسمه بالضبط) ، فاقوم بعمل استعلام ، اربط هذا الجدول بذلك الجدول عن طريق حقل months_Numbers او months_Digits ،  وبالتالي ، ادخل في الاستعلام حقل الشهر الذي يريده المستخدم ، واستعمل هذا الحقل في النموذج او التقرير :)   هدفي من كلامي السابق هو: اعمل جدول ، خلي فيه جميع الحقول اللي تعتقد ان المستخدم قد يستخدمها (نعم/لا و ... ) ، وبهذه الطريقة ، تصبح طريقتك عالمية :)   وانا في الخدمة :)     جعفر Months.zip

وعليكم السلام :)   رائع أخي رمهان ، فكرة جميلة :) والاحلى فيها التنسيق الشرطي :)   ولكن سؤالي هو كيف استطعت الحصول على علامة الصح من Fonts ؟ وطبعا لو ان الجدول به حقل نعم/لا ، لأمكن استعمال طريقتك عالميا ، حيث انك تغير نعم بـ -1 ، ولا بـ صفر :)       جعفر