27-06-19, 10:04 PM
هل هنالك مشكلة بهذا الكود ؟ استخدمة دائما واليوم وكانه خلص مفعوله ههه
بطل يتجاوب نهائيا
بطل يتجاوب نهائيا
كود :
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