اريد كود لاختيار الاسماءفي اداة combo box ....

بسم الله

اخي الكريم

السؤال مش واضح مرة لكن بجواب على ما فهمت :(

انت تريد عند اختيار عنصر ما موجود في الكومبو بكس ان يظهر داخل تكست ... صح ولا :angry:

اذا كان كذا اعمل عند الحدث click الخاص باكومبو بكس التالي

text1.text=combo1.text

ان شاء الله هذا قصدك ;)

اخوك خالد

شكرا لك اخي الكريم على الرد

لكن جوابك تقريبا قريب لي قصدت المشكلة تبقى عند اختيار عنصر في combobox

متلا توجد بداخل combobox اربعة عناصر متلا اسماء ...امين و رضى و محمد و يوسف الخ

عند اختيار اسم من بين هده الاسماء متلا تضهر معلومات عن الشخص او اي شيء تحدده اريده ان يضهر في txt

وليس اسم الشخص ان يضهر في txt كما اعطيتني اياه في كود

انتضر الرد

تحياتي

االسلام عليكم

تحية إلي الاخوة الاعزاء

بالنسبة لسؤال الاخ فله حل سهل بإذن الله

إذا كان الكومبو بوكس مربوط بقاعدة بيانات :-

if rs.state=adstateopen then rs.close

rs .open"select * from table1 where name ='" & combobox1.text &"',db

if rs.recordcount=0 then exit sub

address.text=rs![address]

tel.text=rs![tel]

بسم الله

اخي الكريم

القضية سهلة ... شوية تعديل

يعني انت تريد مثلا عند الضغط على اسم معين تظهر تفاصيل معينة ... صح :rolleyes:

لنفرض عندك اسمين في الكومبو( أحمد , علي ) ....تمام

اذا ضغطت على احمد يظهر في التكست انه من مواليد مكة مثلا .

وعند الضغط على علي يظهر في التكست انه من مواليد المدينة مثلا .

طيب في الحدث click الخاص بالكومبو بوكس اعمل التالي

if combo1.text="أحمد  then
text1.text="من مواليد مكة "  
else
if combo1.text="علي" then
text2.text="من مواليد المدينة " 
end if
end if

وهكذا اذا كان معك أكثر من اسم

كذا اوكي ;)

دعواتك

اخوك خالد

يمكن استخدم الحل التالي ايضا مع الداتا بيز

 if rs.state=adstateopen then rs.close

rs.open"select * from table1",db

if rs.recordcount=0 then exit sub

if rs.bof=false then rs.movefirst

do while rs.eof=false

if combobox1.text=rs![name] then

address.text=rs![address]

tel.text=rs![tel]

exit sub

else

rs.movenext

end if

loop

اضن هذا قصدك

private sub combo1_click()

label1.caption=combo1.text

end sub