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]Evitar redundancia ao deletar (Confirmação redundante desnecessária) access vba

    avatar
    alecardoso
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Evitar redundancia ao deletar (Confirmação redundante desnecessária) access vba Empty [Resolvido]Evitar redundancia ao deletar (Confirmação redundante desnecessária) access vba

    Mensagem  alecardoso 11/5/2021, 14:41

    Alguém sabe como evitar a redundância da confirmação que está me ocorrendo, do pressionar Del em um registro?

    No evento Ao Excluir, coloquei uma função que, seu eu responder "ok" irá fazer um log(bkp) das informações e em seguida deletar o registro.

    Ocorre que mesmo quando eu clico em Cancelar, o Access (2016) prossegue com mais uma pergunta, a qual acho desnecessária e quero evitar, pois me basta o que já tenho na função.  Ou seja, não quero a segunda pergunta.   Coloquei uma foto da tela, com a 1ª e 2ª pergunta.   Talvez eu deva mudar o evento.

    Ao excluir: Call XandiLogRegDelecaoFmTarefa2(Me.Form, Me.idGT.Value, "tbLOG")

    Código, Resumidamente:
    Select Case sApaga
        Case vbOK   'se for SIM, adiciona à tabela de Log e em seguida deleta o registro
        DoCmd.SetWarnings False
            
    For Each sControl In Form.Controls  'Percorre os controles especificados pelo nome
        Select Case sControl.Name
        Case "idGT", "EntiGT", "TituloTarefa", "PrazoGT", "StatusGT", "ReparticaoGT", "Colaboradores", "UserLogGT", "DataLogGT", "BKPLogGT"
        
            If Not IsNull(sControl.Value) Or sControl.ControlSource <> "" Then   'Or?  And?
                sSQL = "INSERT INTO " & sTbDestino & " (IDOrigem, UserLog, DataLog, BancoDeDados, NomeForm, NomeCampo, ValorAntigo, ValorAtual, StatusLog) Values "
                sSQL = sSQL & "('" & sFmID & "','" & sUser & "', Now(),'"
                sSQL = sSQL & Application.CurrentProject.Name & "','" & Form.Name & "','" & sControl.Name & "','" & sControl.OldValue & "','" & sControl.Value & "','" & sStatus & "')"
                
                DoCmd.RunSQL sSQL
            Else
                Cancel = True
            End If

        End Select
    Next sControl


        Case vbCancel
            
            Cancel = True
            DoCmd.SetWarnings True '##AVISOS DO SISTEMA: HABILITAR USE: (True ou -1) 'DESABILITAR USE: (False ou 0)
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1716
    Registrado : 23/01/2018

    [Resolvido]Evitar redundancia ao deletar (Confirmação redundante desnecessária) access vba Empty Re: [Resolvido]Evitar redundancia ao deletar (Confirmação redundante desnecessária) access vba

    Mensagem  crysostomo 11/5/2021, 19:02

    para evitar outra mensagem o comando Exit Sub não cancel =true


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    Noobezinho
    Noobezinho
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4133
    Registrado : 29/06/2012

    [Resolvido]Evitar redundancia ao deletar (Confirmação redundante desnecessária) access vba Empty Re: [Resolvido]Evitar redundancia ao deletar (Confirmação redundante desnecessária) access vba

    Mensagem  Noobezinho 11/5/2021, 20:12

    Olá

    Como colocou o código resumido não vai dar para analisar a contento.
    Mas vou tentar ajudar, imaginando que no restante do código que não postou esteja certo. mas

    veja:
    O select está com estrutura errada.

    Select case sApaga
    ......
    End select

    Ou seja utilize somente se for vários valores para uma só variável.
    como no eu caso é somente uma, use o If ... then.

    Cancel=True

    Ele somente irá funcionar se fizer parte do argumento de uma função.

    Aqui um exemplo:

    Private Sub DiasAtraso_Exit(Cancel As Integer)
    If Len(DiasAtraso) > 3 Then
      Cancel = True
     
    End If
    End Sub

    Utilize o comando abaixo para cancelar um evento.

    DoCmd.CancelEvent

    { }'s

    Balem


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    avatar
    alecardoso
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Evitar redundancia ao deletar (Confirmação redundante desnecessária) access vba Empty Re: [Resolvido]Evitar redundancia ao deletar (Confirmação redundante desnecessária) access vba

    Mensagem  alecardoso 14/5/2021, 10:26

    Valeu Sr. Noobezinho!   Very Happy
    Noobezinho
    Noobezinho
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4133
    Registrado : 29/06/2012

    [Resolvido]Evitar redundancia ao deletar (Confirmação redundante desnecessária) access vba Empty Re: [Resolvido]Evitar redundancia ao deletar (Confirmação redundante desnecessária) access vba

    Mensagem  Noobezinho 14/5/2021, 10:51

    Opa!

    Que bom que deu certo!

    Boa sorte!

    Balem


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.

      Data/hora atual: 23/6/2021, 05:31