none
More the 12 teams RRS feed

  • Question

  • How do i get more then 12 teams?

    I get only 12 teams in my module.

    I have a database and i want have 18 teams with 6 people in it.

    Option Compare Database
    Option Explicit
    Public SurfNaam As String
    Public SurfDatum As Date
    Public MaxPlg As Integer
    Public MaxKomen As Integer
    Public TeamTellerNr As Integer
    'Veld 1 voor 06 08 10 12
    Public Const Veld1 = "Poule 1"
    'Veld 2 voor 06 08 10 12
    Public Const Veld2 = "Poule 2"
    'Veld 3 voor          12
    Public Const Veld3 = "Poule 3"
    'Poule1 voor 06 08 10 12
    Public Const Poule1 = "Poule 1"
    'Poule2 voor    08 10 12
    Public Const Poule2 = "Poule 2"
    'Poule3 voor          12
    Public Const Poule3 = "Poule 3"
    'team 1 voor 06, poule 1 team 1 voor 08 10 poule 1 team 1 voor 20
    Public Const Teams01 = "Team1"
    'team 2 voor 06  poule 2 team 1 voor 08 10 poule 2 team 1 voor 20
    Public Const Teams02 = "Team2"
    'team 3 voor 06, poule 1 team 2 voor 08 10 poule 3 team 1 voor 20
    Public Const Teams03 = "Team3"
    'team 4 voor 06, poule 2 team 2 voor 08 10 poule 1 team 2 voor 20
    Public Const Teams04 = "Team4"
    'team 5 voor 06, poule 1 team 3 voor 08 10 poule 2 team 2 voor 20
    Public Const Teams05 = "Team5"
    'team 6 voor 06, poule 2 team 3 voor 08 10 poule 3 team 2 voor 20
    Public Const Teams06 = "Team6"
    'team 7 voor 06, poule 1 team 4 voor 08 10 poule 1 team 3 voor 20
    Public Const Teams07 = "Team7"
    'team 8 voor 06, poule 2 team 4 voor 08 10 poule 2 team 3 voor 20
    Public Const Teams08 = "Team8"
    'team 9 voor 06, poule 1 team 5 voor 08 10 poule 3 team 4 voor 20
    Public Const Teams09 = "Team9"
    'team 10 voor 06, poule 2 team 5 voor 08 10 poule 1 team 4 voor 20
    Public Const Teams10 = "Team10"
    'team 11 voor 06, poule 1 team 6 voor 08 10 poule 1 team 5 voor 20
    Public Const Teams11 = "Team11"
    'team 12 voor 06, poule 2 team 6 voor 08 10 poule 1 team 5 voor 20
    Public Const Teams12 = "Team12"
    'team 13 voor 06, poule 1 team 7 voor 08 10 poule 1 team 6 voor 20
    Public Const Teams13 = "Team13"
    'team 14 voor 06, poule 2 team 7 voor 08 10 poule 1 team 6 voor 20
    Public Const Teams14 = "Team14"
    'team 15 voor 06, poule 1 team 8 voor 08 10 poule 1 team 7 voor 20
    Public Const Teams15 = "Team15"
    'team 16 voor 06, poule 2 team 8 voor 08 10 poule 1 team 7 voor 20
    Public Const Teams16 = "Team16"
    'team 17 voor 06, poule 1 team 9 voor 08 10 poule 1 team 8 voor 20
    Public Const Teams17 = "Team17"
    'team 18 voor 06, poule 2 team 9 voor 08 10 poule 1 team 8 voor 20
    Public Const Teams18 = "Team18"
    'team 19 voor 06, poule 1 team 10 voor 08 10 poule 1 team 9 voor 20
    Public Const Teams19 = "Team19"
    'team 20 voor 06, poule 2 team 10 voor 08 10 poule 1 team 9 voor 20
    Public Const TeamsExtra = "Team21"
    Function TournooiNaam() As String
        TournooiNaam = SurfNaam
    End Function
    Function TournooiDatum() As Date
        TournooiDatum = SurfDatum
    End Function
    Function MaxAantalKomen(Maximum As Integer) As Integer
        If Maximum = -1 Then MaxKomen = MaxKomen + 1
    End Function
    Function MaxPloegen(Max As Integer) As Integer
        Dim MaxPloegenHulp As Variant
            MaxPloegenHulp = Max / 6
        If MaxPloegenHulp <= 8 Then
            MaxPloegen = 6
        ElseIf MaxPloegenHulp <= 10 Then
            MaxPloegen = 8
        ElseIf MaxPloegenHulp <= 12 Then
            MaxPloegen = 10
        ElseIf MaxPloegenHulp > 12 Then
            MaxPloegen = 12
        ElseIf MaxPloegenHulp > 14 Then
            MaxPloegen = 14
        ElseIf MaxPloegenHulp > 16 Then
            MaxPloegen = 16
        ElseIf MaxPloegenHulp > 18 Then
            MaxPloegen = 18
        ElseIf MaxPloegenHulp > 20 Then
            MaxPloegen = 20
        End If
            MaxPlg = MaxPloegen
    End Function

    Function TeamNummer(MaxTeamNr As Integer) As Integer
        TeamTellerNr = TeamTellerNr + 1
        TeamNummer = TeamTellerNr
        If MaxTeamNr < TeamTellerNr Then TeamTellerNr = 1: TeamNummer = TeamTellerNr
    End Function
    Function TeamsNaam(TeamNr As Integer, PouleNr As Integer) As String
        Select Case TeamNr
            Case 1
                TeamsNaam = Teams01
            Case 2
                TeamsNaam = Teams02
            Case 3
                TeamsNaam = Teams03
            Case 4
                TeamsNaam = Teams04
            Case 5
                TeamsNaam = Teams05
            Case 6
                TeamsNaam = Teams06
            Case 7
                TeamsNaam = Teams07
            Case 8
                TeamsNaam = Teams08
            Case 9
                TeamsNaam = Teams09
            Case 10
                TeamsNaam = Teams10
            Case 11
                TeamsNaam = Teams11
            Case 12
                TeamsNaam = Teams12
            Case 13
                TeamsNaam = Teams13
            Case 14
                TeamsNaam = Teams14
            Case 15
                TeamsNaam = Teams15
            Case 16
                TeamsNaam = Teams16
            Case 17
                TeamsNaam = Teams17
            Case 18
                TeamsNaam = Teams18
            Case 19
                TeamsNaam = Teams19
            Case 20
                TeamsNaam = "Vrijwillig aangewezen"
            Case 41
                TeamsNaam = "1ste eerste uit poule's"
            Case 42
                TeamsNaam = "2de  eerste uit poule's"
            Case 43
                TeamsNaam = "3de  eerste uit poule's"
            Case 51
                TeamsNaam = "1ste tweede uit poule's"
            Case 52
                TeamsNaam = "2de  tweede uit poule's"
            Case 53
                TeamsNaam = "3de  tweede uit poule's"
            Case 61
                TeamsNaam = "1ste derde  uit poule's"
            Case 62
                TeamsNaam = "2de  derde  uit poule's"
            Case 63
                TeamsNaam = "3de  derde  uit poule's"
            Case 71
                TeamsNaam = "1ste vierde uit poule's"
            Case 72
                TeamsNaam = "2de  vierde uit poule's"
            Case 73
                TeamsNaam = "3de  vierde uit poule's"
            Case 81
                TeamsNaam = "Laatste uit " & Poule1
            Case 83
                TeamsNaam = "Laatste uit " & Poule2
            Case 82
                TeamsNaam = "Derde uit " & Poule1
            Case 84
                TeamsNaam = "Derde uit " & Poule2
            Case 91
                TeamsNaam = "Eerste uit " & Poule1
            Case 93
                TeamsNaam = "Eerste uit " & Poule2
            Case 92
                TeamsNaam = "Tweede uit " & Poule1
            Case 94
                TeamsNaam = "Tweede uit " & Poule2
            Case 99
                TeamsNaam = "Tied veur pafke"
        End Select
    End Function
    Function VeldNr(Veld As String)
        Select Case LefTeams(Veld, 1)
            Case "1"
                VeldNr = Veld1
            Case "2"
                VeldNr = Veld2
            Case "3"
                VeldNr = Veld3
        End Select
    End Function
    Function PouleNr(TeamNr As Integer, Poules As Integer) As String
        MaxPlg = MaxKomen
        Select Case MaxPlg
            Case 8, 10
            Select Case TeamNr
                Case 1, 3, 5, 7, 9
                    PouleNr = Poule1
                Case 2, 4, 6, 8, 10
                    PouleNr = Poule2
                Case 81, 83
                    PouleNr = "Verliezers"
                Case 91, 93
                    PouleNr = "Winnaars"
                Case 99
                    PouleNr = "Pauze"
            End Select
        End Select
        Select Case MaxPlg
            Case 6
            PouleNr = Poule1
        End Select
        Select Case MaxPlg
            Case 12
            Select Case TeamNr
                Case 1, 4, 7, 10
                    PouleNr = Poule1
                Case 2, 5, 8, 11
                    PouleNr = Poule2
                Case 3, 6, 9, 12
                    PouleNr = Poule3
                Case 41, 42, 43, 51, 52, 53, 61, 62, 63, 71, 72, 73
                    PouleNr = "Finale Ronden"
                Case 99
                    PouleNr = "Pauze"
            End Select
        End Select
    End Function
    'Vragen om een input gegeven
    Function Vragen(VraagOm As String) As String
        Dim strBericht As String, strInvoer As String
            strInvoer = InputBox("Geef selectie waarde voor " & VraagOm)
        If MsgBox("Was " & UCase(strInvoer) & " Uw selectie ", vbYesNo, VraagOm) = vbNo Then
            strInvoer = InputBox("Geef selectie waarde voor " & VraagOm)
        Else
            Vragen = UCase(strInvoer)
            Exit Function
        End If
        Vragen = UCase(strInvoer)
    End Function
    Function OmzettenAchterNaam(AchterNaamIn As String) As String
        Dim T, Lengte, Positie As Integer
        Lengte = Len(AchterNaamIn)
        For T = 1 To Lengte
            If Mid(AchterNaamIn, T, 1) = " " Then
                Positie = T
                T = Lengte + 1
            End If
        Next T
        OmzettenAchterNaam = Right(AchterNaamIn, Lengte - Positie)
    End Function
    Function OmzettenVoorNaam(VoorNaamIn As String) As String
        Dim T, Lengte, Positie As Integer
        Lengte = Len(VoorNaamIn)
        For T = 1 To Lengte
            If Mid(VoorNaamIn, T, 1) = " " Then
                Positie = T
                T = Lengte + 1
            End If
        Next T
        OmzettenVoorNaam = Left(VoorNaamIn, Positie)
    End Function
    Function CheckScore(TeamZoek As Integer, TeamSpeel As Integer, Score As Integer) As Integer
        If TeamZoek = TeamSpeel Then
            CheckScore = Score
        Else
            CheckScore = Score * -1
        End If
    End Function
    Function TeamZoeken(TeamZoek As Integer, TeamThuis As Integer, TeamUit As Integer) As Integer
        If TeamZoek = TeamThuis Or TeamZoek = TeamUit Then
            TeamZoeken = TeamZoek
        Else
            TeamZoeken = 0
        End If
    End Function
    Function PuntenBepalen(PuntenVerdeling As Integer) As Integer
        If PuntenVerdeling > 0 Then PuntenBepalen = 3
        If PuntenVerdeling = 0 Then PuntenBepalen = 1
        If PuntenVerdeling < 0 Then PuntenBepalen = 0
    End Function

    Saturday, May 13, 2017 11:49 AM

