Visual Basic - Código con errores ¿Pueden auxiliarme?

Life is soft - evento anual de software empresarial
 
Vista:

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