كود به خلل لا ادري أين ؟

Dim i As Integer

For i = 0 To Me.ListBox1.ListCount - 1

If Me.ListBox1.Selected(i) Then

txtItemsName.SetFocus

txtItemsName.Text = txtItemsName.Text & Me.ListBox1

End If

Next i

احذف

txtItemsName.Value = ""

ابو لميس .. ما انحلت المكشلة :dry: :dry: نفسي افهم وين المشكلة .. من الجد الاكواد احيانا تعقد الواحد :mad:

المشكلة فى هذا السطر أخى

txtItemsName.Value = txtItemsName.Value & Me.ListBox1.Value

و خصوصا فى الجزء الاخير منه

Me.ListBox1.Value

و للحصول على ما تريد عدله الى

txtItemsName.Value = txtItemsName.Value & Me.ListBox1.ItemData(i)

تفضل اخي الكريم : موج

الملف بعد التعديل

Private Sub com1_Click()
Dim I As Integer

For I = 0 To Me.ListBox1.ListCount - 1
 Me.ListBox1.Selected(I) = True
If Me.ListBox1.Selected(I) = True Then
Me.txtItemsName = Me.txtItemsName & Me.ListBox1.Column(0, I)
End If
Next I

End Sub

za-sending listbox items to textbox.rar

بالتوفيق

مشرفنا العزيز Abo_Yossof بالفعل التعديل الي قلت عنه صحيح مية مية واصبح الكود ينفذ المطلوب منه :clapping: :clapping: :clapping: :ty:

مشرفنتا الفاضلة زهرة كل التقدير والاحترام لك على ما تبذلينه .

والله يا جماعة اغبطكم على الفهم الي تتمتعون به والقدرة على التعامل مع الكود ,, :blink: لي كم سنة وانا اقرأ عن البرمجة والاكسس والفجول بيسك دت نت واشوف ان الاكواد حاجة موب سهلة وخصوص لما تكون طويلة

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

Dim varItem As Variant
Dim strList As String

With Me!ListBox1
On Error Resume Next
   If .MultiSelect = 0 Then
       Me!txtItemsName = .Value
   Else
       For Each varItem In .ItemsSelected
           strList = strList & .Column(0, varItem) & " "
       Next varItem
       strList = Left$(strList, Len(strList) - 1)
       Me!txtItemsName = strList
   End If
End With

شكراً لك أستاذنا أبو يوسف

شكراً لك أستاذتنا زهرة

من الرائع أن نشاهد تنوعاً في الإجابات والحلول, خاصة إذا كانت من أساتذتنا الكبار, لكن ماحزّ في نفسي أن يقوم أحدهم بالتقييم السلبي لمشاركة الأستاذة زهرة, لقد قمتُ بتعديل -1 إلى 0 .

لي رجاء أوجهه لإدارة الموقع:

لم نلمس من نقاط التقييم شيئاً إيجابياً إلى الآن, بل على العكس ربما فيها أذىً نفسياً كبيراً إذا كان التقييم بالسلب, لذا أرجو إلغاء نقاط التقييم, أو على الأقل منع الأعضاء من تقييم المشرفين, فقد تألمتُ -ربما- أكثر من الأستاذة الفاضلة زهرة على تقييمها بالسالب, وأنا على يقين بأنها ليست بحاجة إلى تقييم أحد, ويبدو جلياً -والله أعلم- أن ما تقوم به في المنتدى من جهود, إنما تطلب به وجه الله والدار الآخرة, وليس نقاطاً رقمية لا تسمن ولا تغني من جوع, فجهودها في المنتدى أكبر من أن يتم تقييمها.

وفقكم الله لما يحبه ويرضاه

غرّام العقول كتب:

شكراً لك أستاذنا أبو يوسف

شكراً لك أستاذتنا زهرة

من الرائع أن نشاهد تنوعاً في الإجابات والحلول, خاصة إذا كانت من أساتذتنا الكبار, لكن ماحزّ في نفسي أن يقوم أحدهم بالتقييم السلبي لمشاركة الأستاذة زهرة, لقد قمتُ بتعديل -1 إلى 0 .

لي رجاء أوجهه لإدارة الموقع:

