كل الانشطه

تمام أستاذنا الكريم أنا لا أطلب شيئاً جاهزاً بل أريد التعلم أيضاً كمثال : كيف تم حذف بعض محتويات القائمة المختصرة ؟ بل كيف يتم حذف القائمة المختصرة كلها الغير مستخدمة بالكامل من التطبيق نفسه ؟

مشاركتي الاخيرة كانت حسب طلبك اعلاه

تمام أخى jjafferr أقرب التعديلات للقائمة المختصرة التى أميل لها فى تطبيقاتى هى قائمة الزميل منتصر الانسي والتى قال عنها "جرب القائمة في الملف المرفق وهي معي منذ أن كنت أعمل على أكسس 2003" صورتها على 2003 نفس القائمة على 2007 ( وفيها عدم إتاحة سطر الصفحات المعروضة !! ) لو تم إيجاد طريقة لإتاحة السطر الباهت فى 2007 تكون المهمة اكتملت 100%

وإياكم يا صديقي ، ولكن انت تعتقد ما لم تقم بتوضيحه وشرحه . اشرح النتيجة التي تريدها حتى استوعب الخلل 🤗

ياليتنا أشركناك معانا في التحدي 😁👋 ولكن ما ضاع شي .. خلينا نشوف إبداعاتك 😎👌

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

اخوي احمد ارفقت لك الكود الاصل لعمل هذه القائمة ، وقمت بتوقيف القوائم التي لا تحتاج لها ، وبتعديل ارقام القوائم التي تريدها ولم تظهر لك. 1. استورد القائمة الى برنامجك ، وجربها ، 2. اذا ما اشتغلت القائمة بالطريقة الصحيحة ، قم باستيراد الدالة ، وخلينا بعدين ننظر في تعديل القوائم اللي ما تشتغل. خلي عندك هذه الروابط حتى نرجع لها وقت الحاجة: . https://mskb.pkisolutions.com/kb/213552 Shortcut Menu_MDB_Report.mdb

الحمدلله تم عمل الدالة ، وان شاء الله ارفقها في الموضوع الجديد

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

بارك الله فيك بس اعتقد في مشكلة في اضافة checkbox

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

ممتاز

الشر ح واضح طبعاً .. بارك الله فيك لكن لى سؤال ماذا لو أردت تعديل قائمة مختصرة جاهزة ( ولتكن عملياً قائمة أستاذنا jjafferr ) وقد رفعت أعلاه صورة منها بالصيغة mdb هنا أريد الاحتفاظ فقط ببعض محتوى: rpt_Zoom_Paged_Print_Export ومن الأخيرة أريد فقط أول أربعة قوائم إلى Select pages and Printer وحذف الباقى وفى النهاية تأخذ القوائم المختصرة الجديدة إسم جديد ( وليكن Printing ) حاولت كما ترى من الصور ، لكن الحذف السطور الأساسية غير متاح .. الفرعى فقط

وعليكم السلام ورحمة الله وبركاته شكرا على المشاركة اخوي موسى ، مرفقات متعوب عليها

في أكسس 2003 العملية أسهل حيث يمكن إنشاء وتعديل القوائم مباشرة بالخطوات التالية أنقر بالزر الايمن على شريط الادوات وحدد تخصيص ستفتح لك نافذة قم بالخطوات كما هو محدد بالصورة عند النقر على موافق سيظهر لنا شريط فارغ كما بالصورة الآن نقوم بإضافة الأزرار المطلوبة كما بالصورة المتحركة التالية في هذا الوضع يكون الشريط هو من نوع قائمة أدوات أو Tool Bar أي أنه يمكن أن إستخدامه كقائمة في شريط الأدوات وليس كقائمة مختصرة وحتى نحولها لقائمة مختصرة نقوم بتنفيذ الخطوات كما في الصورة التالية ستظهر لنا نافذة منبثقة ومن قائمة النوع نحدد (منبثقة) كما بالصورة بعد أن نختار هذا الخيار سنلاحظ أنه تم إلغاء تفعيل جميع الخيارات بالاسفل ماعدا خيار إمكانية التخصيص (والذي إذا قمت بإلغائه فلن تتمكن من إضافة أو تعديل أي عناصر في القائمة) بعد أن حولنا القائمة إلى قائمة منبثقة سنلاحظ إختفاؤها من قائمة أشرطة الأدوات ولكي نظهرها فيجب علينا تحديد قائمة الأدوات (القوائم المختصرة أو Shortcut Menus) كما بالصورة ليظهر لنا شريط بالقوائم المختصرة وما يهمنا هنا هو آخر قائمة وهي قائمة Custom أو مخصصة والتي عند النقر عليها ستظهر لنا جميع أشرطة القوائم المختصرة ولكن نظراً لأنه لايوجد إلا شريط واحد فسيكون هو الوحيد الظاهر كم في الصورة من هنا وبالنقر بالزر الأيمن على أي عنصر يمكننا تعديل التسميات أو إضافة العناصر بنفس الطريقة الموضحة في الصورة المتحركة أعلاه (سحب وإفلات) أو حذف العناصر بالنقر بالزر الأيمن وإختيار حذف كما بالصورة عند الإنتهاء من كل التعديلات سنحصل على النتيجة التالية عندها نقوم بإغلاق نافذة التخصيص كما بالصورة الآن لو فتحنا أي تقرير في وضع التصميم سنجد أن القائمة ستظهر في الخصائص وإذا فتحناه في وضع المعاينة ونقرنا بالزر الأيمن سنحصل على هذه النتيجة الان يمكننا إستيراد هذه القائمة من أي تطبيق آخر بدون عناء إنشاء وتعديل قائمة جديدة وهكذا نكون قد إنتهينا من خطوات إنشاء وتعديل القوائم في أكسس 2003 أما في الإصدارات الأحدث فإن القوائم يتم إنشاؤها بإستخدام الكود ولو إطلعت على الأداة التي كنت قد رفعتها في هذا الموضوع ستجد الطريقة أرجو أن يكون الشرح واضح تحياتي

