formulier filteren op twee criteria

[hassing]

beste forummers,

ik wil voor ik wijzigen in mijn formulier opsla een popup formulier tonen deze eigenlijk een gefiltert formulier is van hetgeen de gebruiker moet bewerken.

Dit kan ik doen door het te bewerken formulier te copieren
te beschermen dat deze niet aan te passen is
en deze gebeurtenis aan het origineel te plakken, deze zorgt ervoor dat de popup gefiltert geopent wordt

Private Sub Keuzelijst_met_invoervak28_LostFocus()
Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "frmPopup"

stLinkCriteria = "[zaal]=" & "'" & Me![zaal] & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria


End Sub


werkt prima, echt wil ik hem op twee criteria laten filteren (op een datumtijd veld).
hoe kan ik dat hierin verwerken?

Heeft iemand een idee?

mvg

bart

 

[hassing]

Dit zou moeten werken dacht ik:

stLinkCriteria = "[zaal]+[begindatumtijd]=" & "'" & Me![zaal] + Me![begindatumtijd] & "'"

echter lukt dat niet .. typen komen niet overeen.

 

[ReneDirks]

Dit zou moeten werken dacht ik:
stLinkCriteria = "[zaal]+[begindatumtijd]=" & "'" & Me![zaal] + Me![begindatumtijd] & "'"
echter lukt dat niet .. typen komen niet overeen.

stLinkCriteria = "zaal=" & "'" & Me![zaal] & "' AND begindatumtijd=#"  & me.begindatumtijd & "#"

Ervan uitgaande dat begindatumtijd een datum/tijd veld is.

 

[hassing]

stLinkCriteria = "zaal=" & "'" & Me![zaal] & "' AND begindatumtijd=#"  & me.begindatumtijd & "#"

Ervan uitgaande dat begindatumtijd een datum/tijd veld is.

Ja komt wel in de buurt nu pakt hij alles wat voldoet aan de tijd en aan de zaal.
Helaas niet aan de datum en aan de zaal.

mijn veld ziet er zo uit:

1-1-2008 20:00

Hij filtert dus op de 20:00

Hoe kan ik ervoor zorgen dat hij echter alleen de date pakt?

 

[ReneDirks]

1-1-2008 20:00
Hij filtert dus op de 20:00
Hoe kan ik ervoor zorgen dat hij echter alleen de date pakt?

 format(veldname,"dd-mm-yyyy")
 'en daar maak je dan evt weer een datum van (om te kunnen vergelijken)
 cdate(format(veldname,"dd-mm-yyyy"))

 'dus - even uit m'n hoofd, dus syntax checken
 dim strRefDate as string
 strRefDate = format(begindatumtijd,"dd-mm-yyyy")
  stLinkCriteria = "zaal=" & "'" & Me![zaal] & "' AND =#"  & cdate(strRefDate) & "#"

 

[hassing]

Inderdaad de syntax is foutief, VB geeft aan dat het niet goed zit bij de "="
Vervolgens geeft VB de "DoCmd.OpenForm stDocName, , , stLinkCriteria" regel foutief (geel) aan.

Ik zie het niet, verschillende dingen geprobeerd maar loop steeds verder de s** in.
Kan jij er nog eens een blik over werpen?

Het ging om de filteren van zaal én datum van invoering.
---

Private Sub Keuzelijst_met_invoervak28_LostFocus()

Dim stDocName As String
Dim stLinkCriteria As String
Dim strRefDate As String
strRefDate = Format(Begindatumtijd, "dd-mm-yyyy")

stLinkCriteria = "zaal=" & "'" & Me![Keuzelijst met invoervak28] & "' AND =#" & CDate(strRefDate) & "#"

stDocName = "frmPopup"
DoCmd.OpenForm stDocName, , , stLinkCriteria

End Sub


----

 

[ReneDirks]

stLinkCriteria = "zaal=" & "'" & Me![Keuzelijst met invoervak28] & "' AND =#" & CDate(strRefDate) & "#"

Lol, ik zal wel hebben zitten slapen hè? Ik vul daar mooi een datum in, maar heb geen veld om mee te vergelijken!

stLinkCriteria = "zaal=" & "'" & Me![Keuzelijst met invoervak28] & "' AND begindatumtijd = #" & CDate(strRefDate) & "#"