beste forumleden
in deze code wordt aan het einde het rapport standen geopen
nu moet deze code aangapast worden, dat niet het rapport wordt geopend maar het formulier welk rapport afdrukken.
wie wil voor mij de code aanpassen
bvd ronnie
in deze code wordt aan het einde het rapport standen geopen
Code:
Private Sub Knop12_Click()
Dim dbSleutelregistratie As Database
Dim rcdspelers As Recordset
Dim rcdtoernooi2010_alles As Recordset
Dim rcdpartijen_10 As Recordset
Dim tellerL
Dim TellerB
Dim TellerD
Dim HmoyL
Dim HmoyB
Dim HmoyD
Set dbSleutelregistratie = CurrentDb()
Set rcdspelers = dbSleutelregistratie.OpenRecordset("spelers")
Set rcdtoernooi2010_alles = dbSleutelregistratie.OpenRecordset("toernooi2010_alles")
Set rcdspelersstanden = dbSleutelregistratie.OpenRecordset("spelers standen")
tellerL = 0
TellerB = 0
TellerD = 0
TellerL1 = 0
TellerB1 = 0
TellerD1 = 0
HmoyL = 0
HmoyB = 0
HmoyD = 0
partijmoyL = 0
partijmoyB = 0
partijmoyD = 0
rcdspelersstanden.MoveFirst
Do While Not rcdspelersstanden.EOF
rcdspelersstanden.Delete
rcdspelersstanden.MoveNext
Loop
On Error GoTo Err_Knop12_Click
If Me.Dirty Then Me.Dirty = False
''
'haal spelers op
rcdspelers.MoveFirst
Do While Not rcdspelers.EOF
rcdspelersstanden.AddNew
rcdspelersstanden![Voornaam] = rcdspelers![Voornaam]
rcdspelersstanden![Moyenne] = 0
rcdspelersstanden![Caramboles] = 0
rcdspelersstanden![MoyenneDriebanden] = 0
rcdspelersstanden![CarambolesDriebanden] = 0
rcdspelersstanden![MoyenneBandstoten] = 0
rcdspelersstanden![CarambolesBandstoten] = 0
rcdspelersstanden![HSL] = 0
rcdspelersstanden![HSB] = 0
rcdspelersstanden![HSD] = 0
rcdspelersstanden![Gemaaktlibre] = 0
rcdspelersstanden![Gemaaktband] = 0
rcdspelersstanden![GemaaktDrieb] = 0
rcdspelersstanden![BeurtenLibre] = 0
rcdspelersstanden![BeurtenBand] = 0
rcdspelersstanden![BeurtenDrie] = 0
rcdspelersstanden![PuntenL] = 0
rcdspelersstanden![PuntenB] = 0
rcdspelersstanden![PuntenD] = 0
rcdspelersstanden![AantalwedstrL] = 0
rcdspelersstanden![AantalwedstrB] = 0
rcdspelersstanden![Aantalwedstrd] = 0
rcdspelersstanden![HoogsteMoyL] = 0
rcdspelersstanden![HoogsteMoyB] = 0
rcdspelersstanden![HoogsteMoyD] = 0
rcdspelersstanden![partijmoyL] = 0
rcdspelersstanden![partijmoyB] = 0
rcdspelersstanden![partijmoyD] = 0
rcdspelersstanden.Update
rcdspelers.MoveNext
Loop
'''' haal gegevens uit tabel toernooi2010_alles
Teller = 0
rcdtoernooi2010_alles.MoveFirst
Do While Not rcdtoernooi2010_alles.EOF
numm = rcdtoernooi2010_alles![id]
MoyA = rcdtoernooi2010_alles![MoyenneA]
CarA = rcdtoernooi2010_alles![CarambolesA]
GemaaktCarA = rcdtoernooi2010_alles![GemaaktecarA]
GemaaktCarB = rcdtoernooi2010_alles![GemaaktecarB]
moyb = rcdtoernooi2010_alles![MoyenneB]
CarB = rcdtoernooi2010_alles![CarambolesB]
naam1 = rcdtoernooi2010_alles![VoornaamA]
NAAM2 = rcdtoernooi2010_alles![VoornaamB]
HSA = rcdtoernooi2010_alles![HSA]
HSB = rcdtoernooi2010_alles![HSB]
Beurten = rcdtoernooi2010_alles![Beurten]
Partijsoort = rcdtoernooi2010_alles![Partijsoort]
PuntenA = rcdtoernooi2010_alles![PuntenA]
PuntenB = rcdtoernooi2010_alles![PuntenB]
If Beurten = 0 Then GoTo overslaann
HmoyA = GemaaktCarA / Beurten
HmoyB = GemaaktCarB / Beurten
Select Case Partijsoort
Case "Libre"
rcdspelersstanden.MoveFirst
Do While Not rcdspelersstanden.EOF
If rcdspelersstanden![Voornaam] = naam1 Then
''''copier de standen naar speler
tellerL = rcdspelersstanden![AantalwedstrL] + 1
rcdspelersstanden.Edit
rcdspelersstanden![Caramboles] = rcdspelersstanden![Caramboles] + CarA
If HSA > rcdspelersstanden![HSL] Then rcdspelersstanden![HSL] = HSA
rcdspelersstanden![BeurtenLibre] = rcdspelersstanden![BeurtenLibre] + Beurten
rcdspelersstanden![Gemaaktlibre] = rcdspelersstanden![Gemaaktlibre] + GemaaktCarA
rcdspelersstanden![Moyenne] = MoyA
If HmoyA > rcdspelersstanden![HoogsteMoyL] Then rcdspelersstanden![HoogsteMoyL] = HmoyA
rcdspelersstanden![PuntenL] = rcdspelersstanden![PuntenL] + PuntenA
rcdspelersstanden![AantalwedstrL] = tellerL
rcdspelersstanden![partijmoyL] = rcdspelersstanden![Gemaaktlibre] / rcdspelersstanden![BeurtenLibre]
rcdspelersstanden.Update
End If
If rcdspelersstanden![Voornaam] = NAAM2 Then
''''copier de standen naar speler
TellerL1 = rcdspelersstanden![AantalwedstrL] + 1
rcdspelersstanden.Edit
rcdspelersstanden![Caramboles] = rcdspelersstanden![Caramboles] + CarB
If HSB > rcdspelersstanden![HSL] Then rcdspelersstanden![HSL] = HSB
rcdspelersstanden![BeurtenLibre] = rcdspelersstanden![BeurtenLibre] + Beurten
rcdspelersstanden![Gemaaktlibre] = rcdspelersstanden![Gemaaktlibre] + GemaaktCarB
rcdspelersstanden![Moyenne] = moyb
If HmoyB > rcdspelersstanden![HoogsteMoyL] Then rcdspelersstanden![HoogsteMoyL] = HmoyB
rcdspelersstanden![PuntenL] = rcdspelersstanden![PuntenL] + PuntenB
rcdspelersstanden![AantalwedstrL] = TellerL1
rcdspelersstanden![partijmoyL] = rcdspelersstanden![Gemaaktlibre] / rcdspelersstanden![BeurtenLibre]
rcdspelersstanden.Update
End If
rcdspelersstanden.MoveNext
Loop
Case "Bandstoten"
rcdspelersstanden.MoveFirst
Do While Not rcdspelersstanden.EOF
If rcdspelersstanden![Voornaam] = naam1 Then
''''copier de standen naar speler
TellerB = rcdspelersstanden![AantalwedstrB] + 1
rcdspelersstanden.Edit
rcdspelersstanden![CarambolesBandstoten] = rcdspelersstanden![CarambolesBandstoten] + CarA
If HSA > rcdspelersstanden![HSB] Then rcdspelersstanden![HSB] = HSA
rcdspelersstanden![BeurtenBand] = rcdspelersstanden![BeurtenBand] + Beurten
rcdspelersstanden![Gemaaktband] = rcdspelersstanden![Gemaaktband] + GemaaktCarA
rcdspelersstanden![MoyenneBandstoten] = MoyA
If HmoyA > rcdspelersstanden![HoogsteMoyB] Then rcdspelersstanden![HoogsteMoyB] = HmoyA
rcdspelersstanden![PuntenB] = rcdspelersstanden![PuntenB] + PuntenA
rcdspelersstanden![AantalwedstrB] = TellerB
rcdspelersstanden![partijmoyB] = rcdspelersstanden![Gemaaktband] / rcdspelersstanden![BeurtenBand]
rcdspelersstanden.Update
End If
If rcdspelersstanden![Voornaam] = NAAM2 Then
''''copier de standen naar speler
TellerB1 = rcdspelersstanden![AantalwedstrB] + 1
rcdspelersstanden.Edit
rcdspelersstanden![CarambolesBandstoten] = rcdspelersstanden![CarambolesBandstoten] + CarB
If HSB > rcdspelersstanden![HSB] Then rcdspelersstanden![HSB] = HSB
rcdspelersstanden![BeurtenBand] = rcdspelersstanden![BeurtenBand] + Beurten
rcdspelersstanden![Gemaaktband] = rcdspelersstanden![Gemaaktband] + GemaaktCarB
rcdspelersstanden![MoyenneBandstoten] = moyb
If HmoyB > rcdspelersstanden![HoogsteMoyB] Then rcdspelersstanden![HoogsteMoyB] = HmoyB
rcdspelersstanden![PuntenB] = rcdspelersstanden![PuntenB] + PuntenB
rcdspelersstanden![AantalwedstrB] = TellerB1
rcdspelersstanden![partijmoyB] = rcdspelersstanden![Gemaaktband] / rcdspelersstanden![BeurtenBand]
rcdspelersstanden.Update
End If
rcdspelersstanden.MoveNext
Loop
Case "Driebanden"
rcdspelersstanden.MoveFirst
Do While Not rcdspelersstanden.EOF
If rcdspelersstanden![Voornaam] = naam1 Then
''''copier de standen naar speler
TellerD = rcdspelersstanden![Aantalwedstrd] + 1
rcdspelersstanden.Edit
rcdspelersstanden![CarambolesDriebanden] = rcdspelersstanden![CarambolesDriebanden] + CarA
If HSA > rcdspelersstanden![HSD] Then rcdspelersstanden![HSD] = HSA
rcdspelersstanden![BeurtenDrie] = rcdspelersstanden![BeurtenDrie] + Beurten
rcdspelersstanden![GemaaktDrieb] = rcdspelersstanden![GemaaktDrieb] + GemaaktCarA
rcdspelersstanden![MoyenneDriebanden] = MoyA
If HmoyA > rcdspelersstanden![HoogsteMoyD] Then rcdspelersstanden![HoogsteMoyD] = HmoyA
rcdspelersstanden![PuntenD] = rcdspelersstanden![PuntenD] + PuntenA
rcdspelersstanden![Aantalwedstrd] = TellerD
rcdspelersstanden![partijmoyD] = rcdspelersstanden![GemaaktDrieb] / rcdspelersstanden![BeurtenDrie]
rcdspelersstanden.Update
End If
If rcdspelersstanden![Voornaam] = NAAM2 Then
''''copier de standen naar speler
TellerD1 = rcdspelersstanden![Aantalwedstrd] + 1
rcdspelersstanden.Edit
rcdspelersstanden![CarambolesDriebanden] = rcdspelersstanden![CarambolesDriebanden] + CarB
If HSB > rcdspelersstanden![HSD] Then rcdspelersstanden![HSD] = HSB
rcdspelersstanden![BeurtenDrie] = rcdspelersstanden![BeurtenDrie] + Beurten
rcdspelersstanden![GemaaktDrieb] = rcdspelersstanden![GemaaktDrieb] + GemaaktCarB
rcdspelersstanden![MoyenneDriebanden] = moyb
If HmoyB > rcdspelersstanden![HoogsteMoyD] Then rcdspelersstanden![HoogsteMoyD] = HmoyB
rcdspelersstanden![PuntenD] = rcdspelersstanden![PuntenD] + PuntenB
rcdspelersstanden![Aantalwedstrd] = TellerD1
rcdspelersstanden![partijmoyD] = rcdspelersstanden![GemaaktDrieb] / rcdspelersstanden![BeurtenDrie]
rcdspelersstanden.Update
End If
rcdspelersstanden.MoveNext
Loop
End Select
overslaann:
rcdtoernooi2010_alles.MoveNext
Loop
Dim stDocName As String
stDocName = "Spelers standen"
DoCmd.OpenReport stDocName, acPreview
DoCmd.Close acForm, "spelers", acSaveYes
Exit_Knop12_Click:
Exit Sub
Err_Knop12_Click:
MsgBox Err.Description
Resume Exit_Knop12_Click
End Subwie wil voor mij de code aanpassen
bvd ronnie
