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

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


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

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

Que ótimo que descobriu onde "pegava".

Valeu o retorno Assis.

Boa sorte!