Problemas con Vb6 al ingresar datos

[Aeros]

Buenas a todos.

Les cuento:

Tengo este programa que guarda datos a una base de datos y el ejercicio de la facultad me pide que solo se agreguen 5. Pero no logro pensar como hacer para que solo el usuario ingrese 5 valores (aunque este mal ingresados) cierre el programa. Use un contador pero no se como validar hasta que llegue 5 valores ingresados por cada campo.

Código (vb) [Seleccionar] Expandir


Dim BS As Database
Dim TBD As Recordset
Private Sub Command1_Click()
Set BD = OpenDatabase("C:\Users\pc\Desktop\PRUEBA.MDB")
Set TBD = BD.OpenRecordset("Persona")
If Edad.Text < 90 And Edad.Text > 0 And Indice.Text < 1000 Then
    TBD.AddNew
    TBD.Fields("Indice") = Indice
    TBD.Fields("Legajo") = Legajo
    TBD.Fields("Nombre") = Nombre
    TBD.Fields("Edad") = Edad
    TBD.Update
    MsgBox ("Agregado")
    Indice.Text = ""
    Legajo.Text = ""
    Nombre.Text = ""
    Edad.Text = ""
    Indice.SetFocus
    cont = cont + 1
Else
    MsgBox "ingrese correctamente los campos"
    cont = cont + 1
End If
End Sub

Saludos!

[gundream]

Has puesto la variable  cont  que incrementa 1 cada vez que metes un valor. Por ese lado, bien.

Peeeeero...

CONT tiene que ser variable GLOBAL, es decir, tiene que estar DIMensionada fuera del Private Sub del botón. Así la tienes como variable LOCAL. Acostúmbrate a declarar todas las variables siempre, lo contrario provoca disfunción eréctil en el 90% de los programadores encuestados (y mucha de la mala fama que arrastra el Visual Basic). 

Una vez dentro del Private Sub del botón, comprueba el valor de cont ANTES de ejecutar nada, y si es igual o mayor a 5... pues sales de la función sin mirar atrás. IF no sabes hacer lo que digo, mejor que te pongas mucho las pilas.

Un saludo!

[Aeros]

Perfecto me re ayudaste!!

Ya lo hice, lastima que lo entregue antes que me respondieras pero lo bueno que aprendí.

Muchas gracias!