Visual Basic - AYUDA: Campo numérico

Life is soft - evento anual de software empresarial
   
Vista:

AYUDA: Campo numérico

Publicado por Euterpe (1 intervención) el 10/09/2010 10:11:24
Tengo una base de datos en Acces en la que tiene un campo NumExp que hace la función de Autonumérico sin serlo, me explico:
Tiene que sumar de uno en uno hasta que acabe el año. Cuando acabe el año tiene que volver al 0 y empezar de nuevo.
Todo esto lo hace en un botón con el evento Hacer click.
Yo he conseguido hacer que me sume si es el mismo año, pero cuando cambia el año me sigue sumando como si nada.
Si pudieran ayudarme lo agradecería enormemente porque tengo que entregarlo dentro de nada. Espero haberme explicado bien.

Dim db As Database
Dim Rst As RecordSet
Me.RecordSet.Clone

Set db = OpenDatabase("C:\Exps.mdb")
Set Rst = db.OpenRecordset("SELECT Max(NumExp) FROM Expedientes WHERE 'AñoActual = Year(Date)'")

NumExp = 0

With Rst

If Rst.BOF And Rst.EOF Then
NumExp = 0
End If

NumExp = .Fields(0).Value + 1

End With

Rst.Close
db.Close
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder