...

View Full Version : Find



Xiang
03-21-2004, 02:54 PM
Dear Sir,

VB 6.0

Refers to the below coding. I want to find code in string data type, but there are run time error occur. why???

Private Sub Command1_Click()
Dim iFind As String

iFind = InputBox("Enter Customer Catergory Code to Find")
dtaCat1.Recordset.FindFirst ("CusCat = " & iFind)
If dtaCat1.Recordset.NoMatch Then
MsgBox "There is no such category code", vbExclamation
Else
Call GiveCData
End If
End Sub


Thanks


Xiang



EZ Archive Ads Plugin for vBulletin Copyright 2006 Computer Help Forum