[Resolvido] Dados copiados para cliente errado.

[Erich VB 0]

Amigos uso o VB6. Estou tendo um problema aqui que não entendo de modo algum.

Tenho quatro tabelas um do Cliente, Dados_do_Cliente e duas ligadas a esta ultima Graf_DC e Graf_MC.

Consigo criar um novo registro em Dados_do_Cliente sem problemas mas em Graf_DC e Graf_MC não está dando certo.

 

Quando abro o Form a busca é feita automaticamente em DataGraf_DC e DataGraf_MC se não encontrar nada ele cria o registro.

dado = TextCdRecebeDados.Text
busca = "cd_cliente = " & dado & ""

   DataGraf_DC.Recordset.FindFirst busca
      If DataGraf_DC.Recordset.NoMatch Then
         DataGraf_DC.Recordset.AddNew
         Tex_DCGraf_CDCli.Text = TextCdRecebeDados.Text
      End If
‘-
   DataGraf_MC.Recordset.FindFirst busca
         If DataGraf_MC.Recordset.NoMatch Then
            DataGraf_MC.Recordset.AddNew
            Tex_MCGraf_CDCli.Text = TextCdRecebeDados.Text
         End If

Mas os dados não estão sendo salvos do modo que quero.

Clico no botão Nova Avaliação e um novo registro é feito em Dados_do_Cliente.

 

O problema começa quando clico no Check. O Check apenas copia os dados dos Texts(estes com dados da tabela Dados_do_Cliente) para os Labels que estão ligados aos DataGraf_DC e DataGraf_MC.

Quando abro o banco de dados Access uma copia dos dados do segundo cliente (este com dados que estava trabalhando) foi colocada no registro 1 (primeiro cliente) .

Ou seja. Os dados do segundo cliente foram colocados no registro 1 e 2.

O que está havendo?

Dês de já obrigado.

[Erich VB 0]

Sem falar que quando crio um novo cliente as coisas pioram!

Inseri dados nos Graf_DC e Graf_MC para um novo cliente e ele misturou com o cliente 1 e 2.

E ainda colocou dados nos campos errados de cada tabela.

[scorpio 7]

Como está fazendo para atualizar/inserir os dados nas tabelas.

 

Quando abro o banco de dados Access uma copia dos dados do segundo cliente (este com dados que estava trabalhando) foi colocada no registro 1 (primeiro cliente) .

Qual tabela?

 

 

 

 

Provavelmente é a condição para atualizar que está errada.

 

 

Abraços!

[Erich VB 0]

scorpio descobri o que estava acontecendo.

Tinha colocado um IF que ativava o Check1.Value = 1

Não imaginava que isto valia como um clique.

Ai a propriedade Check1_Click era ativada copiando dados para o cliente errado.

Foi burrice minha.

Desculpe incomodar. Se quiser pode exclui o post.

[quintelab 91]

Os tópicos não são excluidos nem fechados. Somente alterado o título com a descrição de [Resolvido]!

 

Abraços...