من فضلكم مساعدة في الكمبو بكس

عزيزي "مين مش عارف" مشكلتك بسيط ولها حلان :

1- غير خاصية نوع الكمبوبكس الى اخرى بحيث تستطيع الكتابة به واعمل حدث لإضافة القيمة منه الى حقل قاعدة البيانات

2-او اعمل تكست بوكس مجاور مخفي واكتب حدث لجعله يأخذ القيمة من الكومبوبكس ثم أضفه بحث آخر لقاعدة البيانات

أو يمكن ان تجعل التكست بكس هو حقل من قاعدة البيانات تعبئ البيانات فيه مباشرة

انا شخصيا عملتها كثير وزبطت

بالتوفيق

عزيزي أنا لم أفهم عبارة "مين مش عارف" ولكن المهم

أنا أعلم أنه يمكن تغير نوع الكومبو بكس ولكن أنا أسأل إذا كان من الممكن حفظ النص الذي اخترته من الكومبوا بكس وهي من نوه ال Dropdown list إلى قاعدة بيانات أم لا وإذا كان ممكنا فكيف يتم ذلك

هذا فقط

والمثال كالأتي

عندي كومبو بكس مكتوب فيها

Hesham

Ahmad

Khaled

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

فقط

السلام عليكم ورحمة الله وبركاته

أخى الفاضل

المشكلة التى لديك ليس سببها الحفظ فى قاعدة البيانات إذ أنك تقرأ من الكمبوبوكس وليس تكتب فيه

أى أن هذا السطر لا يصدر الخطأ

MyRecordSet!MyField=ComboBox1.Text

ولكن الكتابة سيصدر عنها خطأ

ComboBox1.Text = MyRcordSet!MyField

والطبيعى أنك عندما تضيف للكمبوبوكس ستستعمل Combo1.AddItem وهى لا تتعارض مع النوع DropDownList

لذا راجع مصدر الخطأ وأخبرنا عن النتيجة

والله من وراء القصد وهو يهدى السبيل

شكرا على الإجابة وسوف أقوم بالتجربة واخبرك بالنتيجة في أقرب وقت إن شاء الله

السلام عليكم وأرجوا من الاخ الفاضل abulyaman أن أجيب على السؤال

أما بالنسبة الى السؤال الاول عن كيفية حفظ البيانات من الكومبوا الى قاعدة البيانات كالتالي

Private Sub Command_Click()

RecordSet.AddNew

RecordSet!FieldName = Combo1.Text

RecordSet.Update

End Sub

أما أدا أردت حفظ كل البيانات داخل الكومبوا بوكس دفعة واحد أليك التالي

Private Sub Command_Click()

Dim i as Integer

for i = 0 to Combo1.ListCount - 1

RecordSet.AddNew

RecordSet!FieldName = Combo1.list(i)

RecordSet.Update

Next i

End Sub

أما أدا أردت أدخال بيانات الى الكومبوا بوكس أستعمل التالي

Private Sub Command_Click()

Dim StrData as String

StrData = RecordSet!FieldName

Combo1.AddItem StrData

End Sub

أما أدا أردت تغيير أسم في لائحة الكومبوا من دون أضافة بيانات فأستعمل التالي

مثلا هنا عندنا كومبوا وتملك بيانات كالتالي

Imad

Ahmad

Soso

wow

أنا هنا اريد تغيير الاسم Ahmad الى yay

Private Sub Command_Click()

Combo1.List(1) = "yay"

End Sub

أنظر الى List(1) كيف أنني وضعت الرقم واحد وليس أثنين هدا لأن الكومبوا بوكس تبدا عد العناصر أو البيانات

داخلها من الرقم صفر يعني الاسم Imad هو رقم صفر والثاني يشار أليه برقم واحد وهكدا .

أرجوا أن أكون وضحت الفكرة

:)

السلام عليكم ورحمة الله وبركاته

ما شاء الله عليك يا أخ iemad

تسلم يداك

أجبت فأوفيت

ولكن

اقتباس

السلام عليكم وأرجوا من الاخ الفاضل abulyaman أن أجيب على السؤال

أين السؤال و من يجيب عليه؟ - لم أفهمك