Abrir consulta mediante ADO (en access)
Publicado por CyRuS (26 intervenciones) el 12/12/2006 16:57:03
Estoy trabajando en un módulo del access. Abro una consulta que ya tengo hecha y me cuenta el nº de regristros. Bien,
ningún problema.
Dim db As DAO.Database, rs As DAO.Recordset, qd As DAO.QueryDef
Function hola()
Set db = CurrentDb
Set qd = db.QueryDefs("Consulta")
Set rs = qd.OpenRecordset()
MsgBox " el recordset contiene" & rs.RecordCount & "registros"
rs.Close
db.Close
End Function
PERO cuando la consulta tiene un campo que me lo pregunta por medio de un
InputBox entonces esa función se me para en la línea de Set rs =
qd.OpenRecordset() y me da el error " Pocos parámetros. Se esperaba 1 "
¿Por qué no me abre la consulta como si la ejecutara con DoCmd.OpenQuery
("Consulta") ? porque si la ejecuto así, entonces sí que me pregunta el
valor del campo por el que quiero filtrar.
ningún problema.
Dim db As DAO.Database, rs As DAO.Recordset, qd As DAO.QueryDef
Function hola()
Set db = CurrentDb
Set qd = db.QueryDefs("Consulta")
Set rs = qd.OpenRecordset()
MsgBox " el recordset contiene" & rs.RecordCount & "registros"
rs.Close
db.Close
End Function
PERO cuando la consulta tiene un campo que me lo pregunta por medio de un
InputBox entonces esa función se me para en la línea de Set rs =
qd.OpenRecordset() y me da el error " Pocos parámetros. Se esperaba 1 "
¿Por qué no me abre la consulta como si la ejecutara con DoCmd.OpenQuery
("Consulta") ? porque si la ejecuto así, entonces sí que me pregunta el
valor del campo por el que quiero filtrar.
Valora esta pregunta
0