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
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
0