[Resolvido]Salvar dados em duas tabelas e retornar dado do útimo registro

Boa noite a todos!
Sou novo no fórum e iniciante no access.

Estou construindo um banco de dados e estou com algumas dúvidas. Ele já esta praticamente pronto, porém gostaria de incrementar algumas funcionalidade. Meu banco de dados é para controlar saída e entrada de veículos de minha empresa. Uma delas é:
-no meu "BD" tem duas tabelas e dois formulários: na tblCad_Ocor, tblViaturas, Frm_PesqOcor e Frm_CadOcor.

Na tblCad_Ocor estáo todos os dados dos itinerários dos veículos; na tblViaturas estão cadastrados todos os veículos disponíveis e o KM final; o Frm_PesqOcor  exibe todas as informações sobre o dia de serviço e no Frm_CadOcor faço o cadastro de todas as saídas dos veículos.

No Frm_CadOcor é possível cadastras quatro veículos de uma única vez (Veículo, KM de saída, horário de saída, KM de chegada e horário de chegada), esses dados serão armazenados na tblCad_Ocor.

Minha primeira dúvida é: quando eu preencher esses dados no Frm_CadOcor, como faço para salva-los na tblCad_Ocor e tblViaturas (sendo que na tblViaturas quero salvar apenas o KM de chegada do respectivo veículo).

Minha segunda dúvida é: como faço para exibir o KM de chegada, do registro anterior daquele veículo, no campo KM inicial do novo registro e como exibir esse mesmo dado no Frm_PesqOcor quando eu selecionar o veículo através de uma caixa de combinação.

Obs: quando eu salvar o registro, ele será salvo como um novo registro na tblCad_Ocor, porém na tblViaturas o campo KM de chegada será apenas atualizado.

Espero que tenha me feito entender.

Obrigado

Boa tarde!

Por favor pessoal, me ajudem, por favor. Já procurei em vários lugares, mas não encontrei nada que me tirasse essa dúvida.

Obrigado

Amigo,

Não é legal repetir o mesmo tópico, assim vc compromete a qualidade das buscas.

Bem, como respondi no seu outro tópico, poste o que vc já tem, facilita bastante pra quem quer te ajudar.

Abraços,

Cleverson
Ok

Boa noite!

Estou tentando anexar o banco de dados, mas não esta indo. O site esta dando mensagem de erro "O arquivo adicionado não é válido: nome do arquivo incorreto". Já tentei anexar tanto zipado quanto normal, já mudei o nome, a extensão e nada. Como devo proceder?

Obrigado

Boa noite!

Segue meu banco de dados.
O formulário principal é o Frm_PesqOcor.

https://mega.nz/#!NMU3iaKJ!rV9JUPCxJQUIm3ioAGww8CmU22OmKgjXbra4Bxbu8QA

Bom dia, Dilson!

Não testei ainda, mas como direto para atualizar a tabela viaturas sendo que o campo KM pode ser atualizado pelos campos KM1,KM2, KM3 e KM4?

Replique:
currentdb.execute "UPDATE TabelaViatura SET Kilometragem=" & KM1 & " WHERE Codigo=" & ComboVatura

currentdb.execute "UPDATE TabelaViatura SET Kilometragem=" & KM2 & " WHERE Codigo=" & ComboVatura

... KM3

... KM4

Boa tarde, Dilson!

Funcionou perfeitamente.
Percebi uma situação que não tinha imaginado antes:
Sempre que cadastro uma nova ocorrência, digito apenas os dados da saída, escolho o veículo e coloco o horário de saída. Tanto o km final quanto o horário final são preenchidos no retorno do veículo e isso faço clicando no botão "Alterar ", mas nem sempre que pressiono o botão alterar, é para encerrar, muitas vezes tenho que acrescentar outro veículo no mesmo registro.
Percebi que ao colocar essa linha de código, se eu não digitar o km final, o access emite uma mensagem de erro de parâmetro" Update". Como faço para o sistema atualizar esse campo somente se eu digitar algo nele?

Boa tarde, Dilson!

Obrigado por todas as explicações. Consegui fazer funcionar e ficou exatamente como eu queria.

If (IsNull(Me.txtKMQ1) Or Me.txtKMQ1.Value = "") Then
Else
CurrentDb.Execute "update Viaturas set kmq=" & KMQ1 & " where código=" & cmbVTR1
End If


Valeu.

Obrigado por informar como resolveu e o resolvido.

If (IsNull(Me.txtKMQ1) Or Me.txtKMQ1.Value = "") Then

Eu deixei de usar isnull, empty ou "" por perceber demasiadas falhas na leitura e hoje prefiro usar a função len e até agora mostra-se mais eficaz, exemplo:

If Nz(Len(Me.txtKMQ1)) = 0 Then
Else
       CurrentDb.Execute "update Viaturas set kmq=" & KMQ1 & " where código=" & cmbVTR1
End If

Até!

Vou utilizar em meus projetos.

Obrigado pela dica.