[Resolvido]Pesquisa no Formulário

olá, meus amigos,

Tenho um form e gostaria que ao digitar a placa do carro(em referência), automaticamente fosse demonstrado na caixa de texto o valor de registro anterior do tacógrafo.

desde já, um muito obrigado,

Crie uma função:

Private Function Ultimo() As String

Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("NomeDaTabela")
rs.MoveLast
Ultimo = rs!NomeDoCampo
rs.Close
Set rs = Nothing

End Function

Na origem do campo:

=Ultimo()

criquio,

não estou conseguindo o resultado,

é o seguinte:

quando eu informar a placa do carro, é para apresentar numa caixa de texto no formulário qual foi o registro da kilometragem no registro anterior.


obrigado,

Tente mudar a função para o evento "Após atualizar" do campo da placa:


Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("SELECT * FROM NomeDaTabela WHERE NomeCampoPlaca='" & Me.NomeCampoPlacaNoForm & "'")
rs.MoveLast
Me.NomeCampo = rs!NomeDoCampoNaTabela
rs.Close
Set rs = Nothing

End Function

Nesse caso, retire o =Ultimo() da origem do campo.

Criquio,

entendo que ao digitar a placa do carro, ele vai buscar o ultimo registro/dado da kilometragem informada, mas não está dando certo... não sou muito bom de VBA.

Option Compare Database
Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("SELECT * FROM Lançamento1 WHERE placa='" & Me.placa & "'")
rs.MoveLast
Me.Texto39 = rs!kmfinal
rs.Close
Set rs = Nothing

End Sub

está correta essa colocação???

um obrigado pela atenção,

ok.
walew