[Resolvido]Atualizar vários arquivos ao finalizar o cadastro de uma ficha

Caros, preciso de uma ajuda de voces.
Estou desenvolvendo um formulário onde cadastro uma ficha de visita, onde aparece os dados do cliente, os dodos do equipamento, e informações sobre a visita.
Ao terminar de digitar as informações neste formulário, preciso salvar o arquivode de visita, atualizar o arquivo de cliente e atualizar o arquivo do equipamento do cliente.
Como posso fazer isso???

O que são esses arquivos a que você se refere? São tabelas no próprio aplicativo ou se trata de um arquivo externo?

São tabelas criadas no próprio aplicativo.

Acredito que você tenha criado o formulário vinculado á tabela, certo? Quando temos tabelas relacionadas, criamos um subformulário da tabela filha dentro do formulário da tabela mãe. Nesses campos, não precisa salvar. Ao digitar os dados, eles já ficam gravados nas tabelas. É fundamental você saber o que é e como implementar os relacionamentos. Chamamos esse tipo de dados, em que os dados de uma tabela está relacionado a um campo de outra tabela, de dados relacionais. Veja aqui informações sobre isso. No F1 do Access tambem tem ótimas dicas.

Na verdade não tem sub formulário, no formulário onde digito as informações coletadas na visita, há informações que se refere ao equipamento e são estas informações que preciso gravar na tabele de equipamento.
A busca deste equipamento é através no número de série que tambem é informado no formulário.

Ainda não entendi. Exemplifique por gentileza. Talvez ainda seja o caso de você ler o conteúdo do link que eu passei para entender como deve estar montado um banco relacional. Lembre-se que isso é imprescindível para que consigas montar um banco eficiente.

Caro, esta rotina na verdade já funcionava, só não entendi por qual motivo deixou de funcionar.

Na hora da execução do aplicativo apresenta o senguite erro "O tipo definido pelo Usuário não foi definido" e apresenta uma tarja azul sobre a segunda linha do código seguinte;

Private Sub CmdSalvar_Click()
Dim rstEquipamento As DAO.Recordset
Dim IDias As Integer

IDias = 0

Set rstEquipamento = CurrentDb.OpenRecordset("SELECT * FROM TBEquipamento WHERE NumeroSerie = " & Me.CmbNumeroSerie, 2)

Select Case QdrTipoOS.Value
Case 1 'Visita Técnica Normal
MsgBox "foi escolhido a 1a. opção", vbInformation
With rstEquipamento
.Edit
If Horimetro < !Horimetro Then
!Horimetro = Me.Horimetro
End If
!DataUltimaManutencao = Me.DataVisita
.Update
.Close
End With

Case 2 'Visita Técnica de Troca de 1000 horas
With rstEquipamento
.Edit
IDias = (1000 / !HorasTrabalho)
If (Me.DataVisita IDias) > !DataProximaTroca3000 Then
!DataProximaTroca1000 = !DataProximaTroca3000
Else
!DataProximaTroca1000 = (Me.DataVisita IDias)
End If
If Horimetro < !Horimetro Then
!Horimetro = Me.Horimetro
End If
!DataUltimaManutencao = Me.DataVisita
.Update
.Close
End With

Case 3 'Visita Técnica de Troca de 3000 horas

With rstEquipamento
.Edit
IDias = (3000 / !HorasTrabalho)
!DataProximaTroca3000 = (Me.DataVisita IDias)
If Horimetro < !Horimetro Then
!Horimetro = Me.Horimetro
End If
!DataUltimaManutencao = Me.DataVisita
.Update
.Close
End With
Case 4 'Visita Técnica de Revisão da Unicade compressora
With rstEquipamento
.Edit
!VidaUnidade = (!VidadeUnidade 1)
If Horimetro < !Horimetro Then
!Horimetro = Me.Horimetro
End If
!DataUltimaManutencao = Me.DataVisita
.Update
.Close
End With

Me.NumeroRelatorio.SetFocus
End Select
End Sub

Dei uma lida no material sobre relacionamento, mas não é o caso aqui as tabelas estão relacionadas corretamente no banco.

Boa noite colega Wagner, tudo bem....
Nos formulários de pesquisa, onde estarão esses dados evento "no atual"
Private Sub Form_Current()
Me.Requery
End Sub

e o botão salvar..
If (Me.Dirty = True) Then
X = MsgBox("Salvar registro no sistema ?", vbYesNo, "CADASTRO DE CLIENTES")
If X = vbNo Then
Me.Undo
Exit Sub
Else
RunCommand acCmdSaveRecord
DoCmd.GoToRecord , , acNewRec
Exit Sub
End If
End If

If (Me.Dirty = False) Then
MsgBox "Registro já salvo...", vbCritical, "Atenção"
Exit Sub
End If

Assim os registros estaram salvos nas "tabelas"...

bom dia, tente assim,

Dim campoTemp
campoTemp = Me.CmbNumeroSerie
Me.Repaint
Set rstEquipamento = CurrentDb.OpenRecordset("SELECT * FROM TBEquipamento WHERE NumeroSerie = " & campoTemp & ";", 2)

Caros colegas, eu preciso saber o porque está aparecendo a mensagem "O tipo definido pelo Usuário não foi definido", referente a linha de comando ( Dim rstEquipamento As DAO.Recordset ).
A mensagem aparece em tempo de execução do aplicativo. Antes não dava esta mensagem.
O que deve ter ocorrido para que esta mensagem aparece agora???

Olá amigo, desculpe-me a ignorância, mas onde verifico se a referência Microsoft DAO 3.6 Object Library está marcada????