اساتذتي الافاضل السلام عليكم ورحمة الله وبركاته
طلبي هو : ادخال الاسماء الى كومبو بوكس من خلال تيكست بوكس وخزنها داخل الكومبو بوكس
مثلا لدي في البرنامج كومبو بوكس وايضا تيكست بوكس اريد كلما كتبت اسم داخل التيكست بوكس واضغط على زر امر اضافة يخزن هذا الاسم داخل الكومبو بوكس ويبقى مخزون
حتى لو غلقنا البرنامج وفتحناه مرة ثانية يبقى الاسم مخزون في الكومبو بوكس
مع وافر التحايا
ممكن تستخدم قاعدة بيانات او ملف نصي لتخزين فيه الاسماء
وعند فتح البرنامج مرة اخري تملئ الكمبو بالاسماء التي بالملف
استاذي الفاضل عبدالله شكرا جزيلا لردك السريع وجزاك الله خيرا
انا عندي في البرنامج قاعدة بيانات اكسس 2003 ورابطها بالبرنامج عن طريق الاداة Adodc
فيها حقل كومبو بوكس اختار منه اسم مسؤول الميزان مثلا ولكن هذا الاسم احتمال يتغيير فوضعت تيكست بوكس بجانبه لكي ادخل فيه اي اسم ويحفظ داخل الكومبو بوكس ونجحت الطريقة
ولكن عندما اغلق البرنامج وارجع افتحه مرة ثانية لايظهر الاسم الذي تم اضافة في الكومبو بوكس من خلال التيكست بوكس فاضطرمرة ثانيه اكتبه في التيكست بوكس واضيفه في الكومبو بوكس وعند الاغلاق
يختفي وهذا لا اريده الذي اريده هو بعد اضافته من خلال التيكست بوكس ان يخزن في الكومبو بوكس واضل اختاره من الكومبو بوكس في كل بطاقة مبيعات
وهكذا
إذا كنت تملئ الكمبوبوكس عن طريق وضع الاسماء في الكود
فأنصحك بعمل جدول للاسماء بقاعدة البيانات للبرنامج
وإذا كان البرنامج مستخدم فعليا ولا يمكن التعديل علي قاعدة البيانات
فقم بعمل قاعدة اضافية لتخزين الاسماء بها
وعند اضافة الاسم للكمبو بوكس
أيضا قم بأضافة الاسم الجديد لحقل الاسماء بقاعدة البيانات
وفي كل مرة تفتح البرنامج تقوم بأضافة الاسماء المحفوظة للكمبو بوكس من جدول الاسماء
وإن أمكن وضع مثال للتعديل عليه
استاذي الفاضل هذا البرنامج في المرفقاتاذا امكن التعديل عيله واكون ممنون منك يا طيب
أخي الكريم بداية قم بقطع اتصال الكمبوبوكس بقاعدة البيانات من خلال خصائص الكمبو
بمسح خاصية 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 ووضع الاكواد في مكانها خرجت هذه الرسالة كما في الصور المرفقة
اخي الكريم ارجع لقاعدة البيانات فهناك خانة فارغة بحقل Mizaname
استاذي الفاضل عبدالله الصافي بارك الله فيك وجزاك الله خيرا وجعلها الله جل وعلا في ميزان حسناتك
نعم هذا هو المطلوب