Moosak

عند إغلاق نافذة الصف الأول أعمل Requery للعناصر التي تريد تحديثها ( مربعات النص التي بها الأرقام )

وكفكرة إضافية أيضا .. قم بإضافة حقل للترقيم التلقائي (وهو مهم للجداول للفرز والربط بالجداول الفرعية ووو...) ... وحقل آخر لترقيم الخطابات يمكنك التحكم به كما تشاء ... ولن تكون ملزم بالترقيم التلقائي لترقيم الخطابات .. 🙂

وعليكم السلام ورحمة الله وبركاته 🙂 شوف هذا الرابط : https://officena.net/team/mas/access.html

وعليكم السلام ورحمة الله وبركاته 🙂 عملت شيء مشابه لهذا سابقا .. فقط يمكن تعديله ليتوافق مع الحاجة 🙂 ‏‏Meter -Moosak _ Final.accdb

لله درك يا أبا جودي .. معلم وسيد المعلمين .. 🤗🌷🌹 هذي تحفة من أروع إبداعاتك 😊👌 وحوار شيق جدا .. تحية لكما @ابوخليل @ابو جودي 🌷

هل جربت : 🙂👇🏻

جميل 🙂 كيف يمكن لي أن أنقل هذا العمل على برنامجي وتغيير اسم التقرير المطلوب فتحه ؟

كفكرة .. أعجبتني جميلة جدا ما شاء الله 🙂 وشكرا لك 🌷🙂 لكن أعتقد أنها محتاجة للكثير من التبسيط ليسهل استخدامها مع أي تقرير .. بحيث يتم عمل دالة Function خاصة لفتح التقرير المطلوب توضع على زر فتح التقرير المطلوب بدون تعقيدات 🙂👌🏻

خلي هامش الربح عبارة عن نسبة معينة ( 20% مثلا ) .. واضربه في المبلغ .. 🙂 وممكن باستخدام الدالة IIF يمكن تشترط إذا المبلغ بين كذا وكذا تكون النسبة 20% وبين كذا وكذا تكون النسبة 50% .... وهكذا

لا يتم تكرار الأرقام .. فالكود يعيد ترقيم حقل ال ID تصاعديا كل مرة ..

ميزة الجدول الفرعي أنه يمكنك من تحديد أكثر من فترة إنقطاع حسب ضروف المشترك .. ومن ثم تجمع عدد الأيام من أكثر من سجل (حسب عدد الإنقطاعات) خلال الفترة التي تحددها (شهريا مثلا) 🙂 أعيدك إلى فكرة الجدول الفرعي 😅✌ فمن خلالها يمكنك أن تحسب : عدد الأيام - عدد النقاط - عدد الأرصدة - ..... سمها ما شئت ومن خلالها يمكنك إضافة حقل لتأكيد موافقة المالك أيضا .

أسعد الله أوقاتك حبيبنا @ابوخليل 🙂 الفكرة اللي في بالي هي عمل جدول فرعي تضاف فيه فترة الغياب ويكون فيه حقلين تاريخ [من] - [إلى] .. ومن هذين الحقلين يتم احتساب المدة بالأيام ثم تضيفها لعدد الأيام المتبقية .. ويمكن منها استخراج الكثير من البيانات حسب الحاجة 🙂 أما إن كانت الآلية عبارة عن رصيد فيمكن أيضا إضافة حقل في نفس الجدول للإختيار بين المدة أو الرصيد حسب نوع الاشتراك .. وهذه الفكرة قريبة من فكرة كوبونات الخصم أو الأرصدة الإضافية للإجازات أو العروض التجارية التي لها تاريخ بداية ونهاية ... وهكذا والله أعلم 🙂

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

البساطة والجمال والإتقان .. 😊🌼 شكرا ألف .. ولكن يبقى الإشكال والتساؤل نفسه والذي طرحته في موضوع الأستاذ فادي @Foksh >> وهو عندما يفتح البرنامج أكثر من مستخدم كيف ستكون النتيجة ؟؟ جربت نسخ النموذج وفتحتهما معا على أعتبار أن هناك مستخدمين إثنين يعملان في نفس الوقت .. فكانت النتيجة كما ترى عيناك ..

