km inicial condicionado ao veículo

Olá amigos,

Preciso de mais uma ajuda de vocês.

Segue meu projeto em anexo.

Tenho um formulário chamado "F_Controle_Frete_Boiadeiro". Nele tenho o sub formulário "F_Sub_Controle_Frete_Boiadeiro".

Criei uma regra (com ajuda de vocês), para quando inserir um novo registro no sub formulário, sempre trazer o km final, como inicial no novo registro.

Private Sub Form_Current()
Me!km_inicial_sfr.DefaultValue = DMax("km_final_sfr", "Sub_Controle_Frete_Boiadeiro")
End Sub

Isso funciona perfeitamente, porém, tenho um impasse...

São vários veículos (5 no momento) e preciso condicionar o km inicial, conforme veículo, ou seja, se o veículo 1 tem km final 34.500 e veículo 2 tem km final 77.500, ao iniciar um novo cadastro em "F_Controle_Frete_Boiadeiro", ao selecionar qualquer um dos veículos (veiculo_fr), preciso que o km final seja correspondente ao mesmo.

Ficou claro?

Podem me ajudar? Desde já, agradeço.

Narrate, Vamos lá!
No formulário , você escolhe o carro que quer efetuar o lançamento e traz em outro campo o KM inicial que é o último digitado como Final, certo?

Então no campo que escolhe a placa ou veículo, No evento após atualizar:

Me![Campo que vai receber o KM] = DMax( "Campo que será buscado na tabela", "[Nome da Tabela que contém o campo]"," [Campo que contem a identificação do veículo - Placa, nome, etc...]" = Me.Nome do Campo que contem a identificação do veículo - Placa, nome, etc do formulário atual...)

Substituir as informações por nome dos campos que utiliza.
** Obs: Caso os dados sejam em formato (Texto), colocar aspas simples no código, como abaixo:

Me![Campo que vai receber o KM] = DMax( "Campo que será buscado na tabela", "[Nome da Tabela que contém o campo]"," [Campo que contem a identificação do veículo - Placa, nome, etc...]= ' " & Me.Nome do Campo que contem a identificação do veículo - Placa, nome, etc... do formulário atual & " ' " )

Tente Aí!

Olá amigo,

Tentei de várias formas aplicar sua sugestão, porém, sem sucesso...

Você consegue aplicar sua sugestão no projeto que anexei no tópico?

Desculpe, mais ainda tenho pouca experiência com o VB...

Aguardo o apoio de sempre.

Olá amigos,

Alguém pode me ajudar nesssa dúvda??

Olá Narrante, basta substituir o seu Codigo com Dmáx()... por este:


Me!km_inicial_sfr.DefaultValue = Nz(DMax("km_final_sfr", "Sub_Controle_Frete_Boiadeiro", "veiculo_sfr= '" & Forms!f_controle_Frete_Boiadeiro!veiculo_fr & "'"), 0)
Observe que foi adicionado um criterio no final do codigo Dmax: ( ... "veiculo_sfr= '" & Forms!f_controle_Frete_Boiadeiro!veiculo_fr & "'" ...)
Nesse critério eu realizo a filtragem pela placa do neiculo selecionada no formulario principal!

Observe também que utilizei o NZ() para quando não tiver lançamentos, ele considerar 0 para a KM Inicial!