** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Access y VBA
  Mensajes nuevos Mensajes nuevos RSS - CUADRO COMBINADO REPORTA ERROR
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

CUADRO COMBINADO REPORTA ERROR

 Responder Responder
Autor
Mensaje
Tagomago Ver desplegable
Nuevo
Nuevo


Unido: 05/Diciembre/2018
Localización: EIVISSA
Estado: Sin conexión
Puntos: 3
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita Tagomago Cita  ResponderRespuesta Enlace directo a este mensaje Tema: CUADRO COMBINADO REPORTA ERROR
    Enviado: 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
Arriba
Mihura Ver desplegable
Administrador
Administrador
Avatar

Unido: 06/Mayo/2005
Localización: En la dehesa
Estado: Sin conexión
Puntos: 10485
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita Mihura Cita  ResponderRespuesta Enlace directo a este mensaje Enviado: 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.

Access Aplicaciones
Tecsys.es
Arriba
Tagomago Ver desplegable
Nuevo
Nuevo


Unido: 05/Diciembre/2018
Localización: EIVISSA
Estado: Sin conexión
Puntos: 3
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita Tagomago Cita  ResponderRespuesta Enlace directo a este mensaje Enviado: 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.
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable