RE:CONSULTAR ULTIMO REGISTRO
Hola Roberto, vamos a ver si lo consigues de esta forma:
Me.RefAnterior = DLast("[Importe Dolar]", "[Consulta Ultimo Fob$ Anterior]", "[Importe Dolar] ='" & Me.Referencia.Column(X) & "'")
X = El numero de columna del Combo donde se carga la Referencia.
RefAnterior = Cuadro de texto en el Formulario que será el que recibirá el valor obtenido con DLast.
Ahora hay que tener en cuenta un par de detalles.
1-Si en el Origen de la Fila del Combo "Referencia" has puesto más de una columna, en el criterio de DLast tienes que hacer Referencia a la columna del Combo donde cargas la Referencia. Normalmente será la 0 (cero) y si solo has puesto una colunma, no es necesario o sería igual poner Column(0).
2-Si el Campo Importe Dolar está establecido como Numérico en la Tabla Origen de la Consulta, cambia la línea del DLast por esta otra:
Me.RefAnterior = DLast("[Importe Dolar]", "[Consulta Ultimo Fob$ Anterior]", "[Importe Dolar] =" & Me.Referencia.Column(X))
A veces ocurre que cuando los nombres de los objetos y de los campos contienen signos "extraños" como $ por ejemplo, pueden producirse errores por no ser reconocidos por Access. Puede que funcione como está, pero si no fuera así te aconsejo que cambies: Importe Dolar por ImporteDolar, Consulta Ultimo Fob$ Anterior por ConsUltFobAnt, todo esto en la Tabla, en la Consulta y en el Formulario y lo mismo con los nombres de formularios, Informes, consultas y tablas (sin espacios, sin signos distintos de letras o numeros, sin números al principio, etc.), creeme que te ahorrarás un montón de problemas. No entiendo la manía de escribir los nombres con todas sus letras, sus acentos y sus espacios, si todo esto está en el interior de la aplicación y nadie lo va a ver.
Si no lo consigues y quieres, mete la Tabla Origen de la consulta y la propia consulta en una mdb nueva y me la envias en rar (no zip) o sin comprimir y la miro.
Saludos
Enrique