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.
Function Blad1()
Dim rs1 As DAO.Recordset, rs2 As DAO.Recordset
Dim db As Database
Dim iStart As Long, iEind As Long
Dim ID1 As Long, ID2 As Long
Set rs1 = CurrentDb.OpenRecordset("Blad1")
With rs1
Do While Not .EOF
iStart = CDbl(!StartDatum)
iEind = CDbl(!EindDatum)
ID1 = !id
ID2 = !id_2
Do While iStart <= iEind
Set rs2 = CurrentDb.OpenRecordset("tblTemp")
With rs2
.AddNew
!ID_1 = ID1
!id_2 = ID2
!StartDatum = CDate(iStart)
.Update
.Close
End With
iStart = iStart + 1
Loop
.MoveNext
Loop
End With
End Function
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.