|
|
Esto resuelve, pero hay un problema que me apareció después. Para resolver todo bien hay que hacer lo siguiente:
1) Crear una tabla Parametros que tenga un solo campo "Anio" de tipo Long
2) A la tabla Cartas agregar un campo Anio de tipo long que tenga valor predeterminado
=year(Date())
3)Agregar en el formulario cartas el siguiente código:
Public Function VerificaAnio()
Dim rst As New ADODB.Recordset
Dim AnioActual As Integer
Dim UltimaCuenta As Long
rst.Open "Parametros", CurrentProject.Connection, adOpenDynamic, adLockOptimistic
rst.MoveFirst
AnioActual = Year(Date)
If rst("Anio") = AnioActual Then
UltimaCuenta = Nz(DMax("Cuenta", "Cartas", "Anio = " & AnioActual), 0)
VerificaAnio = UltimaCuenta + 1
Else
rst("Anio") = AnioActual
rst.Update
VerificaAnio = 1
End If
rst.Close
End Function
Private Sub Form_BeforeInsert(Cancel As Integer)
Cuenta = VerificaAnio()
SendKeys "{F9}"
End Sub
Contame como te fue.
Cordialmente, Marciana
|