اذهب الي المحتوي
أوفيسنا

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


moho58
إذهب إلى أفضل إجابة Solved by شايب,

الردود الموصى بها

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

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

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

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

مثال

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

الاختيار1

الاختيار2

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

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

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

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

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

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

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

1.jpg

base_1.accdb

رابط هذا التعليق
شارك

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

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

 

رابط هذا التعليق
شارك

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

 

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

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

 

 

2.jpg

رابط هذا التعليق
شارك

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

  • Thanks 2
رابط هذا التعليق
شارك

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

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

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

 

  • Like 1
رابط هذا التعليق
شارك

  • أفضل إجابة
منذ ساعه, 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

الشايب

  • Like 1
رابط هذا التعليق
شارك

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 راعي الاولة

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

  • Thanks 2
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information