Mensaje de advertencia al borrar un registro

Tengo un botón en un formulario donde al pinchar me borra todos los registros del formulario, necesito que antes de que lo borre me salte un mensaje de que si estoy seguro de borrar los datos del formulario

2 Respuestas

Respuesta
2

Ya que la pregunta me sale sugerida, aunque supongo que en el Link que te cita Jesús, aporto una idea>>

If MsgBox("Vas a elimininar todos los Registros del Formulario. Quieres seguir con ésta Acción?", vbYesNo) = vbYes Then
     'Aquí el código que de borrado, si has pulsado el Si
Else
     MsgBox "Acción de Eliminar registros cancelada",vbInformation,"SIN ELIMINACION"        
End If

Mis saludos >> Jacinto

Buenas

He creado un botón de elimar registro y he puesto el código indicado pero solo me sale los mensajes y no me borra los registros del formulario.

Necesitaría también que me dieras la instrucción de como borrar los registros,

Gracias.

Un saludo.

Esto lo quiero hacer porque no se el porque cuando le daba al botón de eliminar registros que cree por el asistente del botón del formulario antes de realizarlo me salía un mensaje preguntándome que si estaba seguro de eliminar los registros y ahora no me sale me los borra automáticamente sin preguntarme y quiero que salga dicho mensaje por si se le da al botón por error.

Saludos.

Ignoro como tenías antes el código, pero para que te lance un mensaje con sonido, (mi primera contestación no lo emite), y suponiendo que a tu Botón le llames >> BtnEliminaReg, pones éste código

Private Sub BtnEliminaReg_Click()
If MsgBox("Vas a elimininar todos los Registros del Formulario. Quieres seguir con ésta Acción?", vbYesNo + vbCritical) = vbYes Then
    DoCmd.RunCommand acCmdDeleteRecord
    Me.Refresh
Else
     MsgBox "Acción de Eliminar registros cancelada", vbInformation, "SIN ELIMINACION"
End If
End Sub

Mis saludos >> Jacinto

Buenas

He introducido el codigo y ahora me salga dos advertencia uno el del código " VAs a eliminar todos los Registro del Formulario. Quieres seguir con ésta Acción?" le doy a que sí  y otro el de access "Está a punto de eliminar 1 registros. Si hace clic en Sí, no podrá deshacer la operación de eliminación..."

Saludos

Anula los warnings por código así:

Private Sub BtnEliminaReg_Click()
If MsgBox("Vas a elimininar todos los Registros del Formulario. Quieres seguir con ésta Acción?", vbYesNo + vbCritical) = vbYes Then
    DoCmd.SetWarnings False
    DoCmd.RunCommand acCmdDeleteRecord
    Me.Refresh
    DoCmd.SetWarnings True
Else
     MsgBox "Acción de Eliminar registros cancelada", vbInformation, "SIN ELIMINACION"
End If
End Sub

Un saludo >> Jacinto

Respuesta

https://support.office.com/es-es/article/CuadroMsj-funci%C3%B3n-e23511c8-4157-4e09-93a6-ba9f1749f4c0  

Hay te dice todo

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Eliminando registro actual en formulario access.

Tengo una imagen a la cuál le asigné: Private Sub Imagen1082_Click() DoCmd.RunCommand acCmdDeleteRecord End Sub El funciona, pero quiero que además no me salga un error que da cuando en ves de aceptar para eliminar cancelo la operación, y...
2 respuestas

Consulta sobre código de access para eliminar un registro de la tabla de la base de datos

Cuando hago la siguiente instrucción: DoCmd. RunCommand acCmdDeleteRecord El programa me da un mensaje: "Está a punto de eliminar un registro, ..." Yo este mensaje no quiero que me aparezca, bien porque quiero poner uno mio, o porque no quiero poner...
2 respuestas

Problema con eliminar registro VBA

Tengo un problema para eliminar registros en un formulario desde un código vba El tema es así: Tengo dos tablas (Altas) y (Bajas) vinculadas por el campo Id A con relación 1 a varios. Tengo un formulario principal basado en la tabla altas con un...
1 respuesta

ACCESS aviso de advertencia al borrar un registro

Tengo una base de datos compuesta por varios formularios que permiten introducir datos en distintas tablas. En todos he creado un botón (a través del asistente) que me permite borrar el registro que se visualiza. El botón es el mismo en todos los...
2 respuestas

Eliminar registros duplicados mediante una función

Me gustaría crear una función para eliminar registros duplicados en cualquier formulario. Realmente cada registro es único porque en el campo ID es diferente el valor, pero entiendo por duplicados aquellos registros cuyo todos los campos, excepto ID...
2 respuestas

Abrir Formulario Access según ultimo registro creado

Os pido ayuda con un problema de Access que tengo Veréis, tengo una función creada con INSERT INTO entre 2 tablas y formularios, uno seria el formulario principal que se llama "TAB_USUARIOS" y el otro es un histórico que se llama...
1 respuesta

Actualizar un campo de una tabla

Estoy intentando modificar el campo histórico de la tabla definiciones cuando en el formulario le doy a eliminar, no me da ningún error pero no me actualiza el campo histórico, me lo deja como esta. Lo estoy haciendo así: Dim db As Database Dim rs As...
1 respuesta

Poner formato correcto a expresión fecha

Con el código que me paso ayer Sveinbjorn El Rojo para realizar un INSERT INTO a una tabla histórico, que es este: Private Sub Imagen113_Click() Dim respuesta As String Dim cSql As String Dim vFecha As Variant respuesta = MsgBox("ELIMINARÁ EL...
2 respuestas

Al cerrar formulario access revisar si ciertos campos están cubiertos

Tengo un formulario donde ingreso los registros y cuando acabo hago click en el botón salir y como access guarda los registro por defecto solo le puse con codigo que cierre el formulario. Pero necesito que me compruebe que el campo Fecha y Acción...
1 respuesta

Código para pasar registro a Tabla Histórico

Tengo una tabla de material, donde he creado un botón con el siguiente código: Private Sub Imagen789_Click() Dim respuesta As String Dim cSql As String respuesta = MsgBox("ELIMINARÁ EL REGISTRO ACTUAL,¿DESEA CONTINUAR?", vbYesNo, "CONFIRMAR") If...
2 respuestas