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

    [Resolvido]Código Não informa "chave errada"

    Compartilhe
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3485
    Registrado : 06/11/2009

    [Resolvido]Código Não informa "chave errada"

    Mensagem  Assis em 18/2/2018, 15:00

    Boa tarde Amigos

    O código abaixo inicial, é a parte que está entre as linhas  ===================.

    Quando a chave digitada está errada, não acontece nada .........
    Estou a tentar, que quando a chave digitada for errada informar com uma Msgbox.

    Não estou a conseguir.
    Obrigado
    Código:

    Dim Confirma
     Confirma = MsgBox("Confirma o Registo ? ", vbYesNoCancel, "Aviso")
    If Confirma = vbCancel Then
      Exit Sub
    End If
    If Confirma = vbYes Then
    '=======================================================================

    If IsNull(varRegistro) Then Exit Sub
    If Not IsNumeric(varRegistro) Then Exit Sub
    If fncRegistro(1, 3, 76543) = varRegistro Then
       If booComercial Then
           Call fncCriarChaveRegWin(0, varIdCom)
       Else
           CurrentDb.Execute "UPDATE tblRegistro SET campo1 = '" & fncCripChave(varRegistro, 2, 112233) & "'"
       End If
       booRegistrado = True
       DoCmd.Close acForm, "frmRegistro", acSaveNo
    Else
       Tentativa = Tentativa + 1
       If Tentativa = 3 Then
           booRegistrado = False
           DoCmd.Close acDefault
           MsgBox "Chave Errada", vbCritical, "Aviso"
       End If
    End If

    '=======================================================================
    Else
       MsgBox "Chave Errada", vbCritical, "Tente outra Vez"
          'DoCmd.Quit
          DoCmd.Close
    End If


    .................................................................................
    *** Só sei que nada sei ***

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Código Não informa "chave errada"

    Mensagem  Noobezinho em 18/2/2018, 20:43

    Assis

    Não da pra entender/verificar o código em ele estar no aplicativo.

    O código tem vário If... Else....End IF sem ver os controles a que estão ser referindo, não tem como analizar.

    Anexe parte do projeto para podermos analisar

    [ ]'s
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3485
    Registrado : 06/11/2009

    Re: [Resolvido]Código Não informa "chave errada"

    Mensagem  Assis em 19/2/2018, 13:36

    Noob

    Resolvido com a linha a vermelho

    If IsNull(varRegistro) Then Exit Sub
    If Not IsNumeric(varRegistro) Then Exit Sub
    If fncRegistro(1, 3, 76543) = varRegistro Then
       If booComercial Then
           Call fncCriarChaveRegWin(0, varIdCom)
       Else
           CurrentDb.Execute "UPDATE tblRegistro SET campo1 = '" & fncCripChave(varRegistro, 2, 112233) & "'"
       End If
       booRegistrado = True
       DoCmd.Close acForm, "frmRegistro", acSaveNo
       MsgBox "Registado Com Sucessos" & vbNewLine & " O Programa Vai Reiniciar", vbCritical, "Aviso"
       DoCmd.Quit
    Else

       MsgBox "Chave Errada", vbCritical, "Aviso"

       Me.Registro = Null
       Me.Registro.SetFocus
       
       Tentativa = Tentativa + 1
       If Tentativa = 3 Then
           booRegistrado = False
           DoCmd.Close acDefault
           MsgBox "3 Vezes a Chave Errada" & vbNewLine & " Tente outra Vez", vbCritical, "Aviso"
       End If
    End If


    .................................................................................
    *** Só sei que nada sei ***

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Código Não informa "chave errada"

    Mensagem  Noobezinho em 19/2/2018, 13:52

    Que ótimo que descobriu onde "pegava".

    Valeu o retorno Assis.

    Boa sorte!

      Data/hora atual: 17/8/2018, 01:10