jjafferr

او حتى جداولك العادية ، اذا كنت تحذف الكثير من بياناته. جعفر

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

يا ولد يا فنان

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

سيدي الفاضل 🙂 هذا تسلسل بالصباحي والمسائي ، والتسلسل لجميع الايام : استعملنا هذا الحقل لنحصل على التسلسل على اساسه : . . وهذا تسلسل للصباحي والمسائي مع اليوم ، كل يوم بتسلسل مستقل : وهنا ضيقنا الخناق ، فاستعملنا هذين الحقلين (واذا تريد ، فممكن تضيف حقول اخرى مع هذين الحقلين) لنحصل على التسلسل اليومي : . . ومثل ما قال اخوي ابوخليل ، مافي داعي تحفظ هذه الارقام في جدول ، فيمكنك استعمال هذه الدالة في جميع استعلاماتك 🙂 جعفر 1342.Count if.accdb.zip

وعليكم السلام 🙂 مثل ما قال اخوي عمرو ، هناك عدة طرق للوصول الى طلبك ، ومن الخطأ وضع DCount واخواتها في استعلام ، والافضل استعمال الاستعلام للحصول على النتيجة المطلوبة (وليس عن طريق استعلام المجاميع ، لأنه بطيء كذلك) ، وحتى الدالة Dcount يمكن جعلها تعمل اسرع ، هكذا ، نستعمل * بدل اسم الحقل : بدل A = DCount("[Salary]","Table_Name","[ID]=" & myID) استعمل A = DCount("*","Table_Name","[ID]=" & myID) جعفر

نعم هذا صحيح ، والوضع لايزال مستمر في صيغة accde كذلك ، والسبب وبكل بساطة ، اننا لا نستطيع ان نفتح النموذج في وضع التصميم في تلك الصيغ ، ناهيك عن اضافة الكود 🙂 ولكن ، المرفق الذي اشرت اليه في الرابط اعلاه ، يعمل برنامج خارجي بصيغة mdb او accdb ، وفيه هذا النموذج الجديد المعمول برمجيا ، ومن ثم نستطيع فتحه من برنامجنا mde اذا اردنا !! والشيء اللازم معرفته هو ، ان عمل نموذج برمجيا يكون بطيء بعض الشيء ، ولما يكمل تكوينه ويتم حفظه ، يكون فتحه بنفس سرعة النموذج العادي 🙂 جعفر

وعليكم السلام 🙂 اذا فهمت قصدك ، فأنت تريد ان تعمل كود "عند الحدث" ، مثل عند تحميل النموذج ، او عند النقر على الزر ، في كود عمل النموذج 🙂 انزل المرفق من هذا الرابط ، فهو يقوم بعمل: قاعدة بيانات جديدة ، ثم يعمل فيها جداول ، ونموذجين ، وفي كل نموذج ازرار وحدث تحت كل زر (وهذا الذي تبحث عنه) ، ومع انه هناك عدة طرق لعمل هذه الكائنات ، ولكني استعملت الاسهل في الفهم والتطبيق 🙂 انظر في الوحدات النمطية مباشرة ، فأسمائها تدل على محتواها : . جعفر

اخي الفاضل 🙂 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

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

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