21/05/2004, 16:20
| |||
| |||
| Validacion RUT Tengo un boton para agregar registros en el cual coloco datos para la tabla clientes, esto de la siguiente forma: Cnn.Execute "Insert into Clientes values('" + Trim(txtRutCliente) + "',................(mas campos) NombreCliente.Requery Lo que quiero es formar un bucle(o alguna otra forma)en que "NO"me ingrese los datos hasta que haya validado que el rut escrito en txtRutCliente sea valido Como lo hago??  Otra cosa mas dificil...Como averiguo que ese rut ingresado en txtRutCliente no este en mi tabla CLIENTES, ya que es mi PK(campo primario)  Gracias |
|
22/05/2004, 17:04
| ||||
| ||||
| yo lo haria con un if nada mas "si el rut es valido ingresa de lo contrario da error", te recomendaria realizar una funcion especifica para ese trabajo.... salu2
__________________ La mejor manera de aprender es por medio de un aprendizaje significativo.... http://www.cocert.cl |
|
22/05/2004, 19:56
| ||||
| ||||
| si te refieres a validar al rut como un rut valido ej: 10.555.232.9 ? explicate a ke te refieres con validarlo... salu2
__________________ La mejor manera de aprender es por medio de un aprendizaje significativo.... http://www.cocert.cl |
|
23/05/2004, 00:43
| |||
| |||
| Si te refieres al digito verificador aca esta la rutina: Incluyela en un modulo. '//////////////////////////////////////////////////////////////////// 'Permite ingresar los valores con comillas de miles y guion o sin ellos el digito 'tambien puede ser "k" o "K". 'Por ejemplo 11.111.111-0 o 111111110, 11111111k o 11111111K, reconoce cualquiera 'de estos formatos este es el sistema de verificación de rut para el país de Chile, Option Explicit Public I As Byte Public Z As Byte Public CadenaLimpiA As String Public DiG As String Public XXXX As Byte Function RuT(CadenA As String) As Boolean If CadenA <> Empty And Val(CadenA) <> 0 Then 'Limpia Cadena For I = 1 To Len(CadenA) If (Mid(CadenA, I, 1)) = "-" Or (Mid(CadenA, I, 1)) = "." Then 'pasa al siguiente espacio Else CadenaLimpiA = CadenaLimpiA + Mid(CadenA, I, 1) End If Next 'Prepara Variables CadenA = CadenaLimpiA DiG = (Mid(CadenaLimpiA, (Len(CadenaLimpiA)), 1)) If Asc(DiG) <= 47 Or Asc(DiG) >= 58 Then If DiG = "K" Or DiG = "k" Then DiG = "10" Else DiG = "12" End If End If CadenaLimpiA = Empty For I = 1 To (Len(CadenA) - 1) CadenaLimpiA = CadenaLimpiA + (Mid(CadenA, I, 1)) Next CadenA = Empty I = Empty I = (Len(CadenaLimpiA)) Z = 2 While I <> 0 If Z <> 8 Then CadenA = Val(CadenA) + (Val((Mid(CadenaLimpiA, I, 1))) * Z) Z = Z + 1 Else Z = 2 CadenA = Val(CadenA) + (Val((Mid(CadenaLimpiA, I, 1))) * Z) Z = Z + 1 End If I = I - 1 Wend Z = 11 - (Val(CadenA) - Int((Val(CadenA)) / 11) * 11) XXXX = Asc(DiG) If DiG = 0 And Z = 11 Then RuT = True Else If Z = DiG Then RuT = True Else RuT = False End If End If Else RuT = False End If CadenA = Empty CadenaLimpiA = Empty End Function |
|
23/05/2004, 08:50
| ||||
| ||||
| yo tengo un ocx que hace el trabajo solito.. salu2 pd si note funciona avisa en todo caso te mande un pm
__________________ La mejor manera de aprender es por medio de un aprendizaje significativo.... http://www.cocert.cl |
Gracias 
