Problemas con DLOOKUP
Publicado por Jorge (2 intervenciones) el 27/05/2020 16:32:03
Hola buenas,
Tengo un problema al utilizar la función DLOOKUP, no tengo mucha idea de VBA pero esta función se usa en varios sitios y no ha dado problema, pero hay un sitio donde no funciona. El problema es el siguiente:
Tengo un formulario donde introduzco datos sobre unos códigos de orden, los código de orden lo salen de una base de datos, y elijo que código es quiere que al lado, en un cuadro de texto, salga la descripción de ese código de orden.
Cuando elijo el código ya me sale una lista que tiene la información del código y la descripción, pero cuando lo quiere poner en el cuadro de texto, como en otros cuadros combinados, me salta un error : "ERROR '3464'- no coinciden lo tipos de datos en la expresión de criterios".
Tengo escrito en VBA la fórmula, como con los demás cuadros combinados pero me salta el error:
Private Sub OF_AfterUpdate()
Me.Of_Des = DLookup("DESCRIPCION_PRODUCTO", "OF_HISTOR", "COR_ORDEN=" & Me.OF)
El campo donde esta el código es 'OF', y coge los datos de 'OF_HISTOR'. acabando en 'Of_Des'.
He comprobado que todas los campos tengan mismo formato, si hay algún error de escritura, pero no consigo solucionarlo. Si alguien sabe como hacerlo agradecería su ayuda.
Gracias de antemano y Un saludo
Tengo un problema al utilizar la función DLOOKUP, no tengo mucha idea de VBA pero esta función se usa en varios sitios y no ha dado problema, pero hay un sitio donde no funciona. El problema es el siguiente:
Tengo un formulario donde introduzco datos sobre unos códigos de orden, los código de orden lo salen de una base de datos, y elijo que código es quiere que al lado, en un cuadro de texto, salga la descripción de ese código de orden.
Cuando elijo el código ya me sale una lista que tiene la información del código y la descripción, pero cuando lo quiere poner en el cuadro de texto, como en otros cuadros combinados, me salta un error : "ERROR '3464'- no coinciden lo tipos de datos en la expresión de criterios".
Tengo escrito en VBA la fórmula, como con los demás cuadros combinados pero me salta el error:
Private Sub OF_AfterUpdate()
Me.Of_Des = DLookup("DESCRIPCION_PRODUCTO", "OF_HISTOR", "COR_ORDEN=" & Me.OF)
El campo donde esta el código es 'OF', y coge los datos de 'OF_HISTOR'. acabando en 'Of_Des'.
He comprobado que todas los campos tengan mismo formato, si hay algún error de escritura, pero no consigo solucionarlo. Si alguien sabe como hacerlo agradecería su ayuda.
Gracias de antemano y Un saludo
Valora esta pregunta
0