اعرض الملف 🏆🌟 نتائج تحدي المبدعين 12 🌟🏆 :: مستعرض الملفات التفاعلي :: 📟🌟 السلام عليكم ورحمة الله وبركاته يطيب لي أن أطرح بين أيديكم نتائج : 🙂 🌟 تحدي المبدعين 12 🌟 :: مستعرض الملفات التفاعلي :: 🌟 هذا التحدي هو عبارة عن تحدي يطرح بين فترة وأخرى على جروب الواتسأب مجتمع اكسس جروب وكان هذا التحدي هو التحدي رقم 12 وكان موضوع التحدي هو إنشاء وتصميم مستعرض ملفات تفاعلي عن طريق الأكسس . 🤗 المشاركين : لدينا 6 مشاركات رائعة من 4 مشاركين متميزين : - المهندس / فادي Foksh (مشاركتان). - المهندس/ يوسف العزير (مشاركة). - المهندس/ أبو مازن الرازحي (مشاركة). - وأخوكم/ موسى الكلباني (مشاركتان). :: صور المشاركات :: المهندس/ أبو مازن الرازحي المهندس / فادي Foksh 1 المهندس / فادي Foksh 2 موسى الكلباني 1 موسى الكلباني 2 المهندس/ يوسف العزير ⭐ رابط الانضمام لمجموعة الواتسأب : https://drive.google.com/drive/folders/1Ku3j_1TBQ03M199RBAO86DqDcFKcgAk3?usp=drive_link ⭐ رابط جميع ملفات التحديات السابقة 🌟 : https://drive.google.com/drive/folders/1xOqWpWiLqKacPTG2MQDrohJp5DKDRTY2?usp=drive_link 🌸😊 كل التوفيق للجميع 😊🌸 صاحب الملف Moosak تمت الاضافه 06/10/26 الاقسام قسم الأكسيس  

طالما أن السمكة متاحة ، فهل يمكن أن نتعلم من حضراتكم إمكانية اصطيادها أريد تعلم كيف يمكن تصميم هذه القوائم المختصرة ؟

إليك التجربة : على أكسس 2003 كل محتوى القائمة المختصرة متاح على أكسس 2007 الكل متاح ما عدا سطر "الصفحات المعروضة"

طالما وهذا طلبك جرب القائمة في الملف المرفق وهي معي منذ أن كنت أعمل على أكسس 2003 تحياتي Shortcut Menu.mdb

جميل جداً إخلاصك وتفانيك فيما بحثت عنه وكنت _أنت_ بارعاُ فيه شريط القائمة المختصرة فكرة رائعة وتختصر الكثير من الوقت والجهد ولا أطلب منها سوى وظيفة الطابعة فقط ، وهى باهتة فى 2003 غير محتاج لوظيفة أكسل أو وورد أو pdf ما تفضلت به بالكود أعلاه وكيفية استدعاءه أشكرك عليه لكن لا أظن أن ما سبق سوف يعادل فكرتك فى القائمة المختصرة وسهولة استخدامها وبالمناسبة الكود السابق لا ينتج المطلوب منه (فقط وميض ولا شئ آخر) .. جربته حتى على 2007 وحيث أن أغلب المدارس تستعمل أوفيس 2007 فما فوق فلا أجد مشكلة هنا المشكلة قد تكون عندي لأننى أجد سهولة كبيرة جداً فى التعامل مع 2003 تحياتي و تقديري لشخصك الكريم

