اساتذتي الافاضل السلام عليكم ورحمة الله وبركاته
طلبي هو : ادخال الاسماء الى كومبو بوكس من خلال تيكست بوكس وخزنها داخل الكومبو بوكس
مثلا لدي في البرنامج كومبو بوكس وايضا تيكست بوكس اريد كلما كتبت اسم داخل التيكست بوكس واضغط على زر امر اضافة يخزن هذا الاسم داخل الكومبو بوكس ويبقى مخزون
حتى لو غلقنا البرنامج وفتحناه مرة ثانية يبقى الاسم مخزون في الكومبو بوكس
مع وافر التحايا
استاذي الفاضل عبدالله شكرا جزيلا لردك السريع وجزاك الله خيرا
انا عندي في البرنامج قاعدة بيانات اكسس 2003 ورابطها بالبرنامج عن طريق الاداة Adodc
فيها حقل كومبو بوكس اختار منه اسم مسؤول الميزان مثلا ولكن هذا الاسم احتمال يتغيير فوضعت تيكست بوكس بجانبه لكي ادخل فيه اي اسم ويحفظ داخل الكومبو بوكس ونجحت الطريقة
ولكن عندما اغلق البرنامج وارجع افتحه مرة ثانية لايظهر الاسم الذي تم اضافة في الكومبو بوكس من خلال التيكست بوكس فاضطرمرة ثانيه اكتبه في التيكست بوكس واضيفه في الكومبو بوكس وعند الاغلاق
يختفي وهذا لا اريده الذي اريده هو بعد اضافته من خلال التيكست بوكس ان يخزن في الكومبو بوكس واضل اختاره من الكومبو بوكس في كل بطاقة مبيعات
وهكذا
17-02-19, 02:26 AM (آخر تعديل لهذه المشاركة : 17-02-19, 02:32 AM {2} بواسطة عبدالله الصافي.)
إذا كنت تملئ الكمبوبوكس عن طريق وضع الاسماء في الكود
فأنصحك بعمل جدول للاسماء بقاعدة البيانات للبرنامج
وإذا كان البرنامج مستخدم فعليا ولا يمكن التعديل علي قاعدة البيانات
فقم بعمل قاعدة اضافية لتخزين الاسماء بها
وعند اضافة الاسم للكمبو بوكس
أيضا قم بأضافة الاسم الجديد لحقل الاسماء بقاعدة البيانات
وفي كل مرة تفتح البرنامج تقوم بأضافة الاسماء المحفوظة للكمبو بوكس من جدول الاسماء
أخي الكريم بداية قم بقطع اتصال الكمبوبوكس بقاعدة البيانات من خلال خصائص الكمبو
بمسح خاصية 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
ولكن خذ في اعتبارك أن ذلك الحل إذا كانت الاسماء لا تتكرر حتي لا تتكرر معك في الكمبو
استاذي الفاضل عبدالله جزاك الله خيرا وبارك الله فيك على مجهودك
بعد تطبيق ما تفضلت به وبعد مسح اتصال ال Combo2 بالاداة Adodc1 ووضع الاكواد في مكانها خرجت هذه الرسالة كما في الصور المرفقة