منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[vb6.0] كود لخزن اسماء داخل كومبو بوكس من تيكست بوكس - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : [vb6.0] كود لخزن اسماء داخل كومبو بوكس من تيكست بوكس (/showthread.php?tid=28648)

كود لخزن اسماء داخل كومبو بوكس من تيكست بوكس - وادي العوضي - 16-02-19

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

RE: كود لخزن اسماء داخل كومبو بوكس من تيكست بوكس - عبدالله الصافي - 16-02-19

ممكن تستخدم قاعدة بيانات او ملف نصي لتخزين فيه الاسماء
وعند فتح البرنامج مرة اخري تملئ الكمبو بالاسماء التي بالملف

RE: كود لخزن اسماء داخل كومبو بوكس من تيكست بوكس - وادي العوضي - 16-02-19

استاذي الفاضل عبدالله شكرا جزيلا لردك السريع وجزاك الله خيرا
انا عندي في البرنامج قاعدة بيانات اكسس 2003 ورابطها بالبرنامج عن طريق الاداة Adodc
فيها حقل كومبو بوكس اختار منه اسم مسؤول الميزان مثلا ولكن هذا الاسم احتمال يتغيير فوضعت تيكست بوكس بجانبه لكي ادخل فيه اي اسم ويحفظ داخل الكومبو بوكس ونجحت الطريقة
ولكن عندما اغلق البرنامج وارجع افتحه مرة ثانية لايظهر الاسم الذي تم اضافة في الكومبو بوكس من خلال التيكست بوكس فاضطرمرة ثانيه اكتبه في التيكست بوكس واضيفه في الكومبو بوكس وعند الاغلاق
يختفي وهذا لا اريده الذي اريده هو بعد اضافته من خلال التيكست بوكس ان يخزن في الكومبو بوكس واضل اختاره من الكومبو بوكس في كل بطاقة مبيعات
وهكذا

RE: كود لخزن اسماء داخل كومبو بوكس من تيكست بوكس - عبدالله الصافي - 17-02-19

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

وإن أمكن وضع مثال للتعديل عليه

RE: كود لخزن اسماء داخل كومبو بوكس من تيكست بوكس - وادي العوضي - 17-02-19

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

RE: كود لخزن اسماء داخل كومبو بوكس من تيكست بوكس - عبدالله الصافي - 17-02-19

أخي الكريم بداية قم بقطع اتصال الكمبوبوكس بقاعدة البيانات من خلال خصائص الكمبو
بمسح خاصية DataField
ومسح خاصية DataSource

واضافة ذلك الكود
كود :
Private Sub Form_Load()
Adodc1.RecordSource = "select* from tbl1"
Adodc1.CommandType = adCmdText
Adodc1.Refresh
Do
Combo2.AddItem Adodc1.Recordset.Fields![mizaname]
Adodc1.Recordset.MoveNext
Loop Until Adodc1.Recordset.EOF
Adodc1.Recordset.MoveFirst
Combo2 = Adodc1.Recordset.Fields![mizaname]
End Sub
وجعل ذلك الحدث بهذا الشكل
كود :
Private Sub Command1_Click()
On Error Resume Next
Adodc1.Recordset.Fields![mizaname] = Combo2
Adodc1.Recordset.Update
Adodc2.Recordset.Update
End Sub
ولكن خذ في اعتبارك أن ذلك الحل إذا كانت الاسماء لا تتكرر حتي لا تتكرر معك في الكمبو

RE: كود لخزن اسماء داخل كومبو بوكس من تيكست بوكس - وادي العوضي - 17-02-19

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

RE: كود لخزن اسماء داخل كومبو بوكس من تيكست بوكس - عبدالله الصافي - 17-02-19

اخي الكريم ارجع لقاعدة البيانات فهناك خانة فارغة بحقل Mizaname

RE: كود لخزن اسماء داخل كومبو بوكس من تيكست بوكس - وادي العوضي - 18-02-19

استاذي الفاضل عبدالله الصافي بارك الله فيك وجزاك الله خيرا وجعلها الله جل وعلا في ميزان حسناتك
نعم هذا هو المطلوب