Type Mismatch On Opening A Recordset?

[Fozzy666]

Can Any one shed some light on this problem i have.

I have a database with a table called "Main". I am trying to copy three filtered bit of information from a form to create a new record but i keep getting this error:

Run-Time Error '13'

Type Mismatch

My coding is:

Dim txtProj As String, txtArea As String, txtSect As String
Dim dbs As Database, rst As Recordset

txtProj = Me.Project
txtArea = me.Area
txtSect = me.Section1

Set dbs = currentdb

Set rst = dbs.Openrecordset("Main&quot

rst.AddNew
rst.Fields("Project&quot = txtProj
rst.Fields("Area&quot = txtArea
rst.Fields("Section&quot = txtSect
rst.Update
rst.Close

Set dbs = Nothing


The error comes from Set rst= dbs.Recordset("Main&quot

(Me.Project is a text field)
(Me.Area is a number field)
(Me.Section1 is a number field)

Can anyone see any errors in my coding or suggest any solutions?

 

[JLeo]

Hi,

Try this since u are updating your table!main of the database.

Set rst = dbs.Openrecordset("Main",dbOpentable)

rest looks ok

Hope it works.

 

[Fozzy666]

Cheers for your suggestion JLeo but it still doesn't work. Are there any other ways around using the recordset to copy information off the form to create a new record?

 

[stalo]

Since you are using Dao try

dim dbs as dao.database
dim rsr as dao.recordset

 

[Fozzy666]

Genius Pure Genius Mate

Cheers.

 

[JLeo]

Oops, missed that out.
Anyway Stalo's suggestion should work. Experienced that error before too. Good Luck.