Hola Vane:
Ya sabes que en España, el NIF de una persona física empieza por 8 dígitos y una letra al final y el CIF de una Sociedad es al contrario, una Letra y 8 Dígitos, por lo que no vale la misma máscara para ambos, pero se puede hacer la selección por código. Necesitas los siguientes controles:
2 Botones de opción: Opción1 y Opción2 (Independientes, sin meter en un grupo de opciones y sin origen del control)
1 Etiqueta: Etiqueta1 (vacia, sin caption, le pones un espacio en blanco)
1 Cuadro de Texto: Texto1
y estos Procedimientos de Evento en la Ventana de VBA:
Private Sub Form_Load()
Opción1.Value = False: Opción2.Value = False
End Sub
Private Sub Opción1_Click()
Opción1.Value = True: Opción2.Value = False
Etiqueta1.Caption = "Introduzca N.I.F. Persona Física (8 dígitos y una letra):"
Texto1.SetFocus
End Sub
Private Sub Opción2_Click()
Opción2.Value = True: Opción1.Value = False
Etiqueta1.Caption = "Introduzca C.I.F. Sociedad (1 letra y ocho dígitos):"
Texto1.SetFocus
End Sub
Private Sub Texto1_GotFocus()
Texto1 = Null
Texto1.SelStart = 0
If Opción1.Value = False And Opción2.Value = False Then
Etiqueta1.Caption = "Seleccione Personal Física o Sociedad"
End If
If Opción1.Value = True Then
Texto1.InputMask = "90000000>L;0;_" 'Carga la máscara de Persona Física
Else
Texto1.InputMask = "L>90000000;0" 'Carga la máscara de Sociedad
End If
End Sub
El Campo Texto1 debe tener como Origen del Control un campo tipo TEXTO en una Tabla, pero sin máscara en la Tabla para que admita ambos.
Saludos
Enrique
