Validaciones. Ayuda por favor ?

[principefreddy]

hola amigos y amigas del foro..
quisiera que me ayudaran con esto lo mas pronto posible..
estoy haciendo un sistema de facturacion y nomina sencillos pero requiere de muchos detalles como las validaciones en textos y combos. bueno la cosa es que tengo un texto llamado rif.text y quiero una validacion para que el primer espacio sea letra y despues de alli numeros. me explico mejor..
J-123456789 algo asi. el primer espacio del texto tiene que ser letra y mayuscula y despues de alli que solo me acepte numeros.

la otra cosa es que deseo que en el combo no puedan introducir ni numeros ni letras. solo que seleccionen una de las opciones que se les muestra en el combo.


y por ultimo. texto un texto llamado total_pagar.text y quiero que cuando me de el total a pagar solo me muestre dos decimales ya que hay cantidades grandes y se ve muy feo. por ejemplo total_pagar.text= 145.487.25 quiero que solo se me muestre 145.45. gracias eso es todo. seguire programando lo que me falta y esperar que me puedan ayudar.. que dios los bendiga

[David]

Bueno, para lo primero puedes hacer dos validaciones, una así:

Código PHP:

  If "J-123456789" Like "[A-Z]*" Then  
   

Y la otra

Código PHP:

  If IsNumeric(Right("J-123456789", Len("J-123456789") - 1)) Then  
   

En el Combo puedes cambiar su Style a 2, o también hacer esto:

Código PHP:

  If Combo.ListIndex <> -1 Then  
   

Y para el tercer caso puedes usar Format(#.00)

Saludos

[Avellaneda]

Iniciado por principefreddy

hola amigos y amigas del foro..
quisiera que me ayudaran con esto lo mas pronto posible..
estoy haciendo un sistema de facturacion y nomina sencillos pero requiere de muchos detalles como las validaciones en textos y combos. bueno la cosa es que tengo un texto llamado rif.text y quiero una validacion para que el primer espacio sea letra y despues de alli numeros. me explico mejor..
J-123456789 algo asi. el primer espacio del texto tiene que ser letra y mayuscula y despues de alli que solo me acepte numeros.

la otra cosa es que deseo que en el combo no puedan introducir ni numeros ni letras. solo que seleccionen una de las opciones que se les muestra en el combo.


y por ultimo. texto un texto llamado total_pagar.text y quiero que cuando me de el total a pagar solo me muestre dos decimales ya que hay cantidades grandes y se ve muy feo. por ejemplo total_pagar.text= 145.487.25 quiero que solo se me muestre 145.45. gracias eso es todo. seguire programando lo que me falta y esperar que me puedan ayudar.. que dios los bendiga

Hola,
para hacer lo que quieres en el primer caso -además de lo indicado por David- VB tiene un control llamado MaskEdBox que no necesitas ningún código de validación; en diseño y en la propiedad Mask le pones:

>?-#########

y el usuario sólo podrá introducir una letra como primer carácter (si la pone en minúscula, la convertirá a mayúscula), el guión lo pondrá automáticamente y a continuación sólo podrá introducir números.

Para el segundo y tercer caso es como te dice David, aunque en éste último tambien puedes utilizar la función FormatNumber.

[principefreddy]

gracias por sus respuestas pero no se donde colocar este codigo para los decimales Format(#.00).. gracias espero su respuesta.

[David]

Iniciado por principefreddy

gracias por sus respuestas pero no se donde colocar este codigo para los decimales Format(#.00).. gracias espero su respuesta.

Bueno, pues depende de cuándo quieres que le dé el formato. Normalmete yo lo usaría en el LostFocus ya que ahí le va a dar formato cuando el TextBox pierda el foco.

[KingColt]

Que tal como haria lo siguiente que mi caja de texto solo acepte una letra, un guion y el resto de la cadena solo numeros, solo tengo esto que me permite ingresar numeros, quiero que el formato sea de esta manera C-152030

Código:

Private Sub Text1_KeyPress(KeyAscii As Integer)
'Solo acepta numeros en la caja de texto
If (Chr(KeyAscii) < "0" Or Chr(KeyAscii) > "9") And _
   Chr(KeyAscii) <> vbBack Then
   KeyAscii = 0
End If
End Sub

[Avellaneda]

Iniciado por KingColt

Que tal como haria lo siguiente que mi caja de texto solo acepte una letra, un guion y el resto de la cadena solo numeros, solo tengo esto que me permite ingresar numeros, quiero que el formato sea de esta manera C-152030

Código:

Private Sub Text1_KeyPress(KeyAscii As Integer)
'Solo acepta numeros en la caja de texto
If (Chr(KeyAscii) < "0" Or Chr(KeyAscii) > "9") And _
   Chr(KeyAscii) <> vbBack Then
   KeyAscii = 0
End If
End Sub

Bueno, como indicaba en el post #3, lo ideal sería utilizar un control MaskEdBox, pero si tiene que ser en una caja de texto y validando tecla a tecla, puedes poner este

Código:

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 8 Then Exit Sub  ' tecla retroceso
If Chr(KeyAscii) = vbCr Or Chr(KeyAscii) = vbTab Then
    ' tecla ENTER o TAB, antes de pasar el foco al siguiente control
    ' verificamos el número de caracteres
    If Len(Text1) <> 8 Then ' (letra + guión + 6 caracteres)
        KeyAscii = 0
    Else
        SendKeys "{Tab}"
    End If
    Exit Sub
End If
If Len(Text1) = 0 Then
    ' 1er dígito, lo convertimos a mayúsculas
    KeyAscii = Asc(UCase(Chr(KeyAscii)))
    If KeyAscii > 64 And KeyAscii < 91 Then
        ' carácter correcto, le añadimos el guión y nos posicionamos al final
       Text1.Text = Chr(KeyAscii) & "-"
       Text1.SelStart = 3
    End If
    ' eliminamos la pulsación de tecla
    KeyAscii = 0
' si se ha eliminado el guión (con la tecla de retroceso)
' convertimos el carácter digitado en un guión
ElseIf Len(Text1) = 1 Then KeyAscii = 45
Else
    ' sólo números
    If Not IsNumeric(Chr(KeyAscii)) Then KeyAscii = 0
End If
End Sub

[principefreddy]

Excelente.. Gracias por ayudarme