jjafferr

اخي الفاضل 🙂 1. رجاء مراجعة قوانين المنتدى قبل ان تضع موضوع جديد 🙂 2. اسم الموضوع يجب ان يدل على السؤال ، 3. سؤال واحد في كل موضوع ، 4. وفي مواضيعك الجديدة ، لا تنسى ان تضع المرفق 🙂 بُغلق جعفر

قصدك علامة الاستفهام اللي في النافذة تحت نافذة الكود ، صح 🙂 معناها قم بتنفيذ الامر/المعادلة التي تلي علامة الاستفهام ، وهي عملية يدوية وليست برمجية ، اي لا يمكن حفظها كجزء من الكود ، مثلا : اذا اردت نتيجة ضرب 12 * 987456 ، فإذا كتبناها كما هي ، فلن يفهم الاكسس المقصود من الامر ، وتحصل على رسالة خطأ : . بينما لما نسبق هذه المعادلة بعلامة استفهام ، نحصل على النتيجة: . واما في مشاركتي السابقة ، فقمت بتنفيذ/تشغيل الدالة Save_Tashkeela ، بدل ان اعمل لها كود او زر خاص لتشغيلها : جعفر

السلام عليكم 🙂 ولو اني تأخرت عن الركب ، ولكن قد تكون مشاركتي مفيدة 🙂 المشكلة الموجودة في الكلمات العربية ، وفي بعض انواع الخط الخاصة (مثل خط القرآن الكريم) ، هو اننا لا نعرف ما هي التشكيلات الموجودة ، ولا رقمها ، وبمل اننا نتعامل مع اللغة العربية ، فللحصول على رقم الحرف/التشكيلة ان نستخدم AscW و ChrW (رجاء ملاحظة وجود W) ، عليه ، عملت هذه الدالة لإستخراج جميع الحروف/التشكيلات الموجودة في حقل nass في الجداول b4 و b5 و b6 ، وحفظها في جدول خاص بها tbl_Tashkeela ، في حقل Tashkeela (لا يقبل التكرار) 🙂 هذه هي الدالة: Function Save_Tashkeela() On Error GoTo err_Save_Tashkeela Dim rstTashkeela As DAO.Recordset Dim rstTables As DAO.Recordset Dim i As Integer, j As Integer Set rstTashkeela = CurrentDb.OpenRecordset("Select * From tbl_Tashkeela") For i = 4 To 6 Set rstTables = CurrentDb.OpenRecordset("Select nass From b" & i) Do Until rstTables.EOF For j = 1 To Len(rstTables!nass) rstTashkeela.AddNew rstTashkeela!Tashkeela = Mid(rstTables!nass, j, 1) rstTashkeela!Tashkeela_ChrW = AscW(Mid(rstTables!nass, j, 1)) rstTashkeela.Update Next j rstTables.MoveNext Loop Next i Exit_Save_Tashkeela: rstTables.Close: Set rstTables = Nothing rstTashkeela.Close: Set rstTashkeela = Nothing MsgBox "Done" Exit Function err_Save_Tashkeela: If Err.Number = 3022 Then 'duplicate found Resume Next Else MsgBox Err.Number & vbCrLf & Err.Description End If End Function . ولأننا سنستخدم هذه الدالة مرة واحدة (او حنى عدة مرات) ، فالاسهل لي ان اناديها من الكود هكذا (طبعا يمكن مناداتها من اي مكان (ولكن ليس من الاستعلام ، فمناداتها مرة واحد تكفي لتغطية جميع حروف الجداول ، بينما الاستعلام سياديها بعدد السجلات ، وهذا مضيعة للوقت ولا فائدة منه) ، ورجاء ملاحظة ان علامة الاستفهام هي باللغة الانجليزية 🙂 . ونتيجة الجدول: جعفر 1341.ارشيف2.mdb.zip

نعم لاحظت هذا 🙂 ومو سهل ترجمة لغة الى لغة اخرى 😬 جعفر

اعتذر عن الخطأ ، وتم تعديل المرفق في المشاركة السابقة 🙂 هذا تعديل على برنامج اخي @biskra والذي اخذ الكود من مرفق اخونا @أبو عبدالله الحلوانى ، يعني عمل جماعي 🙂 . والنتيجة . جعفر 1337.1.convert nacer.accdb.zip

وعليكم السلام 🙂 هذا حل للرقم 2 : مشكلة عند فتح البرنامج على ويندوز 8 - قسم الأكسيس Access - أوفيسنا (officena.net) جعفر

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

السلام عليكم 🙂 بالفعل افكار جميلة ، شكرا اخوي @أبو عبدالله الحلوانى وبالاخص فكرة وتنفيذ اخوي @أبو إبراهيم الغامدي 🙂 انا اعمل على مثال متواضع من البداية ، ولكن ، كل شوي اخوي ابوابراهيم يرفع سقف العمل اكثر واكثر بإضافاته ، بس الحمد لله ان طريقتي تختلف نوعا ما عن طريقته 🙂 هذه النقاط اساس طريقة عملي ، وانت الآن اخوي ابوخليل ما شاء الله عليه رفعت سقف العمل بعد اكثر 😁 جعفر

تفضل 🙂 واذا ما تريد ان ترى مجاميع كل سجل او عمود Sum_Stores ، فلا تحذفه ، وانما اجعله مخفي ، واجعل عرضه =0 ويمكنك تطبيق نفس الطريقة على التقرير (ان وُجد) 🙂 🙂 جعفر 1311.11.DATA12.mdb.zip

2. اعمل نسخة من برنامجك ، ثم اعمل لها "ضغط واصلاح" من داخل الاكسس ، ثم استخدم احد برامج الضغط مثل winrar او winzip او 7z ، ثم ارفق الملف المضغوط 🙂 1 و 3. اذا تم حل المشكلة ، فماهو المطلوب اذن !! انا حليت لك طلبك وارفقت لك الملف اللي فيه الحل ، فماهو المطلوب الآن ؟ اخوي احمد ، انا الذي اخترت افضل اجابة ، لأن اجابتي هي مجرد توسع في اجابتك 🙂 جعفر

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