Imprimir página | Cerrar ventana

CUADRO COMBINADO REPORTA ERROR

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=84145
Fecha de impresión: 19/Octubre/2019 a las 14:05


Tema: CUADRO COMBINADO REPORTA ERROR
Publicado por: Tagomago
Asunto: CUADRO COMBINADO REPORTA ERROR
Fecha de publicación: 05/Diciembre/2018 a las 11:53
Buenas, soy nuevo en el foro y quería dar las gracias por anticipado.


Bueno vamos a la cuestión, tengo un cuadro combinado de clientes que busca en la tabla clientes si esta el nuevo dato, si no esta me abre un formulario para darlo de alta, pero cuando introduzco el dato de un nuevo cliente me da este error "Ha intentado asignar el valor Null a una variable que no es un tipo de datos Variant", no llevo mucho trabajando con acces y me estoy volviendo loco

El código que tengo en el evento al no estar en la lista es:


Private Sub IdClientes_NotInList(NewData As String, Response As Integer)
    Dim respuesta
    
    Response = acDataErrContinue
    Me.IdClientes = Null
    
    respuesta = MsgBox(NewData & " No es un CLIENTE existente" & Chr(13) & _
                        "¿DESEA DARLO DE ALTA?", 68, "CLIENTES")
    
    If respuesta = vbYes Then
        DoCmd.OpenForm "CLIENTES", , , , acFormAdd, acDialog, NewData
    End If
End Sub



Respuestas:
Publicado por: Mihura
Fecha de publicación: 05/Diciembre/2018 a las 12:48
error "Ha intentado asignar el valor Null a una variable que no es un tipo de datos Variant"


Private Sub IdClientes_NotInList(NewData As String, Response As Integer)
    Dim respuesta
    
    Response = acDataErrContinue
    Me.IdClientes = Null



Pues lo que te está diciendo Access LOL:

Tendrás que ponerle valor 0 si es numerico o cadena vacia "" si es string.



-------------
Jesús Mansilla Castells.
Saludos desde Móstoles.

http://www.accessaplicaciones.com" rel="nofollow - Access Aplicaciones
http://www.tecsys.es" rel="nofollow - Tecsys.es


Publicado por: Tagomago
Fecha de publicación: 05/Diciembre/2018 a las 13:02
mihura gracias, ya lo había intentado con "" y me reportaba el mismo error, pero no pensé en el numérico y poner 0.



Imprimir página | Cerrar ventana