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

    [Resolvido]Impedir tecla DELETE no subformulario

    avatar
    alantb
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 228
    Registrado : 25/07/2017

    [Resolvido]Impedir tecla DELETE no subformulario Empty [Resolvido]Impedir tecla DELETE no subformulario

    Mensagem  alantb Qui 10 Jun 2021, 02:46

    Olá, como impedir o usuário de excluir um registro do subformulario usando a tecla DEL, tentei o codigo abaixo mas não intercepta o pressionar da tecla.A finalidade seria de deixar o subformulario com permissão de exclusão e exibir msgbox perguntado se quer realmente excluir. Tentei de várias formas mas sempre exclui antes até mesmo de exibir a msgbox. Alguma idéia??

    Private Sub Form_KeyPress(KeyAscii As Integer)
    If KeyAscii = vbKeyDelete Then
    If MsgBox("Deseja Excluir o Horário ?", vbQuestion + vbYesNo, "Exclusão de Apontamentos") = vbYes Then


    CurrentDb.Execute "DELETE * FROM tbDetApontamento WHERE CodDetApontamento = " & [frmSubDetApont].Form![CodDetApontamento]

    MsgBox ("Exclusão realizada com sucesso!"), vbInformation + vbOKOnly, "Exclusão de Registro!"
    Else
    KeyAscii = 0
    'Exit Sub

    End If

    End If

    End Sub


    ALAN
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2816
    Registrado : 22/11/2016

    [Resolvido]Impedir tecla DELETE no subformulario Empty Re: [Resolvido]Impedir tecla DELETE no subformulario

    Mensagem  DamascenoJr. Qui 10 Jun 2021, 03:25

    Acesse o formulário que serve de subformulario, folha de propriedades, e configure para "não" a permissão de excluir.

    Fique tranquilo que isso não vai interferir quando o usuário clicar em sim na caixa de mensagem.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    avatar
    alantb
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 228
    Registrado : 25/07/2017

    [Resolvido]Impedir tecla DELETE no subformulario Empty Re: [Resolvido]Impedir tecla DELETE no subformulario

    Mensagem  alantb Qui 10 Jun 2021, 04:34

    Olá mestre Damasceno Jr, já havia tentado essa opção, me atendeu em parte. Pela manhã peguei um código no site da Microsoft da ajuda do Access e só a pouco consegui fazer algumas adaptações e deu certo. Veja só:

    Private Sub Form_BeforeDelConfirm(Cancel As Integer, Response As Integer)

    On Error GoTo TrataErro

    Response = acDataErrContinue 'Não exibe a mensagem padrão para o usuário.

    If MsgBox("Excluir o Registro selecionado?", vbOKCancel + vbQuestion, "Exclusão de Horários") = vbCancel Then
    Cancel = True
    Else
    CurrentDb.Execute "DELETE * FROM tbDetApontamento WHERE CodDetApontamento = " & [frmSubDetApont].Form![CodDetApontamento]
    Me.Requery ' aqui ordena as horas ao digitar no subformulario
    End If

    TrataErro:
    If Err.Number = 3246 Then
    Exit Sub
    End If

    End Sub

    Com o código acima, ao teclar DEL executa o questionamento se o usuário deseja excluir o registro selecionado direto do subformulário ou cancelar a exclusão. Vou fazer mais testes e ver se está ficando tudo OK nas tabelas, mas a principio não vi nada de errado.
    Damasceno obrigado pela dica, de momento estou encerrando por aqui.

    Alan

      Data/hora atual: Qua 16 Jun 2021, 16:31