Título: Como validar estos campos Publicado por: fedefrankk en 12 Septiembre 2008, 20:10 pm Hola a todos soy nuevo en el foro y en visualbasic6, necesito validar 5 campos, text1,text2,text3,text4,text5. que son para una base de datos.
Código: Private Sub Command3_Click() hice esto pero no me funciona.. como puedo hacer?.. el text 2 es el unico que lleva letras saludos a todo y gracias :huh: Título: Re: Como validar estos campos Publicado por: cobein en 12 Septiembre 2008, 20:15 pm Adivino no soy por ahora, a eso posiblemente me dedique despues de jubilarme entre otras cosas.
Que tipo de validacion se supone que necesitas? solo numeros, solo letras, .... en que campo? Si te explicas un poco seguramenete alguien te va a dar una mano. Título: Re: Como validar estos campos Publicado por: cassiani en 12 Septiembre 2008, 20:52 pm Hola, hay muchas formas y te recomiendo que para este caso trabajes con matrices de controles...
Código
Suponiendo que el textbox que usas para introducir letras es el que cuyo index es igual a 1. Título: Re: Como validar estos campos Publicado por: Vampersy en 12 Septiembre 2008, 21:12 pm Hazle caso a cobein adivino y a cΔssiΔnі. Si vas a validar campos płedes utilizar funciones que vienen en la ayuda del vb6, te sugiero echarle un vistazo a la ayuda, ahi la mayoria seguro hemos encontrado muchos tips y soluciones (me incluyo) ;D...
Espero esta idea te sirva de algo: Private Sub Command1_Click() If verifica = True Then MsgBox "Ingrese los datos" Else x = "insert into stock values (" & Val(Text1) & ",'" & Text2 & "'," & Val(Text3) & "," & Val(Text4) & "," & Val(Text5) & ")" conexion_basedatos.Execute x MsgBox "Se grabo correctamente" limpiar End If End Sub --------------------------------------------------------- Public Function verifica() As Boolean Dim ob As Variant For Each ob In Controls If TypeOf ob Is TextBox Then If Len(ob) = 0 Then verifica = True Exit For End If End If Next ob End Function en la linea: If TypeOf ob Is TextBox Then płedes especificar el tipo de objeto que deseas verificar. Ahora, si vas a validar el contenido de cada textbox, puedes realizar un if.. else Public Function insertar() If Not (IsNumeric(Text1.Text)) Then MsgBox "teclee numeros" Exit Function End If If Len(Text2) < 0 Then MsgBox "teclee algo" Exit Function If Not (IsNumeric(Text3)) Then MsgBox "teclee numeros" Exit Function End If 'ya que paso todos los filtros: ''operaciones End Function Bueno estamos por aqui de carrera, espero ayudarte....saludos Título: Re: Como validar estos campos Publicado por: fedefrankk en 12 Septiembre 2008, 21:22 pm Hola Gracias por responderme, es un programa para guardar articulos en una base de datos mdb. si los campos estan en blanco y presiono grabar me sale un error que hay campos duplicados, entopnmces lo que quiero hacer es que si o si se rellenen los 5 campos text1..text2..tex5 eso es.. tambien no se como hacer por ejemplo si yo pongo en codigo 55 y otro viene y pone 55 que diga codigo duplicado.. son dos cosas validacion y eso ultimo no se como haccerlo ya recien empiezo a estudiar este lenjuage ,, gracias a todos
saludos fede (http://www.foxen.com.ar/01/Dibujo.GIF) Título: Re: Como validar estos campos Publicado por: seba123neo en 12 Septiembre 2008, 23:24 pm perdona por ser duro,pero es la verdad, leete un manual de ADO porque son dudas muy basicas...
Título: Re: Como validar estos campos Publicado por: byway en 13 Septiembre 2008, 01:35 am Sin usar muchas lineas de codigo puedes hacer esto:
Código
y para que solo te permita poner numeros en los text1 y Text3 puedes usar esto: Código
y lo mismo para el Text3 ... Salu2. Título: Re: Como validar estos campos Publicado por: fedefrankk en 13 Septiembre 2008, 05:11 am Citar perdona por ser duro,pero es la verdad, leete un manual de ADO porque son dudas muy basicas... Hola muchas gracias por tomarce el tiempo y responderme.. es verdad que me falta muchisimo de lo basico por eso posteo y te agradezco tu opinion porque se que es constructiva, hojala algun dia pueda yo ayudar..muchas gracias federico |