[Resolvido] Atualização automática de campos

Boa noite, tenho um BD em que tenho várias tabelas, mais o que eu quero é o seguinte:
Tenho uma tabela "conta corrente bancária" que tem os campos:
Data;
Histórico;
Doc;
entradas;
saídas.

E tenho outra tabela "despesas" com os seguintes campos:
Data;
Histórico;
Doc;
Valor.

Gostaria que os campos da tabela "despesas" fossem atualizados automaticamente quando fosse lançados os dados da tabela "conta corrente bancária"
Os 3 primeiros campos são iguais e o campo valor da tabela "despesas" deve ser os dados do campo saídas da tabela "conta corrente bancária"

Jorge

Bom dia Jorge,

Seja bem vindo ao forum.

Pode ser feito usando recordset:

Dim db As DAO.Database
Dim rst As DAO.recordset

Set db = CurrentDB()
Set rst = db.OpenRecordset("despesas", dbOpenTable)
rst.AddNew
rst!Data1 = teuCampoDataNoForm
rst!Historico = TeuCampoHistoricoNoForm
rst!Doc = TeuCampoDocNoForm
rst!valor1 = TeuCampoSaidasNoForm
rst.Update
rst.Close

set rst = nothing

Coloca no evento APÓSATUALIZAR do ultimo campo ou em um botão.

Obs: Cuidados com as palavras reservadas do Access (data, valor, etc)
Nivaldo.

Boa tarde Nivaldo.
Acho que fiz como vc disse mais não deu certo, veja se fiz corretamente.

Private Sub CRÉDITO_AfterUpdate()
Dim db As DAO.Database
Dim rst As DAO.Recordset

Set db = CurrentDb()
Set rst = db.OpenRecordset("despesa", dbOpenTable)
rst.AddNew
rst!Data2 = Data1
rst!Histórico2 = Histórico1
rst!Doc2 = Doc1
rst!valor2 = CRÉDITO
rst.Update
rst.Close

Set rst = Nothing
End Sub

Onde a Data1, Histórico1, Doc1 e Crédito, são os campos do formulário que estou lançando para atualizar a tabela conta corrente banco - e os campos Data2, Histórico2, Doc2 e valor2, são os campos da tabela despesa que desejo que seja preenchidos automaticamente.

Quando faço o lançamento e vou sair dá a seguinte mensagem:
Erro de compilação:
O tipo definido pelo usuário não foi definido.

O que tem de errado?
Ats.
Jorge.

Uma preciosa ajuda;

Marque a referencia "Microsoft DAO 3.6 Object Library" no VBA.

Não entendi onde marcar.
JOrge.

Jorge, entre em um formulário no modo estrutura ou design e abra um módulo vba qualquer. Vá em Ferramentas e escolha a opção Referência. Lá procure a referência citada pelo JPaulo e marque ela e confirme.

Está quase chegando lá.
Está dando erro quando confirmo um lançamento do tipo.
Erro em tempo de execução '3314':
O campo 'despesa.Data2' não pode conter um valor nulo, pois a propriedade requered desse campo está definida como true. Digite um valor nesse campo.

Obs. o lançamento está sendo feito com preenchimento de todos os campos.

Ats.

Jorge.

Você tem certeza que tem um campo no form associado ao despesa.data2 da tabela? Talvez seja isso que esteja ocorrendo.

As tabelas são distintas não tem nenhum campo relacionado.
Esse procedimento é igual fazer uma consulta altualização que tem que ter um campo ralacionado?
Ats.
Jorge.

Acontece que você está inserindo um registro em uma tabela. Se essa tabela tem um campo que é obrigatório ser preenchido e não tiver nenhum campo no form para inputar um valor no campo obrigatório da tabela, dará erro.

Todos os campos do formulário são preenchidos para atualizar a tabela "bancos" e o código é para pegar os dados desses campos e atualizar a tabela "despesa".

Só as tabelas não tem relacionamentos, mais, todos os campos do formulário tem um campo correspondente na segunda tabela.
Ats.
Jorge.

Bom Dia Jorge;

Veja como funfa e o que está a fazer mal;

http://dl.dropbox.com/u/771097/Jorge.mdb

