Foksh

مشاركة أفكار معكم أساتذتنا الكرام .. لو طبقنا التقارير الأربعة بشكل منفصل ، وجعلنا لجميع العناصر ذات التقرير الواحد = Tag خاص بها .. يعني في التقرير Zawj نجعل لجميع العناصر Tag = Zawj وهكذا في باقي التقارير ، ثم في التقرير الموحد face4 قمنا بلصق جميع العناصر داخل نفس التقرير بعد ضبط مواقعها ( الفكرة مشتقة من فكرة سابقة تم العمل عليها لأخينا طاهر ) وبالتالي عند فتح التقرير نحدد له الشرط بأن يعرض العناصر ذات Tag محدد والأستاذ خليفة لا يصعب عليه أمر بسيط كهذا وكلنا ثقة واضحة من معالم عمله في التنفيذ .

مبااارك لك إيجاد الحل المناسب

ولا يهمك أخي الكريم.. قريباً سأحاول إدراج فيديو لطريقة الاستخدام بشكل مبسط .

تقصد فيديو عن كيف تم تصميم البرنامج ؟؟؟ الملف مفتوح المصدر ، وقد تم إضافة فيديوهات و صور توضح حل لجميع المشاكل والتساؤلات التي سأل عنها زوار الموضوع .. وانا جاهز لأي استفسار عندك أخي الكريم

أخواني وأساتذتي ومعلمينا ( دون استثناء ) الموضوع باين من عنوانه ، الفكرة هي تجسيد للعبة كانسة الألغام القديمة التي كانت من إنتاج شركة مايكروسوفت ، والتي ظهرت لأول مرة عام 1990 في نظام التشغيل Windows 3.1 . 💣 الهدف من اللعبة : هو اجتياز لوحة مليئة بالمربعات دون تفجير الألغام المخفية ، باستخدام المنطق والأرقام التي تشير إلى عدد الألغام المجاورة لكل مربع مكشوف . 💣 عدد الألغام : في كل مستوى يبدأ من 1 للمستوى الأول ، والثاني لُغمين اثنين ، والثالث 3 ألغلام وهكذا إلى المستوى الأخير ( المستوى 11 ) ويحتوي 15 لغم . 💣 صورة من واقع اللعبة (المستوى 11 والأخير قبل زرع الألغام الحقيقة طبعاً 😁 ) :- 💣 تحميل اللعبة للنواتين :- 64 :- Minesweeper 64.zip 32 :- Minesweeper 32.zip في هذه المشاركة هنا 👉 في هذه المشاركة هنا 👉 في هذه المشاركة هنا 👉

وعليكم السلام ورحمة الله وبركاته .. أخي الفاضل أنت ما شاء الله عليك 03 عضو مميز ، ولاحظت كثيراً من المواضيع التي تقوم بطرحها لا تقوم فيها بإدراج وإرفاق ملف . وهذا بطبيعة الحال لا يساعدك على إيجاد حل لمشكلتك . لذا أرجو منك كرماً لا أمراً أن تلتزم بقواعد المنتدى في المشاركات اللاحقة بأن تقوم بإرفاق ملف كي يتم الإطلاع عليه ومساعدتك قدر المستطاع . شكراً لك لتفهمك

وعليكم السلام ورحمة الله وبركاته .. الأصل أخي الكريم أن توضح نوع المشكلة التي تواجهها .. ما التعديل الذي تريده !!! ما المشكلة التي تواجهك ؟؟؟ شكراً لسعة صدرك ، متمنياً منك التوضيح والإفصاح بشكل أوضح عن المطلوب .

يا أخي القلوب المتآلفة محبتها ، نعمة من الله ..

بالعكس ، يسعدنا مشاركتكم وباقي الأساتذة والخبراء في أي موضوع . الساحة لكم لضيق الوقت ، وأنتم جديرين بالثقة دون أي شك أستاذ خليفة

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

جميل جداً ، الآن المطلوب الثاني يحتاج لشرح منك 😅 الأول فهمته بالعافية في الوقت الحالي في هذه الساعة 😁

ممتاز ، جرب هذا التعديل الآن من خلال الكود التالي للزر :- Private Sub Update_takhrij_Click() Dim db As DAO.Database Dim rsSource As DAO.Recordset Dim rsTarget As DAO.Recordset Dim sourceTable As String Dim mnoFields As Variant Dim i As Integer Dim currentMNO As String On Error GoTo ErrHandler Set db = CurrentDb sourceTable = Me.txt1.Value mnoFields = Array("MNO", "MNO2", "MNO3", "MNO4", "MNO5", "MNO6", "MNO7") Set rsSource = db.OpenRecordset("SELECT * FROM [" & sourceTable & "]", dbOpenSnapshot) Set rsTarget = db.OpenRecordset("TAB_takhrij_X", dbOpenDynaset) Do While Not rsSource.EOF For i = 0 To UBound(mnoFields) currentMNO = Trim(Nz(rsSource(mnoFields(i)), "")) If currentMNO <> "" Then rsTarget.AddNew rsTarget!bookID = CStr(rsSource!bookID) rsTarget!TableNo = CLng(rsSource!TableNo) rsTarget!MNO = currentMNO rsTarget.Update End If Next i rsSource.MoveNext Loop rsSource.Close rsTarget.Close Set rsSource = Nothing Set rsTarget = Nothing Set db = Nothing MsgBox "تم حفظ الأحاديث بنجاح", vbInformation + vbMsgBoxRight, "" Exit Sub ErrHandler: MsgBox "حدث خطأ", vbCritical + vbMsgBoxRight, "" End Sub الملف :- takhrij.zip

