insertar en un textbox 8 numeros y una letra

mªjose
12 de Diciembre del 2003
Buenos dias.
Pues resulta que ya se como se puede hacer para que solo te deje insertar numeros en el textbox, con el IsNumeric, ¿pero se podria hacer para que solo te dejase insertar un 8 numeros nada mas? ¿y al final una letra? me conformo con saber solo lo de los 8 numeros.

Un saludo

Calaceiro
12 de Diciembre del 2003
hola mªjose:

creo que tu solucion la tengo y es la propiedad "maxlenght" en la cual colocas el numero maximo de caracteres a meter en el textbox.

text1.maxlenght=9
o
en las propiedades colocas la de maxlenght a 9

espero te te sirva,

un saludo

mordu
12 de Diciembre del 2003
Lo ke tienes ke hacer es :

* Primero poner la propiedad de Maxlenght del Textbox a 9 ( como ya te habían dicho ).

* Después cortas el campo en 2, cogiendo por un lado los 8 primeros caracteres y viendo si son numéricos ( con la función que has estado utilizando ) y luego mirando si el caracter 9 es un caracter. Para coger los 8 primeros caracteres utiliza la función Mid.

MMu?
12 de Diciembre del 2003
Supongo que lo que estas haciendo es para el DNI o CIF bueno aki tienes el codigo puesto en una funcion. tu misma podras añadirlo en un boton, o cuando cambie de foco.

Private Sub FuncIsnumericNotnumericInmobiliaria()
Dim id As Variant
If TxtLen(CStr(Text1.Text)) <> 8 Then
MsgBox "El Cif esta incompleto son 8 nº + 1 letra"
chivatogeneral = 1
Text1.Text = ""
Else
If IsNumeric(Text1.Text) Then
If Text1.Text <> "" Then
id = Text1.Text
Select Case id Mod 23
Case 0: Text1.Text = "T-" & Text1.Text
Case 1: Text1.Text = "R-" & Text1.Text
Case 2: Text1.Text = "W-" & Text1.Text
Case 3: Text1.Text = "A-" & Text1.Text
Case 4: Text1.Text = "G-" & Text1.Text
Case 5: Text1.Text = "M-" & Text1.Text
Case 6: Text1.Text = "Y-" & Text1.Text
Case 7: Text1.Text = "F-" & Text1.Text
Case 8: Text1.Text = "P-" & Text1.Text
Case 9: Text1.Text = "D-" & Text1.Text
Case 10: Text1.Text = "X-" & Text1.Text
Case 11: Text1.Text = "B-" & Text1.Text
Case 12: Text1.Text = "N-" & Text1.Text
Case 13: Text1.Text = "J-" & Text1.Text
Case 14: Text1.Text = "Z-" & Text1.Text
Case 15: Text1.Text = "S-" & Text1.Text
Case 16: Text1.Text = "Q-" & Text1.Text
Case 17: Text1.Text = "V-" & Text1.Text
Case 18: Text1.Text = "H-" & Text1.Text
Case 19: Text1.Text = "L-" & Text1.Text
Case 20: Text1.Text = "C-" & Text1.Text
Case 21: Text1.Text = "K-" & Text1.Text
Case 22: Text1.Text = "E-" & Text1.Text
End Select
End If
End If
End If