كل الانشطه

اتفضل Private Sub cmdPrint_Click() On Error GoTo Err_Handler Dim idx As Variant Dim repName As String Dim ftrName As String If L3.ItemsSelected.Count = 0 Then MsgBox "لا يوجد مطبوعات قد تم اختيارها", vbInformation + vbMsgBoxRight, "تنبيه" Exit Sub End If For Each idx In L3.ItemsSelected repName = "تقرير_" & L3.ItemData(idx) DoCmd.OpenReport repName, acViewNormal, , ftrName Next idx Exit_Handler: Exit Sub Err_Handler: Select Case Err.Number Case 2501 ' المستخدم ألغى الطباعة Resume Next Case Else MsgBox "خطأ " & Err.Number & ":" & vbCrLf & Err.Description, vbExclamation, "خطأ" Resume Exit_Handler End Select End Sub

السلام عليكم استاذ اريد عند اختيار ولاية الميلاد تظهر البلديات التابع لها في خلية مكان الميلاد وخلية بلدية الميلاد و عند اختيار ولاية العمل تظهر البلديات التابع لها في خلية بلدية العمل

أنظر هنا أيضا 🙂 :

وعليكم السلام ورحمة الله 🙂 باستخدام هذه الأداة : Private Sub cmdPrint_Click() On Error GoTo Err_cmdPrint_Click Dim Index3 As Variant Dim repName As String Dim ftrName As String ' Declare ftrName, assuming it's a String for the filter argument. ' Check if any items are selected from the listbox. If L3.ItemsSelected.Count = 0 Then MsgBox "لا يوجد مطبوغات قد تم اختيارها", vbInformation + vbMsgBoxRight, "تنبيه " Exit Sub End If ' Loop through each selected item and open the corresponding report. For Each Index3 In L3.ItemsSelected repName = L3.ItemData(Index3) repName = "تقرير_" & repName DoCmd.OpenReport repName, acViewNormal, , ftrName Next Index3 Exit_cmdPrint_Click: Exit Sub Err_cmdPrint_Click: MsgBox Err.Description Resume Exit_cmdPrint_Click End Sub مع اختيار : والتعليمات نفس رسالتك مع تغيير بسيط : الكود التالى يعمل بدون مشاكل ولكن هناك سطور مكررة متداخلة به يرجى ضبط بناء الكود لاختصاره وتحسينه

السلام عليكم الكود التالى يعمل بدون مشاكل ولكن هناك سطور مكررة متداخلة به طلبى من السادة الزملاء ضبط البناء لاختصاره وتحسينه Private Sub cmdPrint_Click() On Error GoTo Err_cmdPrint_Click Dim Index3 As Variant Dim repName As String For Each Index3 In L3.ItemsSelected repName = L3.ItemData(Index3) repName = "تقرير_" & repName Next Index3 If repName = "" Then MsgBox "لا يوجد مطبوغات قد تم اختيارها", vbInformation + vbMsgBoxRight, "تنبيه " Exit Sub Else For Each Index3 In L3.ItemsSelected repName = L3.ItemData(Index3) repName = "تقرير_" & repName DoCmd.OpenReport repName, acViewNormal, , ftrName Next Index3 Exit_cmdPrint_Click: Exit Sub Err_cmdPrint_Click: MsgBox Err.Description Resume Exit_cmdPrint_Click End If End Sub

انا عملت حسب طلب السائل ... ولكن هل تقصد .... كما بالشرح التالي :-

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

السلام عليكم استاذ لقد قمت بحجز جميع البلديات والولايات استاذ اريد عند اختيار الولاية تظهر البلديات التابع لها في خلية ولاية الميلاد وخلية بلدية الميلاد و في خلية ولاية العمل وخلية بلدية العمل اسماء الولايات والبلديات في ورقة اسمها البلديات اليك البرنامج بارك الله فيك استاذ جازك الله كل خير Plateform (1).xlsb

ماذا لو جربنا الفكرة بقائمتين منسدلتين فقط !! الأولى تعرض أسماء الجداول الموجودة بجانب قاعدة البيانات. والثانية تجلب أسماء الملفات الموجودة في مجلد القائمة المنسدلة الأولى كفلترة 😉

السلام عليكم ورحمة الله وبركاته الشيت مفتوح المصدر "كعلم ينتفع به" وادعو الله ان يكون خالصا لوجهه تعالى و يحتوي على رصد الدرجات للمواد الثقافية وتقييم الجدارات_ حتى 9 جدارات وهو جزء اساسي من مشاركتي السابقة "كنترول جدارات كامل مفتوح المصدر" tabred.xlsb

وعليكم السلام ورحمة الله وبركاته كان من المفترض ارفاق ملفك او وضعت الرابط الى موضوعك السابق حتى يتسنى لاعضاء المنتدى المشاركة وهي عملية لها علاقة بالارشفة والتنظيم واتاحة الفرصة لمن يرغب في المشاركة على كل حال رابط الموضوع السابق https://www.officena.net/ib/topic/143408-عند-حماية-الورقة-يظهر-خطأ/ اليك الملف وبه طلبك ان شاء الله Plateform.xlsb

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

ههههههه صعبتها علي يا رجل على سبيل الدعابة فقط .

تفضل استاذ @dd13901390 طالع الشرح جيداً واليك المرفق . ووافني بالرد . DD13901390.rar

السلام عليكم لدي خلية ولاية الميلاد وخلية بلدية الميلاد اريد عند اختيار الولاية تظهر البلديات التابع لها

اليك التعديل Plateform.xlsb

تفضل د. @jo_2010 طالع الشرح واليك المرفق به نموذجان . وتم معالجة الرقم المدخل اذا تعدى 999 ووافني بالرد . Jo_Lab2.rar

Plateform.xlsb

لكل فنان ريشة .... وخاصة عندما يكون مبدع مثلك عموما وجودك مكسب لنا .

اشكرك اخي kkhalifa1960 على المجهود الرائع ممكن اخوي تشاهد البرنامج المرفق وتعدل علية المطلوب كل قائمة منسدلة تتبع القسم الذي فيه ملفات PDF حيث يوجد 3 اقسام الاختبار.rar

انا فقط : Debug Ace اسلوب كتابة الاكواد اعتقد يتشابه بين رواد المنتدى اما اسلوب رد الاكواد تعلمته من مشاركة رواد المنتدى وهذا لا يعنى اى شئ

تشابه في الاسلوب وحتى اسلوب كتابة ورص الاكواد 🤔

طب ما تعرفنا بحضرتك

لا اعرف عمن تتحدث انت يبدو انك تخلط بينى وبين شخص اخر مع الاسف

وعليكم السلام ارفق ملف به حماية