Eenvoudige VBA code voor tekstwaarde tonen op scherm

[JohanRVT]

Hoi groep, voor onze registratie vrijwilligers (hierbij passeren ze langs een scannertje met hun chip en hun tijd van scannen gaat in de DB), gebruik ik in de formulieren/rapporten voor het weergeven van een tekst "In" of "Out" de volgende VBA code in de besturingselementbron om waar er een 1 of 3 of 5 of 7 staat in de tabel "In" weer te geven en voor 2,4,6 of 8 " Out". De vrijwilligers hebben nml per dag soms tot vier periodes waarvan begin en einde wordt geregistreerd. Werkt allemaal netjes maar kan die code eenvoudiger of minder lang om toch hetzelfde te verkrijgen?

=IIf([Tbl_Tijd.Ronde_Nr]="1";"In") & IIf([Tbl_Tijd.Ronde_Nr]="2";"Out") & IIf([Tbl_Tijd.Ronde_Nr]="3";"In") & IIf([Tbl_Tijd.Ronde_Nr]="4";"Out") & IIf([Tbl_Tijd.Ronde_Nr]="5";"In") & IIf([Tbl_Tijd.Ronde_Nr]="6";"Out") & IIf([Tbl_Tijd.Ronde_Nr]="7";"In") & IIf([Tbl_Tijd.Ronde_Nr]="8";"Out")

Mercikes voor de hints

 

[edmoor]

Hint
Je kunt de MOD functie gebruiken om te kijken of Tbl_Tijd.Ronde_Nr even of oneven is.
Oneven = "In"
Even = "Out"

 

[OctaFish]

Of een custom functie maken die je in de query of het formulier aanroept. Is in het gebruik een stuk makkelijker.