jjafferr

الاستعلام مرتبط بالدالة 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 جعفر

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

ليه انت ما سمعتش عن الموضوع ده : جعفر

تفضل 🙂 . . جعفر 1335.1.انتقال.accdb.zip

🙂 حياك الله 🙂

تفضل ، ووضعت كود (في الواقع هو لأخي احمد 🙂 ) يوقف تجديد/تحديث الشاشة ، ويقوم بتصفية النموذج والحقول ، ثم يُفعل تجديد/تحديث الشاشة ، فلا ترى ما يحدث 🙂 Me.Painting = False Me.DataEntry = False Me.DataEntry = True Me.Main_iDate = Null Me.Main_iBill_Number = Null Me.Main_iStore_Number = Null Me.Painting = True جعفر

جرب هذا الكود ، فهو يلغي خاصية ادخال البيانات ، ثم يُفعلها مرة اخرى ، ولا يغلق النموذج : Me.DataEntry = False Me.DataEntry = True جعفر

الحمدلله 🙂

اي نسخة اكسس تستخدم؟