Bekijk de onderstaande video om te zien hoe je onze site als een web app op je startscherm installeert.
Opmerking: Deze functie is mogelijk niet beschikbaar in sommige browsers.
PIVOT tArtikel.Artikelnaam In ("Schoenvork","Hooimes","Scheerlepel","Koffiemuts","Theefluit");
For i = 1 To 3
x = 0
iSel = Nz(Me("lst" & i).ItemsSelected.Count, 0)
If iSel > 0 Then
sFilter(i) = "(" & Me("lst" & i).Tag & " In("
For Each itm In Me("lst" & i).ItemsSelected
x = x + 1
tmp = Me("lst" & i).ItemData(itm)
If Not IsNumeric(tmp) Then tmp = "'" & tmp & "'"
sFilter(i) = sFilter(i) & CStr(tmp)
If x < iSel Then sFilter(i) = sFilter(i) & ","
Next itm
sFilter(i) = sFilter(i) & "))"
End If
Next i
For i = 1 To 3
If sFilter(i) <> "" Then
If sCriteria <> "" Then
If Me("AndOr" & i).Caption = "EN" Then
sCriteria = sCriteria & " AND "
Else
sCriteria = sCriteria & " OR "
End If
End If
sCriteria = sCriteria & sFilter(i)
End If
Next i
If Not sCriteria = "" Then sCriteria = "WHERE " & sCriteria
Set qDF = CurrentDb.QueryDefs("qTest")
qDF.SQL = strSQL
Const strcJetDate = "\#mm\/dd\/yyyy\#" 'Do NOT change it to match your local settings.
If IsDate(Begindatum) And IsDate(Einddatum) Then
If sFilter <> "" Then sFilter = sFilter & " AND "
sFilter = sFilter & "[Factuurdatum] Between " & Format(Begindatum, strcJetDate) & " And " & Format(Einddatum, strcJetDate)
End If
Zou moeten werken; ik vermoed dat je de requery verkeerd doet. Maar omdat je de code hebt verwijderd, kan ik niet zien wat je gedaan hebt.-Waarom werkt set qDF = ..enz niet op een doorlopend formulier?
Kan ook. Beide opties werken-Waarom geef je geen filter mee bij het openen van het rapport i.p.v set qDF.
Yep. De hoogte van een lijst is een eigenschap die je kunt aanpassen.-Kan je een keuzelijst vergroten door op een knop te klikken.
If Me.Keuzelijst20.ListRows = 4 Then
Me.Keuzelijst20.ListRows = 12
Else
Me.Keuzelijst20.ListRows = 4
End If
strSQL = "SELECT tblBedragen.ID, tblBedragen.Factuurdatum, tblBedragen.Klantnr, tblBedragen.Bedrag, tblBedragen.Kleur " _
& "FROM tblBedragen " _
& "Where" & sFilter _
& "ORDER BY tblBedragen.Factuurdatum, tblBedragen.Klantnr "
Set qDF = CurrentDb.QueryDefs("qDoorlopendFormulier")
qDF.SQL = strSQL
Forms!fDoorlopendFormulier!fDoorlopendFormulierSub.Form.Requery
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.