20-05-13, 02:38 AM
التعديل على كود البحث
المطلوب : رسالة تظهر بأن قيمة البحث موجودة او لا دون عرض سجل القيمة
المطلوب : رسالة تظهر بأن قيمة البحث موجودة او لا دون عرض سجل القيمة
PHP كود :
Dim x As String
x = Text18.Text
Adodc1.RecordSource = "select * from carh where carnumbe like'" & x & "'"
Adodc1.CommandType = adCmdText
Adodc1.Refresh
If Adodc1.Recordset.RecordCount = 0 Then
MsgBox "القيمة غير موجودة", vbOKOnly + vbMsgBoxRight + vbInformation + vbMsgBoxRtlReading, "البحث"
Else
MsgBox "القيمة موجودة", vbOKOnly + vbMsgBoxRight + vbInformation + vbMsgBoxRtlReading, "البحث"
End If