Access, Excel, VBA y más

Access – aprende a usar un MsgBox – Parte 3

Access MsgBox

Desde el blog de abogados-mf.com Antonio nos envía el siguiente ejemplo para aprender a usar los MsgBox que viene a completar los artículos que ya escribimos sobre ellos hace unos meses:

«En el artículo anterior sobre los MsgBox vimos como construirlos y diseñamos y le añadimos interacción con el usuario. En esta ocasión vamos a comentar una nueva propuesta para nuestros MsgBox y controlar de una forma más eficaz a la hora de eliminar un registro en un formulario continuo si pulsamos la tecla “Supr”, es decir, la doble confirmación. Muchas veces ante un formulario o subformulario continuo a la hora de borrar una línea simplemente con marcarla y pulsar la tecla “Supr” es suficiente donde nos puede avisar o no de la eliminación de esa línea. Pero nosotros aprovechando esa interactuación a través de los MsgBox lo que pretendemos es asegurarnos que el usuario final está seguro que desea eliminar dicha línea y que no ha sido borrada por error.

Como veis está marcada la línea que deseamos eliminar y al pulsar en la tecla Supr nos hace una primera pregunta, si decimos que NO, sale del evento y no pasa nada, si pulsamos en SI, ocurre esto:

En este caso, si pulsamos en NO no pasará nada, pero si pulsamoen en SI, entonces esta línea desaparecerá.

Para que esto suceda he puesto el siguiente código en la propiedad “Al Eliminar” del formulario o subformulario contínuo:

Private Sub Form_Delete(Cancel As Integer)
    DoCmd.SetWarnings False ' Desactivo los mensajes de error del sistema
    Dim mensa, mensa1 As String ' Declaro las variables
    mensa = MsgBox("¿Esta seguro que desea eliminar el registro de este expediente?", vbExclamation + vbYesNo, "Eliminar") ' Primera Pregunta
    If mensa = vbYes Then
        mensa1 = MsgBox("¿Realmente desea ELIMINAR el registro de este expediente?", vbExclamation + vbYesNo, "Eliminar") ' Segunda Pregunta
        If mensa1 = vbYes Then
            Exit Sub
        Else
            Cancel = -1
        End If
    Else
        Cancel = -1
    End If
End Sub

Como podéis observar el código es muy fácil de entender y simple.

¿Te atreves tu?»

 

Fuente del artículo: abogados-mf

Salir de la versión móvil