Problema con el ribbon en los informes en que oculto/muestro partes del mismo
He creado dos ribbons personalizados: uno para la base de datos, y otro específico para informes.
Me he dado cuenta de que en ciertos informes, al cerrarlos y volver al formulario desde donde se abrió ese informe, me bloquea toda la base de datos.
El problema está en los campos y secciones del informe que muestro/oculto. Por ejemplo, este es el código que tengo para abrir un informe con la factura del registro seleccionado:
Private Sub Factura_Click() On Error Resume Next Form.Refresh DoCmd.OpenReport "04-E Factura", acPreview, , "[CodTicket]='" & Me.CodTicket & "'" If IsNull([CodPresupuesto]) Then Reports("04-E Factura").CodPresupuesto.Visible = False Reports("04-E Factura").CodPreEt.Visible = False Else Reports("04-E Factura").CodPresupuesto.Visible = True Reports("04-E Factura").CodPreEt.Visible = True End If If IsNull(Me.Observaciones) Then Reports("04-E Factura").NotEt.Visible = False Reports("04-E Factura").Nota.Visible = False End If If Me.Cuenta = 0 Then Reports("04-E Factura").Cuenta.Visible = False End If If VerDep = -1 And FinDep = -1 Then Reports("04-E Factura").Entrega.Visible = True Reports("04-E Factura").Etiqueta186.Visible = True Reports("04-E Factura").Calc.Visible = True Reports("04-E Factura").Línea188.Visible = True Else Reports("04-E Factura").Entrega.Visible = False Reports("04-E Factura").Etiqueta186.Visible = False Reports("04-E Factura").Calc.Visible = False Reports("04-E Factura").Línea188.Visible = False End If End Sub
Si solo dejo la primera parte, donde abre el informe, funciona todo bien y no me bloquea nada. Es decir, esto:
Private Sub Factura_Click() On Error Resume Next Form.Refresh DoCmd.OpenReport "04-E Factura", acPreview, , "[CodTicket]='" & Me.CodTicket & "'" End Sub
¿Alguien sabe por qué pasa esto? ¿Y cómo puedo arreglarlo?
1 Respuesta
Respuesta de Sveinbjorn El Rojo
2