My guess is that the data in that column is not numeric. Try typing
RevNumGrid as String and see if you still get the error.
Carl Rapson
"misschanda via AccessMonster.com"
news:7a1f7cb4b291c@uwe...
>I have a form.. that when needed to be revised(revision number or whatever
> else neccessary) the user clicks on a button and another form appears,
> that
> allows the user to click the record in the main form and click on it to be
> revised. I am getting the following error that says data mismatch, and
> goes
> directly to the line of the code: RevNumGrid = List10. Column (5, LIst 10.
> ListIndex + 1).
>
> Any help is Appreciated
> -LA
>
>
>
> Private Sub Command4_Click()
> Dim QueryTxt As String
> Dim QueryParm As String
> Dim TrialNum As String
> Dim LineNum As String
> Dim RevNum As Integer
> Dim RevNumGrid As Integer
> Dim RevNumToRetreive As Integer
> Dim rs1 As DAO.Recordset
> Dim db1 As DAO.Database
> Set db1 = CurrentDb
>
>
> TrialNum = List10.Column(3, List10.ListIndex + 1)
> RevNumGrid = List10.Column(5, List10.ListIndex + 1)
>
>