NotInlist Capturar datos |
Responder |
Autor | |
jorros
Habitual Unido: 20/Octubre/2008 Localización: España Estado: Sin conexión Puntos: 154 |
Tema: NotInlist Capturar datos Enviado: 23/Mayo/2020 a las 11:26 |
Buenos días Limitar a la lista = sí Al no estar en la lista
el código de más abajo Reciban un saludo DoCmd.SetWarnings False 'Esto deshabilita los mensajes de
sistema Dim VaResp As String Dim VaTrasA As String VaTrasA = Me.TRASLADAR_A.Value è MsgBox
(VaTrasA) VaResp = MsgBox("Esta Actuacion esta desactivada o
no existe. ¿Desea intentar activarla", vbQuestion + vbYesNo,
"ACTUACION DESACTIVADA O INEXISTENTE") Response = acDataErrContinue If VaResp = vbYes Then DoCmd.OpenQuery
"ConDevTrasActActivar" MsgBox
"Actuacion Activada, insertela de nuevo"
Me.TRASLADAR_A.Value = ""
Me.TRASLADAR_A.Requery Exit Sub Else MsgBox "Ha
decidido no hacer cambios"
Me.TRASLADAR_A.Value = ""
Me.TRASLADAR_A.Requery Exit Sub End If DoCmd.SetWarnings True 'Esto habilita los mensajes de
sistema End Sub |
|
xavi
Ver perfil usuario
Enviar mensaje privado
Ver los mensajes del usuario
Visite la página de los usuarios
Añadir a la lista de amigos
Administrador Terrassa-BCN Unido: 10/Mayo/2005 Localización: Catalunya |||| Estado: Sin conexión Puntos: 14746 |
Enviado: 23/Mayo/2020 a las 11:29 |
El valor que has introducido Y NO ESTÁ EN LA LISTA, lo tienes en la variable NewData. ¿Es eso lo que buscas?
|
|
jorros
Habitual Unido: 20/Octubre/2008 Localización: España Estado: Sin conexión Puntos: 154 |
Enviado: 23/Mayo/2020 a las 12:00 |
Si señor, es eso.
Muchas Gracias. Se puede cerrar, un saludo
|
|
Responder | |
Tweet
|
Ir al foro | Permisos de foro Usted No puede publicar nuevos temas en este foro Usted No puede responder a temas en este foro Usted No puede borrar sus mensajes en este foro Usted No puede editar sus mensajes en este foro Usted No puede crear encuestas en este foro Usted No puede votar en encuestas en este foro |