Volgnummer

[Jos1234]

Bekijk bijlage testdb.zip

Ik zou willen dat het volgnummer automatisch wordt aangepast als ik een nieuw record toevoeg. Als ik het bestand nu open, staat er als volgnummer 2016-0001.Ik kan dan gegevens invoeren. Maar als ik dat gedaan heb, zou er automatisch 2016-0002 moeten komen.

 

[OctaFish]

Ik doe deze functie nooit met ADO.

Function VolgNummer() As String
Dim sVeld As String, sTabel As String, sWaarde As String, strSQL As String
Dim arr As Variant
Dim Nummer As Integer, Jaar As Integer
Dim rst As DAO.Recordset

    sVeld = "[kas_volgnummer]"            'Hier het veld dat je gebruikt voor het volgnummer.
    sTabel = "[Kasdagboek]"          'Hier de tabelnaam waar het volgnummer in staat.
    
    strSQL = "SELECT TOP 1 " & sVeld & " FROM " & sTabel & " WHERE (" & sVeld & " Is Not Null) ORDER BY " & sVeld & " DESC"
    Set rst = CurrentDb.OpenRecordset(strSQL)
    With rst
        If Not .BOF And Not .EOF Then sWaarde = .Fields(0).Value
        .Close
    End With
    
    If sWaarde & "" = "" Then GoTo GeenNummer
    arr = Split(sWaarde, "-")
    Jaar = CInt(arr(0))
    If Jaar = Year(Date) Then
        Nummer = CInt(arr(1)) + 1
    Else
        Nummer = 1
    End If
    VolgNummer = Jaar & Format(Nummer, "-0000")
    Exit Function
    
GeenNummer:
    VolgNummer = Year(Date) & "-0001"

End Function