اخي احمد @أحمد العيسى نظرا لأن مشاركتك لا تخص الموضوع ، فقد فتحت موضوع خاص لها ، هنا :

وعليكم السلام اخي احمد ولكوني لا املك اكسس 2003 ، فقد اعطيتك اقتراح من احد المواقع ، ولكن صادفت بعض الامور الاخرى البارحة (لا علاقة لها بهذا الكود) ، فأعدت التفكير مرة اخرى ، واليك النتيجة: جميع هذه الاوامر هي جزء من الاكسس ، فإذا مو موجودة في الاكسس ، فلن تعمل وستجدها باللون الرمادي (مثل التصدير الى PDF والتي لا توجد في اكسس 2003) ، ولاحظت اني لما فتحت التقرير بوضع Report View ، فاصبح امر close في القائمة رمادي ، فهاذ معناه ان الاكسس يعتبر هذا الوضع وضع نموذج وليس وضع تقرير !! عليه طلبت من الذكاء الاصطناعي ، فاعطاني هذه الدالة حتى تعمل على الصيغتين mdb و accdb ، وهي تعتمد في عملها على التأكد من صيغة البرنامج mdb او accdb ، فهذا معناه ان الدالة لا تكون ثابته (لا تحتاج الى الكود بعد تصنيعها) ، وانما هي مؤقته وتعمل كل مرة تشغل فيها الدالة : Public Function SCM_Zoom_Pages_Print_Export_TEMPORARY() Dim cmbName As String Dim cmb As Object Dim cmbCtrl As Object ' Variable IDs to handle MDB vs ACCDB compatibility Dim idQuickPrint As Long Dim idPrintDialog As Long Dim idExportWord As Long Dim idExportExcel As Long Dim idClose As Long On Error Resume Next 'If menu with same name exists delete cmbName = "rpt_Zoom_Pages_Print_Export_TEMPORARY" CommandBars(cmbName).Delete If Err.Number <> 0 Then Err.Clear On Error GoTo 0 ' Determine Control IDs based on file format (MDB < 12, ACCDB >= 12) If CurrentProject.FileFormat < 12 Then ' Classic Control IDs for MDB format idQuickPrint = 4 idPrintDialog = 19 idExportWord = 5535 idExportExcel = 5534 idClose = 1813 Else ' Modern Control IDs for ACCDB format idQuickPrint = 2521 idPrintDialog = 15948 idExportWord = 11725 idExportExcel = 11723 idClose = 923 End If ' Create the shortcut menu as TEMPORARY (The final parameter is set to True) Set cmb = CommandBars.Add(cmbName, msoBarPopup, False, True) With cmb ' Add Zoom Set cmbCtrl = .Controls.Add(msoControlPopup, 21, , , True) 'Zoom Set cmbCtrl = .Controls.Add(msoControlPopup, , , , True) cmbCtrl.Caption = "Zoom Report" cmbCtrl.Controls.Add msoControlButton, 15681, , , True 'Zoom Fit to window cmbCtrl.Controls.Add msoControlButton, 1834, , , True 'Zoom 10% cmbCtrl.Controls.Add msoControlButton, 1833, , , True 'Zoom 25% cmbCtrl.Controls.Add msoControlButton, 1832, , , True 'Zoom 50% cmbCtrl.Controls.Add msoControlButton, 1831, , , True 'Zoom 75% cmbCtrl.Controls.Add msoControlButton, 7, , , True 'Zoom 100% cmbCtrl.Controls.Add msoControlButton, 1830, , , True 'Zoom 150% cmbCtrl.Controls.Add msoControlButton, 1829, , , True 'Zoom 200% cmbCtrl.Controls.Add msoControlButton, 6463, , , True 'Zoom 500% cmbCtrl.Controls.Add msoControlButton, 6464, , , True 'Zoom 1000% ' Add Pages Set cmbCtrl = .Controls.Add(msoControlPopup, 176, , , True) 'Pages Set cmbCtrl = .Controls.Add(msoControlPopup, , , , True) cmbCtrl.Caption = "Pages View" cmbCtrl.Controls.Add msoControlButton, 5, , , True '1 page cmbCtrl.Controls.Add msoControlButton, 639, , , True '2 Pages cmbCtrl.Controls.Add msoControlButton, 1801, , , True '4 Pages cmbCtrl.Controls.Add msoControlButton, 1800, , , True '8 Pages cmbCtrl.Controls.Add msoControlButton, 1799, , , True '12 Pages ' Add the Print command. Set cmbCtrl = .Controls.Add(msoControlButton, idQuickPrint, , , True) cmbCtrl.BeginGroup = True cmbCtrl.Caption = "Quick Print" ' Add the Print command. Set cmbCtrl = .Controls.Add(msoControlButton, idPrintDialog, , , True) cmbCtrl.Caption = "Select Pages and Printer" ' Add the Page Setup... command. Set cmbCtrl = .Controls.Add(msoControlButton, 247, , , True) cmbCtrl.Caption = "Page Setup" ' Add the Mail Recipient (as Attachment)... command. Set cmbCtrl = .Controls.Add(msoControlButton, 2188, , , True) cmbCtrl.BeginGroup = True cmbCtrl.Caption = "Email Report as an Attachment" ' Add the PDF or XPS command (Only available if running Access 2007 or newer) If Val(Application.Version) >= 12 Then Set cmbCtrl = .Controls.Add(msoControlButton, 12499, , , True) cmbCtrl.Caption = "Save as PDF/XPS" End If Set cmbCtrl = .Controls.Add(msoControlButton, idExportWord, , , True) cmbCtrl.Caption = "Export to Word..." cmbCtrl.FaceId = 42 Set cmbCtrl = .Controls.Add(msoControlButton, idExportExcel, , , True) cmbCtrl.Caption = "Export to Excel…" cmbCtrl.FaceId = 263 ' Add the Close command. Set cmbCtrl = .Controls.Add(msoControlButton, idClose, , , True) cmbCtrl.BeginGroup = True cmbCtrl.Caption = "Close Report" End With Set cmb = Nothing Set cmbCtrl = Nothing End Function . وعلشان تشتغل القائمة ، فيمكنك مناداتها في حدث فتح التقرير ، وتتلغيه عند المغادة ، هكذا : Private Sub Report_Open(Cancel As Integer) Call SCM_Zoom_Pages_Print_Export_TEMPORARY Me.ShortcutMenuBar = "rpt_Zoom_Pages_Print_Export_TEMPORARY" End Sub Private Sub Report_Close() Call SCM_Zoom_Pages_Print_Export_TEMPORARY End Sub

