[Resolvido]Lançar em duas tabelas

Boa tarde.

Gostaria de instituir que com o mesmo formulário lance em duas tabelas diferentes, contudo, na segunda tabela só o campo nome. Sei que é possível mas não consigo construir. Uma segunda questão, se calhar mais difícil é que fosse possível abrir uma base de dados para um novo ano com as mesmas caraterísticas, começando do zero.
Alguém me poderá ajudar?
Cumprimentos,
Rui Maciel

Boas Maciel, primeiramente evite escrever títulos de tópicos em Maiúsculas....Isso contraria as regras do Fórum.

De mais detalhes de sua dúvida e se possível diponibilize sua bd.

Cumprimentos.

Ps. Título alterado para minúsculas.

Bom dia Piloto
Obrigado pela informação das minúsculas.
Em anexo segue a minha BD, o que eu queria era com o formulário paroquianos inserir nas tabelas arquivo de paroquianos e na de paroquianos, nesta última só o nome. Obrigado.
Já agora Piloto, se pudesses elaborar um formulário para lançar as receitas e despesas em lugar de ter um formulário para cada agradecia, pois, era bastante eficaz para poder fazer um relatório com as receitas à esquerda e as despesas à direita.
Agradecido pela atenção e precioso tempo dispensado,
Cumprimentos,
Rui Maciel

Por gentileza poste em formato 2007, e cite todos os objetos envolvidos.

Cumprimentos.

Tudo bem Piloto
Segue em anexo a base de dados. Como disse atrás pretendia que com o formulário Direitos Paroquiais lançar na tabela Direitos Paroquiais, o que já acontece, mas agora queria que o campo importância e data do formulário direitos paroquiais também lançasse na tabela arquivo de paroquianos no campo valor e data. Obrigado.
Cumprimentos,
Rui Maciel

Ainda está em 2010. converta em 2007 ou 2003 e envie novamente.

Cumprimentos.

Boa noite
Não tenho como converter para 2007. Se conseguir agradeço.! Obrigado.
Cumprimentos,
Rui Maciel

Boa noite.. Tente converter em 2003

So tenho o 2007

Boa tarde
Não tenho como pôr o ficheiro nas versões 2003 e 2007. Se alguém me poder ajudar agradeço.
Cumprimentos,
Rui Maciel

Entre no evento VBA depois de atualizar em cada um desses dois campos e faça isto;


Private Sub Importância_AfterUpdate()
CurrentDb.Execute "UPDATE [Arquivo de paroquianos] SET Valor= " & Me.Importância & " WHERE código= " & Me.cbxNome.Column(0) & ""
Me.Recalc
End Sub


Private Sub Data_AfterUpdate()
CurrentDb.Execute "UPDATE [Arquivo de paroquianos] SET Data= #" & Me.Data.Value & "# WHERE código= " & Me.cbxNome.Column(0) & ""
Me.Recalc
End Sub

Obrigado pela participação JP...

Cumprimentos.

Boas para todos
Agradeço a colaboração de todos vocês. Obrigado.
Contudo, quando vou fazer um lançamento novo, depois de digitar a importância, inscreve logo os dados no subformulário e não deixa inserir a data e o resto dos dados, só clicando no botão para alterar é que funciona. Se apagar algum registo ele não vai atualizar na tabela Arquivo de paroquianos, pois, deixa lá o valor. Agradecia retorno, obrigado.
Mais uma vez este fórum é dinâmico e bastante eficiente.
Cumprimentos,
Rui Maciel

Gostaria que começa-se a entender as funções e a tentar aplicá-las, só assim crescerá em conhecimentos.

Vamos lá ao problema;

Substitua o que lhe passei por estes;


Private Sub Importância_AfterUpdate()
CurrentDb.Execute "UPDATE [Arquivo de paroquianos] SET Valor= " & Me.Importância & " WHERE código= " & Me.cbxNome.Column(0) & ""
Me.Recalc
Me.AllowEdits = True
Me.AllowDeletions = True
End Sub


Private Sub Data_AfterUpdate()
CurrentDb.Execute "UPDATE [Arquivo de paroquianos] SET Data= #" & Me.Data.Value & "# WHERE código= " & Me.cbxNome.Column(0) & ""
Me.Recalc
Me.AllowEdits = True
Me.AllowDeletions = True
End Sub


Substitua a macro do botão Excluír, por este evento VBA;

Private Sub Comando23_Click()
DoCmd.SetWarnings False
CurrentDb.Execute "UPDATE [Arquivo de paroquianos] SET Valor=Null, Data=Null WHERE código= " & Me.cbxNome.Column(0) & ""
With CodeContextObject
On Error Resume Next
DoCmd.GoToControl Screen.PreviousControl.Name
Err.Clear
If (Not .Form.NewRecord) Then
DoCmd.RunCommand acCmdDeleteRecord
End If
If (.Form.NewRecord And Not .Form.Dirty) Then
Beep
End If
If (.Form.NewRecord And .Form.Dirty) Then
DoCmd.RunCommand acCmdUndo
End If
If (.MacroError <> 0) Then
Beep
MsgBox .MacroError.Description, vbOKOnly, ""
End If
End With
DoCmd.SetWarnings True
Me.Recalc
End Sub

Bom dia
Agradeço a paciência e gentileza de todos vocês. Obrigado JPaulo e Piloto.
Cumprimentos,
Rui Maciel

O Fórum agradece o Retorno.

Obrigado pelo retorno.