Access - ERROR

 
Vista:

ERROR

Publicado por eca (97 intervenciones) el 28/03/2001 20:45:42
HOLA A TODOS, TENGO EL SIGUIENTE PROBLEMA

TENGO UN FORMULARIO DESDE ESTE FORMULARIO ME CONECTO AL INFORME DETALLE_FACTURA Y DENTO DE ESTE INFORM , TENGO EL EVENTO OPEN, QUE ME ARROJA UN ERROR DICE QUE LA VARIABLE

Dim qdf As QueryDef
NO ESTA DEFINIDA, PERO EN QUE PARTE LA DEFINO, SIENDO QUE LA ESTOY OCUPANDO ACA

Si me pueden ayudar, Gracias ECA

Private Sub Report_Open(Cancelar As Integer)

' Crear conjunto de registros base para el informe utilizando el criterio introducido
' en el formulario CuadroDeDiálogoDatalleFactura.

Dim entX As Integer
Dim qdf As QueryDef
Dim formulario As Form

' No abrir el informe si está cargado el formulario CuadroDeDiálogoDetalleFactura.
If Not (EstáCargado("CuadroDeDiálogoDetalleFactura")) Then
Cancelar = True
MsgBox "Para obtener una vista previa de este informe o para imprimirlo, debe abrir " _
& "CuadroDeDiálogoDetalleFactura en Vista Formulario.", vbExclamation, _
"Debe abrir el cuadro de diálogo"
Exit Sub
End If

' Establecer la variable de la base de datos a la base de datos actual.
Set bdInforme = CurrentDb
Set formulario = Forms!CuadroDeDiálogoDetalleFactura
' Abrir el objeto QueryDef.
Set qdf = bdInforme.QueryDefs("datos_factura")
' Establecer los parámetros para la consulta basándose en los valores
' introducidos en el formulario CuadroDeDiálogoVentasPorEmpleado.

qdf.Parameters("Forms!CuadroDeDiálogoDetalleFactura!FechaInicio") _
= formulario!FechaInicio
qdf.Parameters("Forms!CuadroDeDiálogoDetalleFactura%2
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Alejandro

ERROR

Publicado por Alejandro (4142 intervenciones) el 14/04/2023 20:01:03
El error que estás obteniendo indica que la variable "qdf" no está definida. Para solucionarlo, debes asegurarte de que la variable está declarada y definida antes de que se utilice en el código.

En el código que has proporcionado, la variable "qdf" se define en la siguiente línea:

1
Set qdf = bdInforme.QueryDefs("datos_factura")

Asegúrate de que esta línea está correctamente escrita y que la consulta "datos_factura" está definida en la base de datos actual.

Si aún así sigues teniendo problemas, revisa que la variable "bdInforme" también esté correctamente definida y que la consulta "datos_factura" tenga los parámetros necesarios para que la asignación de valores en las líneas siguientes funcione correctamente.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar