<\/p>\n
In den ersten fünf Teilen dieser Artikelreihe haben wir die Grundlagen geschaffen, damit Sie Ligen, Mannschaften, Spieljahre und Spieltage eingeben und verwalten können. Außerdem kann der Benutzer nun eine Liga und einen Spieltag auswählen und Ergebnisse eingeben sowie den Tabellenstand berechnen lassen. Das geschieht bisher nur dynamisch – wir wollen aber, um Auswertungen durchzuführen, auch einmal auf die gespeicherten Tabellenstände zugreifen. Dazu verwenden wir zwei weitere Tabellen und ein paar VBA-Routinen. <\/p>\n
Die Beispiele dieses Artikels finden Sie in der Datenbank 2104_Ligaverwaltung_6.accdb<\/b>.<\/p>\nTabellen zum Speichern der Tabellenstände<\/h2>\n
Im ersten Teil der Artikelreihe haben wir die beiden benötigten Tabellen bereits vorgestellt (Ligaverwaltung, Teil 1: Datenmodell<\/b>, www.access-basics.de\/454<\/b>). Zur Erinnerung jedoch hier noch einmal im Überblick, was wir uns damals ausgedacht haben:<\/p>\n Im Datenmodell sehen diese beiden Tabellen mit den beiden weiteren Tabellen tblSpieltage<\/b> und tblMannschaften <\/b>wie in Bild 1 aus.<\/p>\n Bild 1: Tabellen zum Speichern der Tabellenstände und Tabellenpositionen<\/p>\n Die Frage, die sich hier stellt: Wozu benötigen wir überhaupt die Tabelle tblTabellenstaende<\/b> Letztlich verbindet diese nur die Tabelle tblTabellenpositionen <\/b>mit der Tabelle tblSpieltage <\/b>und enthält keine weiteren Daten. Wir könnten also auch die Tabelle tblTabellenstaende <\/b>weglassen und einfach die Tabelle tblTabellenpositionen <\/b>über ein neues Fremdschlüsselfeld namens SpieltagID <\/b>mit der Tabelle tblSpieltage <\/b>verknüpfen.<\/p>\n Dazu passen wir die Tabelle tblTabellenpositionen <\/b>in der Entwurfsansicht an. Hier entfernen wir das Feld TabellenstandID <\/b>und fügen ein neues Feld namens SpieltagID <\/b>hinzu. Dazu ist ein vorheriger Schritt erforderlich, nämlich das Entfernen der Beziehung zwischen den Tabellen tblTabellenpositionen <\/b>und tblTabellenstaende<\/b>. Dazu klicken Sie im Beziehungen-Fenster auf die Beziehung und entfernen diese mit der Entf<\/b>-Taste oder mit dem Kontextmenü-Befehl Löschen<\/b>. Anschließend löschen Sie das Feld aus dem Tabellenentwurf.<\/p>\n Nun legen wir ein neues Feld namens SpieltagID <\/b>an und fügen mit dem Nachschlage-Assistenten eine neue Beziehung zum Feld SpieltagID <\/b>der Tabelle tblSpieltage <\/b>an.<\/p>\n Außerdem fügen wir noch ein weiteres Feld hinzu, das wir bisher vernachlässigt haben, nämlich eines mit der Bezeichnung Position<\/b> (siehe Bild 2).<\/p>\n Bild 2: Neues Fremdschlüsselfeld in der Tabelle tblTabellenpositionen<\/p>\n Um diese Tabelle zu füllen, verwenden wir eine VBA-Prozedur. Diese heißt TabellenstandEintragen <\/b>und ist in Listing 1 abgebildet. Die Prozedur hat zwei Parameter:<\/p>\n Listing 1: Einstellen der Tabelle für einen Spieltag<\/p>\n Bild 3: Wir wollen die Tabelle für diesen Spieltag schreiben.<\/p>\n Möchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span>\n
![\"Tabellen](\"..\/tl_files\/images\/pic_540_001.png\")
<\/a><\/p>\nDatenmodell vereinfachen<\/h2>\n
<\/a><\/p>\nEintragen der Daten für einen Spieltag per VBA<\/h2>\n
Public Sub <\/span>TabellenstandEintragen(lngLigaSpieljahrID As Long<\/span>, lngSpieltag As Long<\/span>)\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Dim <\/span>rst As <\/span>DAO.Recordset\r\n Dim <\/span>lngTabellenstandID As Long<\/span>\r\n Dim <\/span>lngAktuellerSpieltag As Long<\/span>\r\n Dim <\/span>strSQL As String<\/span>\r\n Dim <\/span>qdf As <\/span>DAO.QueryDef\r\n Dim <\/span>prm As <\/span>DAO.Parameter\r\n Dim <\/span>lngSpieltagID As Long<\/span>\r\n Set<\/span> db = CurrentDb\r\n Set<\/span> qdf = db.QueryDefs(\"qryErgebnisseLigaSpieljahrSpieltag\")\r\n Set<\/span> prm = qdf.Parameters(\"prmSpieltag\")\r\n prm.Value = lngSpieltag\r\n Set<\/span> prm = qdf.Parameters(\"prmLigaSpieljahrID\")\r\n prm.Value = lngLigaSpieljahrID\r\n Set<\/span> rst = qdf.OpenRecordset()\r\n lngSpieltagID = DLookup(\"ID\", \"tblSpieltage\", \"Spieltag = \" & lngSpieltag & \" AND LigaSpieljahrID = \" & lngLigaSpieljahrID)\r\n db.Execute \"DELETE FROM tblTabellenpositionen WHERE SpieltagID = \" & lngSpieltagID, dbFailOnError\r\n Do While<\/span> Not<\/span> rst.EOF\r\n With<\/span> rst\r\n db.Execute \"INSERT INTO tblTabellenpositionen(SpieltagID, Position, MannschaftID, Spiele, Siege, \" _\r\n & \"Unentschieden, Niederlagen, ToreFuer, ToreGegen, PunkteFuer) VALUES(\" & lngSpieltagID & \", \" _\r\n & rst.AbsolutePosition + 1 & \", \" & rst!MannschaftID & \", \" & lngSpieltag & \", \" & Nz(rst!SummeVonSieg, 0) _\r\n & \", \" & Nz(rst!SummeVonUnentschieden, 0) & \", \" & Nz(rst!SummeVonNiederlage, 0) & \", \" _\r\n & Nz(rst!SummeVonTore, 0) & \", \" & Nz(rst!SummeVonGegentore, 0) & \", \" & Nz(rst!SummeVonPunkte, 0) & \")\", _\r\n dbFailOnError\r\n End With<\/span>\r\n rst.MoveNext<\/span>\r\n Loop<\/span>\r\nEnd Sub<\/span><\/pre>\n\n
<\/a><\/p>\n
\nHier geht es zur Bestellung des Jahresabonnements des Magazins Access [basics]<\/strong>:<\/span>
\nZur Bestellung ...<\/a><\/span>
\nDanach greifen Sie sofort auf alle rund 400 Artikel<\/strong> unseres Angebots zu - auch auf diesen hier!<\/span>
\nOder haben Sie bereits Zugangsdaten? Dann loggen Sie sich gleich hier ein:<\/span><\/p>\n<\/div>\n\n\t\n\t