سؤال سؤال : احضار بيانات من مربع سرد متعدد

[ابو جودي]

السلام عليكم ورحمة الله تعالى وبركاته

من فضل اساتذى الكرام انا فى مشكلة كبيرة جدا فى عملى بسبب هذا الصدد 

اسأل الله تعالى ان يهديكم ويهدينى 

تكمن مشكلتى فى جلب البيانات من مربع متعدد القيم

المرفق الاتى 

قى النموذج الموجود اريد ان يعطينى زر الامر النتيجة المرجوة فى رسالة او فى الـ Immediate Windows By Debug.Print  

يعنى المفروض النتيجة تكون مساوية لقيم مربع السرد

 

Get Value Combo Box Multi Select.accdb

[سامي الحداد]

وعليكم السلام ورحمة الله تعالى وبركاته

استاذي الكريم @ابو جودي

هل  هو المطلوب ؟

Get Value Combo Box Multi Select.accdb

[ابو جودي]

57 دقائق مضت, سامي الحداد said:

هل  هو المطلوب ؟

استاذى الجليل ومعلمى القدير 
الله يفتح عليك 

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

جزاكم الله خيــــــــــــرا 

[سامي الحداد]

أخي واستاذي الحبيب ابو جودي الورد

نحن تلاميذكم وسنبقى تلاميذ هذا المنتدى المبارك بفضل من الله ومنكم استاذتي الكرام

يشهد الله إنني تعلمت الكثير منك ومن باقي الأستاذة جميعا أنتم من أنار لنا هذا الطريق بفضل الله وعلمكم الذي لم تبخلوا به علينا.

دمتم في رعاية الله وحفظه. 

[أبو إبراهيم الغامدي]

أهلا بكم..

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

عندما واجهت أبا جودي مشكلة عدم تطابق البيانات، قام بفحص البيانات العائدة من صندوق التحرير والسرد بالتابع TypeName، ليتفاجأ أن البيانات العائدة من نوع (متعدد، متنوع)!

فلماذا لم يقبل صندوق الرسائل عرض البيانات كنص؟!

السبب في ذلك أن البيانات العائدة وإن كانت من النوع (متنوع)، إلا أنها على هيئة مصفوفة بيانات! ومصفوفة البيانات أفرادها من النوع (متنوع).

وكان الأولى فحصها البيانات العائدة من صندوق التحرير والسرد بالتايع VarType. يعيد هذا التابع رقما يشير إلى نوع البيانات كما هو مبين في الرابط التالي: VarType function

اقتباس

 

Dim MyCheck
Dim IntVar, StrVar, DateVar, AppVar, ArrayVar
' Initialize variables.
IntVar = 459: StrVar = "Hello World": DateVar = #2/12/1969#
Set AppVar = Excel.Application
ArrayVar = Array("1st Element", "2nd Element")
' Run VarType function on different types.
MyCheck = VarType(IntVar)   ' Returns 2.
MyCheck = VarType(DateVar)  ' Returns 7.
MyCheck = VarType(StrVar)   ' Returns 8.
MyCheck = VarType(AppVar)   ' Returns 8 (vbString)
                            ' even though AppVar is an object.
MyCheck = VarType(ArrayVar) ' Returns 8204 which is
                            ' `8192 + 12`, the computation of
                            ' `vbArray + vbVariant`.

 

 

بعد معرفة أن البيانات العائدة من صندوق التحرير والسرد هي مصفوفة بيانات؛ كيف يمكن قراتها جميعا دون الحاجة إلى عمل دوارة For... Next؟ 

يمكن استخدام التابع Join  لهذا الغرض..

Private Sub cmdRequired_Click()
   Debug.Print VarType(cboEmpSection.Value) 'تعيدالرقم 8204، انظرالاقتباس أعلاه
   MsgBox Join(cboEmpSection.Value, ", ") ' يمكن استخدام محدد الفصل
   Debug.Print Join(cboEmpSection.Value) ' يمكن تجاهل محدد الفصل

End Sub