Keuzelijst met invoervak

[Theowg]

Ik heb in een formulier een keuzelijst met invoervak gebaseerd op een tabel waarin de jaren 2000 t/m 2020 zijn opgenomen. Is het mogelijk om bij gebeurtenis "formulier openen" de waarde van het keuzevak in te stellen op het huidige jaar?
Dus het huidige jaar is 2007 dus moet de waarde van het keuzevak ook op 2007 staan, waarbij ik wel de mogelijkeid moet behouden om een ander jaar te selecteren.

 

[Harry46]

Meestal heb je geen tabel nodig om een lijst te krijgen met jaren.
Voorbeeld:
De combobox heet b.v. cboJaar
Stel die in op rijbron type waardelijst, gebonden kolom 1
Neem de volgende code op bij openen formulier

    Dim i                As Integer
    Dim iJaar            As Integer
    Dim sRS              As String

    iJaar = Year(Date)
    For i = -3 To 3  'aanpassen aan gewenste jaren
        sRS = sRS & CStr(iJaar + i) & ";"
    Next i
    Me!cboJaar.RowSource = sRS
    Me!cboJaar = iJaar
    Call cboJaar_AfterUpdate

 

[Theowg]

Klasse!
Hartstikke bedankt, weer wat geleerd.

Theowg