Una pregunta sobre LostFocus

[gohanjaja]

Hola tengo un problema , resulta que tengo un campo del " DNI " de la persona de esta manera , ( para que solo ingrese números )

Código:

Private Sub TXTdni_keypress(KeyAscii As Integer)
If Not IsNumeric(Chr$(KeyAscii)) And KeyAscii <> 8 Then
  KeyAscii = 0
End If
End Sub

Ahora lo que quiero hacer al mismo campo es que , si ingreso 7 digitos , que me muestre un cartel de error con el msgbox con el siguiente codigo:

Código:

Private Sub TXTDni(lostfocus)
If Len(Trim(TXTDni.Text)) < 7 Then
A = MsgBox("Error al ingresar el documento", 0 + 0 + 16, "error en el documento")
TXTDni.Text = ""
TXTDni.SetFocus
End If
End Sub

Me tira un error de " error en la compilación el miembro ya existe en un módulo de objeto del que proviene éste modulo de objeto "

Nose donde estará el error.

[pkj]

El fallo está en la declaración de la sub lostfocus.
Debe ser:

Private Sub TXTDni_LostFocus()

[gohanjaja]

Muchas gracias Pkj ahora si ..=)

Tmb estaba acá :

If Len(Trim(TXTDni.Text)) < 7 Then

Y me falto la "$" en el Trim$