Función DLookup (Buscar)
Tarde o temprano tendremos la necesidad de hacer un busqueda en una tabla, consulta, etc; para recuperar algún dato o hacer una consulta, aunque hay varias formas de hacerlo, una de la más utilizada es el DLookup, tengo que reconocer que yo utilizo más SQL, Recordset pero para cosas simples o sencillas el DLookup puede ser la mejor opción.
En esta ocasión voy a hacer un resumen de como aplicar esta función y los distintos datos:
DLookup("Campo" , "Tabla o Consulta" , "Criteria")
Direfentes tipos y ejemplos de hacer la buscqueda:
Para valores numéricos: (Sin comillas simples)
DLookup("NombreCampo" , "NombeTabla" , "CampoFiltro = 123")
Para Texto: (con comillas simples)
DLookup("Campo" , "NombreTabla" , "CampoFiltro= 'abcd'")
Para fechas: (Con almohadilla #)
DLookup("NombreCampo" , "NombreTabla" , "CampoFiltro= #05-10-1968#")
Heremos referencia a controles de un fomulario:
Ejemplo 1:
Busca en el campo "NumeroFactura" de la tabla "tblFacturas" que coincida el "NumeroFactura" con el campo del formulario que se llama "Numero", dicho de otra forma:
Busca el número de la factura en el campo "NumeroFactura" la tabla "tblFacturas" que coincida con el campo del formulario Numero.
Para valores numericos: (Sin comilla)
DLookup("NumeroFactura", "tblFacturas", "NumeroFactura = " & Me.Numero)
Ejemplo 2:
Imaginemos que queremos saber si exite el nombre de un coche en una tabla y en caso que no exita lo daríamos de alta,
entonces haríamos la busqueda del nombre del coche, en el campo "Nombre", que hemos escrito en el campo del formulario llamado "txtNombreCoche".
Para Texto: (Comillas simples)
DLookup("Nombre", "tblCoches", "Nombre = '" & Me.txtNombreCoche & "'")
Ejemplo 3:
Buscamos el nombre de un animal que ingresó en la clínica veterianaria en un fecha determinada, esto lo haremos buscando en una consulta llamada "qryAnimales" que conincida en el campo Fecha de la consulta con el campo txtFecha del formulario.
Para fechas: (Almohadillas #)
DLookup("NombreAnimal", "qryAnimales", "Fecha = #" & Me.txtFecha & "#")
. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
En siguiente link de microsoft podéis ver más ampliada esta información:
https://msdn.microsoft.com/es-es/library/office/ff834404.aspx
Espero que os haya sido util.