jjafferr

وعليكم السلام 🙂 بعد الانتهاء من عمل البرنامج ، انصحك بفحصه وعمله رشيق باستعمال المرفق : واذا البرنامج فيه اخطاء ، سيخبرك عنها ويجب عليك اصلاحها قبل ان تحولها الى صيغة accde او mde ، واذا مافيه اخطاء ، فيمكنك تحويل برنامج يديويا لاحقا الى accde او mde والذي سيحدث بدون اخطاء 🙂 واما اذا لم تشأ ان تستخدم المرفق ، فاذهب الى محرر الاكواد VBE ، ثم Debug > Compile ، وسيخبرك اين المشكلة في الكود (طبعا هنا تستعمل برنامجك بصيغة accdb او mdb) 🙂 جعفر

شكرا جزيلا على الشرح 🙂 الظاهر انكم تفهمون بعض اكثر ، انتم الجيران 🙂 يا ريت تثري الموضوع بشرح الطرق 🙂 جعفر

تفضل 🙂 1384.1.المستخدمين.accdb.zip

يا هلا ومرحبا 🙂 جعفر

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

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

وعليكم السلام 🙂 اذا كان سؤالك: ما هي طرق الدخول الى محرر الاكواد VBE ، غير عن طريق اعدادات الكائنات في النموذج ؟ فهناك: Alt + F11 Ctrl + G ومن الشاشة الرئيسية : . وبجميع هذه الطرق يمكنك كتابة او تحديث او تغيير كود ، اذا كان البرنامج بصيغة mdb او accdb ، اما اذا كان البرنامج بصيغة mde او accde ، فلا يمكنهم رؤية الكود حتى وان دخلوا على VBE 🙂 جعفر

وعليكم السلام 🙂 عنك طريقتين: 1. تجعل الاستعلام مصدر بيانات النموذج الثاني ، في الحقل "رمز" المعيار التالي: Forms![child14]![رمز] 2. او نستعمل ربط النموذج الفرعي بالنموذج الرئيسي ، بالحقل "رمز" ، هكذا : . وفي الحدث عند "الحالي" OnCurrent في النموذج الاول ، نكتب: Me.Parent!forma1.Requery جعفر 1384.aaالمستخدمين.accdb.zip

اعتقد الحل هو بإضافة عمود خاص للمشتريات في الاستعلام ، ولا يدخل هذا العمود في الجمع ، انظر ملاحظة اخونا خالد اعلاه ، واضف اسم العمود في السطر المُشار اليه : If fld.Name <> "id" or fld.Name <> "المشتريات" Then هكذا يصبح عندك 4 اعمدة في الاستعلام/التقرير: المعرف ، المشتريات ، مجموع بقية الحقول ، المجموع العام (=المشتريات + مجموع بقية الحقول) 🙂 جعفر

جرب هذا المرفق 🙂 هو كما بالرابط الذي اعطيتك في مشاركتي اعلاه 🙂 جعفر 1383.Drag_Forms.accdb.zip

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

وهنا رابط آخر لأخونا @ابا جودى هدية : التحكم في الطابعة وخصائصها طباعة التقارير - قسم الأكسيس Access - أوفيسنا (officena.net) جعفر

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

هذا غير مقبول. الرابط فيه طريقة لحل هذا الموضوع 🙂 جعفر

تفضل 🙂 في الاستعلام ، ننادي الدالة Add_Fields ، ونرسل لها رقم المعرف id : . وهذه هي دالة جمع بيانات حقول السجل الواحد : Function Add_Fields(id As Long) As Double Dim rst As DAO.Recordset Dim fld As Field Dim T As Double 'get this Name Record from the table Set rst = CurrentDb.OpenRecordset("Select * From [tblAmlyat] Where [id]= " & id) 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 <> "id" Then 'add the field values T = T + fld.Value End If Next fld 'now send this Total to the query Add_Fields = T 'clear memory rst.Close: Set rst = Nothing End Function جعفر 1382.Db3.mdb.zip

هممم انت تنظر لها: تريد الحقل اللي فيه المبلغ فقط ، مثلا السجل الاول = 6093.69 ، وانا انظر لها: نجمع الحقول (وليس نعرضهم جنب بعض) ، مثلا السجل الاول = 6093.69 +0 +0 = 6093.69 ، والنتيجة ، الطريقتين تعطي نفس النتيجة 🙂 هل كلامي صحيح ؟

اعتذر منك اخوي ابوخليل ، فهمي بطيء هذه الايام 😞 يا ريت بمثال في الاكسل او صورة علشان افهم 🙂 جعفر

حياك الله 🙂 تفضل: (تمت الاجابة) اختيار طابعة لطباعة التقرير بشرط الرقم الوظيفي - قسم الأكسيس Access - أوفيسنا (officena.net) ولقيت عندي هذا المثال المرفق ، ولا اعرف شيء عنه 🙂 جعفر SelectAnd ResetPrinter2k.zip

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

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

وعليكم السلام 🙂 اعمل نموذج ، واعمل فيه زر لطباعة التقرير ، واستعمل هذا الكود فيه ، ولانه لا يمكن فتح التقرير مرتين في وضع المعاينة ، فنستخدم طباعة التقرير مباشرة : Private Sub cmd_tablAA_Click() DoCmd.OpenReport "tablAA", , , , , "All" DoCmd.OpenReport "tablAA", , , , , "No_Sub" End Sub بهذه الطريقة نرسل قيمة في المتغير OpenArgs ليكون موجودا في التقرير ، في المتغير الاول نطبع التقرير مع التقرير الفرعي ، وفي المتغير الثاني سنطبع التقرير بدون التقرير الفرعي. في التقرير ، التقرير الفرعي موجود في قسم التفصيل من النموذج الرئيسي ، . على حدث "عند التنسيق" لهذا لقسم التفصيل ، نكتب هذا الكود : Private Sub تفصيل_Format(Cancel As Integer, FormatCount As Integer) If Me.OpenArgs = "No_Sub" Then Me.tbBB.Visible = False Else Me.tbBB.Visible = True End If End Sub جعفر 1381.إخفاء التقرير الفرعي في الطباعة.accdb.zip

السؤال ، كيف تفتح النموذج form1 هل لما تفتحه ، تغلق النموذج الذي فتحه ؟

رجاء الرد على هذا السؤال

رائع 🙂 ما شاء الله عليك اخوي أبو إبراهيم ، دائما ، ما معتمد على قدرات الاكسس فقط ، وانما تستفيد من بقية قدرات الاوندوز 🙂 جعفر

الله يسلمك ويعافيك اخوي حسين ، وانت فيك الخير والبركة 🙂 جعفر