jjafferr

شكرا اخوي 🙂 جعفر

عندنا مثل يقول: ايش لك في البحر واهواله ، ورزق الله على السِيف (الشاطئ/اليايسة)🙂 وترجمته بالاكسس: ايش لك بالغير منضم واكواده ، والاكسس بالطريقة العادية يعمل وبكل بساطة 🙂 هنا تناقشنا عن النموذج الغير مضمن: كيفية عمل Unbound Sub Form له أكثر من صف - صفحه 2 - قسم الأكسيس Access - أوفيسنا (officena.net) جعفر

شكرا اخوي حسنين 🙂 جعفر

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

اهلا بك في المنتدى 🙂 تفضل اذا تحب ان تشرح لنا عن برنامجك 🙂 جعفر

رائع اخي حسين 🙂 ولكن هل ممكن تشرح لنا موضوع "النص المشفر" لوسمحت 🙂 وبسبب طريقة برمجتك ، فنحن محتاجين الى هذه المكتبات فقط 🙂 جعفر

شكرا جزيلا 🙂 جعفر

وعليكم السلام 🙂 بعد الانتهاء من عمل البرنامج ، انصحك بفحصه وعمله رشيق باستعمال المرفق : واذا البرنامج فيه اخطاء ، سيخبرك عنها ويجب عليك اصلاحها قبل ان تحولها الى صيغة 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