mensaje advertencia

02/06/2010 - 16:51 por gorgorita | Informe spam
Tengo un formulario con varios botones, para ir al primer registro,
siguiente... y tengo uno que es para borrar el registro actual. Para ello he
utilizado este procedimiento de evento:

Private Sub esborrar_registre_Click()
On Error GoTo Err_esborrar_registre_Click
DoCmd.RunCommand acCmdDeleteRecord
Exit_esborrar_registre_Click:
Exit Sub

Err_esborrar_registre_Click:
MsgBox "Va a borrar este tiquet"
Resume Exit_esborrar_registre_Click
End Sub

El problema es que cuando ejecuto el botón sale un mensaje de advertencia
que avisa de la acción y pregunta si quiero eliminar o no el registro.

¿Cómo puedo cambiar este mensaje?
Gracias
 

Leer las respuestas

#1 José Mª Fueyo
02/06/2010 - 17:49 | Informe spam
Hola
Con Docmd.SetWarnings true/false podrás activar o desactivar esos
mensajes de advertencia. Pero ten cuidado de restablecerlos al final,
ya que sino puedes tener problemas de eliminar o modificar registros a
posteriori, y no tener advertencias de ello.
Te recomiendo que las desactives justo antes de borrar el registro y
las actives justo despues.

if MsgBox("¿Confirma que quiere borrar éste registro? (s/n)", vbYesNo
+ vbDefaultButton2 + vbQuestion, "Proceso irreversible") = vbYes Then
DoCmd.SetWarnings false
DoCmd.RunCommand acCmdDeleteRecord
DoCmd.SetWarnings true
endif

Salu2
José Mª Fueyo
[MS MVP Access]

Preguntas similares