Berekenen van stand toernooi

[tepke]

Hoi ik heb een database gemaat deze heeft 3 poul A, B en C elke poul heeft 6 team BV A1, A2 enz .
Ik heb een query geschreven waar ik de de drie poul uit elkaar haal en door middel van het sorteren kan ik het team met de hoogste stand boven aan krijgen. Ik heb een extra veld dat heet [poulstand] hier wil ik door middel van iets een getal in krijgen de winnaar moet het getal 1 in dit veld krijgen de tweede nummer 2 enz tot nummer 6 uit de poul.

De query heeft maar 6 records want we hebben maar 6 teams in een poul.

Dit bovenstaande wil ik in de A B en C poul doorvoeren.

Doel is uiteindelijk
eerste en tweede van ochtend poul A worden Nummer 1 en 2 van de middag A poul
eerste en tweede van ochtend poul B worden Nummer 3 en 4 van de middag A poul
eerste en tweede van ochtend poul C worden Nummer 5 en 6 van de middag A poul

derde en vierde van ochtend poul A worden Nummer 1 en 2 van de middag B poul
derde en vierde van ochtend poul B worden Nummer 3 en 4 van de middag B poul
derde en vierde van ochtend poul C worden Nummer 5 en 5 van de middag B poul

En ander poul spreek van zelf.

Na dat de ik een query heb ingedeelt met de nummers wil ik de database van de middag poul veranderen ik weet wat de poulstand is van de ochtend poul en met een IFF formule wil ik de middag poul veranderen.

wie kan me helpen

Hoe kan ik in de query het veld [poulstand] veranderen met de stand?


groetjes
tepke

 

[Bartuls]

Tuurlijk kan dat.

Maak een module met en zet daarin de volgende code:

Option Compare Database
Option Explicit

Dim mlngCounter As Long

Function ResetCounter()
mlngCounter = 0
End Function

Function GetNextCounter(pvar As Variant) As Long
mlngCounter = mlngCounter + 1
GetNextCounter = mlngCounter
End Function


Maak vervolgens een query die er ongeveer zo uitziet:
SELECT tblVolgnummerInQuery.fldVoorbeeld, GetNextCounter([fldVoorbeeld]) AS Volgnummer, ResetCounter() AS DezeIsNoodzakelijk
FROM tblVolgnummerInQuery;

 

[tepke]

ik heb nog nooit met visual basic gewerkt wel een uitdaging, vroeger wel geprogrameerd in dbase3 wat ik hier onder zie is denk ik alle maal tekst waar ik visual basic voor nodig heb waar begin ik? Ik heb wel de andere zaken onder de knie als querys maken met het menu en rapporten, formulieren en macro's

Tuurlijk kan dat.

Maak een module met en zet daarin de volgende code:

Option Compare Database
Option Explicit

Dim mlngCounter As Long

Function ResetCounter()
mlngCounter = 0
End Function

Function GetNextCounter(pvar As Variant) As Long
mlngCounter = mlngCounter + 1
GetNextCounter = mlngCounter
End Function


Maak vervolgens een query die er ongeveer zo uitziet:
SELECT tblVolgnummerInQuery.fldVoorbeeld, GetNextCounter([fldVoorbeeld]) AS Volgnummer, ResetCounter() AS DezeIsNoodzakelijk
FROM tblVolgnummerInQuery;

 

[Bartuls]

Kies voor een module het tabje modules op het database venster.
Maak een nieuwe module en plak daar de code die ik gegeven heb in.

Maak vervolgens een query zoals ik je die in het voorbeeld aangegeven heb, en het zal werken.

 

[Bartuls]

Ik heb even een voorbeeldje voor je gemaakt met de code die ik al gegeven had.