بالاشارة الى المشاركة: فعلاً .. من أسهل ما يمكن وبطريقة ما أضفت هذا الشريط إلى تقارير ملف عندي بصيغة mdb لأننى أقوم بتشغيله على كافة إصدارات الأكسس من 2003 إلى 2024 فى الإصدار 2007 ممتاز ، تم ظهور وتمكين جميع محتوياته فى الإصدار 2003 ، للأسف بعض محتوياته الهامة أصبحت غير متاحة Shortcut Menu.mdb

وعليكم السلام ورحمة الله وبركاته .. هذه فكرة بسيطة للورقة الثانية في الخلية D4 ( المطلب الأول ) ، جربه :- Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$D$4" Then Dim cell As Range, n As Long Range("B6:B35, D6:D35").ClearContents If IsDate(Target.Value) And Target.Value <> "" Then For Each cell In Sheets("بيانات العاملين").Range("B2:B" & Sheets("بيانات العاملين").Cells(Rows.Count, "B").End(xlUp).Row) If cell.Value = Target.Value Then n = n + 1 Cells(6 + ((n - 1) Mod 30), 2 + ((n - 1) \ 30) * 2).Value = cell.Offset(0, 1).Value If n = 60 Then Exit For End If Next cell End If End If End Sub المطلب الثاني في الورقة الثالثة ، جرب استعمال الفكرة التالية بحيث لتحديد العدد جعلت الخلية G4 لتحديد العدد بدلاً من 5 والتقيد به . وبالتالي اذا لم تحدد قيمة في G4 سيكون الافتراضي = 5 أسماء ، والكود كالتالي في الورقة الثالثة :- Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("F4:G4")) Is Nothing Then Dim cell As Range, n As Long, limit As Long Dim status As String Range("C7:C" & Rows.Count).ClearContents status = Range("F4").Value If status = "ناجح" Or status = "راسب" Then limit = IIf(Val(Range("G4").Value) <= 0, 5, Val(Range("G4").Value)) For Each cell In Sheets("بيانات العاملين").Range("E2:E" & Sheets("بيانات العاملين").Cells(Rows.Count, "E").End(xlUp).Row) If cell.Value = status Then n = n + 1 Cells(6 + n, "C").Value = Sheets("بيانات العاملين").Cells(cell.Row, "C").Value If n = limit Then Exit For End If Next cell End If End If End Sub لاحظ أنني قمت بإضافة احتمال آخر = راسب من باب التوسعة في خيارات البحث بالنتيجة اللجنة.xlsm