Hola, como puedo validar un textbox con númeres entre xx hasta xxx

[gohanjaja]

Hola amigos, les hago una pregunta, tengo un texbox en cual tengo que validar un número de DNI.

El número que ingrese en el DNI , tiene que ser de la siguiente manera -->
Mayor a 5.000.000 y Menor a 50.000.000, en caso contrario que me muestre un Textbox con el error...


Por el momento solo consigo validar que solo ingresen dígitos numéricos....

Alguna idea??

[pkj]

Para eso tienes < y >

If Valor < 5000000 or Valor > 50000000 Then MsgBox "Error"

[gohanjaja]

Iniciado por pkj

Para eso tienes < y >

If Valor < 5000000 or Valor > 50000000 Then MsgBox "Error"

El Valor, es una variable que uso previamente ( guardado el valor del campo dni?)

[gohanjaja]

Lo pongo asi

Código:

Private Sub dni_KeyPress(KeyAscii As Integer)
KeyAscii = SoloNumeros(KeyAscii)
Dim valor As Integer
valor = Val(dni)
If valor < 5000000 Or valor > 50000000 Then
MsgBox "Error"
End If

End Sub

Pero al apretar el 5 ya me salta ese error, y si quiero borrar tmb me salta el error....



Alguna otra forma??

[erbuson]

Hola, si efectúas la verificación en el EVENTO KeyPress, cada vez que pulsas una tecla, se efectúa la verificación y evidentemente te causa muchos problemas.

Correcto es que en el KeyPress compruebes que se ha pulsado un número, pero lo demás deberías hacerlo bien en el LostFocus (cuando sale del campo de entrada) o tal vez en el Validate que te permite evitar la salida del campo.

Investiga en este sentido y si te quedan dudas, comenta.

Saludos

[gohanjaja]

Código:

Private Sub doc_KeyPress(KeyAscii As Integer)                        'DOCUMENTO

If KeyAscii = vbKeyReturn Then
    KeyAscii = 0
        
    Dim d1 As Long, x As Integer
    
d1 = Val(doc.Text)
        If d1 = 0 Then
            x = MsgBox("Ingrese Solo Digitos Numericos", vbCritical, "Error D.N.I.")
            doc.Text = ""
        
        Else
                    
                If (d1 > 5000000) And (d1 < 50000000) Then
                    Call Form_lostfocus
                
                
                Else
                    x = MsgBox("Ingrese Dentro Del Rango Permitido" + Chr(10) + "Mayor a 5.000.000 y Menor 50.000.000", vbCritical, "Error D.N.I.")
                    doc.Text = ""
                End If
        End If

        
    
End If

numeros = "0123456789," & vbBack
 num = Chr(KeyAscii)
 V = InStr(1, numeros, num)
 If V = 0 Then
    KeyAscii = 0
    
 End If
        
End Sub

Encontre ése en un trabajo viejo , anda bien , pero no trabaja con ADO recorset... intente probar y me tira errores por todos lados...

[gohanjaja]

El "form_lostfocus" hace una busqueda....

EDIT: ya me funca, con el código que puse arriba, de paso se los dejo por si acaso a alguien le sirve
....:D


IMG

[pkj]

La idea era mas simple:
1 - en el dni_keypress controlas que solo entren numeros.

Código vb:

Private Sub Dni_KeyPress(KeyAscii As Integer)
  If InStr(1,"0123456789",Chr(KeyAscii))=0 Then KeyAscii=0
End Sub
 

2 - en el dni_lostfocus controlas que el valor no salga del rango. Si sale del rango se pone el foco en el textbox de nuevo y se avisa del error:

Código vb:

Private Sub Dni_LostFocus()
  If Val(dni)<5000000 or val(dni)>50000000 then
    msgbox "Dni no válido"
    dni.setfocus
  End If
End Sub
 

[gohanjaja]

Me quedo excelente , muchas gracias hermano!!