** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Access y VBA
  Mensajes nuevos Mensajes nuevos RSS - Problemas con evento NotInList
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoProblemas con evento NotInList

 Responder Responder
Autor
Mensaje
develop Ver desplegable
Nuevo
Nuevo


Unido: 03/Octubre/2014
Localización: España
Estado: Sin conexión
Puntos: 29
Enlace directo a este mensaje Tema: Problemas con evento NotInList
    Enviado: 01/Noviembre/2017 a las 11:31
Hola estoy con un tema de trazabilidad y tengo un form con una lista desplegable donde selecciono el lote, otro campo meto la cantidad y otro la fecha de caducidad. El cliente me ha pedido si puedo abrir la lista desplegable para poder meter un lote que no existe (ahora esa lista solo muestra lotes que se han comprado o producido). Yo he pensado en usar el evento notinlist de la lista, al meter un lote que no existe te pregunta si lo quieres crea y si digo que si uso Response = acDataErrAdded y luego le doy a la lista el nuevo valor así me.lista=NewData peor me da un error y de hecho ese valro no l oañade a la lista, pero si luego salgo del form y entro si que lo ha guardado bien.
He probado a meter el valor a traves del recordset y metiendolo a mano, pero resulta que se meten 2 líneas la que yo meto a través del recordset y la que se mete automáticamente en este evento. La cosa que llevo aquí media mañana y nada. Si alguien se le ocurre algo...Gracias.  
Arriba
mounir Ver desplegable
Colaborador
Colaborador


Unido: 09/Febrero/2009
Localización: Asturias-España
Estado: Sin conexión
Puntos: 5066
Enlace directo a este mensaje Enviado: 01/Noviembre/2017 a las 13:16
Hola!
Actualiza el formulario dentro del código al no estar en la lista.

Me.Requery.
Un Saludo.
Arriba
develop Ver desplegable
Nuevo
Nuevo


Unido: 03/Octubre/2014
Localización: España
Estado: Sin conexión
Puntos: 29
Enlace directo a este mensaje Enviado: 01/Noviembre/2017 a las 18:40
Hola mounir, ya lo he probado pero me dice que la propiedadregladevalidación o antesdeactualizar impiden que se guarden lso datos del campo
Arriba
xavi Ver desplegable
Administrador
Administrador
Avatar
Terrassa-BCN

Unido: 10/Mayo/2005
Localización: Catalunya ||||
Estado: Sin conexión
Puntos: 11824
Enlace directo a este mensaje Enviado: 02/Noviembre/2017 a las 16:29
Hola,

En el NotInList yo tengo un código parecido a este:

Private Sub IdRoles_NotInList(NewData As String, Response As Integer)

    Select Case MsgBox("El valor introducido no aparece en la tabla. ¿Quieres añadirlo?", vbQuestion + vbYesNo, "AVISO")
        Case vbYes
            CurrentDb.Execute "INSERT INTO tblSysRoles (Rol) VALUES ('" & NewData & "') ", dbFailOnError
            Response = acDataErrAdded
        Case vbNo
            Response = acDataErrContinue
            Screen.ActiveControl.Undo
    End Select
End Sub

A mi me funciona para añadir nuevos roles (es un texto) a la tabla.

Un saludo

Xavi, un minyó de Terrassa

Mi web
Arriba
develop Ver desplegable
Nuevo
Nuevo


Unido: 03/Octubre/2014
Localización: España
Estado: Sin conexión
Puntos: 29
Enlace directo a este mensaje Enviado: 02/Noviembre/2017 a las 18:30
Hola Xavi, he hecho pruebas similares a la tuya pero no se porque me añade 2 registros, el que añado yo con código y el que parece ser que añade el al permitirle añadir ese dato nuevo. A ver si saco algo en claro, hago mas pruebas. Gracias. 
Arriba
xavi Ver desplegable
Administrador
Administrador
Avatar
Terrassa-BCN

Unido: 10/Mayo/2005
Localización: Catalunya ||||
Estado: Sin conexión
Puntos: 11824
Enlace directo a este mensaje Enviado: 02/Noviembre/2017 a las 19:14
Para añadir un registro a la tabla no debería ser necesario ningún código adicional al que he puesto.

Prueba con un formulario "limpio" y solo con ese código.

Un saludo
Xavi, un minyó de Terrassa

Mi web
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable