كود عند الضغط على كمبوا يظهر رقم من الجدول

نشأت الربيحات كتب:

يا اخوان ارجوا المساعدة في هذا الكود

وهو كود عند الضغط على كمبوا (طبعا مربوط بجدول ) يظهر رقم الذي تم اختياره من جدول اكسس

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

السلام عليكم

هذا هو الكود

rs.MoveFirst
rs.Find "name='" & Combo1.Text & "'", , adSearchForward, 1
Text1.Text = rs("ID")

وهذا مثال على ذلك

http://www.4shared.com/file/D7QgW0C9/Combo.html

مشكور يا اخي وما قصرت

عنجد غلبتك معي

فية طريقة تانية أخري ، وهي الأفضل والمتبعة ، وهي أثناء تحميل البيانات بالكومبو يتم تحميل العنوان والمفتاح الرئيسي في وقت واحد ، ومن ثم إستخدامها كما تشاء ، مثال :

Rs.Open "Select Emp_ID, Emp_Name From Emp Order By Emp_ID", Cn

Do While Not Rs.EOF
Combo1.AddItem Rs!Emp_Name
Combo1.ItemData(Combo1.ListCount -1) = Rs!Emp_ID
Rs.MoveNext
Loop

ومن ثم حينما تريد معرفة المفتاح الرئيسي تتم كما يلي :

Private Sub Combo1_Click()
Me.Caption = Combo1.ItemData(Combo1.ListIndex)
End Sub

بالتوفيق