MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Rotina para gravar em duas tabelas diferente

    Compartilhe

    abjinfo
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 63
    Registrado : 02/07/2015

    [Resolvido]Rotina para gravar em duas tabelas diferente

    Mensagem  abjinfo em Qua 31 Ago - 12:55

    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.
    avatar
    cleverson_manaus
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 799
    Registrado : 23/09/2011

    Re: [Resolvido]Rotina para gravar em duas tabelas diferente

    Mensagem  cleverson_manaus em Qua 31 Ago - 13:44

    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


    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.]

    "É fazendo que se aprende a fazer aquilo que se deve aprender a fazer."(Aristóteles)
    - Dúvida resolvida!!! Marcar o tópico como resolvido!!!

    abjinfo
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 63
    Registrado : 02/07/2015

    Re: [Resolvido]Rotina para gravar em duas tabelas diferente

    Mensagem  abjinfo em Qua 31 Ago - 18:19

    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.
    Anexos
    Projeto.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (40 Kb) Baixado 9 vez(es)
    avatar
    cleverson_manaus
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 799
    Registrado : 23/09/2011

    Re: [Resolvido]Rotina para gravar em duas tabelas diferente

    Mensagem  cleverson_manaus em Qua 31 Ago - 18:29

    Boa noite Alexandre,

    Vou baixar o arquivo, em breve retorno.


    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.]

    "É fazendo que se aprende a fazer aquilo que se deve aprender a fazer."(Aristóteles)
    - Dúvida resolvida!!! Marcar o tópico como resolvido!!!
    avatar
    cleverson_manaus
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 799
    Registrado : 23/09/2011

    Re: [Resolvido]Rotina para gravar em duas tabelas diferente

    Mensagem  cleverson_manaus em Dom 4 Set - 9:27

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


    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.]

    "É fazendo que se aprende a fazer aquilo que se deve aprender a fazer."(Aristóteles)
    - Dúvida resolvida!!! Marcar o tópico como resolvido!!!

    abjinfo
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 63
    Registrado : 02/07/2015

    Re: [Resolvido]Rotina para gravar em duas tabelas diferente

    Mensagem  abjinfo em Seg 5 Set - 12:57

    Desculpa, mais não entendi, rsrsrs.
    avatar
    cleverson_manaus
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 799
    Registrado : 23/09/2011

    Re: [Resolvido]Rotina para gravar em duas tabelas diferente

    Mensagem  cleverson_manaus em Seg 5 Set - 12:59

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

    Abraços


    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.]

    "É fazendo que se aprende a fazer aquilo que se deve aprender a fazer."(Aristóteles)
    - Dúvida resolvida!!! Marcar o tópico como resolvido!!!

    abjinfo
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 63
    Registrado : 02/07/2015

    Re: [Resolvido]Rotina para gravar em duas tabelas diferente

    Mensagem  abjinfo em Seg 5 Set - 13:06

    ok, obrigado.
    avatar
    cleverson_manaus
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 799
    Registrado : 23/09/2011

    Re: [Resolvido]Rotina para gravar em duas tabelas diferente

    Mensagem  cleverson_manaus em Sex 9 Set - 8:45


    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.



    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.]

    "É fazendo que se aprende a fazer aquilo que se deve aprender a fazer."(Aristóteles)
    - Dúvida resolvida!!! Marcar o tópico como resolvido!!!

    abjinfo
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 63
    Registrado : 02/07/2015

    Re: [Resolvido]Rotina para gravar em duas tabelas diferente

    Mensagem  abjinfo em Seg 12 Set - 16:13

    Obrigado Cleverson.

    Favor mandar o arquivo.

    Obrigado.
    avatar
    cleverson_manaus
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 799
    Registrado : 23/09/2011

    Re: [Resolvido]Rotina para gravar em duas tabelas diferente

    Mensagem  cleverson_manaus em Seg 12 Set - 16:20


    Alexandre,


    Desculpas respondi sem o anexo.

    Tá na mão.
    Anexos
    Projeto_Alterado.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (155 Kb) Baixado 16 vez(es)


    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.]

    "É fazendo que se aprende a fazer aquilo que se deve aprender a fazer."(Aristóteles)
    - Dúvida resolvida!!! Marcar o tópico como resolvido!!!

    abjinfo
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 63
    Registrado : 02/07/2015

    Re: [Resolvido]Rotina para gravar em duas tabelas diferente

    Mensagem  abjinfo em Seg 12 Set - 19:47

    Ok, Cleverson.

    Vou dar uma olhada e retorno.

    Obrigado.

    abjinfo
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 63
    Registrado : 02/07/2015

    Re: [Resolvido]Rotina para gravar em duas tabelas diferente

    Mensagem  abjinfo em Seg 19 Set - 13:38

    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.

    abjinfo
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 63
    Registrado : 02/07/2015

    Re: [Resolvido]Rotina para gravar em duas tabelas diferente

    Mensagem  abjinfo em Qua 18 Out - 20:41

    Atualizando o Forum.
    Obrigado.

      Data/hora atual: Qua 22 Nov - 7:58