No consigo corregirlo...

Ari
18 de Agosto del 2004
Hola!
En la codificación de dos funciones diferentes, al crear el recordset me da el mismo error: "Pocos parámetros. Se esperaba 2", y no se por que es...
Las instrucciones son las siguientes:

Set rs = BD.OpenRecordset("select importe from ventas where (cod_emp ='" & txtCodigo.Text & "') and (Fecha = '# */'& txtMes.Text &'/'& txtAño.Text &' #') ")


Set rs = BD.OpenRecordset("select nombre, numero, ref_Prod, importe, fecha from empleados, ventas where codigo='" & txtEmp.Text & "' and fecha = '*/'& txtMes.Text &'/'& txtAño.Text &'' ")


Recuerdo que la única relación entre un recordset y otro es que tiran de la misma BD, pero sus funciones son totalmente independientes...
Si alguien me puede ayudar... Muchas gracias por adelantado...

mvallejos
18 de Agosto del 2004
Con Recordset de DAO apuntando a una mdb, el error
Pocos parámetros. Se esperaba n, significa que se está haciendo referencia a campos que no existen.
Verificalo desde el diseño de cada tabla y no desde la grilla de datos, ya que los títulos pueden ser diferentes a los nombres de campo.
De hecho, en los ejemplos, en la misma tabla hacés referecia al código con distintos nombres.
Para mejorarlo, fijate en este ejemplo

Dim Sql As String
Sql = "select nombre, numero, ref_Prod, importe, "
sql = sql & " fecha from Empleados "
sql=sql & " Where cod_emp = '" & txtCodigo.Text & "'"
sql=sql & " And Month(Fecha) = " & txMes.text
sql=sql & " And Year(Fecha) = " & txtAño.Text
Set rs = BD.OpenRecordset(Sql)