Er zijn 2 reacties in dit onderwerp

[Hansiebebe]

Hallo

Ik wil een competitie schema automatisch vullen
Het aantal wedstrijden en aantal teams in een klasse zijn variabel

in de Velden komt te staan of ze uit of thuis moeten


hier onder een voorbeeld

Wat ik zoek is een manier om dit te berekeken

In het rood staan de wedstrijden
voorbeeld T2 wilt zeggen thuis tegen team 2 dus bij team 2 komt automatisch U1 te staan Uit tegen 1

Code:

Dim t As Integer
Dim w As Integer
Dim r
Dim c
t = aantalTeams
w = AantalWedstrijden
For r = 1 To w
	 For c = 1 To t
	  
		'hier moet ik dus iets verzinnen
	 Next t
Next w

Wie kan me een voorzet geven ?

 schema.png   14.35K   13 downloads

[ingrid]

Ik heb zelf ook iets dergelijks gemaakt, maar dat geeft een lijstje met wedstrijden als resultaat uiteindelijk. Misschien heb je er iets aan.

Ik heb hiervoor een aantal tabellen gemaakt.
1. wedstrijddagen (id, wedstrijddagnr, datum)
2. wedstrijden (id, wd, thuis, uit)
3. indeling (id, nummer, naam, tijd, team)

En vervolgens een routine om eea te combineren.

Code:

Public Sub WedstrijdenPupillen(strPoule As String)
Dim strDatum As String
Dim strThuis As String
Dim strUit As String
Dim strTijd As String
Dim strSoort As String
Dim strTegenstander As String
Dim intNummer As Integer
Dim x As Integer
' nummer team bepalen
intNummer = DLookup("Nummer", "Indeling", "Team ='" & strPoule & _
			"' AND Naam LIKE 'Alliance*'")
' bepalen in welke wedstrijd BSC speelt
For x = 1 To 10
   ' variabelen legen
   strTegenstander = vbNullString
  
   ' wedstrijd van team bepalen
   strSQL = "SELECT Thuis, Uit FROM WedstrijdenJeugd WHERE WD = " & x & " AND " _
	& "(Thuis = " & intNummer & " OR Uit = " & intNummer & ")"
   Set Rst = CurrentDb.OpenRecordset(strSQL)
  
   ' datum (opzoeken in andere tabel)
   strJaar = Year(DLookup("Zaterdag", "Wedstrijddagen", "Jeugd = 1 AND Voorjaar = 1 AND WD = " & x))
   strMaand = Month(DLookup("Zaterdag", "Wedstrijddagen", "Jeugd = 1 AND Voorjaar = 1 AND WD = " & x))
   If Len(strMaand) = 1 Then strMaand = "0" & strMaand
   strDag = Day(DLookup("Zaterdag", "Wedstrijddagen", "Jeugd = 1 AND Voorjaar = 1 AND WD = " & x))
   If Len(strDag) = 1 Then strDag = "0" & strDag
   strDatum = strJaar & "-" & strMaand & "-" & strDag
  
   ' tegenstander
   strThuis = DLookup("Naam", "Indeling", "Team ='" & strPoule & _
			  "' AND Nummer =" & Rst("Thuis"))
   strUit = DLookup("Naam", "Indeling", "Team ='" & strPoule & _
			  "' AND Nummer =" & Rst("Uit"))
  
   ' tijd
   strTijd = Format(DLookup("Tijd", "Indeling", "Team ='" & strPoule & _
			  "' AND Nummer =" & Rst("Thuis")), "hh:mm")
  
   ' team
   strTeam = "alliance" & LCase(Replace(strPoule, " ", ""))
  
	' url
	strUrl = "/wedstrijden/" & Replace(strDatum, "-", "")
  
   ' soort wedstrijd
   If CStr(Left(strThuis, [img]http://www.vbib.be/public/style_emoticons/default/icon_cool.gif[/img]) = "Alliance" Then
	  strSoort = "30"
	  strTegenstander = strUit
	  strUrl = strUrl & "/" & strTeam & "-" & LCase(Replace(Replace(strUit, " ", ""), "'", ""))
   Else
	  strSoort = "29"
	  strTegenstander = strThuis
	  strUrl = strUrl & "/" & LCase(Replace(Replace(strThuis, " ", ""), "'", "")) & "-" & strTeam
   End If
  
   ' wedstrijd toevoegen
   strTegenstander = Replace(strTegenstander, "'", "''")
   strSQL = "INSERT INTO tblwedstrijden " _
	& "(datum, wd, type, team, tegenstander, tijd, soort, plaatser, url) VALUES ('" _
	& strDatum & "', '" & x & "', '" & strSoort & "', (select id from tblteams where naam = '" & strPoule & "'), '" _
	& strTegenstander & "', '" & strTijd & "', '25', 'Webmaster', '" & strUrl & "')"
   Debug.Print strSQL & ";"
  
   Rst.Close
   Set Rst = Nothing
Next
End Sub

[Hansiebebe]

Ingrid, Dank voor je antwoord, ik ga er vanavond eens goed naar kijken