Algo sencillo (Querydef)
Publicado por Miguel Angel (30 intervenciones) el 09/11/2000 00:00:00
Quiero trabajar con Querydef para obtener un recordset a través de una consulta de access, tecleo el siguiente código pero me da un error ("no coinciden los tipos") ¿Por qué puede ser?¿Necesito instalar alguna librería aparte de microsoft DAO 3.6?
Private Sub Nivel_LostFocus()
Dim rstNomina As Recordset
Dim qdfNomina As QueryDef
Set qdfNomina = Nothing
Set qrdNomina = DBEngine.Workspaces(0).Databases(0).QueryDefs("calcula_nomina")
qrdNomina.Parameters("[ctrl]").Value = Forms!f_plantilla.Control
Set rstNomina = Nothing
Set rstNomina = qrdNomina.OpenRecordset(dbOpenDynaset)
End Sub
Si alguien puede ayudarme se lo agradecería enormemente.
Private Sub Nivel_LostFocus()
Dim rstNomina As Recordset
Dim qdfNomina As QueryDef
Set qdfNomina = Nothing
Set qrdNomina = DBEngine.Workspaces(0).Databases(0).QueryDefs("calcula_nomina")
qrdNomina.Parameters("[ctrl]").Value = Forms!f_plantilla.Control
Set rstNomina = Nothing
Set rstNomina = qrdNomina.OpenRecordset(dbOpenDynaset)
End Sub
Si alguien puede ayudarme se lo agradecería enormemente.
Valora esta pregunta


0