jjafferr

لهذا السبب قلت : فالظاهر انك ارفقت ملف تجارب ولم ترفق ملفك الاصل ، ولما حاولت التطبيق على ملفك ، حدثت لك هذه المشكلة التي لا اعرف ماهي !! راجع الخطوات مرة اخرى ، فالتعديل لم يلمس حقل iPage اصلا !! جعفر

🙂

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

وعليكم السلام 🙂 اعطني بعض الوقت حتى ابلور الفكرة 🙂 جعفر

تفضل 🙂 1. في النموذج : . 2. وفي الاستعلام : . وهو عيناً كود اخوي احمد ، ولكن اسماء الحقول في الاستعلام تختلف 🙂 . جعفر 1311.10.DATA14.mdb.zip

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

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

الاستعلام مرتبط بالدالة PartOfName (يعني بالكود في VBE) ، والظاهر ان هذه الطريقة (ربط الاكسل بالاكسس) لا تسمح بأي استعلام فيه اشارة الى خارجه من الدوال او القيم (حتى قيمة موجودة في نموذج) !! جعفر وعليكم السلام 🙂 انت وضعت سؤال اكسل في منتدى الاكسس ، وصحيح اننا نفهم في الاكسل ، ولكن الدعم اللي ممكن تحصل عليه من منتدى الاكسل يكون افضل لك 🙂 هذا رابط قسم الاكسل : منتدى الاكسيل Excel - أوفيسنا (officena.net) فرجاء كتابة موضوع جديد هناك 🙂 جعفر

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

دائما ارفق برنامجك للتعديل عليه

قصدك اول سجل ، بينما لما تنقر على اي حقل في السجل الثاني ، ستجد انه يعطيك مجموع ذلك السجل ، وهكذا ، .... لماذا ؟ ، لأنك لم تطلب ان يتم جمع جميع السجلات !! الطريقة الصحيحة لعمل مطلبك : 1. مربع المجموع ، بدل ان يكون في الاعلى ، يجب ان تضعه بين حقول السجل (انت تختار المكان) ، هكذا : . 2. مصدر بيانات هذا النموذج هو الاستعلام qry_Items_Dates_2 : . فيجب ان تعمل حقل جديد في الاستعلام ، ويكون فيه معادلة اخوي احمد ، بمعنى : مجموع مخازن كل سجل على حدة ، 3. وبعد ان تكون قد وضعت الحقل اعلاه (رقم 1) بين السجلات ، يجب ان تعمل حقل آخر في سطر "اجمالي" ، وتجعله يجمع قيم السجلات جميعا : . جعفر

هنا وقعت في المحظور !! هذه الارقام يجب ان لا تغيرها ، وانما تقدر ان تغير القيمة في النموذج !! اذا لاحظت الآن ، فجميع اكواد اخوي احمد ، وكودي انا يعتمد على ان : النقدية = 12 !! فرجاء ، قم بتصحيح النقدية في الجدول الى 1 ، وتغيير كودي ، بتغيير الرقم من 12 الى 1 ، هكذا : =Sum(IIf([iPage]=1 Or [iPage]=2 Or [iPage]=3,0,[Store_1])) جعفر

ما شاء الله عليك اخوي ابوخليل ، جبتها من اصلها 🙂 وهنا اشرح الخطأ الذي قمت انا بعمله في الدالة الاصل ، حيث اني وضحت ان نوع المبلغ iAmount هو رقم كامل integer ، بينما في الجدول ، كنت قد اوضحت بأن المبلغ iAmount هو رقم مزدوج (ثنائي الدقة) 🙂 لذا ، كان الصحيح ان يكون الرقم في الدالة ، بنفس نوعه في الجدول ، وهو تعديل اخوي ابوخليل 🙂 : . الفرق بين الارقام ، ولماذا ظهر الخطأ الآن : الرقم الكامل (القصير)= integer ، حجمه يصل الى 32,767 ، بينما الرقم في مثالك وصل حجمه الى 37,945 ، ولهذا السبب حصل الخطأ ، لهذا السبب ، عند وضع السؤال ، ضع بياناتك الحقيقة !! الرقم الكامل (الطويل)= Long رقم مزدوج (ثنائي الدقة)= Double . والسبب بأن جعلت الرقم في الجدول Double ، حتى يقبل الارقام العشرية كذلك 🙂 جعفر