لم نلمس من نقاط التقييم شيئاً إيجابياً إلى الآن, بل على العكس ربما فيها أذىً نفسياً كبيراً إذا كان التقييم بالسلب, لذا أرجو إلغاء نقاط التقييم, أو على الأقل منع الأعضاء من تقييم المشرفين, فقد تألمتُ -ربما- أكثر من الأستاذة الفاضلة زهرة على تقييمها بالسالب, وأنا على يقين بأنها ليست بحاجة إلى تقييم أحد, ويبدو جلياً -والله أعلم- أن ما تقوم به في المنتدى من جهود, إنما تطلب به وجه الله والدار الآخرة, وليس نقاطاً رقمية لا تسمن ولا تغني من جوع, فجهودها في المنتدى أكبر من أن يتم تقييمها.

وفقكم الله لما يحبه ويرضاه

جزاك الله خيرا أخى الكريم على هذه الروح الطيبة

و اعتقد ان استاذتنا أم عهود أكبر و أعقل من أن تتأثر بمثل تلك التصرفات الصبيانية

و نسأل الله الهداية للجميع

الاخ غزام العقول .. هون عليك :dry: وبودي انك ما تاخذ المسألة بالحساسية هذي .. بخصوص تقييم إجابة المشرفة الفاضلة زهرة فأنا من قيم الإجابة بما أني من طرح السؤال ,, وقد تعودت من خلال طرح الأسئلة في المنتديات الأجنبية أنه وبعد ان تتم الإجابة عليك أن تقيم ,, هل الجواب حل المشكلة .. وأظن أن الغرض منه :

ليعرف من أجابك أن الإجابة موفقة وهل حلت مشكلتك فتقفل المشاركة.

أن من يتعرض لمثل مشكلتك ويبحث عن حل وفي حال وجد مشاركتك يعلم بأن الحل الموجود حل صحيح وفعال لا أكثر خصوصا بأن المشاركة الواحدة تحتوي على اكثر من مشاركة تحاول حل المشكلة والمنتدى مليئ بالمشاركات والأسئلة المتقاربة .

إلى غير ذلك من فوائد لا وقت لسردها ..

وللعلم انا اتفق معك في كل ما تقوله تجاه المشرفة زهرة وبالطبع اخالفك في كون التقييم مؤذي نفسيا !! :blink: ولا انظر له بهذا الشكل :) ولكن هو ما اشرت له سلفا . وتعقيبا على المشرف ابو يوسف وددت انك لم تتسرع في التعليق :) على الأقل اسمع وجهة نظري .. هداك الله و جزاك الله خير على إجابتك الموفقة :happy: .

وفي ضني تقييم الإجابات عمل مندوب له وليس مخالف لنظام المنتدى ..

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

في الختام اتقدم بالشكر والتقدير للجميع :)

m00j كتب:

الاخ غزام العقول .. هون عليك :dry: وبودي انك ما تاخذ المسألة بالحساسية هذي .. بخصوص تقييم إجابة المشرفة الفاضلة زهرة فأنا من قيم الإجابة بما أني من طرح السؤال ,, وقد تعودت من خلال طرح الأسئلة في المنتديات الأجنبية أنه وبعد ان تتم الإجابة عليك أن تقيم ,, هل الجواب حل المشكلة .. وأظن أن الغرض منه :

ليعرف من أجابك أن الإجابة موفقة وهل حلت مشكلتك فتقفل المشاركة.

أن من يتعرض لمثل مشكلتك ويبحث عن حل وفي حال وجد مشاركتك يعلم بأن الحل الموجود حل صحيح وفعال لا أكثر خصوصا بأن المشاركة الواحدة تحتوي على اكثر من مشاركة تحاول حل المشكلة والمنتدى مليئ بالمشاركات والأسئلة المتقاربة .

إلى غير ذلك من فوائد لا وقت لسردها ..

وللعلم انا اتفق معك في كل ما تقوله تجاه المشرفة زهرة وبالطبع اخالفك في كون التقييم مؤذي نفسيا !! :blink: ولا انظر له بهذا الشكل :) ولكن هو ما اشرت له سلفا . وتعقيبا على المشرف ابو يوسف وددت انك لم تتسرع في التعليق :) على الأقل اسمع وجهة نظري .. هداك الله و جزاك الله خير على إجابتك الموفقة :happy: .

