writing to a table using VBA

[ArchonSoft]

I tried to write into a table using the VBA code.
Here is the way I tried (where "historique" is the table I try to write to):

'variables declare
Dim rstWrite As Recordset
Dim dbsInOut As Database

'References to current database
>>>>Set rstWrite = dbsInOut.OpenRecordset("historique",
dbOpenDynaset)

'write to table historique
With rstWrite
.AddNew
!Nom = Nom
!Statut = Statut
!Lieux = Lieux
!HeureRetour = HeureRetour
!SuiviAppels = SuiviAppels
!Commentaires = Commentaires
End With

The problem appears to the line I identified (>>>>) a window pop telling me that "type mismatch". I have tried all possible type and no type to and nothing works properly, always the same message box.

 

[KenReay]

Hi

have you set the database object? - eg:

'variables declare
Dim rstWrite As Recordset
Dim dbsInOut As Database

'References to current database
set dbsInOut = CurrentDb()
>>>>Set rstWrite = dbsInOut.OpenRecordset("historique",
dbOpenDynaset)

also you must have a reference to DAO in your references, this is particularly true if you are using Access2000 or AccessXP

Regards

Ken Reay
Freelance Solutions Developer
Boldon Information Systems Ltd
Website needs upgrading, but for now -

http://www.kenneth.reay.btinternet.co.uk

UK

 

[ArchonSoft]

Reference to DAO is ok and the database object is set, but still have the error.

 

[KenReay]

Hi

Cannot actually see anything wrong with it.

Do you also have reference to ADO Library in your references?

if yes try making recordset specific to DAO so

Dim rstWrite As DAO.Recordset

also have you missed out the update line so

With rstWrite
.AddNew
!Nom = Nom
!Statut = Statut
!Lieux = Lieux
!HeureRetour = HeureRetour
!SuiviAppels = SuiviAppels
!Commentaires = Commentaires
.Update
End With

Regards

Ken Reay
Freelance Solutions Developer
Boldon Information Systems Ltd
Website needs upgrading, but for now -

http://www.kenneth.reay.btinternet.co.uk

UK

 

[ArchonSoft]

It works well with:
Dim rstWrite As DAO.Recordset

Thank's