Foros del Web » Soporte técnico » Ofimática »

Error 13

Estas en el tema de Error 13 en el foro de Ofimática en Foros del Web. 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 ...
  #1 (permalink)  
Antiguo 26/08/2015, 07:52
 
Fecha de Ingreso: agosto-2007
Mensajes: 1.945
Antigüedad: 12 años
Puntos: 39
Error 13

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
__________________
Las contraseñas son como la ropa interior: Nunca dejarlas donde la gente pueda verlas
http://i64.tinypic.com/rho40i.jpg

Última edición por JoaoM; 26/08/2015 a las 08:53
  #2 (permalink)  
Antiguo 26/08/2015, 09:42
Avatar de Perr0  
Fecha de Ingreso: mayo-2005
Ubicación: Santiago de Chile, Chile
Mensajes: 673
Antigüedad: 14 años, 2 meses
Puntos: 78
Respuesta: Error 13

Un ejemplo habla mejor que mil palabras:

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


salu2
__________________
Numerador Mp3 en Access =)
http://www.mediafire.com/download/r9...pdw/mp3(2).zip
  #3 (permalink)  
Antiguo 26/08/2015, 10:06
 
Fecha de Ingreso: agosto-2007
Mensajes: 1.945
Antigüedad: 12 años
Puntos: 39
Respuesta: Error 13

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,
__________________
Las contraseñas son como la ropa interior: Nunca dejarlas donde la gente pueda verlas
http://i64.tinypic.com/rho40i.jpg

Última edición por JoaoM; 26/08/2015 a las 10:13
  #4 (permalink)  
Antiguo 26/08/2015, 11:26
Avatar de Perr0  
Fecha de Ingreso: mayo-2005
Ubicación: Santiago de Chile, Chile
Mensajes: 673
Antigüedad: 14 años, 2 meses
Puntos: 78
Respuesta: Error 13

te dejo otro ejemplo

Código vb:
Ver original
  1. If ComboBox2.Value = "opcion1" Or ComboBox2.Value = "opcion2" Or ComboBox2.Value = "opcion3" Then
  2.     TextBox5.Enabled = True
  3.     TextBox5.MaxLength = 9
  4. Else
  5.     TextBox5.Enabled = False
  6. End If


salu2
__________________
Numerador Mp3 en Access =)
http://www.mediafire.com/download/r9...pdw/mp3(2).zip
  #5 (permalink)  
Antiguo 26/08/2015, 19:48
 
Fecha de Ingreso: agosto-2007
Mensajes: 1.945
Antigüedad: 12 años
Puntos: 39
Respuesta: Error 13

Funciono PerrO

Agradecido por tu participación ayuda en especial
__________________
Las contraseñas son como la ropa interior: Nunca dejarlas donde la gente pueda verlas
http://i64.tinypic.com/rho40i.jpg
  #6 (permalink)  
Antiguo 28/08/2015, 09:35
 
Fecha de Ingreso: agosto-2007
Mensajes: 1.945
Antigüedad: 12 años
Puntos: 39
Respuesta: Error 13

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
__________________
Las contraseñas son como la ropa interior: Nunca dejarlas donde la gente pueda verlas
http://i64.tinypic.com/rho40i.jpg

Última edición por JoaoM; 29/08/2015 a las 07:33

Etiquetas: excel
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 17:57.