[RESOLVED] Run-time error '3001'

[Nightwalker83]

Hi,

I am receiving Run-time error '3001' Arguments of the wrong type, are out of acceptable range or are in conflict with eachother.

   If Not Text1.Text = rs.Fields("PlayerID") Then
            rs.AddNew 'adding new record
         Else
            rs.Find rs.Fields("PlayerID") = Text1.Text
         End If
            Text1.Text = rs.Fields("PlayerID")
            rs.Fields("Score") = ScoreHolder
            rs.Update 'Handle the data

the error is on this line

    rs.Find rs.Fields("PlayerID") = Text1.Text

Not sure why I am receiving that error? Another project of mine using that code has no problems.

            If Not Form1.txtContactID.Text = rs.Fields("CustomerID") Then
            rs.AddNew 'adding new record
             Else
             rs.Find Form1.txtContactID.Text = rs.Fields("CustomerID")
             End If

Thanks,


Nightwalker

[dee-u]

Should it not be like this?

rs.Find "PlayerID = '" & Text1.Text & "'"

[DataMiser]

Or if it is numeric then

rs.Find "PlayerID = " & Text1.Text

[Nightwalker83]

In debug mode putting the cursor over both

Text1.Text = rs.Fields("PlayerID")

Text1.Text and rs.Fields("PlayerID") both have the value of "x" which is the player token for tic tac toe. However, I cannot figure out why

rs.find

would be skipped over because the values look identical?

[Nightwalker83]

I rewrote the score sub as so and it works.

Private Sub score()
If rs.RecordCount < -1 Then
   MsgBox "Please setup the database first!"
Else
              rs.Find "PlayerID = '" & Retval & "'"
                rs.Fields("PlayerID") = Retval
            rs.Fields("Score") = ScoreHolder
            rs.Update 'Handle the data
End If
End Sub

[DataMiser]

If rs.RecordCount < -1 Then

??
How could you have a recordcount <-1 ? Recordcount will be either 0 or >0 or possibly -1 if an error occurs

[Nightwalker83]

If rs.RecordCount < -1 Then

??
How could you have a recordcount <-1 ? Recordcount will be either 0 or >0 or possibly -1 if an error occurs

That should have been either 0 or = -1.

Edit:

However, when I ran the code it displayed the message only when it could not find the data.

[DataMiser]

hmm that does not make sense either since the find would not have been executed yet

[Nightwalker83]

hmm that does not make sense either since the find would not have been executed yet

Actually, I am correct in my original assumption because I am checking whether or not the default score "0" has been entered in in the database to start the game. "0" would be at position "-1" so anything less than that would mean the table is empty.

 If rs.RecordCount < -1 Then MsgBox "Please setup the database first!"

and I have now placed that conditional statement after connecting to the database instead of at the start of saving the score to the database.

[DataMiser]

There is no position -1

Recordcount returns the number of records in the recordset if there is 1 record it returns 1 if there are no records it returns 0. The only time I have ever saw a value of -1 is in cases where the cursor does not support the .recordcount property in which case it returns -1 even if there are 1 million records returned.

[Nightwalker83]

How you solve the problem? I have tried checking both either BOF or EOF and whether or not the values for the "PlayerID" and "Score" were empty but I keep receiving run time error '3021'.

[Schmidt]

How you solve the problem? I have tried checking both either BOF or EOF and whether or not the values for the "PlayerID" and "Score" were empty but I keep receiving run time error '3021'.

If you want a reliable working Rs.Recordcount, you will simply have to ensure
Cnn.Cursorloaction = adUseClient
on the Connection you use, to open your Rs from.

That's what DataMiser hinted at with "-1 is returned only when the Cursor(Type) does not support ..." ...
The Rs cannot hand out a concrete Rs.Recordcount (yet). With a CursorType of adUseServer, the returned
Rs "knows" only that:
"there are records, but how many I cannot tell you yet, I'll give you a -1 to signalize that".

Olaf

[Nightwalker83]

rs.Find "PlayerID like '" & Retval & "'"for some reason the find is having issues with the equals sign. I will try "like" and see if that solves the issue.