Keuzelijst probleem...

[veerle55]

Hallo,

Ik heb onderstaande codering om gegevens uit een keuzelijst
in een rapportje weer te geven. Nu is het zo dat ongeacht wat
er in de keuzelijst staat, het rapport altijd altijd hetzelfde weergeeft,
namelijk alle records in myn query.
Ik wil alleen de records zien in mijn rapport die er in de keuzelijst staat.
Wat moet ik hiervoor doen? Wat moet ik aanpassen?

Dank

Veerle

-------------------------------------------------------------------------------------------------------------------------------
Private Sub Snel_Click()

On Error GoTo Err_RAPPORT_Click

Dim stDocName As String
stDocName = "rptOverzicht"
DoCmd.OpenReport stDocName, acViewPreview, , ,acDialog
Exit_RAPPORT_Click:
Exit Sub

Err_RAPPORT_Click:
MsgBox "Afdruk wordt nu weergegeven!", vbCritical, "Beste gebruiker..."
Resume Exit_RAPPORT_Click
End Sub
-------------------------------------------------------------------------------------------------------------------------------

 

[vanzwam]

Je kan dit oplossen door

Private Sub Snel_Click()

On Error GoTo Err_RAPPORT_Click

Dim stDocName As String
stDocName = "rptOverzicht"
Dim strFilter As String
strFilter = "Idnummer" = Forms!formuliernaam!Idnummer"
DoCmd.OpenReport stDocName, acViewPreview, , strfilter
Exit_RAPPORT_Click:
Exit Sub

 

[veerle55]

Hallo,

Bedankt voor je reply.
Het geeft aan dat die Id nummer niet kent.
Kan het ook zijn dat ik iets moet doen met het rapport?
Verwijzen naar een andere query?

Dank

Veerle

 

[vanzwam]

Dat zou kunnen. Idnummer is het primair sleutelveld in je tabel. Dus je gebruikt de rapportquery, en daar sleep je dus ook het primaire sleutelveld naar toe. vb.

tabel 1 Id(sleutelveld),naam,adres
tabel 2 t2id,id(numeriek),activiteit
relatie id(tabel1) naar id(tabel2)
Query id(tabel2)naam,adres,activiteit
je fiter is dus nu strFilter = "Id" = Forms!formuliernaam!Id"