Moosak

أجريت هذا التعديل .. وربما يكون للخبراء رأي بخصوص 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)

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

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

شكرا لك أخي @Ahmos (آخر ملوك مصر) 😅🖐 على هذا الجهد الطيب 🙂🌹 أكواد نظيفة ومرتبة ما شاء الله .. رغم قلة معرفتي بكيفية التعامل مع ملفات الريجيستري 😁 لكن لكي تفتح لنا الآفاق هل يمكنك البدء بإعطاء أمثلة عملية على النقطتين [1 - 2 ] مثلا ؟

وعليك السلام ورحمة الله وبركاته أيها العزيز مستر @Foksh 😊🌹 شكر الله سعيك .. وبارك الله جهدك .. وأحسن الله إليك .. 🙂🌷 إقتراح من مبتديء لسمو معاليك : 👍🏻😁 مع إيماني بكم الإبداع الذي يحويه هذا الجهد .. إلا أني أقترح عليك أن يكون مع هذه الدرة الرائعة إضافة مثال من الجداول والبيانات لكي يتضح للمتابعين والمستفيدين كيفية الاستخدام ونرى صورة مباشرة للنتيجة .. فبالمثال يتضح المقال 😄🖐🏻

شكرا لك أخي @محمود حموده 🙂 وهدية مقبولة 🌹🌷

وعليكم السلام أخي غسان .. مع أن الملف بدون بيانات ولكن عبأته لك ببيانات عشوائية .. وطبقت عليه فكرة والدنا العزيز @ابوخليل 🙂 والدور على معلمنا الحبيب @Foksh ليطبق فكرته 😊👌 ghassan.accdb

أخي العزيز غسان @ghassan1959 🙂 .. قم أنت بإرسال ملفك وفيه الجدول والاستعلام المطلوب ترقيمه بحيث يكون فيه كم من البيانات 🙂

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

بسم الله بسم الله .. ما شاء الله ما شاء الله .. بسم الله المكين .. نعوذ بالله من السحر والعين لا هذي يبغالها سطل قهوة على صحن برياني على دست حلوى عمانية علشان الواحد يستوعب كم الإبداع والعبقرية الي يحويها هذا الموضوع 😅👌 الاسم لوحده تحفة 😄🖐🏻 شكرا ألف على كل هذي الدرر .. شيخ المعلمين 😊🌹🌷

تمت التجربة بنجاح ما شاء الله 😊👌 وفوق الحلاوة اللي أحلى وأحلى .. بارك الله فيك شيخ المعلمين 😊🌷 فقط لاحظت أن ماكرو التعدلات لا يحفظ القيمة قبل التعديل Old Value .. ولا طبيعي كذا ؟

شيخ المعلمين @jjafferr 🙂🌹 .. عطاء لا ينقطع ومعين لا ينضب ❤ حسن فوق إحسان .. شكرا جزيلاً لك بحجم السماء 🌷

عذر أقبح من ذنب !!

لا أفهم ما الداعي للكذب في طلب المساعدة .. ومحاولة تشويه صورة العرب 😒👊🏻

تحية عاطرة لك حبيبنا مستر @Foksh 🙂🌹 جمال على جمال .. وإبداع يلحقه إبداع 😊👌 :: لعيونك تم دمج التحديث بالمشاركة الأولى ::

أيش أخبارك مع الأجانب أستاذة صفاء ؟؟ @safaa salem5 https://www.access-programmers.co.uk/forums/threads/how-to-add-space-between-lines-in-a-report-through-a-value-in-a-field-in-the-settings-table.332569/

ربما لو خليت الصورة كخلفية للنموذج بالنفس وليست كصورة مستقلة بيقل الترميش ..

الحمد لله زال العناء .. 🙂 وماهو البديل ؟

بالتأكيد أخي .. على الرحب والسعة 🙂 طبعا هذا النموذج يوزع الإجازات السنوية للموظفين .. يمكنك استبدال الإجازات بالمشاريع أو المهام أو أي شيء له بداية ونهاية مثل العقود أو الدراسات العليا أو الرحلات أو .. أو .. أو ... حسب حاجتك وخيالك الواسع 🙂👌 تفضل : Gant Chart.accdb

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

هذا ملف جاهز لاستيراد الملفات بجانب قاعدة البيانات واستعراضها في متصفح (لعرض الصور + ملفات PDF) أو مستعرض الصور (بطريقتين) .. جعلت الأكواد ( إضافة - فتح - حفظ - حذف ) في موديول عام لذا يمكن الاستفادة منها في جميع النماذج بسطور قليلة ومبسطة .. Private Sub AddFilesBtn_Click() ' إضافة مرفق Dim Add Add = AddFiles(Me, Me.ID.Value) If Add = "" Then Exit Sub Me.FileName = Add End Sub Private Sub BrowserBtn_Click() ' استعراض المرفق Call BrowserAttachment(Me.FileName.Value) End Sub Private Sub DeletBtn_Click() ' حذف المرفق Call DeletFileFromAttacments(Me, "FileName", Me.FileName.Value) End Sub Private Sub DownloadBtn_Click() ' تحميل المرفق في جهازك Call SaveAttacment(Me.FileName.Value) End Sub وبه ميزة أن الروابط تتأقلم مع نقل البرنامج من مكان إلى آخر بشرط أن الملف attachments يجب أن يكون بجانب قاعدة البيانات دائما .. مستعرض الصور : العرض عن طريق المتصفح : للتحميل : حفظ المرفقات بجانب البرنامج دائما 2.rar

وعليكم السلام ورحمة الله وبركاته .. 🙂 استخدم الدالة Trim لحذف المسافات قبل وبعد النص في حدث بعد التحديث للحقل .

لعمل شبكة جدولية تربط العناصر مع بعضها .. اتبع الخطوات التالية : 1- اختر عنصر واحد ..... ومن القائمة Arrange > Stacked 2- بعد ذلك ألحق بقية العناصر للشبكة بسحبها وظمها إلى الشبكة واحد تلو الآخر: وستصبح العناصر مربوطة مع بعضها بشبكة واحدة : 3 - لإضافة مسافة فارغة بين العناصر : حدد العمود .. من خلال الخيارات ( إضافة لليمين ) ... 4- جرب الخيارات الأخرى لزيادة أو تنقيص المسافة بين العناصر

هذه هي المشكلة الأزلية مع الأكسس .. 🤦‍♂️ أنا هصف جنبك لحد ما حد يحل هذي المعضلة 😅