ما شاء الله تبارك الرحمن .. 😊🌼 سباق محتدم في الإبداعات والابتكارات هذه الفترة .. شكله موسم الإبداعات 😁👌 سلمت يمناك عم الحاج مستر @Foksh .. شغل معلمين 👍🙂 .. لكن سؤالي هو : هل هذه الحركة سوف تتوافق مع قواعد البيانات المشتركة لأكثر من مستخدم ؟ ألن يحصل تضارب بين المستخدمين عند التشفير وفكه وخصوصا وقت إدخال البيانات ؟ فرص حصول الأخطاء كبيرة .. وخصوصا لو نسينا تغيير حالة ال status قبل عملية إدخال البيانات .. هي مجرد أفكار ولعلها من وحي الخيال وضرب من ضروب الفكر فقط 🙂🖐

أخي @عذاب الزمان بعد الاطلاع على مرفقك وجدت أنك معتمد على حقل ال ID بشكل أساسي .. لذلك غيرت المنهجية وعملته لك بشكل يلائم مرفقك .. نفضل : 🙂 ADD.accdb

لدي فكرة أستخدمتها في عدة برامج .. 🙂👌 إضافة حقل رقمي من نوع Doble مزدوج ونسميه Order مثلا .. وهو حقل خاص بالترتيب ( ترتيب ظهور السجلات ) بحيث يتم ترتيب السجلات بناءا على هذا الحقل.. ويأخذ قيمته تلقائيا بعد إدراج السجل .. ثم بعد ذلك تتغير قيمته حسب موقعه المطلوب بين السجلات .. بحيث تضيف 0.001 مثلا لقيمة السجل المراد أن يكون هذا السجل بعده ليأخذ موقعه المناسب .. وبهذا نستطيع التحكم بترتيب السجلات بدون التأثير على حقل المفتاح الأساسي

عن نفسي ما أستخدمها .. ما عدا Microsoft Web Browser أستخدمته في برنامج واحد كمستعرض للملفات .. وحسب القائمة المذكورة ألاحظ أنه مش من ضمنها 😅 . ولكن الأهم هو أن مايكروسوفت توفر البدائل لهذي الأدوات .. حسب المقال عمي @jjafferr لم يرد ذكر الأكسس من ضمن البرامج ، فقط Word, Excel, PowerPoint, and Visio :

شاركنا هذا النجاح أخي @غريب طرابلس 🙂🌹

أهلا بك أخي @samyegypt1 🙂 الموضوع قديم جدا .. من سياسات المنتدى أن تقوم بفتح موضوع جديد تذكر فيه طلبك .. ثم تشير لهذا الموضوع في حال وجود رابط بينهما .. تحياتي .. 🙂

العفو أستاذنا .. 🙂🌹 .. وسبب عدم إخفاء النموذج هو أنه مفتوح أثناء تشغيل الكود والأصل أنه يعمل للنماذج والتقارير المغلقة .. ولفعل ذلك هناك أكواد أخرى تقوم بهذا الأمر.. 👌

تفضل عمي @الحلبي 🙂 اخفاء الجداول وعدم استيرادها.accdb

أجريت هذا التعديل .. وربما يكون للخبراء رأي بخصوص Resume Next 🙂 : test.rar

