Error 13

[JoaoM]

Error 13 en tiempo de ejecución, No coinciden los tipos

Código:

'CONTROLAMOS QUE PARA DNI, NIF Y CIF LA LOGITUD DE CARACTERES SEA DE 9 POSICIONES
If ComboBox2 = "NIF" And "NIE" Then 'SI EN cOMBObOX2 DICE NIF O NIE ENTONCES tEXTbOX5 MAX CARACTERES 9, SI NO TEXTBOX5 MAX CARACTERES 0
TextBox5.MaxLength = 9
Else
TextBox5.MaxLength = 0

Entre otras opciones que he probado, sin resultado

Código:

If ComboBox2 = "NIF" Or ComboBox2 = "CIF" Then
TextBox5.MaxLength = 9
Else
TextBox5.MaxLength = 0

Siempre de una o otra forma, deja que introduzca miles de caracteres

Le he dado vueltas y buscando pero no he logrado acomodar

Agradezco alguien que me oriente sobre este fallo y donde esta

Gracias

[Perr0]

Un ejemplo habla mejor que mil palabras:

http://www.mediafire.com/download/ol...s/ejemplo.xlsb


salu2

[JoaoM]

Gracias amigo Perro, me sirvió pero

Tengo que decirte lo siguiente

en esto

Código:

Private Sub ComboBox2_Change()
Dim largo
'CONTROLAMOS QUE PARA DNI, NIF Y CIF LA LOGITUD DE CARACTERES SEA DE 9 POSICIONES
If ComboBox2 = "NIF" Then
    largo = 9
    ElseIf ComboBox2 = "CIF" Then
    largo = 2
    End If
    
    ''''''''''' Condicional para asignar el MaxLength '''''''''''
    
    'MaxLength asignado
    TextBox5.MaxLength = largo
    'Se corta el texto si el MaxLength es menor al anterior
    TextBox5.Value = Left(TextBox5.Value, largo)

además de NIF y CIF tengo 4 mas : PASAPORTE, DE ORIGEN, CIUDADANO, EXTRANGERO y TRANSEUNTE.

Te pregunto si sabes como podría hacer agregando todos esto y no alargar tanto en código haciendo esto para cada uno, es decir, si no es ninguno de estos que no se pueda escribir en TextBox5 (Locked) porque no me acepta linea If ComboBox2 = "NIF" Or "CIF" Or "PASAPORTE" Or "DE ORIGEN" Then
Porque para todos estos la longitud es de 9 y si no es ninguno de estos entonces Lockd el TextBox5 (esta linea la coloco,

[Perr0]

te dejo otro ejemplo

Código vb:

If ComboBox2.Value = "opcion1" Or ComboBox2.Value = "opcion2" Or ComboBox2.Value = "opcion3" Then
    TextBox5.Enabled = True
    TextBox5.MaxLength = 9
Else
    TextBox5.Enabled = False
End If
 

salu2

[JoaoM]

Funciono PerrO

Agradecido por tu participación ayuda en especial

[JoaoM]

Total lo pude construir así

Código:

Private Sub ComboBox2_Change()
'CONTROLAMOS QUE PARA, NIF, NIE y CIF SE HABILITE EL TEXTBOX5 Y MAX DE CARACTERES SEAN 9
cmb = ComboBox2
    With TextBox5
        If cmb = "PASAPORTE" Or cmb = "DE ORIGEN" Or cmb = "RESIDENTE" Then
            .Enabled = False
            .Text = "NO"
        Else
            .Enabled = True
            .Text = ""
            .MaxLength = 9
        End If
    End With
End Sub

Hola PerrO
podrias darme una manita en este enlace?
http://www.forosdelweb.com/f90/unir-...todos-1135534/

Se puede cerrar el tema

Solucionado