[Resolvido]VBA achar e colocar dado numa tabela.

Saudações meus caríssimos,


estou postando a minha bd sobre demonstrativo do consumo de combustíveis, preciso saber resolver um problema...

tabela Lançamento11: data; solicitante; placa; kmfinal; valorsolicitado; preçolitro; kminicio; observa.

os dados são inseridos pelo formulário Lançamento Cupons nos campos: data, solicitante, placa, kmfinal, valorsolicitado, observa...

o que preciso? que ao informar a placa, um código VBA pegue o dado do campo kmfinal anterior(conforme o campo placa referida) e coloque-o no campo kminicio da tabela (Lançamento11).

a senha é seta2626

desde já um muito obrigado!

meus colegas aqui, se tiver uma saída numa consulta, também me é viável...algo como


DMáx("kmfinal","Lançamento11",???)

não estou conseguindo o resultado procurando o número máximo referente a placa conforme a instrução acima.

se alguém tiver uma saída sou muito grato.

em questão de um minuto vi meu erro na consulta acima...

o certo é Expr1: DMáx([kmfinal];"Lançamento11";[placa])

porém ainda não é está perfeito...eu preciso que pegue o kmfinal anterior, dessa forma está pegando o kmfinal que acabo de inserir.

grato,

Boa tarde,
Normalize os nomes de controlos, etc
Coloque
Private Sub placa_Change()
kminicio = DMax("KmFinal", "Lançamento11", "Placa=" & Me.placa)
End Sub

boa tarde Alexandre,


conforme sua sugestão os dados que vêm são aleatórios.


no caso, são diversos solicitantes de gasolina, cada um é uma placa, eu preciso que ao digitar uma placa referente, a instrução vá buscar referente a esta mesma placa o último registro da kilometragem registrada anteriormente.

sem mais, e grato pela atenção.

Tem a certeza? dê dados concrectos.
O código preencherá kminicio a partir do valor máximo do campo kmfinal da tabela Lançamento11 em que o campo placa seja igual ao controlo placa
Pode acontecer o Access não distinguir o controlo kmfinal do campo kmfinal. Já se tem abordado muitas vezes este erro de nomeação

Muito bem, caro Alexandre, fantástico.

do jeito que eu queria.

mas, exatamente da forma como você descrevera acima realmente dava erro...

o que fiz? observei que os meus controles são todos em minúsculos e que

em Change() apontava o erro, mas que em Exit() fica perfeito, da forma como solicitei.

por tanto para os outros que quiserem ver, pra mim funcionou assim:


Private Sub placa_Exit(Cancel As Integer)
kminicio = DMax("kmfinal", "Lançamento11", "placa=" & Me.placa)
End Sub

muitíssimo grato.