Miguel Enrique
11 de Agosto del 2003

Buenas noches, el problema es el siguiente en el programa que estoy diseñando tengo una parte que es de presupuesto y le diseñe su ventana, quisiera colocarle un contador, que el sistema me vaya colocando un numero de presupuesto automaticamente, ¿Que codigo se utilizaria para realizar ese procedimiento?
Gracias.....

tux_mandrake
11 de Agosto del 2003

hola mira yo tambien tenia un problema parecido lo que deves hacer te puedo dar 2 ideas lA PRIMERA Y MAS SENCILLA ES en la base de datos colocar un campo auto numerico y el otro es asi

If KeyAscii = 13 Then
Dim base As Database
Dim REG2 As Recordset
Dim reg As Recordset
Dim aux As String
Dim cant As Integer
Set base = OpenDatabase("usuario.mdb")
Set reg = base.OpenRecordset("cant")
Set REG2 = base.OpenRecordset("CURSOS")
reg.Index = "curso"
reg.Seek "=", Combo1
If reg.NoMatch = False Then
cant = reg!cantalumno
tec = MsgBox(cant, vbOKCancel, "presupuesto")
Text3.SetFocus
If cant = 35 Then
MsgBox ("Cuota superada")
Else
reg.Edit
reg!cantalumno = cant + 1
reg.Update
End If
End If
End If