en un formulario cualquiera podemos llamar a un valor predeterminado en una tabla
Tabla: Nombre tabla TCtabla
Nombre columnas TC ValorTC FechaTC
CLP 1 11-10-2016
USD 626,5 11-10-2016
EUR 690,8 11-10-2016
si aplicamos en cualquier box del formulario
lo siguiente:
=DLookUp("ValorTC","TCtabla","TC = ""CLP""")
donde ValorTC es el dato que queremos llamar
TCtabla es el nombre de la Tabla
TC es el nombre de la columna en la tabla donde vamos a realizar la busqueda
CLP es el valor que buscará
así sin hacer nada, cada vez que abramos el formulario, nos traerá el dato instantaneo del Tipo de Cambio de CLP
también se puede agregar en visual basic en una subrutina:
de la siguiente tabla: Usuarios
Nombre de columnas: Usuario Nombre
1 Juan
2 Pedro
Dim varX As Variant 'creamos una variante para rescatar el valor
varX = DLookup("Nombre", _ 'Nombre es el nombre de la columna que tomaremos el valor
"Usuarios", "Usuario ='" & USUARIOO & "'") ' Usuarios es el nombre de la tabla o consulta, Usuario es el valor que buscaremos
donde USAURIOO es un valor tomado anteriormente de alguna celda o valor ingresado en otra celda en el formulario
o en el mismo formulario en una celda hacendo referencia a otra celda
=DLookUp("IdDeuda";"TipoDeudas";"TipoDeuda ='" & [TipoDeudaTemp] & "'")
donde IdDeuda es el dato que queremos llamar
TipoDeudas es el nombre de la Tabla
TipoDeuda es el nombre de la columna en la tabla donde vamos a realizar la busqueda
TipoDeudaTemp es el nombre de la otra celda , el valor que coincida
cuando la comparacion es un valor numerico:
=DLookUp("Nombre";"PersonasyEspecialidades";"EspecialistaID =" & [IDTemp] & "")
CUANDO ES UN ID:
'CONSU es la variable, ID es el nombre de la celda en el formulario
Dim CONSU As String 'creamos la variable CONSU
CONSU = ID 'tomamos el valor de la celda ID y lo agregamos a la variable CONSU
DoCmd.OpenForm "OtroFormulario", acNormal, , "IdDeuda IN(" & CONSU & ")"
'abrimos el formulario "OtroFormulario" que en el dato IdDeuda contenga el valor de CONSU
