Måned: Format([Dato];"mmmm")

MånedsNavn = MonthName(MånedsNr, True/False)

True/False: Ja/Nej t/forkort månedsnavn

Tak for hjælpen

Jeg fik Supertekst´s hjælp til at virke, så kan du ikke lave et svar så kan jeg give point.

Den fra kabbak gjorde at alle måneder enten blev januar eller december, jeg ved ikke om det var mig der gjorde noget galt.

Og hvis du insisterer på at skrive en funktion til det selv, og ikke bruge en af de to ovennævnte, så hedder den konstruktion i Access Case:

Fra Acces hjælp:
Dim Number
Number = 8    ' Initialize variable.
Select Case Number    ' Evaluate Number.
Case 1 To 5    ' Number between 1 and 5, inclusive.
    Debug.Print "Between 1 and 5"
' The following is the only Case clause that evaluates to True.
Case 6, 7, 8    ' Number between 6 and 8.
    Debug.Print "Between 6 and 8"
Case 9 To 10    ' Number is 9 or 10.
Debug.Print "Greater than 8"
Case Else    ' Other values.
    Debug.Print "Not between 1 and 10"
End Select

Selv tak - et svar...