Error on Ado search

[nkechifesie]

I have written this code to search my Database before adding a record but at the point (RsVehType.Find StrSql), it gives an error
Run-Time error '3001'
Arguements are of the wrong type, are out of acceptable range, or in conflict with one another
What is wrong please.
I have written the code below

Private Sub Form_Load()
Me.Height = 3210
Me.Width = 7710
Set AdVehType = New ADODB.Connection
AdVehType.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path & "\VEHICLE_TRACKER.mdb;"
AdVehType.Open
cmdControl(0).Enabled = True
cmdControl(4).Enabled = True
For i = 0 To 3
    cmdNavigate(i).Enabled = False
Next i
End Sub
 
Private Sub cmdControl_Click(Index As Integer)
Select Case Index
    Case 0
        Set RsVehType = AdVehType.Execute("SELECT txtVEHTYPE FROM tblVEHTYPE;")
        StrSql = "txtVEHTYPE = '" & TxtType.Text & "';"
        RsVehType.Find StrSql
        If RsVehType.RecordCount = 0 Then
            StrSql = "INSERT INTO tblVEHTYPE (txtVEHTYPE) VALUES ('" & TxtType.Text & "');"
            AdVehType.Execute StrSql
            TxtType = ""
            TxtType.SetFocus
        Else
            MsgBox "This vehicle type already exist", vbInformation, "VEHICLE TRACKER"
            TxtType.SetFocus
        End If
    Case 4
        RsVehType.Close
        AdVehType.Close
        Set RsVehType = Nothing
        Set AdVehType = Nothing
        Unload Me
End Select
End Sub
 

[sashi]

I have written this code to search my Database before adding a record but at the point (RsVehType.Find StrSql), it gives an error
Run-Time error '3001'
Arguements are of the wrong type, are out of acceptable range, or in conflict with one another
What is wrong please.
I have written the code below

Private Sub Form_Load()
Me.Height = 3210
Me.Width = 7710
Set AdVehType = New ADODB.Connection
AdVehType.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path & "\VEHICLE_TRACKER.mdb;"
AdVehType.Open
cmdControl(0).Enabled = True
cmdControl(4).Enabled = True
For i = 0 To 3
    cmdNavigate(i).Enabled = False
Next i
End Sub
 
Private Sub cmdControl_Click(Index As Integer)
Select Case Index
    Case 0
        Set RsVehType = AdVehType.Execute("SELECT txtVEHTYPE FROM tblVEHTYPE;")
        StrSql = "txtVEHTYPE = '" & TxtType.Text & "';"
        RsVehType.Find StrSql
        If RsVehType.RecordCount = 0 Then
            StrSql = "INSERT INTO tblVEHTYPE (txtVEHTYPE) VALUES ('" & TxtType.Text & "');"
            AdVehType.Execute StrSql
            TxtType = ""
            TxtType.SetFocus
        Else
            MsgBox "This vehicle type already exist", vbInformation, "VEHICLE TRACKER"
            TxtType.SetFocus
        End If
    Case 4
        RsVehType.Close
        AdVehType.Close
        Set RsVehType = Nothing
        Set AdVehType = Nothing
        Unload Me
End Select
End Sub
 

Hi there,

The error message sound very logic & clear, it simply means that you are not passing enough arguments to the <.Find>. Run through your code once again. Kindly refer to below attached link for further reading & understand the usage of ADO find method. Good luck & Take care.

ADO : Find

[nkechifesie]

RESOLVED


Thank you very much, I have resolved the problem by replacing

Set RsVehType = AdVehType.Execute("SELECT txtVEHTYPE FROM tblVEHTYPE;")
StrSql = "txtVEHTYPE = '" & TxtType.Text & "';"
RsVehType.Find StrSql
 

to this:

Set RsVehType.Open "SELECT txtVEHTYPE FROM tblVEHTYPE WHERE txtVEHTYPE = '" & TxtType.Text & "';"
 

[sashi]

RESOLVED


Thank you very much, I have resolved the problem by replacing

Set RsVehType = AdVehType.Execute("SELECT txtVEHTYPE FROM tblVEHTYPE;")
StrSql = "txtVEHTYPE = '" & TxtType.Text & "';"
RsVehType.Find StrSql
 

to this:

Set RsVehType.Open "SELECT txtVEHTYPE FROM tblVEHTYPE WHERE txtVEHTYPE = '" & TxtType.Text & "';"
 

Hi there,

Congrats on your discovery. Thanks for sharing the code / correction with us. Good luck & Take care.