Quantcast
Channel: VBForums - Visual Basic 6 and Earlier
Viewing all articles
Browse latest Browse all 21246

Run-time error '3001'

$
0
0
Hi,

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

Code:

  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

Code:

    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.

Code:

            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

Viewing all articles
Browse latest Browse all 21246

Trending Articles



<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>