Bom dia, não consigo abrir/salvar o arquivo que tu mandaste, dá mensagem de que não é seguro.

Isso são configurações de segurança do seu PC.

Veja assim:
http://www.speedyshare.com/files/22550889/Jorge.rar

Bom dia, até que enfim fungô. Mais não foi fácil copiei ó código que está no exemplo acima e colei no meu formulário e mesmo assim não fungou, tive que importar o formulário do exemplo para meu BD e fazer as adaptações necessárias e aí fungou perfeitamente.
Abraços e muito obrigado pela ajuda.

Ats.

Jorge.

Bem estava usando o codigo que foi passado la em cima
devidamente alterado os nomes

Dim db As DAO.Database
Dim rst As DAO.recordset

Set db = CurrentDB()
Set rst = db.OpenRecordset("despesas", dbOpenTable)
rst.AddNew
rst!Data1 = teuCampoDataNoForm
rst!Historico = TeuCampoHistoricoNoForm
rst!Doc = TeuCampoDocNoForm
rst!valor1 = TeuCampoSaidasNoForm
rst.Update
rst.Close

set rst = nothing


Estava funcionando perfeitamente ate eu dividir o projeto em bac end e from end
comecou a dar erro nesta linha.

Set rst = db.OpenRecordset("despesas", dbOpenTable)


Pelo jeito nao esta abrindo a tabela para salvar os dados, mas como ficaria o novo caminho completo.

Desde ja agradeço

Assim;

Dim Conn As ADODB.Connection
Dim rst As New ADODB.Recordset
Dim strSQL As String
Set Conn = CurrentProject.Connection
Set rst = New ADODB.Recordset
strSQL = "Select * from despesas"
rst.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
rst.AddNew
rst!Data1 = teuCampoDataNoForm
rst!Historico = TeuCampoHistoricoNoForm
rst!doc = TeuCampoDocNoForm
rst!valor1 = TeuCampoSaidasNoForm
rst.Update
rst.Close
Set rst = Nothing

Valeu JPaulo funcionou perfeitamente.

Obrigado pelo retorno amigo.

ó Eu aqui outra vez....

pelo codigo acima acrescenta uma linha de cada vez.

Como fazer para acrescentar varios linha na tabela.

Tentei complicar o facil.

Solução criei uma consulta de acrescimo.

Para o codigo acima funcionar no 2007 presisa ativar a referencia


microsoft activex data objects 2.1 library

Como transformar esta rotina em uma sub function
ou em um modulo.

Dim Conn As ADODB.Connection
Dim rst As New ADODB.Recordset
Dim strSQL As String
Set Conn = CurrentProject.Connection
Set rst = New ADODB.Recordset
strSQL = "Select * from despesas"
rst.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
rst.AddNew
rst!Data1 = teuCampoDataNoForm
rst!Historico = TeuCampoHistoricoNoForm
rst!doc = TeuCampoDocNoForm
rst!valor1 = TeuCampoSaidasNoForm
rst.Update
rst.Close
Set rst = Nothing

Veja o simples em uma Sub

Sub NovoLote()

Dim DataSaida As Date
Dim CodIngrediente As String
Dim NomeIngrediente As String
Dim qntsaida As Integer

Dim Conn As ADODB.Connection
Dim rst As New ADODB.Recordset
Dim strSQL As String
Set Conn = CurrentProject.Connection
Set rst = New ADODB.Recordset
strSQL = "Select * from tbsaida"
rst.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
rst.AddNew
rst!DataSaida = txDataSaida
rst!CodIngrediente = txCodIngrediente
rst!NomeIngrediente = txNomeIngrediente
rst!qntsaida = txsobra
rst.Update
rst.Close
Set rst = Nothing
End Sub

Observe que os campos de origem teve os nomes alterados no formulario para funcionarem corretamente.

O meu maior problema foi definir as variaveis

campo formato data = as date
campo formato texto= as string
campo formato numero = as integer

Eu sei que existem outros criterios se alguem puder acrescentar mais fica em aberto.
Meu conhecimento é limitado em VBA.

Obrigado pelo retorno amigo Mario, é sempre util e pode ajudar outras feras com o mesmo problema.