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.