السلام عليكم 🙂 هذه قيم الصفحات في جدولك (ولا اعرف لماذا النقدية لها رقم 12 ، بينما المنطق يقول بأنها رقم 1 🙂 ) : . طريقة اخي احمد هي الرجوع الى مصدر البيانات ، اخذها من هناك ، والبدء بتصفيتها ، بينما انا احب ان العب بالبيانات التي تم استيرادها وتصفيتها 🙂 . حاليا معادلة جمع الحقل هي : جمع جميع السجلات ، ما عدا السجل رقم 1 ، وانا سألت اخوي ابوحسان لما عملت هذه المعادلة ، اذا كان يريد يستخدم انواع الصفحات (هذه التسمية القديمة قبل ان يبدلها الآن الى "الحساب") ، فكان رده : لا . اما الآن ، فهو برمجيا يريد جمع السجلات ، بشرط "الصفحة" ، كالتالي (انا سأقوم بحذف شرط عدم جمع السجل الاول في المعادلات التالية) : اذا كانت الصفحة = الايراد (رقم 2) = اجعل قيمتها صفر اذا كانت الصفحة = النقدية (رقم 12) = اجعل قيمتها صفر اذا كانت الصفحة = التمويل (رقم 3) = اجعل قيمتها صفر واجمع بقية انواع الصفحات عليه ، المعادلة ستكون للمستودع رقم 1 : =Sum(IIf([iPage]=2 Or [iPage]=3 Or [iPage]=12,0,[Store_1])) جعفر

اخي ناصر 🙂 الطريقة 1: لو فتحت برنامجي ، لرأيت اني وضعت البيانات العربية في الجدول ، وعليه تقدر ان تعمل التفقيط العربي و الانجليزي (المثال الذي ارفقته لك في مشاركتي السابقة) على اي جهاز فيه حروف عربية ، ولا علاقة له بضبط لغة الجهاز ، بقي ان تضبط التفقيط الفرنسي وتجعل الكلمات الفرنسية في جدول ، وسيكون عندك 3 لغات للتفقيط ، العربية والانجليزية والفرنسية. ------------------------------------------- الطريقة 2: ومثل ما اقترح اخي ابوعبدالله ، بإستخدام برنامجي اخونا @ابا جودى لتحويل الكلمات الى Ascii ، فرجاء ارفق برنامجك الذي فيه تفقيق عربي وتفقيط فرنسي ، وخلينا نساعدك 🙂 جعفر

هذا السطر بدلا عن سطر طباعة/معاينة التقرير 🙂 جعفر

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

محاولة نظيفة وواضحة 🙂 انا استخدم تعديل كود - صفحه 2 - قسم الأكسيس Access - أوفيسنا (officena.net) جعفر

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

نعم ، وتم مناقشة هذه النقطة في الرابط الذي ارفقته لك ، هنا في هذه المشاركة لأخونا @kha9009lid : جعفر

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

شكرا على التدقيق 🙂 ولو اني ما اعرف ليش يصير هذا ، ولكن استعمل هذا الكود الآن: Private Sub go_Click() Call tn_AfterUpdate End Sub Private Sub tn_AfterUpdate() On Error GoTo err_tn_AfterUpdate If Len(Me.tn & "") = 0 Or DCount("*", "qry_tbl2", "HNO =" & Me.tn) = 0 Then MsgBox "الرقم غير موجود" Else Me.Recordset.FindFirst "hno=" & Me.tn End If Exit_tn_AfterUpdate: Me.tn.SetFocus Me.tn = "" Exit Sub err_tn_AfterUpdate: If Err.Number = 3075 Then 'ignore Else MsgBox Err.Number & vbCrLf & Err, vbAbortRetryIgnore End If Resume Exit_tn_AfterUpdate End Sub جعفر

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

اترك كود المنظار مكانه ، وخلينا نتأكد من ان الرقم موجود قبل البحث : Private Sub go_Click() Call tn_AfterUpdate End Sub Private Sub tn_AfterUpdate() If Len(Me.tn & "") = 0 Then MsgBox "رجاء ادخال رقم للبحث عنه" ElseIf DCount("*", "qry_tbl2", "HNO =" & Me.tn) = 0 Then MsgBox "الرقم غير موجود" Else Me.Recordset.FindFirst "hno=" & Me.tn End If Me.tn.SetFocus Me.tn = "" End Sub جعفر

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