Visualizar ultimo registro entre dos tablas
Tengo un formulario y me gustaría al tipear el No. De Ficha
Tabla Empleado (NoFicha, Nombre, Categoría) y que me muestre el ultimo registro de mi Tabla de movimientos (TipoRegistro, FechaMov, Sueldo) cabe hacer mención que las tengo relacionadas por Id_empleado
Me podrías asesorar.
Tabla Empleado (NoFicha, Nombre, Categoría) y que me muestre el ultimo registro de mi Tabla de movimientos (TipoRegistro, FechaMov, Sueldo) cabe hacer mención que las tengo relacionadas por Id_empleado
Me podrías asesorar.
1 respuesta
Respuesta de jerrmex
1
Dim var As Integer
Dim vCadena As String
'[1]busco cual es el último numero de ficha capturado en la tabla, entendiendo que txt_Ficha es la caja de texto donde tecleas la Ficha.
var = Nz(DMax("[Ficha]", "Empleado", "[Ficha] = " & txt_Ficha & ""))
'[2] si var >0 es porque encontró el valor máximo (ultima ficha capturada), si es = 0 no encontró registros, si Si encontro var lo utilizo para filtrar la consulta y que me de el registro de esa ficha.
IF var > 0 then
vCadena = "SELECT Empleado.Ficha, Empleado.TipoRegistro, Empleado.FechaMov, Emplerado.SueldoFROM Empleado WHERE Empleado.Ficha=" & var & ""
End If
Busca la ayuda de Dmax() para que sepas como trabaja
Dim vCadena As String
'[1]busco cual es el último numero de ficha capturado en la tabla, entendiendo que txt_Ficha es la caja de texto donde tecleas la Ficha.
var = Nz(DMax("[Ficha]", "Empleado", "[Ficha] = " & txt_Ficha & ""))
'[2] si var >0 es porque encontró el valor máximo (ultima ficha capturada), si es = 0 no encontró registros, si Si encontro var lo utilizo para filtrar la consulta y que me de el registro de esa ficha.
IF var > 0 then
vCadena = "SELECT Empleado.Ficha, Empleado.TipoRegistro, Empleado.FechaMov, Emplerado.SueldoFROM Empleado WHERE Empleado.Ficha=" & var & ""
End If
Busca la ayuda de Dmax() para que sepas como trabaja
