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)
...
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
Autor
En línea
