MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


2 participantes

    problema na exclusão

    Mandy715
    Mandy715
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 62
    Registrado : 23/12/2019

    problema na exclusão  Empty problema na exclusão

    Mensagem  Mandy715 10/3/2020, 13:09

    olá, tenho um banco no qual todos as tabelas são conectadas por um código do contrato (Cod_DadosGerais) e ao excluir um contrato o esperado é que todo o conteúdo linkado ao código seja excluído também. entretanto, tem duas tabelas que seu conteúdo não é excluído, apenas a combo que aparece o código do contrato. já tentei fazer o relacionamento referencial mas quando eu faço isso eu não consigo fazer alterações no formulário. Alguém consegue me ajudar com isso?

    os dois formulários com o problema são:
     -Custo por SMS
     -Benefícios
    Anexos
    problema na exclusão  Attachmentrelacionamento.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (222 Kb) Baixado 9 vez(es)
    scandinavo
    scandinavo
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1049
    Registrado : 11/11/2009

    problema na exclusão  Empty Re: problema na exclusão

    Mensagem  scandinavo 10/3/2020, 17:29

    Você pode fazer integridade referencial quando estiver criando os relacionamentos das tabelas
    expandir a atualização de dados
    excluir dados realcionados


    ou fazer excluir o código de todas as tabelas que possuem o mesmo código
    coloque uma linha desta para cada tabela com mesmo código
    CurrentDb.Execute ("DELETE * from primeira tabela where Codigo =" & txt_codigo & "")' para numero
    CurrentDb.Execute ("DELETE * from segunda tabela where Codigo ='" & txt_codigo & "'") 'para texto


    If MsgBox("Deseja excluir o registro atual?", vbQuestion + vbYesNo, "Confirma??o") = vbNo Then Exit Sub

    CurrentDb.Execute ("DELETE * from reclassificacao_ST where Codigo =" & txt_codigo & "")

    MsgBox "Registro excluido com sucesso!", vbInformation, "Aviso!"


    problema na exclusão  Relaci11
    Mandy715
    Mandy715
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 62
    Registrado : 23/12/2019

    problema na exclusão  Empty Re: problema na exclusão

    Mensagem  Mandy715 11/3/2020, 11:45

    Obrigada pela resposta! eu não entendi muito bem a parte de código, onde exatamente eu teria que colocar ele? nas tateblas benefício e custo por SMS ou na tabela Dados Gerais? e sobre o relacionamento, quando eu faço o relacionamento referencial eu simplesmente não consigo adicionar registros nos formulários custo por SMS e na tabela benefício.
    Mandy715
    Mandy715
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 62
    Registrado : 23/12/2019

    problema na exclusão  Empty Re: problema na exclusão

    Mensagem  Mandy715 11/3/2020, 12:40

    eu conseguiria colocar algum código no formulário dados gerais que se um registro de lá for excluído, automaticamente todos os registros das outras tabelas que possuem o codigo dados gerais serão excluir também?
    scandinavo
    scandinavo
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1049
    Registrado : 11/11/2009

    problema na exclusão  Empty Re: problema na exclusão

    Mensagem  scandinavo 11/3/2020, 17:48

    Obs "eu conseguiria colocar algum código no formulário dados gerais que se um registro de lá for excluído....."

    Alterei a cmb projeto no formulário " Dados Gerais"  para poder deletar os registros relacionados

    e no botão excluir no evento ao clicar

    If MsgBox("Deseja excluir o registro atual?", vbQuestion + vbYesNo, "Confirma??o") = vbNo Then Exit Sub
    On Error Resume Next

    CurrentDb.Execute ("DELETE * from Beneficios where Cod_DadosGerais =" & Me.Projeto.Column(0) & "")
    CurrentDb.Execute ("DELETE * from [Custo por SMS] where Cod_DadosGerais =" & Me.Projeto.Column(0) & "")
    CurrentDb.Execute ("DELETE * from Pessoal where Cod_DadosGerais =" & Me.Projeto.Column(2) & "")
    CurrentDb.Execute ("DELETE * from Dados_gerais where Cod_DadosGerais =" & Me.Projeto.Column(2) & "")



    MsgBox "Registro excluido com sucesso!", vbInformation, "Aviso!"
    Me.Form.Requery

    Conteúdo patrocinado


    problema na exclusão  Empty Re: problema na exclusão

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 29/3/2024, 08:19