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

بالنسبة لوضوح السؤال فهو واضح لكن الطريقة غير واضحة فهل تستخدم Dao or Ado or DataControl

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

السلام عليكم لنفترض انك تستخدم الADOوالتى اعتقد انها الافضل فسيكون الكود كالاتى

Private Sub Command1_Click()
Dim Conn As New Adodb.Connection
Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Company.mdb;Persist Security Info=False"
Conn.CursorLocation = adUseClient
Conn.Open
Dim RS As New Adodb.Recordset
Dim sql As String
sql = "select Client_name From Clients Where Client_Code='" & txtClientCode.Text & "'"
RS.Open sql, Conn, 1, 3, 1
'
If RS.RecordCount Then
'
txtClientName = RS!Client_name
'
Else
'
MsgBox "Client does not exist"
'
End If
'
RS.Close

End Sub

اما اذا كانت ال DAO فانا قد اقلعت عنها من فترة طويلة :)

انا استخدم data control

والمحاولة كالاتي

Data2.RecordSource = "select name_cust from coustmer where code ='text1.text'

Data2.Refresh

ضع الكود الذي كتبته في حدث text1_change

Data2.RecordSource = "select name_cust from coustmer where code ="  &  val(text1.text)
data1.refresh

if data1.recordset.eof then
text2=""
else 
text2=data1.recordset(" name_cust ")
end if

طبعا وضعت val(text1.text لنضمن تمرير رقم وليس نص

طبعا اخي الفاضل يمكن استخدام طريقة الاخ طارق .. او استخدم هذا الاستعلام ..

Data1.RecordSet="select * Form Mtable Where Filed1='"  & Textbox1 & " And  Filed2='"  & Textbox2.text & "'"

طبعاًَ هنا بفرض انك وضعت نوع الحقول String في قاعدة البيانات ..

شكرا علي هذة الردود الجميلة والسريعة

ولكن الاكواد مش شغالة

كود الاخ طارق يعطي الرسالة التالية

RUN-TIME ERROR '3464'

Data Type mimatchin criteria expression

فما معني هذة الرسالة

وجزاكم جميعا خيرا علي هذة المساعدات

اقتباس

Data2.RecordSource = "select name_cust from coustmer where code =" & val(text1.text)

Data2.refresh

yes should be recordsource not recordset like the case in another post

I think the error mean data1 is undefined .. should be data2

can this helps ?

or where the error point to exactly ? which line ?