Campo Calculado

Hola

Sería interesante que nos comentaras cuando quieres que se inicialice
el contador ¿al iniciar el año? ¿al comenzar el mes?

Salu2
José Mª Fueyo
[MS MVP Access]

On 9 sep, 13:00, José Mª Fueyo wrote:

Hola

Sería interesante que nos comentaras cuando quieres que se inicialice
el contador ¿al iniciar el año? ¿al comenzar el mes?

Salu2
José Mª Fueyo
[MS MVP Access]

Hola,
Tienes razón. El contador se inicia con cada nuevo año.

Muchas gracias y un saludo

Jose A. Quesada

Hola
Esta función hace lo que quieres. Hay que pasarle como parámetro el
año como string

<pego>
Public Function CalculaID(sAno) As String
Dim rs As DAO.Recordset
Dim sSQL As String, iIntermedio As Integer, sSalida As String
sSQL = "SELECT Last(Tabla1.ID) AS UltimoDeID " & _
"FROM Tabla1 " & _
"WHERE (Left([ID],4)='" & sAno & "');"
Set rs = CurrentDb.OpenRecordset(sSQL, dbOpenSnapshot)
iIntermedio = CInt(Mid(rs.Fields(0), 7)) + 1
sSalida = Format(Date, "yyyymm") & Format(iIntermedio, "0000")
rs.Close
Set rs = Nothing
CalculaID = sSalida
End Function
</pego>

Salu2
José Mª Fueyo
[MS MVP Access]

On 9 sep, 18:51, José Mª Fueyo wrote:

Hola
Esta función hace lo que quieres. Hay que pasarle como parámetro el
año como string

<pego>
Public Function CalculaID(sAno) As String
    Dim rs As DAO.Recordset
    Dim sSQL As String, iIntermedio As Integer, sSalida As String
    sSQL = "SELECT Last(Tabla1.ID) AS UltimoDeID " & _
           "FROM Tabla1 " & _
           "WHERE (Left([ID],4)='" & sAno & "');"
    Set rs = CurrentDb.OpenRecordset(sSQL, dbOpenSnapshot)
    iIntermedio = CInt(Mid(rs.Fields(0), 7)) + 1
    sSalida = Format(Date, "yyyymm") & Format(iIntermedio, "0000")
    rs.Close
    Set rs = Nothing
    CalculaID = sSalida
End Function
</pego>

Salu2
José Mª Fueyo
[MS MVP Access]

Muchas gracias Jose Mª,

Lo voy a probar, ya que al final he hecho algo más rudimentario, que
me ha funcionado, pero lo que realmente me interesa es poder crear
funciones como la que me describes.

Lo que he hecho es que una consulta me calcule el último código
autonumérico, y concaternarlo a un campo calculado que obtenga los
dígitos del año y del mes de una fecha de referencia preestablecida.
Este campo calculado lo coloco en un subformulario presente en el
formulario principal, y en este un botón que vuelca el valor del campo
calculado en el valor del campo de la nueva factura. Como decía: muy
rudimentario.

Voy a probarlo y te cuento.

Muchas gracias!!!

Jose A.

Hola
Ten en cuenta, que esto lo he hecho sobre la marcha, en un momento. No
lo tomes como algo definitivo, sino como algo que te ilumine. Te toca
a ti mejorarla

Salu2
José Mª Fueyo
[MS MVP Access]