Utilizamos Cookies de terceros para generar estadísticas de audiencia y mostrar publicidad personalizada analizando tu navegación. Si sigues navegando estarás aceptando su uso. Más información X
PortadaForo AyudaTutoriales
InicioForosForo Office

Consulta Access

Reimon
2006-10-23 23:11 - Respuestas: 1 - Tema nº: 2424083


Hola a todos aqui esta mi consulta.

Aqui quede pillo.
Para agilizar mi bd cree un panel de control donde use la herramienta Grupo de opciones. Tengo dos tipos de informes ( 04 de gastos y 04 de ingresos ) y cada tipo de informe esta en su respectivo grupo y con su correspondiete boton de opcion.

Ej. cuando hago una vista previa de cada informe los veo sin problema alguno.
(Veo sin problema el grupo gastos y despues paso al grupo ingresos )
El problema lo tengo cuando hago una vista previa de un tercer informe. por ejemplo
me voy a la vista previa de la opcion 1 de Gastos despues me voy la opcion 1 de ingresos y todo bien, pero cuando voy nuevamente a una vista previa del grupo Gastos ( grupo anterior ) me visualiza el informe anterior. ( osea el segundo informe )
Osea el problema lo tengo cuando alterno las opciones entre grupo.

Esta un poco enrredada la explicacion, espero que se entienda la idea
Posibles soluciones:
Consulta accessConsulta access
Access consulta Access consulta
Consulta accessConsulta access
Consulta accessConsulta access
Consulta accessConsulta access
ebolo

Re: Consulta Access - 2006-10-24 09:59 - Respuesta 2

Hola Reimon, debes de usar la propiedad .Value del marco(grupo de opciones) para poder determinar que opciíon has pulsado.
Según la opción que hayas pulsado debes de lanzar el infome que proceda.
Ej:
Tenemos un botón que lanza informes y un grupo con 2 opciones una para el informe 04_Gastos y otro 04_Ingresos, el código quedaría así:
Code:

Private Sub Comando8_Click()
On Error GoTo Err_Comando8_Click

Dim stDocName As String
Select Case Marco0.Value
Case 1
stDocName = nulo;04_Gastosnulo;
Case 2
stDocName = nulo;04_Ingresosnulo;
End Select

'-
' acPreview - previsualiza informe
' acNormal - lanza informe por impresora
'-
DoCmd.OpenReport stDocName, acPreview

Exit_Comando8_Click:
Exit Sub

Err_Comando8_Click:
MsgBox Err.Des-c-r-i-p-tion
Resume Exit_Comando8_Click

End Sub



Igual lo ves más claro de esta otra:
Code:

Private Sub Comando8_Click()
On Error GoTo Err_Comando8_Click

Dim stDocName As String
if me.maco0.value=1 then stDocName = nulo;04_Gastosnulo;
if me.maco0.value=2 then stDocName = nulo;04_Ingresosnulo;

'-
' acPreview - previsualiza informe
' acNormal - lanza informe por impresora
'-
DoCmd.OpenReport stDocName, acPreview

Exit_Comando8_Click:
Exit Sub

Err_Comando8_Click:
MsgBox Err.Des-c-r-i-p-tion
Resume Exit_Comando8_Click

End Sub



Un saludo.

Página:1

Respuestas relacionadas:

Consulta en access Consulta en access Foro
Consulta accessConsulta accessForo
Consulta de accessConsulta de accessForo
Consulta accessConsulta accessForo
Consulta accessConsulta accessForo
Consulta de accessConsulta de accessForo
Consulta sobre accessConsulta sobre accessForo
Numerar en una consulta de accessNumerar en una consulta de accessForo
Access consulta saldoAccess consulta saldoForo
Consulta access ( subtotales )Consulta access ( subtotales )Foro
InicioSecciones
^ SubirAviso legal
Política Privacidad
Configurarequipos22 Noviembre 2024