Access - Como asiganar variable global a un valor de un informe ?

 
Vista:
Imágen de perfil de Roberto
Val: 27
Ha disminuido 1 puesto en Access (en relación al último mes)
Gráfica de Access

Como asiganar variable global a un valor de un informe ?

Publicado por Roberto (26 intervenciones) el 26/04/2017 09:57:56
Hola a todos

Tengo un variable global declarada en un módulo

He intentado cientos de procedimientos, he visto por internet algún ejemplo, pero no logro que funcionen en mi informe.

He visto en otro foro que con éste código le funciona correctamente, a mi no.

1
2
3
4
5
Private Sub Detalle_Format(Cancel As Integer, FormatCount As Integer)
MsgBox A_Año & " Load"
Me.Texto81.SetFocus
Me.Texto81 = A_Año
End Sub

En el evento open del formulario me carga el MsgBox, sin embargo en el format no me lo carga

Si uso la misma variable en el evento Open del informe, me sale el error "no se puede asignar un valor a este objeto"
El MsgBox me lo da con el dato correcto

Alguna ayuda por favor ?
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 Roberto
Val: 27
Ha disminuido 1 puesto en Access (en relación al último mes)
Gráfica de Access

Como asiganar variable global a un valor de un informe ?

Publicado por Roberto (26 intervenciones) el 26/04/2017 12:26:05
Tengo algún progreso

He conseguido llevar el valor del cuadro combinado al informe, pero en lugar de usar un textboxm tuve que utilizar un label
esto ha sido lo utilizado

en el formulario he utulizado un argumento:
1
2
3
4
5
Private Sub Comando11_Click()
A_Año = Me.Cuadro_combinado3.Value
DoCmd.OpenReport "Resultado_Contable", acViewReport, , , , A_Año
DoCmd.Close acForm, Me.Name
End Sub

en el informe lo siguiente:
1
2
3
4
5
Private Sub Report_Open(Cancel As Integer)
    If Not IsNull(Me.OpenArgs) Then
        Me.Etiqueta100.Caption = Me.OpenArgs
    End If
End Sub

Ahora intento utilizar ese mismo dato para filtrar el propio informe, alguien me puede asesorar ?
hasta ahora utilizao lo siguiente, pero no me funciona:
1
2
=DSuma("[Debe]";"[Libro_Contabilidad]";"Cuota='Anual' And Año_Apunte=& A_Año")
=DSuma("[Debe]";"[Libro_Contabilidad]";"Cuota='Anual' And Año_Apunte=& Me.Etiqueta100.Caption")

Un saludo y gracias
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