1 1 1 1 1 1 1 1 1 1 Rating 0.00 (0 Votes)

Problemstellung:
ein Bekannter fragte mich vor einiger Zeit ob es möglich wäre mit MS-Access
ein Skatturnier zu verwalten bzw. die Teilnehmer per Zufall den Tischen zu zuordnen usw.
Ich sagte ja, das kann ich machen.
Das Ergebnis stelle ich Euch hier vor.
Wobei vorweg gesagt sein muss das es keine vollständige Verwaltung ist oder sein soll

Voraussetzungen:
Das Bsp ist ab A00 lauffähig. (Download enthält eine mdb-Datei)

Lösung:
Am Anfang stehen 5 Tabellen für:
Turnier, Teilnehmer, Tische, Plätze und die Besetzung
In der Tabelle Turnier kommen einige Stammdaten für das jeweilige Turnier
wie Datum, Ort, Anzahl der Teilnehmer, Anzahl der zu spielenden Runden und ob vorrangig
3er oder 4er Tische benutzt werden sollen.
 
Nach dem Klick auf den Button "Tische, Plätze und Teilnehmer erzeugen" laufen einige Routinen ab
in der die Tabellen mit Daten gefüllt werden.
z.B. zum ermitteln der erforderlichen Tischanzahl (je nach Priorität 3er oder 4er Tische)
Public Type COUNTTABLE
    iThree As Integer
    iFour   As Integer
End Type
Public Function CalcTable(iCountMember As Integer, iTablePriority As Integer) As COUNTTABLE
    Dim i3 As Integer, i4 As Integer
    If iTablePriority = 3 Then
         'Dreiertische
         If iCountMember Mod 3 > 0 Then
             i3 = Int(iCountMember / 3) - (iCountMember Mod 3)
             i4 = iCountMember Mod 3
         Else
             i3 = Int(iCountMember / 3)
             i4 = 0
         End If
    Else
         'Vierertische
         If iCountMember Mod 4 > 0 Then
             i4 = Int(iCountMember / 4) + (iCountMember Mod 4) - 3
             i3 = 4 - (iCountMember Mod 4)
         Else
             i4 = Int(iCountMember / 4)
             i3 = 0
         End If
     End If
    CalcTable.iThree = i3
    CalcTable.iFour = i4
End Function
Diese Funktion gibt dann die erforderliche Anzahl der Tische zurück
z.B.
Teilnehmer = 22 und 4er Tische

Dim tTable As COUNTTABLE
    Dim i3 As Integer, i4 As Integer
    tTable = CalcTable(22, 4)
    i3 = tTable.iThree
    i4 = tTable.iFour
    MsgBox i3 & " '3er Tische'" & vbNewLine & "und" & vbNewLine & i4 & " '4er Tische'"
Ergebnis:

 
Dann werden die anderen Tabellen gefüllt; Platznummern und Teilnehmer.

Rechts im Unterformular müssen dann die Namen der Teilnehmer eingegeben werden.
Es kann immer vor Turnierbeginn die Besetzung der Tische per Zufall neu gestartet werden.
Dafür einfach den Button "zufällige Besetzung der Plätze" anklicken.
Diese erfolgt nach dem Zufallsprinzip. s. Sub "Private Sub FillCast()"
Wird die zufällige Besetzung vor der Eingabe der Namen erzeugt klappt das zwar auch aber das Ergebnis ist nicht ganz so zufällig.

Wichtig: die Checkbox "auch Namen löschen" muss in diesem Fall deaktiv sein, sonst werden die Namen mitgelöscht.

 
In den beiden Listenfeldern werden dann die Tische und die Belegung in der jeweiligen Runde dargestellt.
 
Zur besseren Übersicht gibt es dann unten noch die visuelle Tischbelegung.
 
 

 
Dateien:
(0 Stimmen)

Verwaltung eines Skatturniers

ab A00

Die Zip-Datei enthält eine Version ab A00
 
Datum 05.02.2018
Dateigröße 62.28 KB
Download 908
 
 
 
 

You have no rights to post comments

Login Form

Neueste Artikel

SQL zu VBA Konverter
26. Oktober 2018
Problemstellung: Nur für 32Bit Office Versionen Gibt es eine Möglichkeit SQL-Code einer Abfrage so zu konvertieren das der Code in VBA genutzt werden kann? Lösung: Bis Access 2010 gibt das Tool...
1.png6.png4.png7.png4.png3.png5.png
Heute80
Gestern205
Diese Woche1301
Dieser Monat1807
Total1647435

  • IP: 18.207.160.209
  • Browser: Unknown
  • Version:
  • OS: Unknown

Online

2
Online

10. November 2024

Letzte Kommentare

  • Berechnen von Zeiträumen als Abfragekriterium

    elmard 02.02.2021 21:02
    1000 Dank
    für diese Datenbankanwendung! Eine sehr gute Umsetzung mit den vielen Möglichkeiten des Datums.

    Weiterlesen...

     
  • SQL zu VBA Konverter

    Tommy Admin 03.11.2019 16:33
    RE: SQL zu VBA Konverter
    Hallo Elmard, danke für die Info. :lol:

    Weiterlesen...

     
  • SQL zu VBA Konverter

    elmard 03.11.2019 14:49
    Bei SmartTools neue Version 4.0
    Dieses Tool liegt inzwischen in der Version 4 vor und läuft nun auch von A2013 und A2016 sowie im ...

    Weiterlesen...

     
  • Workshop zur Benutzung des Multi-Column TreeView Control unter MS-Access

    TommyK 27.02.2019 06:52
    Workshop
    Hallo mpegjunkie, danke für Dein Feedback. Schön das Dir Workshop weiter hilft. :D

    Weiterlesen...

     
  • Workshop zur Benutzung des Multi-Column TreeView Control unter MS-Access

    mpegjunkie 26.02.2019 20:10
    Perfekter Workshop
    Hallo Tommy, perfekter Workshop, toll und umfassend erläutert. Jetzt nutze ich diese Controls auch.

    Weiterlesen...