[Resolvido]km final ser o inicial no próximo registro

pessoal, preciso de uma ajuda.

alguém pode me enviar um exemplo simples de como montar um formulário onde exista os campos km inicial e km final.

vamos supor que no primeiro registro, eu coloque km inicial "100" e km final "200".

ao inserir um novo registro, o km inicial será "200", ou seja, não haverá mais necessidade de inserir o km inicial, pois sempre será o km final do registro anterior. e assim por diante

alguém me ajuda??

desde já agradeço

Ricardo


Experimente isso:

Crie essas duas caixas de texto num formulário: KmInicial e KmFinal.

Na propriedade ApósAtualizar  da caixa de texto KmInicial coloque:

Me!KmInicial.DefaultValue = Me!KmFinal

E teste

Abraços

Noob

Boa noite,

Não funcionou! Alguém pode enviar um exemplo funcionando?

Segue em anexo os prints da minha tentativa.

Desde já obrigado

Bom dia,

Imagina que no teu form tens um botão de comando para adicionar um novo registo; colocas algo deste género:

Código:



   'vai para Novo Registo
   DoCmd.GoToRecord acActiveDataObject, Me.Name, acNewRec
   
   'preenche o campo do novo registo com o valor que pretendes
   CampoKmInicial = DMax("CampoKmFinal", "NomeDaTabela")
   
   'coloca o cursor no campo kmFinal para o input
   'Me.CampoKmFinal.SetFocus
   


Testado na versão 2013.

O exemplo que coloquei funciona para o mesmo campo.
Achei que funcionasse para o valor de um outro campo, e realmente não funciona.

A solução do am é ótima.

Se tiver problemas, retorne.

Nb

Desculpe, mas acredito que por ser iniciante, não estou conseguindo aplicar corretamente.

Tentei de várias formas, porém, sem êxito.

Segue meu projeto em anexo, onde criei o formulário "teste", para aplicação dessa regra. Podem analisar?

Desde já, muito obrigado.

Bom dia,

Aqui vai

Muito obrigado. Ficou perfeito!!!

Então e se for um numero tipo

014/14

e o novo fosse o seguinte, ou seja

015/14

como é que coloco o

Me!kminicial.DefaultValue = DMax("kmFinal", "teste") + 1

não funciona porque dá erro

E se você tiver Vários Veículos?

Private Sub Form_Current()
Me!kminicial.DefaultValue = DMax("kmFinal", "teste")
End Sub
Funcionou para um veículo, mas na mesma tabela tiver vários, por exemplo:"

CodViagem / DataViagem / Placa / KM_inicial / KM_Final / ValorFrete

Eu preciso que toda vez que informar uma placa ele "pegue" o KM_Final da última viagem dessa placa e coloque como KM_Inicial

Alguém pode ajudar?

seria mais ou menos como a venda de produtos, saldo inicial e saldo atual, vc deve referencia o código do produto , no caso o código ou placa do veículo.

Cleverson

Pessoal Funcionou da seguinte maneira:

Private Sub txtCodVeiculo_AfterUpdate()
If Me.NewRecord = True Then
[txtKM_Inicial] = Nz(DMax("[KM_Final]", "CadViagem", "CodVeiculo=" & Me.txtCodVeiculo), 0)
End If
End Sub

Obrigado pela ajuda.