Msgbox vbYesNo creado pero me sale el original

Pues hice en un cuadro combinado en la opción ·al no estar en la lista" un código que crea un msgbox y me sale todo bien, pero también me aparece el TÍPICO msgbox de access que dice "que el elemento no esta en la lista..."
No quiero que aparezca y leí por ahí que tenia que poner:
DoCmd.SetWarnings False
Pero no se donde ponerlo, lo puse por "ahí" y nada me sigue saliendo ¿Alguna idea o que es lo que hago mal?
Gracias nuevamente y como siempre gracias de antemano por la ayuda incondicional.
Escribo el código del msgbox por si alguien le interesa..
Dim Respuesta As Integer
Dim stDocName As String
Dim stLinkCriteria As String
DoCmd.SetWarnings False
Respuesta = Eval("MsgBox('Atención: Este registro no existe' " & _
"& chr(13) & chr(10) & " & _
"'Confirme su decisión de dar de alta este nuevo registro@" & _
"¿Desea crear este nuevo registro?@',4,'Aviso')")
If Respuesta = 6 Then
stDocName = "DatosPersonales"
DoCmd.OpenForm stDocName, , , stLinkCriteria
End If
¿Donde he puesto el DoCmd. SetWarnings False está bien puesto? Supongo que no porque me sigue saliendo el msgbox del access

1 Respuesta

Respuesta
1
El SetWarnings no sirve para el evento NotInList. Ese evento dispone de su propia forma de "responder"... el Response.
Id Respuesta = vbYes Then
' lo que sea
Response = acDataErrAdded
Else
' tambien debes manejar el "contrario"
Me!elcombo.Undo
Response = acDataErrContinue
End If

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Añadir registro en access

Encontré el siguiente código en internet para añadir registro en un cuadro combinado, me en msgbox. Private Sub Lista52_NotInList(NewData As String, Response As Integer) Dim Db As DAO.Database Dim Rs As DAO.Recordset Dim Msg As String Dim NewID As...
1 respuesta

Código agregar registro Cuadro Combinado Access

Soy novato total en esto de VBA. Estoy realizando una base de datos con el access 2003 y quiero crear un cuadro combinado que me de la opción de añadir registros nuevos. Se que tengo que marcar la opción de limitar la lista en no y que tengo que ir...
2 respuestas

Actualizar lista en formulario

Tengo una formulario en el cual busco el nombre con una lista de una tabla llamada direcciones. Si el valor que introduzco no está en la lista, me sale un msgbox para que lo añada si quiero a la tabla direcciones, hasta aquí todo ok. Si le digo que...
1 respuesta

Una nueva en lo del Access...

Tengo en un formulario un cuadro combinado asociado a una lista importada de una tabla, mi intención es que cuando yo introduzca un dato en dicho campo y no se encuentre en la lista salga un aviso y si se desea aparezca otro formulario. Para el aviso...
1 respuesta

Ejecutar un botón

Soy principiante de access me pudieras ayudar tengo un problema, tengo un formulario donde pongo un botón que quiero que ejecute abrir otro formulario llamado "SERVICIOS NACIONALESxcte" si el campo "Estado" es igual a "JALISCO", y que cuando el campo...
3 respuestas

Interceptar Errores en consultas

En un formulario tengo un combobox que se llena a partir de una consulta de actualización, pero si la consulta genera un error, inmediatamente sale el aviso y no logro interceptarlo antes para informarle al usuario que no puede realizar la...
2 respuestas

Añadir registros en otra tabla

Tengo una pequeña duda, tengo una base de datos en la cual tengo una tabla con los datos de los clientes, y en otra tengo los datos de las poblaciones, entonces mediante un cuadro combinado escogo la población de entre la lista que me sale, hasta...
1 respuesta

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

Dudas sobre formularios y msgbox al hacer consulta en una base de datos de Microsoft Access

Tengo un formulario y quiero que si busco un campo y no se encuentra me aparezca un msgbox en que diga que no se encuentra el registro. El código que he puesto es este: Dim stDocName As String Dim stLinkCriteria As String stDocName = "LICENCIAS" If...
1 respuesta

Mostrar datos de un formulario a otro formulario

Soy yo de nuevo! Antes quiero agradecer toda la ayuda brindada! Lo que quiero hacer es lo siguiente, tengo un formulario con un cuadro de texto, pero necesito que el usuario no digite los datos (ejemplo un numero de factura)sino, que lo seleccione a...
1 respuesta