Ayuda textbox se pierde cuando doy esc

[thebestmatrix007]

hola buen dia a todos. tengo un pequeño problemita que no he logrado solucionar en mi siguiente codigo:

Código:

Private Sub txtdni_LostFocus()
If Len(txtdni.Text) >= 8 Then
Else
MsgBox "Ingrese un DNI Correcto", vbInformation, ""
txtdni.SetFocus
Exit Sub
End If
    'txtdni.Visible = False
Dim dni As ADODB.Recordset
Set dni = New ADODB.Recordset
dni.Open "select * from clientes where dni='" & txtdni.Text & "'", db, adOpenDynamic, adLockBatchOptimistic
If dni.EOF Then
'MsgBox "DNI No Existe, Puede Usarlo", vbCritical, "Error"
Else
MsgBox "DNI Ya Existe PorFavor Ingresar Otro", vbCritical, "Error"
txtdni.SetFocus
Exit Sub
End If
End Sub

es un textbox el cual me funciona muy bien, y todo el problema esta que cuando estoy dentro de ese textbox y doy ESC (scape) el textbox se pierde y me sale el mensaje de ingrese un DNI correcto no se que falta o que esta mal en ese codigo, espero su ayuda gracias ;)

[pkj]

No sé como el hecho de pulsar escape te puede afectar aquí. Pulsar escape no lleva al evento lostfocus.
Lo que tienes que revisar son los eventos key del textbox, que es donde debes tener el problema.
Tampoco sé por qué pulsas escape. Si solo quieres evitar esa tecla puedes hacer esto:

Código :

Private Sub txtdni_KeyPress(KeyAscii As Integer)
  If KeyAscii = 27 Then KeyAscii = 0
End Sub
 

Que se dé bien.

[thebestmatrix007]

Iniciado por pkj

No sé como el hecho de pulsar escape te puede afectar aquí. Pulsar escape no lleva al evento lostfocus.
Lo que tienes que revisar son los eventos key del textbox, que es donde debes tener el problema.
Tampoco sé por qué pulsas escape. Si solo quieres evitar esa tecla puedes hacer esto:

Código :

Private Sub txtdni_KeyPress(KeyAscii As Integer)
  If KeyAscii = 27 Then KeyAscii = 0
End Sub
 

Que se dé bien.

bueno gracias por tu respuesta, pero no me sirvio eso aun asi me sige saliendo el error, el problema de porque apreto esc, es porque estoy validando todo para que no hayga errores, ni causa problemas al usuario.

espero su ayuda gracias ;)

[pkj]

Me parece que lo que tu dices que pulsas es el tabulador para ir pasando de un textbox a otro, lo que si que genera un evento lostfocus.
No entiendo de bases de datos, de modo que no sé como saber si el dni ha sido encontrado, pero creo que si deslias un poco el código igual encuentras el fallo.
Quedaría algo así:

Código :

Private Sub txtdni_LostFocus()
  If Len(txtdni.Text) < 8 Then
    MsgBox "Ingrese un DNI Correcto", vbInformation, ""
    txtdni.SetFocus
  Else
    Dim dni As ADODB.Recordset
    Set dni = New ADODB.Recordset
    dni.Open "select * from clientes where dni='" & txtdni.Text & "'", db, adOpenDynamic, adLockBatchOptimistic
    If Not(dni.EOF) Then
      MsgBox "DNI Ya Existe PorFavor Ingresar Otro", vbCritical, "Error"
      txtdni.SetFocus
    End If
  End If
End Sub
 

Quizá el dni nunca llega con 8 caracteres o más.