År returnerer bokstav

Case year(rs("aar"))
case 1 aar = " A "
case 2 aar = " B "
case 3 aar = " C "
End Select

Undskyld jeg troede du mente asp...

Function YrLtr(Yr as integer) as string
  YrLtr = Chr(Yr-2000+65)
End Function

...eller simpelthen:

X = Chr(Årstallet-2000+65)

Det giver selvfølgelig nogle sjove bogstaver fra og med år 2027...
2027 = [
2028 = \
2029 = ]
2030 = ^
osv...

Håber det kan bruges.

Du kan komme af med specialkarakterer ved at bygge en if sætning som kontrollerer om

Chr(yr-2000+65)

er større end lig eller mindre end  lig ASCII koden for de karakterer du vil bruge.

Hvis du har tænkt dig at bruge UNICODE karakterer istedet skal du bruge ChrW(karakterkode) istedet for.

Hvis du bruger Chr$(karakterkode) vil maskinen bruge mindre hukommelse, men den er ikke så fleksibel som Chr(karakterkode).

Derudover kan du efter Z f.eks begynde at bruge AA osv.

Held og lykke med det

Jeg kan ikke få det til at virke efter hensigten. Kan en eller anden sende en eks. database til jan_stausholm@hotmail.com slippes pointene til ham/hende med det samme.

Ikke tid. Det er da nemt nok!

Den returnerer en fejl$

Database eksempel sendt