Imprimir página | Cerrar ventana

NotInlist Capturar datos

Impreso de: Foro de Access y VBA
Categoría: Access y VBA
Nombre del foro: Access y VBA
Descripción del foro: Foro de programacion en Access (Con código y sin código)
URL: http://www.mvp-access.com/foro/forum_posts.asp?TID=85296
Fecha de impresión: 12/Agosto/2020 a las 06:46


Tema: NotInlist Capturar datos
Publicado por: jorros
Asunto: NotInlist Capturar datos
Fecha de publicación: 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




Respuestas:
Publicado por: xavi
Fecha de publicación: 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

http://www.llodax.com" rel="nofollow - Mi web


Publicado por: jorros
Fecha de publicación: 23/Mayo/2020 a las 12:00
Si señor, es eso. 

Muchas Gracias. Se puede cerrar, un saludo



Imprimir página | Cerrar ventana