Bekijk de onderstaande video om te zien hoe je onze site als een web app op je startscherm installeert.
Opmerking: Deze functie is mogelijk niet beschikbaar in sommige browsers.
Klopt: kan prima bij externen.een zzp-er verschilt niet zoveel als een organisatie denk ik, voor jouw db althans
Dit snap ik (nog) niet zo goed. Ga ik even over nadenken.hoeft niet, je kunt dat ook met een statusveld doen maar een code is wel makkelijk en eventueel weer te combineren met de status voor een automatische nummering
Function VrijwilligerCode() As String
Dim strVolgnummer As String, strNieuwVolgNummer As String, strSQL As String
Dim tmpNummer, bJaar As Boolean
'Huidige volgnummer uit tabel lezen die als parameter is meegegeven
strSQL = "SELECT TOP 1 [VrijwilligerID] FROM [tblVrijwilliger] ORDER BY [VrijwilligerID] DESC"
With CurrentDb.OpenRecordset(strSQL)
If .RecordCount > 0 Then
strVolgnummer = .Fields(0).Value
Else
VrijwilligerCode = "INT-001"
Exit Function
End If
End With
'Laatste nummer opsplitsen en met 1 verhogen
tmpNummer = Split(strVolgnummer, "-")(UBound(Split(strVolgnummer, "-"))) + 1
VrijwilligerCode = "INT-" & Right("000" & CInt(tmpNummer), 3)
End Function
Function Volgnummer() As String
Dim strVolgnummer As String, strNieuwVolgNummer As String, strSQL As String
Dim tmpNummer, bJaar As Boolean
'Huidige volgnummer uit tabel lezen die als parameter is meegegeven
strSQL = "SELECT TOP 1 [Opdrachtbon] FROM [tblOpdracht] ORDER BY [Opdrachtbon] DESC"
With CurrentDb.OpenRecordset(strSQL)
If .RecordCount > 0 Then
strVolgnummer = Nz(.Fields(0).Value, 0)
Else
Opdrachtbon = Year(Date) & "-0001"
End If
End With
'Laatste nummer opspliten en met 1 verhogen
tmpNummer = Split(strVolgnummer, "-")
If CInt(tmpNummer(0)) = Year(Date) Then
strNieuwVolgNummer = tmpNummer(0) & "-" & Right("0000" & CInt(tmpNummer(1)) + 1, 4)
Else
strNieuwVolgNummer = tmpNummer(0) & "-0001"
End If
'Nieuw nummer toekennen aan de functie
Opdrachtbon = strNieuwVolgNummer
End Function
[ATTACH]332025.vB[/ATTACH]
[ATTACH]332076.vB[/ATTACH]
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.