Ultimo registro baseado numa ComboBox

Olá pessoal,

Estou desenvolvendo um Sistema de Uso de veículos, onde os funcionários pegam os veículos da empresa para serviço externo.

No cadastro quando o funcionário listar (caixa de combinação) o veículo, gostaria que ele puxasse o último KM anterior daquele veículo selecionado, mostrando numa caixa de texto:

Private Sub cbPlaca_AfterUpdate()

If Me.cbPlaca.Value Then

KMAnterior.Value = DLast("KM", "Karometro")

End If

End Sub


Ao selecionar a placa eu quero que ele selecione o último KM da placa selecionada.


Agradeço a ajuda e atenção de todos!

Achei a solução para uma combobox, ou seja, ao selecionar um determinado valor da combobox ele me trará o último valor da seleção baseado na tabela de registros. Vejamos:

Private Sub cbPlaca_AfterUpdate()
   If CaixaListagem = Gol Then
   Me.txtKMAnterior.Value = DLast("Campo_KM", "tb_Karometro", "IDCarro=Gol")
   Else
   Me.txtKMAnterior.Value = DLast("Campo_KM", "tb_Karometro", "IDCarro=Palio")
   End If


Desta forma funcionou perfeitamente!