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