Ik zit met een heel vaag probleem op het moment, ik heb een drietal rapportjes die ik wil aanroepen met het volgende stukje code (elk wel hun eigen button & stukje code, maar de code verschilt slechts marginaal):
Dit is voor het eerste rapportje, en het werkt perfect. Maar het tweede rapport wil niet, de query:
Query werkt, en het rapport ook. Maar nu wil ik het rapport aanroepen met het volgende stukje code:
Het formuliertje:


Net of de kolom niet bestaat... Wat ik ook doe, ik kom niet om die foutmelding heen. Ik heb het gecontroleerd op spelfouten, maar ik kan niks vinden
Als ik het stukje code direct in de query zet gaat het wel weer goed. Maar wanneer ik heb rapport op deze manier probeer aan te roepen krijg ik dus de bovenstaande foutmelding. Als iemand een goed idee heeft, heel graag
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
| Private Sub Passagierrapport_Click()
On Error GoTo Err_Passagierrapport_Click
Dim stDocName As String
stDocName = "raportpassagiers"
DoCmd.OpenReport stDocName, acPreview, , "Vlucht=" & Me.vluchtnr
Exit_Passagierrapport_Click:
Exit Sub
Err_Passagierrapport_Click:
MsgBox Err.Description
Resume Exit_Passagierrapport_Click
End Sub |
Dit is voor het eerste rapportje, en het werkt perfect. Maar het tweede rapport wil niet, de query:
code:
1
2
3
4
| SELECT vlucht.vluchtnummer, COUNT(passagier.passagiernummer) AS passagiers, SUM(object.gewicht) AS gewicht FROM (vlucht INNER JOIN passagier ON passagier.vlucht=vlucht.vluchtnummer) INNER JOIN [object] ON object.passagier=passagier.passagiernummer GROUP BY vlucht.vluchtnummer; |
Query werkt, en het rapport ook. Maar nu wil ik het rapport aanroepen met het volgende stukje code:
code:
1
2
| stDocName = "rapport2" DoCmd.OpenReport stDocName, acPreview, , "YEAR(Vlucht.vertrektijdstip)=" & Me.jaartal1 |
Het formuliertje:


Net of de kolom niet bestaat... Wat ik ook doe, ik kom niet om die foutmelding heen. Ik heb het gecontroleerd op spelfouten, maar ik kan niks vinden
[ Voor 13% gewijzigd door Verwijderd op 02-06-2005 20:39 ]