All replies

  • How do i get more then 12 teams?

    I get only 12 teams in my query.

    Hi dutchboy2002,

    I see lots of declarations and lots of functions, but where do I find the query?

    Imb.

    Saturday, May 13, 2017 12:14 PM
  • Sorry i meant module.
    Saturday, May 13, 2017 12:24 PM
  • Sorry i meant module.

    Hi dutchboy2002,

    Still not clear what you want ...

    Imb.

    Saturday, May 13, 2017 4:13 PM
  • Hoi Dutchboy,

    "Tied veur pafke"? That's unsportsman-like conduct. We cannot condone that :-)

    It seems like you're trying to setup a tournament schedule (tournooi) with teams and pools (poules) and the fields (veld) to play on. Now you are stuck because the current code only allows a certain number of teams and you need more.
    If that's correct so far, you are going about this entirely the wrong way. You will need a completely different approach, with tables holding the data rather than more and more variables. There are other problems with your code but that's irrelevant for now. You first need to make this mental shift and design a relational database to model the competion.
    Tables would include:
    tblTeams
    TeamID autonumber PK
    TeamName text(50) required uniqueindex

    tblPlayFields  (just so there is no confusion with "Database Field")
    PlayFieldID autonumber PK
    PlayFieldName text(50) required uniqueindex

    tblPools
    ?Not sure; seems a collection of teams?

    tblGames
    HomeTeamID long int required FK
    AwayTeamID long int required FK
    PlayDate datetime  (assuming nullable because may not be able to assign when record is created)
    PlayFieldID long int FK  (assuming nullable because may not be able to assign when record is created)
    HomeScore int
    AwayScore int

    Other tables depend on the finer points of your requirements.

    Once a correct database design is in place (run a Relationships diagram by us for feedback), you can start thinking about how to enter data (through forms) and calculate the next round in the tournament (queries and likely some VBA).


    -Tom. Microsoft Access MVP

    Saturday, May 13, 2017 6:51 PM
  •     ...
        ElseIf MaxPloegenHulp <= 10 Then
            MaxPloegen = 8
        ElseIf MaxPloegenHulp <= 12 Then
            MaxPloegen = 10
        ElseIf MaxPloegenHulp > 12 Then
            MaxPloegen = 12
        ElseIf MaxPloegenHulp > 14 Then
            MaxPloegen = 14
        ElseIf MaxPloegenHulp > 16 Then
            MaxPloegen = 16
        ....

    Hi dutchboy2002,

    Apart from the database design, I saw your problem in the module.

    As soon as you meet the condition MaxPloegenHulp > 12, the MaxPloegen becomes 12, and all further ElseIf condition are not processed anymore.

    Personally I prefer the Select Case construction:

    Select Case MaxPloegenHulp Case Is <= 8: MaxPloegen = 6
    Case 9,10: MaxPloegen = 8
    Case 11,12: MaxPloegen = 10
    Case 13,14: MaxPloegen = 12
    ...
    End Select


    Imb.

    Sunday, May 14, 2017 1:09 PM
  • Hi dutchboy2002,

    you had posted the whole module.

    you even did not posted the description for this module.

    it contains several functions.

    we don't know that why you are using that or what is the purpose for each function.

    it is better that you post the code that is specific to your issue and able to reproduce the issue on our side instead of posting the whole code.

    it makes us confuse.

    I assume that this code had developed by someone else and you are trying to modifying it.

    you can try to consult that person who developed this code and ask for a documentation for this code.

    then try to understand the code.

    then try to make changes in the copy of code.

    if you get any error or you stuck somewhere then we can help you to solve that issue.

    if this code is written by you then I think that you are aware about all the functions so you jus need to go to particular function and try to debug it where you find that it is limiting the teams at that place you can do modification.

    Regards

    Deepak


    MSDN Community Support
    Please remember to click "Mark as Answer" the responses that resolved your issue, and to click "Unmark as Answer" if not. This can be beneficial to other community members reading this thread. If you have any compliments or complaints to MSDN Support, feel free to contact MSDNFSF@microsoft.com.

    Monday, May 15, 2017 9:02 AM
    Moderator