Hallo,
Ik zit met een probleempje.
Ik heb het volgende:
Een form. met 10 keuzerondjes. Hiervan moet ik er 1 selecteren.
Vervolgens wil ik uit een keuzelijst iets selecteren. (Keuzelijst komt van een query en dan dus groter of kleiner worden)
Wanneer ik iets geselecteerd hebt, moet ie een rapport openen (NAW)
Hierin moet ie als eerste filteren op 1 van de 10 keuzerondjes. Daarna moet ie op nog iets filteren. Dit werkt goed maar nu:
Hij moet ook filteren van wat gelijk op wat ik selecteer in de keuzelijst. Vervolgens moet ie alle records weergeven die aan al deze voorwaarden voldoen. Voldoet 1 van de voorwaarden niet (bij de laatste filter bijv), dan moet ie een leeg rapport weergeven of het rapport niet openen.
Hieronder heb ik mijn code tot nu toe geplakt. Deze werkt niet goed, want hij geeft totaal geen waarden weer in het rapport op deze manier wanneer er wel wordt voldaan aan de voorwaarden.
Alvast bedankt!
Private Sub Categorie_AfterUpdate()
Dim Categorie As Control, varItem As Variant
Set Categorie = Forms!Overzichten!Categorie
If Categorie > ("") _
And Keuzerondje59.Value = True Then
DoCmd.OpenReport "NAW", acViewPreview, "NAW alles", "([AccountverantwoordelijkeID]=1 and [bestaande klant]=No and [Categorie]='Categorie')"
End If
End Sub
Ik zit met een probleempje.
Ik heb het volgende:
Een form. met 10 keuzerondjes. Hiervan moet ik er 1 selecteren.
Vervolgens wil ik uit een keuzelijst iets selecteren. (Keuzelijst komt van een query en dan dus groter of kleiner worden)
Wanneer ik iets geselecteerd hebt, moet ie een rapport openen (NAW)
Hierin moet ie als eerste filteren op 1 van de 10 keuzerondjes. Daarna moet ie op nog iets filteren. Dit werkt goed maar nu:
Hij moet ook filteren van wat gelijk op wat ik selecteer in de keuzelijst. Vervolgens moet ie alle records weergeven die aan al deze voorwaarden voldoen. Voldoet 1 van de voorwaarden niet (bij de laatste filter bijv), dan moet ie een leeg rapport weergeven of het rapport niet openen.
Hieronder heb ik mijn code tot nu toe geplakt. Deze werkt niet goed, want hij geeft totaal geen waarden weer in het rapport op deze manier wanneer er wel wordt voldaan aan de voorwaarden.
Alvast bedankt!
Private Sub Categorie_AfterUpdate()
Dim Categorie As Control, varItem As Variant
Set Categorie = Forms!Overzichten!Categorie
If Categorie > ("") _
And Keuzerondje59.Value = True Then
DoCmd.OpenReport "NAW", acViewPreview, "NAW alles", "([AccountverantwoordelijkeID]=1 and [bestaande klant]=No and [Categorie]='Categorie')"
End If
End Sub