وفي الختام تقييم الإجابات عمل مندوب له وليس مخالف لنظام المنتدى .. أليس كذلك ؟؟ !!

في الختام اتقدم بالشكر والتقدير للجميع :)

بارك الله الله بك اخي الكريم : موج

وجزاك الله كل خير ورزقك الفردوس الأعلى من الجنة

لم اكن اتوقع ان يصدر منك انت بالذات هذا التصرف لأنك اخاً عزيزاً علينا في المنتدى .

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

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

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

حسنا اخي موج

تخيل ( اقول تخيل ) وتأكد ان هذا الكلام لن يكون واقعا لا لك ولا لغيرك لأنني اترفع عن مثل الأفعال الحقيره

انني في كل مشاركه لك قمت بتقييمك بالسالب فقط هكذا بكل حقاره وحقد ودنائة نفس بدون اي سبب حتى لو كانت اجابتك صحيحه او خاطئة فلا يهم في ذلك شيء حتى تحصل على 1000 سالب او مليون فهل ترضى هذا على نفسك فبل ان تطبقه على الآخرين

بالطبع لن ترضى وسوف تصاب بالإحباط وتسأل نفسك لماذا كل هذا فبدلا من ان تحصل على تقييم جيد تكافئ بتقييم سالب .

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

عموما اخي الكريم

يقول المثل ( جزاء المعروف سبعة كفوف )

ولن ارد لك الإساءة إلا بإحسان

وأقول لك جزاك الله كل خير ورزقك الله الفردوس الاعلى من الجنه

ولك مني خالص الشكر والتقدير

بالتوفيق

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

أنا أعتقد من وجهة نظري أن الجميع محق لأن المشكلة هي في الصيغة وليست في التقييم ، أرجو الملاحظة:

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

ومن مشاركات الأعضاء بالمنتدى (وأقصد الأعضاء القدامي والمشرفين وأغلب المشاركين هنا) قد لاحظوا وأنا أحدهم أنها مربوطة بتقييم الشخص بطريقة ما ، لذلك فأنا شخصيا لا أعطي التقييم السلبي لأحد حتى ولو لم استفد من رده أو محاولة حل المشكلة ، لأنه يكفيني أنه فكر على أقل تقدير لمحاولة المساعدة وقد تلهمني مساعدته على حل المشكلة بنفسي فكيف لم أستفد منها؟

لذا أتمنى من القائمين على المنتدى أن يتم تعديل الصيغة الخاصة بالسؤال لتناسب الغرض أو تغيير طريقة ربطها بالمستخدمين لتفادي سوء التفاهم هذا مستقبلا.

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

وبالنسبة لغرام العقول ، أنت أيضا مبدع ومن ضمن الأعضاء اللذين ذكرتهم سابقا وأتمنى لك التوفيق. يعجبني التكاتف الملحوظ فهذا يدل على ولاء الأعضاء لبعضهم وأتمنى أن يستمر.

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

zahrah كتب:

بارك الله الله بك اخي الكريم : موج

وجزاك الله كل خير ورزقك الفردوس الأعلى من الجنة

لم اكن اتوقع ان يصدر منك انت بالذات هذا التصرف لأنك اخاً عزيزاً علينا في المنتدى .

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

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

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

حسنا اخي موج

تخيل ( اقول تخيل ) وتأكد ان هذا الكلام لن يكون واقعا لا لك ولا لغيرك لأنني اترفع عن مثل الأفعال الحقيره

انني في كل مشاركه لك قمت بتقييمك بالسالب فقط هكذا بكل حقاره وحقد ودنائة نفس بدون اي سبب حتى لو كانت اجابتك صحيحه او خاطئة فلا يهم في ذلك شيء حتى تحصل على 1000 سالب او مليون فهل ترضى هذا على نفسك فبل ان تطبقه على الآخرين

بالطبع لن ترضى وسوف تصاب بالإحباط وتسأل نفسك لماذا كل هذا فبدلا من ان تحصل على تقييم جيد تكافئ بتقييم سالب .

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

عموما اخي الكريم

يقول المثل ( جزاء المعروف سبعة كفوف )

ولن ارد لك الإساءة إلا بإحسان

