Hi.
I am trying to read values from a query called 'finn_NS' and write it into a form called 'finn_namn'.
When I launch the following code, this error pops up.
"Run.time error '3061'. Too few parameters. Expected 1." (Translated from norwegian.)
This error is located in the row 'Set rs = qdf.OpenRecordset()'.
Code:
Option Compare Database
Private Sub Kommando4_Click()
Dim db As DAO.Database
Dim qdf As DAO.QueryDef
Dim rs As DAO.Recordset
Dim qry As String
qry = "finn_NS"
DoCmd.OpenForm "finn_namn"
Set db = CurrentDb
Set qdf = db.QueryDefs(qry)
Set rs = qdf.OpenRecordset()
With rs
[Forms]![finn_namn]![Namn] = !Name
End With
Set rs = Nothing
Set db = Nothing
End Sub
Do I need to put some parameters inside the .OpenRecordset()?
Anders