[Resolvido]Antes de alterar

Gostaria de saber, como fazer um comando pra armazenar múltiplas informação de um campo para outra tabela, para poder consultar essa informação  futuramente.

Por exemplo:

Cliente veio dia 10/10/10 para: tomar café

Cliente veio dia 11/11/10 para: jantar

E assim sucessivamente.

Obrigado pelo apoio.

Bom dia!
Creio que você tem que criar uma outra tabela que será o histórico de atividades do cliente, relacionado os campos de ambas as tabelas por um campo comum (Número, CPF, etc), no formato de vários para um (1 cadastro (cliente) e várias atividades).
Então a tabela pode ter, por exemplo os seguintes campos:

ID (campo relacionado com a tabela principal de clientes)
Data Atividade
Descrição Atividades (Se existem muitas atividades, sugiro usar código em um campo ListBox, oriundo de uma outra tabela que seria por exemplo "ProtocoloDeAtividades", tendo dois campos, Código e descrição do Código: 001 - jANTAR; 002 - Almoço; 003 - Café da manhã; etc.)

Espero ter ajudado.
Abs.

Eu pensei em fazer isso, usando o evento Antes de atualizar. Mas sem perder a informação anterior.

Então quando o usuário atualizar o "status" do Cliente, antes de salvar a informação antiga, o form deverá armazenada em outra tabela.


Nesse caso, qual seria o comando que devo usar dentro do evento: "Antes de Atualizar", do campo em questão?


Alguma coisa como:

Início

Pegue        a informação do campoX na Tabela A      Então

Insere no     campoX da     Tabela B

Fim



Como fazer isso em Access?


Obrigado.

pesquise sobre o comando rs.addnew que terá como fazer isto.

Pesquisei e cheguei nesse código:

Dim db As DAO.Database
Dim rs As DAO.Recordset


'Vamos adicionar um novo registro na tabela Hosp.

Set db = CurrentDb()
Set rs = CurrentDb.OpenRecordset("Hosp")

rs.AddNew

rs.Update

End Sub


No entanto estou com erro de chave primaria. No momento configurei "Código"  como chave primaria na tabela Main e "Hospedagem" na tabela Hosp. Relação de 1 pra N

Mas da erro de indice null...

Alguma sugestão, sobre o código e o erro?


Abraços,

MVMOTA

Marcos,

Vc não precisa ter os mesmos dados em duas tabelas.

A não ser no caso do cliente que deverá está relacionado com a tabela de registro de atividades, através de um campo comum, tipo IDCliente.

Querendo postar suas tabelas, posso ajudar mellhor

Boa tarde, pessoal!


Não consigo anexar arquivos de foto ou até mesmo o BD. Por mais que eu tente diminuir a resolução, tamanha e compactar da erro de espaço para o anexo.

Onde posso estar errando?


Valew pela parceria.

Abraços,


MVMOTA

manda pro meu email que posto aqui no forum

guajara_mirim@yahoo.com.br

Acho que agora deu erto usando o Me.nomedocampo


Dim db As Database
   Dim rs As Recordset
   
   Set db = CurrentDb
   Set rs = db.OpenRecordset("Hosp")
 
   With rs
      .AddNew             ' Add new record
     
      !Cod_Cli = "1"
      !Hospedagem = "Chalé"
      !Nome = "João"
      !Qtd_Acompanhante = "1"
     
      .Update             ' Save changes.
     
   End With
   
   rs.Close

Pessoal, abaixo o arquivo do colega Marcos:


https://www.dropbox.com/s/hdy9e38rp7rvr8u/projeto.zip?dl=0

resolvi da seguinte forma:

Private Sub Hospedagem_BeforeUpdate(Cancel As Integer)
Set db = CurrentDb
Set rs = db.OpenRecordset("Hosp")

With rs
.AddNew ' Add new record


!CPF = Me.CPF
!Cod_Cli = Me.Cod_Cli
!Hospedagem = Me.Hospedagem
!Nome = Me.Nome
!Acompanhante = Me.Acompanhante
!Dia_Entrada = Me.Dia_Entrada

.Update ' Save changes.

End With

rs.Close
End Sub