how to solve "runtime error 13: type mismatch"?

[brboga]

Hello,

VBA gives an error on the indicated line. "tblparamet ers" is a database which exists.

Option Compare Database

Option Explicit

Sub fill_parameters()

Dim rstfill As Recordset
Dim DB2 As Database

Set DB2 = CurrentDb
====> Set rstfill = DB2.OpenRecordset("tblparameters")

With rstfill

While Not .EOF

Forms("frminput")!Txtchoisirleparam.SetFocus
If Forms("frminput")!Txtchoisirleparam.Text = rstfill![Reference] Then

Forms("frminput")!Txttauxactua.SetFocus
Forms("frminput")!Txttauxactua.Text = rstfill![taux d'actualisation]

Forms("frminput")!Txttauxinfla.SetFocus
Forms("frminput")!Txttauxinfla.Text = rstfill![inflation]

Forms("frminput")!TxtDDC.SetFocus
Forms("frminput")!TxtDDC.Text = rstfill![DDC]

Forms("frminput")!Txtageretraiteroulant.SetFocus
Forms("frminput")!Txtageretraiteroulant.Text = rstfill![age retraite roulant]

Forms("frminput")!Txtageretraitenonroulant.SetFocus
Forms("frminput")!Txtageretraitenonroulant.Text = rstfill![age retraite non-roulant]

Forms("frminput")!Txttest.SetFocus
Forms("frminput")!Txttest.Text = rstfill![test]

Forms("frminput")!Txttestid.SetFocus
Forms("frminput")!Txttestid.Text = rstfill![testID]

Forms("frminput")!Txtfileinput.SetFocus
Forms("frminput")!Txtfileinput.Text = rstfill![input file]

Forms("frminput")!Txtfileoutput.SetFocus
Forms("frminput")!Txtfileoutput.Text = rstfill![output file]

Forms("frminput")!Txtfileoutputtest.SetFocus
Forms("frminput")!Txtfileoutputtest.Text = rstfill![output test]

Forms("frminput")!Txtfileoutputtotal.SetFocus
Forms("frminput")!Txtfileoutputtotal.Text = rstfill![output file total]

End If

rstfill.MoveNext

Wend
End With

End Sub

Can someone solve this problem?

Thanks

[MikeTheBike]

Hi

I assume that you have the ADO library above the DAO library in the references list, so I suggest explicitly dimensioning you variable i.e.

Dim rstfill As DAO.Recordset
Dim DB2 As DAO.Database

HTH


MTB