وعليكم السلام ورحمة الله وبركاته ،، دعنا أولاً نركز على المطلب الأول في الزر Update_takhrij .. هل المطلوب كهذه النتيجة :- TAB_takhrij_X ID TableNo BookID MNO 1 1 1_10 18056 2 1 1_11 18058 3 1 1_12 3101 4 1 1_13 7336 5 1 1_14 7432 6 1 1_15 5548 7 1 1_20 7609 8 1 1_23 13701 9 1 1_25 8845 10 1 1_27 9323 11 1 1_29 8844 12 1 1_31 287 13 1 1_33 13686 14 1 1_34 285&652 15 1 1_36 268 16 1 1_38 1518 17 1 1_39 5927 18 1 1_41 4886 19 1 1_44 18077 20 1 1_46 266&50321&6603 21 1 1_48 5044 22 1 1_49 4947 23 1 1_9 11389 من الجدول الأول طبعاً !!! إذا لا ، اشرحه شرحاً أدق إذا سمحت ..

وعليكم السلااااااااام ورحمة الله وبركاته ،، مهندسنا الغالي يا مرحبا يا مرحبااا بالإبداعات الجميلات الفاتنات 😅 أتكلم عن أفكارك تراني ما هذا يا رجل !!!! ترفع لك القبعة على هذه الفكرة الجميلة جداً بكل صدق وأمانة 🤗 راقت لي كثيراً ، وخصوصاً فكرة ان الملاحظات تظهر حسب اسم الجهاز لأصحاب قاعدة البيانات المشتركة على أكثر من جهاز . أحسن الله إليك و لوالديك ، وأثابكم الجنة على ما صنعتم .. لي فكرة ، ولكن ليس الآن موعدها لأطرحها عليك 😁

ولا يهمك أخي ابو يوسف ، تم التفعيل للتجربة .. شكراً لك للإفادة

نعم صحيح ما تفضلتم به معلمي الفاضل ، بدلاً من تكرار الكومبوبوكس في كل نموذج تريده ، هي فكرة جميلة ان تقوم بانشائه داخل الجدول ، وعند الاستيراد يكون جاهزاً ، ولكن إن كان يعتمد على معرف العميل مثلاً كقيمة اساسية وليس الإسم كما في مثال أخونا الكريم صاحب الموضوع . انا من جهتي اعتمد النسخ واللصق للكومبوبوكس فيكون جاهزاً بمصدر واسمه موحداً في جميع النماذج أو التقارير التي يلزمها . أستاذي الفاضل ، فعلاً ما تفضلتم به ، وهنا كان الأنسب لصاحب الموضوع أن يرفق أكثر من سجل لكل عميل لرؤية النتائج بشكل أوسع وأفضل . لم ترفق سوى سجل لكل عميل وهنا كان الأولى ارفاق أكثر من سجل متنوعة

وعليكم السلام ورحمة الله وبركاته .. بدايةً وأنت تعلم أنه كثيراً ومراراً وتكراراً ننصح بأن نبتعد عن التسميات العربية للعناصر والمكونات داخل قاعدة البيانات .. أيضاً بالنسبة لي شخصياً ( والأمر ليس ملزماً ) أن لا أجعل القوائم المنسدلة ( الكومبوبوكس ) داخل حقول الجداول ، بل داخل النماذج بحيث يكون بدلاً من اسم العميل داخل كل حقل في الجدول ، أن يكون رقمه المعرف به . وذلك سيعكس عليك عند انشاء الاستعلامات الإحصائية والتقارير السهولة في الحصول على المعلومة . ناهيك عن أن حجم السجل مع التكرار سيكون أكبر من القيمة الرقمية ( كمعرف رقم المعميل على سبيبل المثال ) . على العموم .. المهم في الموضوع هو أنني قمت بإنشاء استعلام لجمع الفواتير لكل عميل ، واستعلام آخر لجمع السندات لكل عميل ، واستعلام أخير يأتيك بالتفاصيل داخل التقرير ، في المرفق التالي ، حيث يتم اختيار اسم العميل ثم زر افتح تقرير العميل . date.zip

العفو يا معلمي الفاضل ، ما كنت قد تعلمت لولا ردودكم التي تعبر عن خبرة عميقة متأصلة . وبيني وبينك سر صغير 🤫 لم أقم يوماً باستخدام ويندوز أو أوفيس بواجهة عربية منذ ويندوز 95 . وعلى خطاكم عند استخدامي واجهة عربية فإني اتوووه وأدور حول نفسي لإيجاد حل لمشكلة صغيرة . أثابكم الله على دعائكم ، وأسأل الله أن يجعل لكم بمثل ما دعيتم وأكثر 💐

ماذا لو أضفنا الحقل Mhr_id داخل الإستعلام ، وجعلناه مخفياً غير ظاهر واعتمدنا ترتيب قيمه تصاعدياً ، هكذا !! Database4.zip

هل هذا ما تريده ؟؟ اوفسنا.zip

أخي @عبد اللطيف سلوم ، لا تبخل علينا في ملف بسيط للإطلع عليه والإستفادة 😊

عند النقر على زر حذف ملفات التفعيل ، سيتم اغلاق القاعدة نفسها ، ثم بعد ذلك افتح القاعدة هذه المقصد يا استاذي انه لا تفتح القاعدة اللي في الصورة وبعدين تضغط الزر حذف ملفات التفعيل

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