السلام عليكم
فى البداية عند ى مشكلتين
الاولى
فى combobox عندى مثلا اسم من افتح combobox كذا مرة متتالية
القى الاسم بيكرر ازاى مخليش الاسم يكرر .دة فى الفجول بيزيك
المشكلة الثانية
انا عندى حقل وليكن الكود ازاى اخلى اليوزر يكتب فى الكود رقم فقط ولو كاتب اى حاجة
غير الرقم تظهر رسالة اعتراض
وجزاكم الله خير ا
تم تعديل هذه المشاركة بواسطة التائب الى الله في 9 سبتمبر 2008 في 18:55
هل تقصد بالتكرار عند غضافة اسم جديد ام عند عرض الأسماء الموجودة
المشكلة الأولى:
أين وضعت الكود الذي يقوم بإضافة العناصر إلى الـ Combobox.
بالنسبة للمشكلة الثانية :
ضع زر أمر Command Button
واكتب في الحدثClick الكود التالي
If Not IsNumeric(Text1.Text) Then
تنبيه:
من قواعد المشاركة أن تسأل عن كل مشكلة بشكل من فصل
راجع قواعد المشاركة في القسم
تم تعديل هذه المشاركة بواسطة COMFORT في 9 سبتمبر 2008 في 22:32
هل تقصد بالتكرار عند اضافة اسم جديد ام عند عرض الأسماء الموجودة
نعم يا اخى عند عرض الاسماء الموجودة
rs.open "select distinct name from dayboo"
Do Until rs.EOF
Combo1.AddItem rs!name
rs.MoveNext
Loop
مشكور اخى على التفاعل
ودة الكود الى انا كنت بستعملة
وبستعملة فى الحدث
dropdown
الكود
Do While Not Data3.Recordset.EOF
Combo2.AddItem Data3.Recordset(1)
Data3.Recordset.MoveNext
Loop
تم تعديل هذه المشاركة بواسطة التائب الى الله في 10 سبتمبر 2008 في 22:33
الخطأ في أنك وضعت الكود في حدث الـ dropdown
الخاص بالـ ComboBox .
حيث أن الكود يتم تنفيذه كلما ضغطت على الـ ComboBox لتعرض
الأسماء يتم ملئه بالبيانات .
ضع الكود السابق في الحدث Form_Load
التائب الى الله كتب:السلام عليكم
فى البداية عند ى مشكلتين
الاولى
فى 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
LoopIf cs.RecordCount = 0 Then Exit Subالمشكلة الثانية
انا عندى حقل وليكن الكود ازاى اخلى اليوزر يكتب فى الكود رقم فقط ولو كاتب اى حاجة
غير الرقم تظهر رسالة اعتراض
هذا هو الكود
SendKeys "{backspace}"
Beep
End IfIf Not IsNumeric(text1.Text) Thenجميع ما بالون الاحمر هو بيانات يجب تغيرها الى حسب برنامج انت
وجزاكم الله خير ا
[/
]
تم تعديل هذه المشاركة بواسطة amr soft في 2 نوفمبر 2008 في 03:12