Comboboxen in access

[huizemeul]

Ik heb een opvragen gegevens formulier gemaakt.

Ik kan hiermee alles opvragen.
Het werkt behalve Catagorie.
Ik kan hem maar niet goed krijgen.
Het zal waarschijnlijk ?? liggen aan een kleinigheidje!

Graag hulp bij mijn bestandje.

Gr. huizemeul

 

[OctaFish]

Je dacht slim te zijn, door de afhankelijke kolom van je keuzelijsten aan te passen, maar je vergat één ding: je categorie op je rapport is óók een keuzelijst en die is gebonden aan de CategorieID. Je moet dus op dezelfde waarde het filter opbouwen, en niet op de omschrijving.
Daarnaast ben ik absoluut geen voorstander van het bouwen van dit soort filters (en dan druk ik mij heel netjes uit ). Ik filter alleen op die velden waar ik op wil filteren, de rest laat ik er buiten. En dan ziet de (deel)procedure er zo uit:

    'Filter opbouwen met één of meerdere comboBoxen.
    If Not IsNull(Me.cboBetaalwijze.Value) Then strFilter = "[Betaalwijze] = '" & Me.cboBetaalwijze.Value & "'"
    If Not IsNull(Me.cboCatagorie.Value) Then
        If Not strFilter = vbNullString Then strFilter = strFilter & " AND "
        strFilter = strFilter & "[Catagorie]= " & Me.cboCatagorie.Value
    End If
    If Not IsNull(Me.cboRelatienaam.Value) Then
        If Not strFilter = vbNullString Then strFilter = strFilter & " AND "
        strFilter = strFilter & "[Relatienaam]= '" & Me.cboRelatienaam.Value & "'"
    End If
    If Not IsNull(Me.cboJaar.Value) Then
        If Not strFilter = vbNullString Then strFilter = strFilter & " AND "
        strFilter = strFilter & "[Jaar] = '" & Me.cboJaar.Value & "'"
    End If
    If Not IsNull(Me.cboMaand.Value) Then
        If Not strFilter = vbNullString Then strFilter = strFilter & " AND "
        strFilter = strFilter & "[Maand]= '" & Me.cboMaand.Value & "'"
    End If

 'Rapport sluiten als het nog open is; anders werkt het filter niet goed.
    If CurrentProject.AllReports(strRapport).IsLoaded Then DoCmd.Close acReport, strRapport

 'Rapport openen met filter
    Me.Form.Visible = False
    DoCmd.OpenReport strRapport, lngView, , strFilter, windowMode:=acDialog
    Me.Form.Visible = True

Ik verberg, zoals je ziet, het formulier en laat dat weer zien als de preview klaar is. Klaar voor de volgende filtering...

 

[huizemeul]

Hartelijk dank voor de update.

Nu werken alle comboboxen maar bij Catagorie vraagt hij naar parameter.
Ergens gaat het nog scheef?
Krijg een leeg rapport.
Zie ik iets over het hoofd???

Gr. Huizemeul

 

[OctaFish]

Heb je de afhankelijke kolom van de keuzelijst wel aangepast?

 

[huizemeul]

Ja heb de keuzelijst in het rapport aangepast naar de goede zoektbl.

Hij blijft vragen om parameter??

Ik zal wel wat niet goed doen??:evil:

Graag nog wat aanpassing gevraagd
Zie aangepaste Database.

Gr. huizemeul

 

[OctaFish]

Ik heb even in je zoekformulier gekeken en daar staat de afhankelijke kolom van de keuzelijst Categorie nog steeds op 2 .

 

[huizemeul]

Mijn dank is groot:d

Het werkt zoals ik het zou willen. iedereen maakt een andere afweging wat hij wil. Dit is de mijne.

Hartelijk dank voor je moeite.
Een heel blije man.

Zal hem afmelden als opgelost.

Gr Huizemeul