إظهار الاختيارات المحددة من مربع قائمة في مربع نص

[moho58]

السلام عليكم الاخوة الأفاضل في هذا المنتدى الجميل

في هذا المثال البسيط جدا أريد طريقة :

لإظهار ما يتم اختياره من مربع القائمة lst_XX  في النموذج form

في مربع النص c1 في التقرير rap-1

مثال

عندما أختار من النموذج :

الاختيار1

الاختيار2

يظهر في التقرير وفي مربع النص c1 ما يلي: 

  الاختيار1 - الاختيار2

أنا اريد هذه الطريقة فقط لجعله كعنوان فقط في التقرير

لأني سبق لي وطرحت موضوعين لعمل الاحصائيات وآخره منذ أيام  و الحمد لله بالتفاعل مع الموضوع تم التوصل للحل وتم اعتماد الكود الرائع للأخ:  الشايب

لذا أنا أريد فقط طريقة لجعله كعنوان في التقرير

حاولت وبحت  لكن لم أجد حل

الرجاء المساعدة والتوجيه وبارك الله فيكم.

base_1.accdb

[Foksh]

لعدم توافر جهاز كمبيوتر في الوقت الحالي ، جرب هذا الكود

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

 

[moho58]

منذ ساعه, 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

 

مشكور أخي الكريم على الرد والمتابعة

لكن تظهر رسالة كما في الصورة

 

 

[شايب]

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

[Foksh]

26 دقائق مضت, شايب said:

تعديل بسيط على السطر الاخير بتحميل قيمة ماتم اختيار في امر فتح التقرير

مشكور أخوي @شايب على الرد بالمتابعة 😊 ، جعله الله في ميزان حسناتك.

 

[شايب]

منذ ساعه, 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

الشايب

[moho58]

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

الشايب

مشكور الأخ @شايب  عمل أكثر من  رائع  و ممتاز جدا جدا جدا

هذا هو المطلوب أخي

بارك الله فيك وجعلها الله في ميزان حساناتك ورزقك من حسث لا تحتسب

 

[شايب]

6 ساعات مضت, moho58 said:

بارك الله فيك وجعلها الله في ميزان حساناتك ورزقك من حسث لا تحتسب

امين لنا ولكم ولكل من مر من هنا ولا ننسى الاستاذ @Foksh راعي الاولة

اخونا العزيز شايب 🌹