Início
Augusto Canuto 5/12/2017, 12:31Bom dia.
Preciso impedir a exclusão de registros direto na consulta ou tabela.
Teria como criar esta limitação?
Preciso impedir a exclusão de registros direto na consulta ou tabela.
Teria como criar esta limitação?
3 participantes
Impedir exclusão direto na tabela
Augusto Canuto- Novato
- Respeito às regras :
Sexo :
Localização :
Mensagens : 15
Registrado : 09/09/2015
Alexandre Neves- Moderador Global
- Respeito às regras :
Sexo :
Localização :
Mensagens : 8498
Registrado : 05/11/2009
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
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
- Respeito às regras :
Sexo :
Localização :
Mensagens : 83
Registrado : 07/09/2010
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.
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.