أستاذنا العزيز @الحلبي .. باختصار حسب برنامج الأستاذ العزيز @محمود حموده 🙂 هذا الكود الذي تم استخدامه لإخفاء جميع العناصر : Option Compare Database Option Explicit Dim TD As TableDef, QD As QueryDef, FD As AccessObject, RD As AccessObject, MD As AccessObject, MacroD As AccessObject ' إخفاء جميع الكائنات في قاعدة بيانات محددة Sub HideAllObjects(Optional dbPath As String = "") Dim db As DAO.Database Dim isSourceDb As Boolean On Error Resume Next ' إذا لم يُحدد dbPath، سيتم العمل على قاعدة البيانات الحالية If dbPath = "" Then Set db = CurrentDb isSourceDb = False Else Set db = DBEngine.Workspaces(0).OpenDatabase(dbPath) isSourceDb = True End If ' إخفاء الجداول For Each TD In db.TableDefs If Left(TD.Name, 4) <> "MSys" Then If Len(TD.Connect) > 0 Then ' الجدول مرتبط بقاعدة بيانات أخرى Application.SetHiddenAttribute acTable, TD.Name, True Else ' الجدول محلي TD.Attributes = TD.Attributes Or dbHiddenObject End If End If Next TD ' إخفاء الاستعلامات For Each QD In db.QueryDefs If Not (QD.Name Like "~*") Then Application.SetHiddenAttribute acQuery, QD.Name, True End If Next QD ' إخفاء النماذج For Each FD In CurrentProject.AllForms Application.SetHiddenAttribute acForm, FD.Name, True Next FD ' إخفاء التقارير For Each RD In CurrentProject.AllReports Application.SetHiddenAttribute acReport, RD.Name, True Next RD ' إخفاء وحدات الماكرو For Each MacroD In CurrentProject.AllMacros Application.SetHiddenAttribute acMacro, MacroD.Name, True Next MacroD ' إخفاء الوحدات النمطية For Each MD In CurrentProject.AllModules Application.SetHiddenAttribute acModule, MD.Name, True Next MD ' إخفاء الكائنات المخفية Application.SetOption "Show Hidden Objects", False ' إغلاق قاعدة البيانات المصدر إذا تم فتحها If isSourceDb Then db.Close End Sub وهذا كود إظهارها مجددا : ' إظهار جميع الكائنات في قاعدة بيانات محددة Sub ShowAllObjects(Optional dbPath As String = "") Dim db As DAO.Database Dim isSourceDb As Boolean On Error Resume Next ' إذا لم يُحدد dbPath، سيتم العمل على قاعدة البيانات الحالية If dbPath = "" Then Set db = CurrentDb isSourceDb = False Else Set db = DBEngine.Workspaces(0).OpenDatabase(dbPath) isSourceDb = True End If ' إظهار الجداول For Each TD In db.TableDefs If Left(TD.Name, 4) <> "MSys" Then If Len(TD.Connect) > 0 Then ' الجدول مرتبط بقاعدة بيانات أخرى Application.SetHiddenAttribute acTable, TD.Name, False Else ' الجدول محلي TD.Attributes = TD.Attributes And Not dbHiddenObject End If End If Next TD ' إظهار الاستعلامات For Each QD In db.QueryDefs If Not (QD.Name Like "~*") Then Application.SetHiddenAttribute acQuery, QD.Name, False End If Next QD ' إظهار النماذج For Each FD In CurrentProject.AllForms Application.SetHiddenAttribute acForm, FD.Name, False Next FD ' إظهار التقارير For Each RD In CurrentProject.AllReports Application.SetHiddenAttribute acReport, RD.Name, False Next RD ' إظهار وحدات الماكرو For Each MacroD In CurrentProject.AllMacros Application.SetHiddenAttribute acMacro, MacroD.Name, False Next MacroD ' إظهار الوحدات النمطية For Each MD In CurrentProject.AllModules Application.SetHiddenAttribute acModule, MD.Name, False Next MD ' إظهار الكائنات المخفية Application.SetOption "Show Hidden Objects", True ' إغلاق قاعدة البيانات المصدر إذا تم فتحها If isSourceDb Then db.Close End Sub والكود يصلح للقاعدة الحالية أو لأي قاعدة أخرى بحيث أنك إما أن تضع رابط مسار القاعدة المطلوبة، أو تتركه فارغا لكي يخفي عناصر قاعدتك الحالية : Call HideAllObjects(dbPath) Call ShowAllObjects(dbPath)

أهلا بك في المنتدى أخي محمد 🙂 بل تعليمات المنتدى تقتضي بأن ترفق الملف هنا لكي يحاول الإخوة المساعدة في حل مشكلتك ..