Código con errores ¿Pueden auxiliarme?
Publicado por Manuel Pastrana Orozco (44 intervenciones) el 23/02/2006 18:23:42
Saludos a Tod@s
Esperando que se encuentren bien, me permito distraerles con la siguiente consulta:
¿Alguien podría orientarme sobre el por qué no funciona la siguiente rutina?
Private Sub cmd_Reporte_Click()
Dim appAccess As access.Application
Set appAccess = New access.Application
appAccess.OpenCurrentDatabase "\\Serv1\Acdo\bdAcdo.mdb"
Inicio = txt_Fecha_Del.Text
Final = txt_Fecha_Al.Text
With appAccess
.DoCmd.Echo False
.DoCmd.OpenReport "Acuerdos Consulta por período", acViewDesign
.Reports ("AcdosPeriodo") '<- línea que genera el error
.Reports.Controls("Fecha_Del").Caption = Inicio '<- línea que genera el error
.Reports.Controls("Fecha_Al").Caption = Final '<- línea que genera el error
.DoCmd.OpenReport "Acuerdos Consulta por período", acViewPreview
.DoCmd.Echo True
End With
appAccess.CloseCurrentDatabase
Set appAccess = Nothing
End Sub
En el proyecto tengo cargados los siguientes componentes de control:
- Cdlg
- Control de calendario de Microsoft 11.0
- Microsoft Common dialog control 6.0 (SP6)
- Microsoft Hierachical FlexGrid Control 6.0 (SP$) OLEDB
- Microsoft Rich Textbox (SP6)
- Microsoft windows Common control 6.0 (SP6)
Agrdezco de antemano su valiosa e importante ayuda.
Esperando que se encuentren bien, me permito distraerles con la siguiente consulta:
¿Alguien podría orientarme sobre el por qué no funciona la siguiente rutina?
Private Sub cmd_Reporte_Click()
Dim appAccess As access.Application
Set appAccess = New access.Application
appAccess.OpenCurrentDatabase "\\Serv1\Acdo\bdAcdo.mdb"
Inicio = txt_Fecha_Del.Text
Final = txt_Fecha_Al.Text
With appAccess
.DoCmd.Echo False
.DoCmd.OpenReport "Acuerdos Consulta por período", acViewDesign
.Reports ("AcdosPeriodo") '<- línea que genera el error
.Reports.Controls("Fecha_Del").Caption = Inicio '<- línea que genera el error
.Reports.Controls("Fecha_Al").Caption = Final '<- línea que genera el error
.DoCmd.OpenReport "Acuerdos Consulta por período", acViewPreview
.DoCmd.Echo True
End With
appAccess.CloseCurrentDatabase
Set appAccess = Nothing
End Sub
En el proyecto tengo cargados los siguientes componentes de control:
- Cdlg
- Control de calendario de Microsoft 11.0
- Microsoft Common dialog control 6.0 (SP6)
- Microsoft Hierachical FlexGrid Control 6.0 (SP$) OLEDB
- Microsoft Rich Textbox (SP6)
- Microsoft windows Common control 6.0 (SP6)
Agrdezco de antemano su valiosa e importante ayuda.
Valora esta pregunta


0