[aboezzat84]

(04-01-21, 08:08 AM)ahmed201 كتب : كود البحث كان شغل بدون اي مشاكل ولكن الان كل ما ابحث تظهر لي رسالة خظأ 

كود :

If rs.State = adStateOpen Then rs.Close
sql = "SELECT * FROM [Table2] WHERE [n1]='" & Trim(Text2.Text) & "'"
rs.Open sql, db, adOpenStatic, adLockOptimistic
If rs.RecordCount > 0 Then
With rs
Text1.Text = rs![n1]
Text2.Text = rs![n2]
Text3.Text = rs![n3]
Text4.Text = rs![n4]
Text6.Text = rs![n5]
Text7.Text = rs![n6]
'Text8.Text = rs![n7]
Text9.Text = rs![n8]
Text10.Text = rs![n9]
Text11.Text = rs![n10]
End With
Else
End If

استخدم السطر التالى قبل ال IF

On Error Resume Next