كيفية تعديل كود لاظهار البيانات فى الكميو بكس

فية كود عوز أورهلكم وأطلب التعديل لو سمحتم

أنا عملت الكود دة

وهو أظهار محتويات حقل فى كمبو بكس

ليتم أختيار البيانات

Private Sub Combo1_click()

On Error Resume Next

If Combo1.Text = ("أختار من ألأقائمة") Then

Data1.RecordSource = "SELECT DISTINCT Nme FROM ee "

Data1.Refresh

Data1.Recordset.MoveFirst

Combo1.Clear

Text2 = " "

Do While Not Data1.Recordset.EOF

Combo1.AddItem Data1.Recordset("Nme")

Data1.Recordset.MoveNext

Loop

End If

End Sub

المشكلة

أن أنا لما بضغط على أى أختيار من القويمة combo1 box

بيزهر الكلام

وأجى أضيف

أى بيانت

فى الحقول الاخرى

بدلالة الاسم الموجود فى combobox

تدينى خطأ

وبدل مضيف بيانات تعمل تعديل للبيانات الاخرى اللمسجلة سبقاً

أريد ألأتى

1\ أمكانية أختيار من الكمبو بوكس

أمكانية الاضافه حقول جديدة بدلالة الكمبو بوكس أى عند الضغط على أى كلمة فية

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

مرفق معا الموضوع

المثال المراد تعديلة

New_Folder.rar