moho58 قام بنشر ديسمبر 10, 2023 مشاركة قام بنشر ديسمبر 10, 2023 السلام عليكم الاخوة الأفاضل في هذا المنتدى الجميل في هذا المثال البسيط جدا أريد طريقة : لإظهار ما يتم اختياره من مربع القائمة lst_XX في النموذج form في مربع النص c1 في التقرير rap-1 مثال عندما أختار من النموذج : الاختيار1 الاختيار2 يظهر في التقرير وفي مربع النص c1 ما يلي: الاختيار1 - الاختيار2 أنا اريد هذه الطريقة فقط لجعله كعنوان فقط في التقرير لأني سبق لي وطرحت موضوعين لعمل الاحصائيات وآخره منذ أيام و الحمد لله بالتفاعل مع الموضوع تم التوصل للحل وتم اعتماد الكود الرائع للأخ: الشايب لذا أنا أريد فقط طريقة لجعله كعنوان في التقرير حاولت وبحت لكن لم أجد حل الرجاء المساعدة والتوجيه وبارك الله فيكم. base_1.accdb رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر ديسمبر 11, 2023 مشاركة قام بنشر ديسمبر 11, 2023 لعدم توافر جهاز كمبيوتر في الوقت الحالي ، جرب هذا الكود Private Sub lst_XX_AfterUpdate() Dim selectedItems As String For Each selectedItem In Me.lst_XX.ItemsSelected selectedItems = selectedItems & " - " & Me.lst_XX.Column(0, selectedItem) Next selectedItem Me.rap_1.Report.c1.Value = Mid(selectedItems, 4) End Sub رابط هذا التعليق شارك More sharing options...
moho58 قام بنشر ديسمبر 11, 2023 الكاتب مشاركة قام بنشر ديسمبر 11, 2023 منذ ساعه, Foksh said: لعدم توافر جهاز كمبيوتر في الوقت الحالي ، جرب هذا الكود Private Sub lst_XX_AfterUpdate() Dim selectedItems As String For Each selectedItem In Me.lst_XX.ItemsSelected selectedItems = selectedItems & " - " & Me.lst_XX.Column(0, selectedItem) Next selectedItem Me.rap_1.Report.c1.Value = Mid(selectedItems, 4) End Sub مشكور أخي الكريم على الرد والمتابعة لكن تظهر رسالة كما في الصورة رابط هذا التعليق شارك More sharing options...
شايب قام بنشر ديسمبر 11, 2023 مشاركة قام بنشر ديسمبر 11, 2023 4 ساعات مضت, moho58 said: لكن تظهر رسالة كما في الصورة تعديل بسيط على السطر الاخير بتحميل قيمة ماتم اختيار في امر فتح التقرير Dim selectedItems As String Dim x As String For Each selectedItem In Me.lst_XX.ItemsSelected selectedItems = selectedItems & " - " & Me.lst_XX.Column(0, selectedItem) Next selectedItem x = Mid(selectedItems, 4) DoCmd.OpenReport "rap_1", acViewPreview, , , , x الملف مرفق الشايب base_1.accdb 2 رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر ديسمبر 11, 2023 مشاركة قام بنشر ديسمبر 11, 2023 26 دقائق مضت, شايب said: تعديل بسيط على السطر الاخير بتحميل قيمة ماتم اختيار في امر فتح التقرير مشكور أخوي @شايب على الرد بالمتابعة 😊 ، جعله الله في ميزان حسناتك. 1 رابط هذا التعليق شارك More sharing options...
أفضل إجابة شايب قام بنشر ديسمبر 11, 2023 أفضل إجابة مشاركة قام بنشر ديسمبر 11, 2023 منذ ساعه, Foksh said: مشكور أخوي @شايب على الرد بالمتابعة 😊 الشكر لله استاذنا ايضا ممكن نستخدم الامر التالي للوصول للنتيجة Dim x As String Dim i As Integer For i = 0 To lst_XX.ListCount - 1 If lst_XX.Selected(i) = True Then x = x & " - " & lst_XX.Column(0, i) End If Next i x = Mid(x, 4) DoCmd.OpenReport "rap_1", acViewPreview, , , , x الشايب 1 رابط هذا التعليق شارك More sharing options...
moho58 قام بنشر ديسمبر 11, 2023 الكاتب مشاركة قام بنشر ديسمبر 11, 2023 57 دقائق مضت, شايب said: الشكر لله استاذنا ايضا ممكن نستخدم الامر التالي للوصول للنتيجة Dim x As String Dim i As Integer For i = 0 To lst_XX.ListCount - 1 If lst_XX.Selected(i) = True Then x = x & " - " & lst_XX.Column(0, i) End If Next i x = Mid(x, 4) DoCmd.OpenReport "rap_1", acViewPreview, , , , x الشايب مشكور الأخ @شايب عمل أكثر من رائع و ممتاز جدا جدا جدا هذا هو المطلوب أخي بارك الله فيك وجعلها الله في ميزان حساناتك ورزقك من حسث لا تحتسب رابط هذا التعليق شارك More sharing options...
شايب قام بنشر ديسمبر 11, 2023 مشاركة قام بنشر ديسمبر 11, 2023 6 ساعات مضت, moho58 said: بارك الله فيك وجعلها الله في ميزان حساناتك ورزقك من حسث لا تحتسب امين لنا ولكم ولكل من مر من هنا ولا ننسى الاستاذ @Foksh راعي الاولة اخونا العزيز شايب 🌹 2 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان