[Resolvido]Rotina para gravar em duas tabelas diferente

Olá.

Estou com dificuldade:

Tenho um formulário que quando eu vou gravar, ele alimenta as duas tabelas A e B, até ai ok, mais quando tenho que alterar/modificar algum registro ele não deixa.

Até sei por que, pois tenho dois campos que não permite duplicidade como CPF e CNPJ.

Como eu faço para aceitar as alterações?

Há linha de código que estou usando no botão salvar segue abaixo.




Private Sub Salvar_Click()

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

Set db = CurrentDb()

Set rs = db.OpenRecordset("Partes1")
rs.AddNew
rs!Partes = Me.Partes
rs!CPF = Me.CPF
rs!CNPJ = Me.CNPJ
rs!RG = Me.RG
rs!Cep = Me.Cep
rs!Endereço = Me.Endereço
rs!Nº = Me.Nº
rs!Complemento = Me.Complemento
rs!Bairro = Me.Bairro
rs!Cidade = Me.Cidade
rs!Estado = Me.Estado
rs!Telefone = Me.Telefone
rs!Telefone1 = Me.Telefone1
rs!Telefone2 = Me.Telefone2
rs!Email = Me.Email
rs.Update
rs.Close
Set db = Nothing
Set rs = Nothing

MsgBox "Registro Salvo com sucesso...", vbInformation
Me.Caixasucateiro.Requery

End Sub
End If

rs.Close
Set db = Nothing
Set rs = Nothing

End Sub

Obrigado antecipadamente.

Por prática vc deve criar uma rotina apenas para editar o registro pretendido.

Você não pode alterar os campos chaves com duplicação não autorizada.

Crie um botão de comando Alterar, e cole o código abaixo no evento ao clicar.

Inclui todos os campos, exclua aqueles do tipo que mencionei acima.

Código:

Private Sub Alterar_Click()

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

Set db = CurrentDb()

Set rs = db.OpenRecordset("Partes1")

rs.edit

rs!Partes = Me.Partes
rs!CPF = Me.CPF
rs!CNPJ = Me.CNPJ
rs!RG = Me.RG
rs!Cep = Me.Cep
rs!Endereço = Me.Endereço
rs!Nº = Me.Nº
rs!Complemento = Me.Complemento
rs!Bairro = Me.Bairro
rs!Cidade = Me.Cidade
rs!Estado = Me.Estado
rs!Telefone = Me.Telefone
rs!Telefone1 = Me.Telefone1
rs!Telefone2 = Me.Telefone2
rs!Email = Me.Email

rs.Update
rs.Close


MsgBox "Registro Salvo com sucesso...", vbInformation
Me.Caixasucateiro.Requery


Set db = Nothing
Set rs = Nothing

End Sub


Olá Cleverson

Obrigado por responder.

Realmente está complicado, pois testei a sua sugestão e apareceu um outro problema na Tabela B, exemplo:

Quando é alterado ele grava na Tabela A corretamente, mais na Tabela B está gravando/substituído sempre no 1º ID, não respeitando o mesmo.

Para ter um ideia melhor, estou mandando as Tabelas e os Formulários, quem sabe vendo vc possa entender melhor e até quem sabe melhorar, pois vou ficar muito agradecido.

Ps.: Access 2007.

Boa noite Alexandre,

Vou baixar o arquivo, em breve retorno.

Só dando um up.
O tempo reduzido, mas tô fechando.

Desculpa, mais não entendi, rsrsrs.

Apenas que não esqueci da sua situação.

Abraços

ok, obrigado.

Bom dia Alexandre,


Bem alterei seu arquivo, pois estava sem a função CPF/CNPJ, criei o campo Matricula para ser usado tanto com o CPF ou CNPJ.

Tive que dividir seu arquivo, pois o código no evento Antes de Atualizar do campo Matricula(CPF/CNPJ) só funciona com tabelas vinculadas.

Bem analise a solução e bons estudos.

Obrigado Cleverson.

Favor mandar o arquivo.

Obrigado.

Alexandre,


Desculpas respondi sem o anexo.

Tá na mão.

Ok, Cleverson.

Vou dar uma olhada e retorno.

Obrigado.

Boa tarde Cleverson.

Desculpe a demora em responder, mais peguei uma gripe ferrenha.

Bom, eu vi as mudanças e fico muito legal, mais querendo aproveitar, rsrs, a sua colaboração, teria como mudar de caixa de listagem para caixa de seleção ou opção, inclusive eu tentei mais como estou aprendendo ainda o VBA eu não consegui.

Obrigado.

Atualizando o Forum.
Obrigado.