[AccessD] Error 3061

Hi Ralf,
Looks like your query contain a parameter criterion.
In that case you need to use a querydef in your code - like this:
    
    Dim rs As DAO.Recordset

    Dim dbs As DAO.Database
    
    Dim qdf As DAO.QueryDef

    Set dbs = CurrentDb
    
    Set qdf = dbs.QueryDefs("qryDatos")

    qdf.Parameters(0) = <here you supply the parameter value>

    Set rs = qdf.OpenRecordset

Asger

-----Oprindelig meddelelse-----
Fra: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] På vegne af Ralf Lister
Sendt: 11. december 2010 16:57
Til: accessd at databaseadvisors.com
Emne: [AccessD] Error 3061

Hello,  

 

I have the AC2007 database, and run this code in a standard  module:

 

************************************************+

Sub Versicherung(table As String, F As Byte, FJahr As Long)

 

    Const tasa = 6.97

    

    Dim rs As DAO.Recordset

    Dim dbs As DAO.Database

    

    Set dbs = CurrentDb

    Set rs = dbs.OpenRecordset("qryDatos")

***************************************************    

At the last line (“Set rs = …”) I get this error message:

 

“Se ha producido el error “3061” en tiempo de ejecución:

Pocos parametros. Se esperaba 1.”

 

(Error “3061”

Few parameter. Expected: 1)

 

What I’m doing wrong here? Can someone help?

 

TIA

 

Saludos

Actuary Ralf Lister

La Paz, Bolivia

Environment