عايز اعمل استعلام داخل الداتا جريد بالكود

قمت بتحميل المثال ووجدته يعمل بشكل جيد وما طلبته يمكن تنفيذه بتغيير كود الاستعلام التالي

RSTEMP.Open "SELECT * FROM CUSTOMERS WHERE SNAME='" + Combo1.Text + "'", con, 1, 2

إلى

RSTEMP.Open "SELECT * FROM CUSTOMERS WHERE CCODE =" + Text1.Text + "", con, 1, 2

ولاحظ اني قمت بأزالة علامات التنصيص ' '

بمعنى اخر قم برسم Text1 على الفورم وضع هذه الشفرة له

Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
If RSTEMP.State = 1 Then RSTEMP.Close
RSTEMP.CursorLocation = adUseClient
RSTEMP.Open "SELECT * FROM CUSTOMERS WHERE CCODE=" + Text1.Text + "", con, 1, 2
Set DB.DataSource = RSTEMP
End Sub

اخى الكريم

شكرا لاهتمامك بالموضوع

ولكننى احب ان اوضحلك شىء

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

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

ارجو ان يكون ما طلبته قد وصل لك

فى انتظار ردك