selectie van verschillende tabellen in rapport weergeven

[swinnen]

hallo,

Ik zou graag een rapport willen genereren via een formulier
het is de bedoeling om een selectie kunnen te maken via een keuzelijst met invoervak in een formulier.
De selectie zou moeten weergegeven worden in een rapport.
Is dit mogelijk en kan ik dan selecteren vanuit verschillende keuzelijsten(verschillende tabellen met andere gegevens) in mijn formulier?

Thx

 

[Guus2005]

je hebt een rapport gebaseerd op een query. je kan die query aanpassen voordat je het rapport runt. dat doe je in het form aan de hand van je selectie criteria. piece of cake!

Enjoy!

 

[swinnen]

Guus,

Welke selectie criteria moet ik dan ingeven in mijn query?
het is zo dat ik in mijn formulier een keuzelijst heb met meervoudige selectie.
Dus hetgeen ik selecteer in mijn formulier zou door een knop moeten weergegeven worden in een rapport.

Mvg,

Steve

 

[Guus2005]

Guus,

Welke selectie criteria moet ik dan ingeven in mijn query?
het is zo dat ik in mijn formulier een keuzelijst heb met meervoudige selectie.
Dus hetgeen ik selecteer in mijn formulier zou door een knop moeten weergegeven worden in een rapport.

Mvg,

Steve

Dat heb je niet eerder gezegd!

Je moet dus je where clause opbouwen door door je listbox selectie heen te wandelen

Even zoeken op deze site naar multiselect listbox.

Geef maar een gil als je er niet uit komt.

HTH

 

[Bakk4318]

Ik had nog een voorbeeldje liggen van een multiselectlistbox. Alleen is deze gebaseerd op een formulier, dus het formulier even vervangen voor een rapport.

mvg
Charles

 

[swinnen]

Bizar maar het bestandje in de map wordt niet herkend door access
iemand een idee?

thx

 

[M.Broere]

Bestand niet herkend als Access

Het bestand is gezipt, eerst uitpakken dus.
:thumb:

 

[swinnen]

Dat wist ik gelukkig wel al,
maar heb winrar, winzip, 7-zip geprobeerd maar allemaal zeggen ze dat het een onbekend bestand is

 

[Bakk4318]

Helaas lukt het niet om het bestand te plaatsen. Derhalve onderstaand de code:

Private Sub cmdOverzicht_Click()
Dim intN, strPersoneel
For intN = 0 To lstPersoneel.ListCount - 1
If lstPersoneel.Selected(intN) Then
strPersoneel = strPersoneel & "[LastName]='" & lstPersoneel.ItemData(intN) & "' or "
End If
Next intN
If strPersoneel <> "" Then
strPersoneel = Left$(strPersoneel, Len(strPersoneel) - 4)
DoCmd.OpenForm "frmPersoneel", acNormal, , strPersoneel
Else
DoCmd.OpenForm "frmPersoneel", acNormal
End If
End Sub

mvg
Charles

 

[Bakk4318]

Als rar bestand lijkt het wel te lukken.

mvg
Charles

 

[swinnen]

hey guys thx het werkt!

greetz