الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

مشكلة معا Combobox ارجو الحل

بدأه التائب الى الله في 9 سبتمبر 2008 · 7 رد · 904 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

فى البداية عند ى مشكلتين

الاولى

فى combobox عندى مثلا اسم من افتح combobox كذا مرة متتالية

القى الاسم بيكرر ازاى مخليش الاسم يكرر .دة فى الفجول بيزيك

المشكلة الثانية

انا عندى حقل وليكن الكود ازاى اخلى اليوزر يكتب فى الكود رقم فقط ولو كاتب اى حاجة

غير الرقم تظهر رسالة اعتراض

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

تم تعديل هذه المشاركة بواسطة التائب الى الله في 9 سبتمبر 2008 في 18:55

#2

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

#3

المشكلة الأولى:

أين وضعت الكود الذي يقوم بإضافة العناصر إلى الـ Combobox.

بالنسبة للمشكلة الثانية :

ضع زر أمر Command Button

واكتب في الحدثClick الكود التالي


MsgBox "Please enter a valid numeric value", vbCritical, "Error"
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
Text1.SetFocus
End If
If Not IsNumeric(Text1.Text) Then

تنبيه:

من قواعد المشاركة أن تسأل عن كل مشكلة بشكل من فصل

راجع قواعد المشاركة في القسم

تم تعديل هذه المشاركة بواسطة COMFORT في 9 سبتمبر 2008 في 22:32

مواضيع و دروس
الكتابة بعدة ألوان داخل الــ TetxBoxمكتبة الأكوادتحميل الــ Visual Basic Express 2005
تحميل فيجوال بسيك 6أكواد × أكواددروس في الخوارزميات
لتحميل عدة إصدارات من كريستال ريبورتتحميل برنامج Activ Skin 4.3جمل الــ Sql من الألف إلى الياء
معظم المواقع المختصة بالفيجوال بيسيكموقع كويس للأيقوناتمرجع شامل لأدوات ActivX
كيفية نطق الحرف المكتوب شرح عن كيفية إقامة علاقة مع Data Reprot باستخدام الــ DataEnvironment علاقة مع الـ Datareport بدون استخدام DataEnvironment (( شرح ))
كتاب Migrating From DAO to ADOإضافة لـ VB6 بريمج IndenterVB, إضافة لبيئة تطوير فيجوال بيسك 6حوار بينى و بين عضو حول ال winsock , اتمنى ان يعجبكم
Smart Indenter 3.5 لتنسيق الأكواد, هديه لكل الأعضاء السلسلة الدهبية في المواضيع العلمية ، إستغلال الـ Balloons في الـ Windows XP مصفوفات الأدوات Control Arrays افكار وتلميحات ! , لمن افتقدها من أيام الـ VB6.0
جعل خلفية الـ Mid Form تظهر بالكامل خواص الاداة Winsock لربط الاجهزة عن طريق الانترنتكيف يتم عمل تقارير بإستخدام HTML

7.gif
#4

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

نعم يا اخى عند عرض الاسماء الموجودة

#5

rs.open "select distinct name from dayboo"

Do Until rs.EOF

Combo1.AddItem rs!name

rs.MoveNext

Loop

#6

مشكور اخى على التفاعل

ودة الكود الى انا كنت بستعملة

وبستعملة فى الحدث

dropdown

الكود

Do While Not Data3.Recordset.EOF

Combo2.AddItem Data3.Recordset(1)

Data3.Recordset.MoveNext

Loop

تم تعديل هذه المشاركة بواسطة التائب الى الله في 10 سبتمبر 2008 في 22:33

#7

الخطأ في أنك وضعت الكود في حدث الـ dropdown

الخاص بالـ ComboBox .

حيث أن الكود يتم تنفيذه كلما ضغطت على الـ ComboBox لتعرض

الأسماء يتم ملئه بالبيانات .

ضع الكود السابق في الحدث Form_Load

مواضيع و دروس
الكتابة بعدة ألوان داخل الــ TetxBoxمكتبة الأكوادتحميل الــ Visual Basic Express 2005
تحميل فيجوال بسيك 6أكواد × أكواددروس في الخوارزميات
لتحميل عدة إصدارات من كريستال ريبورتتحميل برنامج Activ Skin 4.3جمل الــ Sql من الألف إلى الياء
معظم المواقع المختصة بالفيجوال بيسيكموقع كويس للأيقوناتمرجع شامل لأدوات ActivX
كيفية نطق الحرف المكتوب شرح عن كيفية إقامة علاقة مع Data Reprot باستخدام الــ DataEnvironment علاقة مع الـ Datareport بدون استخدام DataEnvironment (( شرح ))
كتاب Migrating From DAO to ADOإضافة لـ VB6 بريمج IndenterVB, إضافة لبيئة تطوير فيجوال بيسك 6حوار بينى و بين عضو حول ال winsock , اتمنى ان يعجبكم
Smart Indenter 3.5 لتنسيق الأكواد, هديه لكل الأعضاء السلسلة الدهبية في المواضيع العلمية ، إستغلال الـ Balloons في الـ Windows XP مصفوفات الأدوات Control Arrays افكار وتلميحات ! , لمن افتقدها من أيام الـ VB6.0
جعل خلفية الـ Mid Form تظهر بالكامل خواص الاداة Winsock لربط الاجهزة عن طريق الانترنتكيف يتم عمل تقارير بإستخدام HTML

7.gif
#8
التائب الى الله كتب:

السلام عليكم

فى البداية عند ى مشكلتين

الاولى

فى combobox عندى مثلا اسم من افتح combobox كذا مرة متتالية

القى الاسم بيكرر ازاى مخليش الاسم يكرر .دة فى الفجول بيزيك

الحل بأذن الله

استعمل هذا الكود

If *.RecordCount = 0 Then Exit Sub

استبدل علامة النجمة * بأسم Recordset

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

MoveFirst.*

ستبدل علامة النجمة * بأسم Recordset

وهذا الكود لنقل Recordset اللى اول الجدول

combo1.Clear

اما هذا الكود لتفريغ الكومبو من البيانات قبل ملئها مرة اخرة

combo1.Text = "اختر"

وهنا طبعا لجعل خاصية Text = اختر

Do While Not *.EOF

استبدل علامة النجمة * بأسم Recordset

combo1.AddItem *!c_name

MoveNext.*

Loop

جميع ما بالون الاحمر هو بيانات يجب تغيرها الى حسب برنامج انت

والكود مجمع فى النهاية


cs.MoveFirst
combo1.Clear
combo1.Text = "ÇÎÊÑ"
Do While Not cs.EOF
combo1.AddItem cs!c_name
cs.MoveNext
Loop
If cs.RecordCount = 0 Then Exit Sub

المشكلة الثانية

انا عندى حقل وليكن الكود ازاى اخلى اليوزر يكتب فى الكود رقم فقط ولو كاتب اى حاجة

غير الرقم تظهر رسالة اعتراض

هذا هو الكود


SendKeys "{backspace}"
Beep
End If
If Not IsNumeric(text1.Text) Then

جميع ما بالون الاحمر هو بيانات يجب تغيرها الى حسب برنامج انت

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

[/

]

تم تعديل هذه المشاركة بواسطة amr soft في 2 نوفمبر 2008 في 03:12

مواضيع مشابهة