وأقول لك جزاك الله كل خير ورزقك الله الفردوس الاعلى من الجنه

ولك مني خالص الشكر والتقدير

بالتوفيق

اختي الفاضل ام عهود يعلم الله اني لا اقصد شيء سوى ما وضحته سابقا وانا اكثر من استفاد منك في هذا المنتدى فكيف اسيء لك وصدقيني انت اكبر من ان اتكلم فيك او اطعن في مقدرتك او مكانتك في المنتدى وانا متأسف جدا جدا جدا لك آآمل ان تقبلي اسف ويعلم الله اني معجب بمقدرتك في الاكسس واشيد بك خارج المنتدى عند زملائي بل اني ادعو لك في ظهر الغيب لما تقدمينه لي ولكل من يسأل في المنتدى فآآآآآمل منك أن تتقبلي عذري ,, يا اختاااه انا لا املك سوى قسمي بالله آآمل ان تصدقي قسمي وتقبلي عذري

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

بصراحة ما كنت اتوقع المسأله حساسة :huh:

m00j كتب:

اختي الفاضل ام عهود يعلم الله اني لا اقصد شيء سوى ما وضحته سابقا وانا اكثر من استفاد منك في هذا المنتدى فكيف اسيء لك وصدقيني انت اكبر من ان اتكلم فيك او اطعن في مقدرتك او مكانتك في المنتدى وانا متأسف جدا جدا جدا لك آآمل ان تقبلي اسف ويعلم الله اني معجب بمقدرتك في الاكسس واشيد بك خارج المنتدى عند زملائي بل اني ادعو لك في ظهر الغيب لما تقدمينه لي ولكل من يسأل في المنتدى فآآآآآمل منك أن تتقبلي عذري ,, يا اختاااه انا لا املك سوى قسمي بالله آآمل ان تصدقي قسمي وتقبلي عذري

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

بصراحة ما كنت اتوقع المسأله حساسة :huh:

اخي الغالي : موج

هون عليك فالأمر لا يستحق كل هذا فأنت اولا واخيرا اخا لنا في الله تجمعنا رابطة الأخوة في الله واللغة والدم العربي

فمعاذ الله ان ازعل عليك او على اي شخص في المنتدى او احمل في قلبي ذرة حقد لأحد وكل ما في الأمر هو موضوع ونقاش وحلول اما ان استفيد منك او تستفيد مني وكلانا في كلا الحالتين سيكون هو الرابح بإذن الله .

اخي الفاضل : موج

اعلنها لك صراحة امام الله وامام كل من في المنتدى انني لا احمل في قلبي عليك اي شيء سوى المحبة في الله والتقدير والإحترام

واقول لك سامحك الله طول الدنيا وعرضها ويوم يقوم الأشهاد لرب العالمين يوم لا ينفع مال ولا بنون إلا من أتي الله بقلب سليم

لك مني خالص الشكر والتقدير

ومثل ما يقولون ( القلوب صافية )

اتمنى ان لا تقيمني الآن بالسالب ( أمزح معاك ) :lol:

خلاص ابتسم وفكها ضيقه فكلنا هنا اخوة :haha:

فأختك زهره مثل الجبل الغضنفر :lol:

بالتوفيق

عندي أعتقاد أن المشكلة سببها الموساد الاسرائيلي

:S :S :S :S :S

الحمدلله ان الامور تمام ,, ويا ليتك من الاول كنتي كذا بدون ما تحرجيني :P كل المسألة نقظة تقييم والسلام ..

omr_g كتب:

عندي أعتقاد أن المشكلة سببها الموساد الاسرائيلي

:S :S :S :S :S

طيب ادينا كل المعلومات المتوفرة لديك ههههههههههههههههه

أتمنى من جميع الاخوة نسيان الموضوع

و الحمد لله أن الامر راجع الى سوء تفاهم غير مقصود و ليس كما تصورت فى البداية

m00j كتب:

الحمدلله ان الامور تمام ,, ويا ليتك من الاول كنتي كذا بدون ما تحرجيني :P كل المسألة نقظة تقييم والسلام ..

الموضوع ليس خاص بك أخى الكريم

و لكن الموضوع مبنى على تصرفات سابقة من بعض الاعضاء