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

Siga el debate

3 respuestas

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

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]

Responder a este mensaje

#2 gorgorita

02/06/2010 - 18:58 | Informe spam

Gracias,

Solucionado, se puede cerrar el hilo.

"José Mª Fueyo" wrote:

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

Responder a este mensaje

#3 Juan Carlos

02/06/2010 - 21:21 | Informe spam

Facil docmd.setwarning false.

saludos

El 02-06-2010 11:51 a.m., gorgorita escribió:

este mensaje?

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida