** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Access y VBA
  Mensajes nuevos Mensajes nuevos RSS - NotInlist Capturar datos
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoNotInlist Capturar datos

 Responder Responder
Autor
Mensaje Invertir el orden de clasificación
jorros Ver desplegable
Habitual
Habitual
Avatar

Unido: 20/Octubre/2008
Localización: España
Estado: Sin conexión
Puntos: 110
Enlace directo a este mensaje Tema: NotInlist Capturar datos
    Enviado: 23/Mayo/2020 a las 12:00
Si señor, es eso. 

Muchas Gracias. Se puede cerrar, un saludo
Arriba
xavi Ver desplegable
Administrador
Administrador
Avatar
Terrassa-BCN

Unido: 10/Mayo/2005
Localización: Catalunya ||||
Estado: Sin conexión
Puntos: 13015
Enlace directo a este mensaje 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?
Xavi, un minyó de Terrassa

Mi web
Arriba
jorros Ver desplegable
Habitual
Habitual
Avatar

Unido: 20/Octubre/2008
Localización: España
Estado: Sin conexión
Puntos: 110
Enlace directo a este mensaje Enviado: 23/Mayo/2020 a las 11:26

Buenos días

 Uso w10 Access 2019

 En un formulario tengo un cuadro combinado Llamado TRASLADAR_A

Limitar a la lista = sí

Al no estar en la lista                    el código de más abajo

 Necesito capturar los datos del cuadro combinado TRASLADAR_A que provoca el evento Al no estar en la lista.

 He probado capturarlo en una variable, VaTrasA pero en el Msgbox (VaTrasA) me da un error 94 uso no valido del null.

Reciban un saludo

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

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

Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable