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


    problema na exclusão

    Mandy715
    Mandy715
    Intermediário
    Intermediário

    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 em 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 6 vez(es)
    scandinavo
    scandinavo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

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

    Mensagem  scandinavo em 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 100%

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

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

    Mensagem  Mandy715 em 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 100%

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

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

    Mensagem  Mandy715 em 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
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

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

    Mensagem  scandinavo em 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
    Anexos
    problema na exclusão  Attachmentrelacionamento.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (253 Kb) Baixado 2 vez(es)

    Conteúdo patrocinado

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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 2/4/2020, 05:34