- Zie ook het totaal overzicht.
IF jaar < 2023 Then
cnnSearch.Open "DRIVER=...." & jaar & ".accdb;"
Else
cnnSearch.Open "DRIVER=.....accdb;"
END if
Die 2023 moet er uit. Dat kan zo:
IF jaar < Year(Now()) Then
cnnSearch.Open "DRIVER=...." & jaar & ".accdb;"
Else
cnnSearch.Open "DRIVER=.....accdb;"
END if
Maar helaas. Dat werkt niet. Ik heb er een tijdje op zitten puzzelen en heb het zo opgelost:
IF jaar = Year(Now()) Then
cnnSearch.Open "DRIVER=.....accdb;"
Else
cnnSearch.Open "DRIVER=...." & jaar & ".accdb;"
END if
Verrassend genoeg werkt dat dan wel. Misschien zie ik iets over het hoofd. Je moet misschien ook niet altijd alles proberen te begrijpen.:-)