Preencher automaticamente informações de último lançamento

Caros amigos,

Gostaria de uma ajuda dos Senhores a seguinte dúvida.

Estou tentando desenvolver um pequeno sistema de pesagens em balança rodoviária.

Imagine que tenho um formulário onde tem uns campos relacionados aos dados do produto e transportador a ser pesado na balança.
Nesses campos, tenho: placa, data, fornecedor, produto, motorista, etc.

Digamos que acabei de preencher os campos de uma pesagem
Placa: AAA1213
Fornecedor: Fornecedor 1
Produto: Brita 5/8
Motorista: José
Finalizei e salvei.

O que queria era quando eu informar novamente a placa AAA1213 em um lançamento seguinte, fosse preenchido os demais campos com base no ultimo lançamento salvo desta placa. É possível?

Agradeço desde já.

jefersonsouza33

Acho que era algo assim que gostaria, mas teste aí.


dropbox.com/s/wqsjtuu5zb9m3oy/Ex.accdb?dl=0

Olá Ismael,

Obrigado pelo retorno.

É exatamente isso que preciso, só não conseguir replicar. Estou tentando aprender ainda.

Com base no seu modelo, tentei fazer exatamente igual, mas certamente está faltando alguma coisa...

As mudanças que fiz é porque foram os nomes que dei aos campos e nome da tabela.

Eu selecionei o campo "Placa" e fui no evento "após atualizar"

Private Sub Form_Load()
DoCmd.GoToRecord , , acNewRec
End Sub

Private Sub txt_placa_AfterUpdate()

[txt_fornecedor] = DLast("[Fornecedor]", "TB_Pesagens", "[Placa]='" & [txt_placa] & "'")
[txt_produto] = DLast("[Produto]", "TB_Pesagens", "[Placa]='" & [txt_placa] & "'")
[txt_transportador] = DLast("[Transportador]", "TB_Pesagens", "[Placa]='" & [txt_placa] & "'")
[txt_motorista] = DLast("[Motorista]", "TB_Pesagens", "[Placa]='" & [txt_placa] & "'")


End Sub

Bom dia

Coloca o teu bd aqui.

Ok Ismael,

Segue o arquivo.

Grato,

Não sei o que houve, mas não consegui abrir seu arquivo.

Olá a todos,

Ismael, segue abaixo link do ficheiro convertido para a versão 2003

cld.pt/dl/download/c640cb34-0a92-4477-8260-5197ed69ac2f/Sistema_Balanca_2003.zip
Copiar link e colar navegador

Abraço a todos

Obrigado ahteixeira.

IsmaelSilva, pode tentar abrir também mantendo o Shift pressionado.

Abraço.

Jeferson,

Só pra lhe dar um retorno,

Estive vendo o seu controle, e acho que imagino o por que não deu certo o código, no seu caso você está a utilizar uma combo, e neste caso, às vezes cada valor que você seleciona nesta combo, retorna um número, eu mesmo já tive esse problema e não consegui resolver. Mas o mais intrigante é que tem situações em que mesmo tendo combos, ele retorna o valor igual ao que secionamos, e em outras ocasiões retorna números, e no exemplo que eu lhe mandei, deu certo por que eu utilizei caixa de texto e não combo. Então neste caso específico não consegui achar a solução com a combo, mas tenho certeza que alguém mais experiente aqui no fórum vai conseguir nos ajudar Jeferson. Vou ficar de olho neste tópico, e tbm vou tentando encontrar outras possibilidades aqui. Ah! para você testar o que estou dizendo, insira uma caixa de texto, com qualquer nome, e na combo txt_placa, depois de atualizar, você coloca, me.nome da caixa de texto que criou = txt_placa, verá que retorna números.

Obrigado Ismael pelo retorno e tentativa de encontrar a solução.

Vou ficar na expectativa de alguém me ajudar.

Abraço.

Olá a todos,

Jeferson Souza, poste base de dados funcional com a parte envolvida na questão para se testar.

Assim fica mais fácil para qualquer membro ajudar.

Abraço a todos