contar digitos de un textbox

[yohannita]

kiero poner 2 condicion para imprimir....... debe de estar habilitado un checkbox y tiene que tener un textbox solo numeros de 10 a 13 caracteres.....

tengo el siguiente codigo....

Private Sub btn_impresion_Click()


Dim monto_check As Double

****hace perfecta esta condicion, pero mi textbox no debe tener valor 0 para poder imprimir. quiero contar los digitos y validar si esta entre 10 y 13 que imprima, pero no se como contar los digitos en 1 textbox???me pueden ayudar??

If ck_grnumber.Value = 1 And gr_number.text = "0" Then


monto_check = Val(FactCtrl.txt_desserv) + Val(FactCtrl.txt_viaticos) + Val(FactCtrl.txt_otros)
'
If Val(FactCtrl.txt_montofact.Text) <> monto_check Then
MsgBox "Los montos no concuerdan. Verifique los datos proporcionados.", vbCritical, "Control Facturas"

Exit Sub
End If
Load impresion
impresion.Show


Else
MsgBox "Son necesarios los dos campos para imprimir factura", vbCritical, "Control Facturas"

End If
End Sub

[seba123neo]

Hola,para saber los digitos de un textbox usas la funcion Len,algo asi:

Código:

MsgBox Len(Text1.Text)

y ahi te dice cuantos digitos tiene el textbox ,pero cuidado que tambien cuenta los espacios que hayas hecho,pero si vos decis que son numeros para ingresar,entonces permitiles ingresar solo numeros al textbox y no espacios,asi no hay error,y para validarlo seria algo asi:

Código:

If Len(Text1)>=10 And Len(Text1)<= 13 Then

ahi le decis que si es de 10 hasta 13 los digitos,despues vos ponele el codigo que tengas que hacer.

saludos.

[yohannita]

si.... muchas gracias ya pude..... validarloo