Option Compare Database
Option Explicit

Private Sub btnSecondHalf_Click()
    
    AllocateSecondHalf                                          'allocate new week Nos and copy to tblFixtures
    frmFixtureWeeks.Requery                                     'refresh sub-form
    frmFixturesTeams.Requery

End Sub

Private Sub btnStart_Click()

Dim vTotal As Long

    vTotal = DCount("ID", "tblTeams", "Active = True")          'calc No of teams selected
    If vTotal Mod 2 = 1 Then
        MsgBox "ERROR. You must select an even number of teams. Include the 'Bye' team if the actual number of teams is odd.", vbCritical + vbOKOnly, "Invalid Team Count"
        Exit Sub
    End If
    
    If vTotal < 4 Or vTotal > 26 Then
        MsgBox "ERROR. You can only select between 4 and 26 teams for the league.", vbCritical + vbOKOnly, "Invalid Team Count"
        Exit Sub
    End If
    
    AllocateWeekNumbers vTotal                                  'allocate new week Nos and copy to tblFixtures
    frmFixtureWeeks.Requery                                     'refresh sub-forms
    frmFixturesTeams.Requery

End Sub