[Resolvido] Inserir dados em uma tabela e carregar automaticament

[Marcus Marinho 0]

Pessoal,

 

Estou criando um BD para uma aplicação que estou fazendo, onde eu preciso fazer com que os dados de uma tabela quando inseridos, sejam incluidos automaticamente em outra. Ex: Na tabela Clientes, existe o codigo do cliente e nome. Quando eu inserir um dado nessa tabela, eu preciso com que a tabela Pagamento, receba o valor do código cliente e nome.

 

TABELA CLIENTE:

 

Codigo - Primary key

Nome

 

TABELA PAGAMENTO:

 

Cod_Cliente - Primary Key

Nome

 

Como posso fazer isso ? Eu pensei que cirando relacionamentos, isso fosse acontecer automaticamente, mas não rolou.

 

abraços

[Julien.Sorel 0]

Olá Marcus,

 

O relacionamente apenas "linkaria" as duas tabelas, as informações não serão copiadas; para tanto, você pode usar uma consulta acréscimo...

 

A rotina abaixo está vinculada à uma botão, que "chamara" um módulo:

 

 

Private Sub salvarCommand_Click()

    Call modSalvarPag

End Sub
[/Code]

 

[Code]Sub modSalvarPag()

On Error GoTo Err_Pag

If MsgBox("Deseja salvar as informações acima?", vbQuestion + vbYesNo, strTitle) = vbYes Then

DoCmd.RunCommand acCmdRefreshPage 'Atualização da página
Dim SQL As String 'Variável para query
DoCmd.SetWarnings False 'Aviso de execução
SQL = "INSERT INTO itblPagamento ( Codigo, Nome ) SELECT Codigo, Nome FROM itblCliente"
DoCmd.RunSQL SQL 'Execução da query

DoCmd.GoToRecord , , acNewRec 'Ir para novo regitro
Form_ifrmInclusao.Codigo.SetFocus 'Campo recebe foco
MsgBox "Processo realizado com sucesso.", vbInformation, strTitle 'Finalização

Else

Exit Sub 'Sair da rotina

End If


Exit_Pag: 'Tratamento de erro
Exit Sub

Err_Pag:
modMsgErr 'Módulo com mensagem de erro - basta criar

Resume Exit_Pag

End Sub[/Code]

 

 

 

 

Sem mais,

 

Julien Sorel

[Marcus Marinho 0]

Valeu pela dia irmão.. Estarei fazendo assim...

 

Obrigado.