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

    Impedir exclusão direto na tabela

    Compartilhe

    Augusto Canuto
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 15
    Registrado : 09/09/2015

    Impedir exclusão direto na tabela

    Mensagem  Augusto Canuto em 5/12/2017, 12:31

    Bom dia.
    Preciso impedir a exclusão de registros direto na consulta ou tabela.
    Teria como criar esta limitação?
    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6988
    Registrado : 05/11/2009

    Re: Impedir exclusão direto na tabela

    Mensagem  Alexandre Neves em 5/12/2017, 13:49

    Boa tarde, Augusto, e bem-vindo ao fórum
    Por não se tratar de Consultas, movi-lhe o tema para esta sala
    Leia as regras e siga-as e boa experiência neste fórum


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

    irailson
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 83
    Registrado : 07/09/2010

    Re: Impedir exclusão direto na tabela

    Mensagem  irailson em 8/1/2018, 23:02

    ola.
    no meu eu uso o campo "status" na tabela do registro.
    esse campo fica oculto no form.
    1- Ao adicionar um novo registro >>> meu campo Status = "Novo"
    2- ao editar . no botaõ atualizar >>> meu campo Status = "Editado"
    3- ao excluir,no botaõ excluir >>>> meu campo Status = "Excluido"

    If MsgBox("Tem certeza que deseja excluir o registro de " & Me.txcargo & " " & Me.txnomefuncional & " ? ", vbYesNo + vbQuestion, "Confirmar exclusão") = vbYes Then
    Me.txStatus = "Excluido"
    MsgBox "Registro excluído com sucesso", vbInformation, "Controle de Funcionarios"
    DoCmd.GoToRecord , , acNewRec
    DoCmd.RefreshRecord
    Else
    MsgBox "Exclusão cancelada", vbInformation, "Controle de Funcionarios"
    Exit Sub
    End If

    4- no abrir do form uso o filtro campo status <> excluído >> assim só não aparece os resgistros com status excluído, mas eles continua lá na tabela >>> para outras necessidades.

      Data/hora atual: 21/10/2018, 11:42