[princeofislam]

هل هنالك مشكلة بهذا الكود ؟ استخدمة دائما واليوم وكانه خلص مفعوله ههه
بطل يتجاوب نهائيا 

كود :

On Error Resume Next
Dim ser As String

x = Text7.Text
  If Not vbCancel Then
     Adodc1.Refresh

Adodc1.RecordSource = "select * from kaf where codestatus like '" & x & "%';"
     Adodc1.CommandType = adCmdText
     Adodc1.Refresh

       
   
 
 

Text8 = Adodc2.Recordset.Fields("status")
End If
End If