Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
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.
Carregando comentários...