Wie kan mij helpen met access

Status
Niet open voor verdere reacties.
Je kan een hele berg Public const. weggooien, want die zijn niet nodig. En de Select Case in de functie Teamnaam kan een heel stuk korter. Namelijk zo:
Code: 
    Select Case TeamNr
        Case 1 To 19
            TeamsNaam = "Team" & Right("00" & TeamNr, 2)
        Case 20
            TeamsNaam = "Vrijwillig aangewezen"
Etc.

En nog zo een:
Code: 
Function VeldNr(Veld As String)
    VeldNr = "Poule " & LefTeams(Veld, 1)
End Function
Scheelt ook weer een aantal overbodige declaraties.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan