Correlativo

Hola buenos días.
En un formulario, tengo un campo que es de texto en el que tiene que ir un texto correlativo: 01/09, 02/09, 03/09, siendo el 09 el año.
Por más que lo he intentado no me ha salido, se que tengo que hacerlo con código, pero estoy perdida...
Espero que me podáis ayudar.
Gracias
1

1 respuesta

Respuesta
1
En el evento Current del formulario evalúas si estas en un nuevo registro y, caso de ser así, generas el texto pertinente. Cuando hay años de por medio, yo utilizo algo parecido a esto:
If Me.NewRecord Then
    Dim myYear As Integer
    myYear = Val(Mid(Year(date), 4, 2))
    Dim strSQL As String
    strSQL = "SELECT Max(Val(Left([ElCampo],2))) AS LastNum, Val(Mid([ElCampo],4,2)) AS año FROM latabla  GROUP BY Val(Mid([ElCampo],4,2)) HAVING Val(Mid([ElCampo],4,2))=" & myYear & ";"
    Dim myNumber As Integer
    Set rst = CurrentDb.OpenRecordset(strSQL)
    If rst.EOF Then
        myNumber = 1
       Else
        myNumber = Nz(rst!LastNum, 0) + 1
    End If
    rst.Close
    Set rst = Nothing
    Me!elcampo.DefaultValue = Format(myNumber, "00000") & & Format(myYear, "00") 
End If
Escrito del tirón...
Xavi

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas