No muestra los avisos de confirmación en las anulaciones de registros
No consigo que en los formularios me muestre previamente los avisos de confirmación cuando intento anular algún registro de la tabla. Directamente lo anula sin pedir previamente su anulación.
Me ocurre en todos los forms que tengo.
Estoy utilizando la sentencia vba: DoCmd. SetWarnings True al cargar el formulario, pero hace caso omiso y directamente realiza la anulación.
He creado una macro tipo AutoExec para EstablecerAdvertencias y tampoco he conseguido que me pida la confirmación. He observado que en la macro me da un aviso de Unsafe Action (Acción insegura) y tampoco me da los mensajes.
Os agradecería si me dijeseis donde puede estar el motivo de no aparecer.
3 respuestas
Lo que quiero es proteger que antes de eliminar las líneas de cualquier formulario pida previamente la confirmación de su anulación.
El borrado se realiza a través del botón: Supr
Olvídate del DoCmd. SetWarnings en el evento "Al cargar", pues eso no funciona...
Lo más sencillo sería que en las propiedades de tu BD marcases las confirmación de edición y eliminación de registros, y la ejecución de consultas de acción.
Por código lo podrías, hacer, en tu caso, programando el evento "Al bajar una tecla" del formulario, así:
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 46 Then
If MsgBox("¿Confirmas la eliminación del registro?", vbYesNo, "CONFIRMACION") = vbNo Then KeyCode = 0
End If
End SubUn saludo
Con la base abierta pulsa Archivo-Opciones-Configuración de cliente y comprueba que no tengas desmarcadas
Confirmar:
Cambios en los registros
Eliminaciones de documentos
Consultas de acción
En el supuesto que elimines el registro desde un botón valida la eliminación antes de ejecutar la instrucción que elimina el registro, después de On Error Goto ...
Algo como
If MsgBox("Está seguro que elimina este registro",vbQuestion+vbYesNo,"Eliminando")=vbNo Then
Exit Sub
End If
,,,,, Sigue la instrucción DoCmd ...
Hola Sveinbjonr, No es por incordiar pero, ¿ese código no provocaría un conflicto al pulsar la tecla dentro de un control de texto (por ejemplo)?Yo utilizaría Form_DeletePrivate Sub Form_Delete(Cancel As Integer) If MsgBox("¿Seguro?", vbYesNo) = vbNo Then Cancel = True End SubUn saludo y perdón por la intrusión - xavi -ae soft-
Que desastre los comentarios! ¿No respetan los saltos de línea? - xavi -ae soft-