[Acces97] query met vba

[Verwijderd]

Hoi,

Hoe krijg ik het voor elkaar als ik een rapport gemaakt heb dat hij
alle records geeft vanaf een bepaalde periode.
Ik heb een kolom datum in de records staan.
Ik heb een query gemaakt maar nu moet ik bij het veld datum zoiets als

> vardatum.

Maar hoe krijg ik een variable in mijn query.
Deze datum moet dan in een form ingegeven worden.

[Boss]

Je kan vanaf het formulier het rapport openen met Docmd.OpenReport en dan kan je als een van de paramteres een stukje "WHERE" geven. Als het veld waar die datum in staat bijv. txtDatumVan heet, dan wordt het:
Docmd.OpenReport "rapportnaam",acViewPreview,,"Datum >= #" & txtDatumVan & "#". Let erop dat de datum van het juiste formaat is, namelijk ook zoals hij in de SQL weergave staat bij je querie designer.

(ik weet eigenlijk niet hoe ver je bent met Access.... is 't bovenstaande duidelijk?)

[Verwijderd]

He bedankt.

Ik denk dat ik hier al een heel stuk mee verder kom.
Zo niet dan komt de volgende vraag wel hier te staan.

[Verwijderd]

ik heb nu dit gebruike om een periode te defineren.

DoCmd.OpenReport stDocName, acViewPreview, , "Datum aanvraag > #" & begin & "#" And "Datum aanvraag < #" & einde & "#"

begin is een tekst veld met begin periode.
einde is een tekst veld met einde periode.

Alleen als ik dit start zegt hij typen komen niet overeen.

[Verwijderd]

"datum aanvraag" moet iig "datum" worden lijkt mij

[Verwijderd]

Of de kolom nu datum of datum aanvraag heet maakt niet uit.

[OZ-Gump]

Verwijderd schreef op 17 July 2003 @ 13:19:
Of de kolom nu datum of datum aanvraag heet maakt niet uit.

Klopt, maar dan is het wel misschien verstandiger [spekhaken] rond je veldnaam te zetten.

[Verwijderd]

ook met spekhaken geeft hij de fout.

typen komen niet overeen

[Verwijderd]

idd
Wat ik verder bedoelde was dat je het eerder over het veld 'datum' had, maar hier over 'datum aanvraag', dacht dat daar misschien een probleem zat. Alleen zou dat natuurlijk tot een andere error leiden

[Verwijderd]

Kan je je begin en eind datum niet eens 'hard' intypen ipv een variabele te gebruiken.
DoCmd.OpenReport stDocName, acViewPreview, , "Datum aanvraag > #01-jan-2003# And "Datum aanvraag < #01-dec-2003#"

[Verwijderd]

Zou het kunnen zijn dat het aan de datum zelf ligt.
omdat boven verwezen wordt dat ik op moet passen voor hoe ik
de datum neerzet.

In mijn tabel staan mijn datum zo 01-01-2001
en zo geef ik ze ook in men tekstbox.

Ik weet niet zo hij ze ook zo verder geeft in het programma zelf.

[Verwijderd]

Verwijderd schreef op 17 July 2003 @ 13:39:
Kan je je begin en eind datum niet eens 'hard' intypen ipv een variabele te gebruiken.
DoCmd.OpenReport stDocName, acViewPreview, , "Datum aanvraag > #01-jan-2003# And "Datum aanvraag < #01-dec-2003#"

foutmelding : typen komen niet overeen

[Masch]

Je kunt je datum omzetten om dat te testen

Visual Basic:

"[Datum aanvraag] > #" & Format(begin, "yyyy-mm-dd") & "#" 
And "[Datum aanvraag] < #" & format(einde, "yyyy-mm-dd") & "#"

Dan is het altijd goed, indien je veldtype natuurlijk ook datum is.

edit
Vergeet de spekhaken [] niet hé

[ Voor 46% gewijzigd door Masch op 17-07-2003 13:47 . Reden: opmaak ]

[Verwijderd]

DoCmd.OpenReport stDocName, acViewPreview, , "Datum aanvraag > #01-jan-2003# And Datum aanvraag < #01-dec-2003#"

dus de quotes rondom 'and' verwijderen, helpt dat?

[Verwijderd]

Verwijderd schreef op 17 July 2003 @ 13:49:
DoCmd.OpenReport stDocName, acViewPreview, , "Datum aanvraag > #01-jan-2003# And Datum aanvraag < #01-dec-2003#"

dus de quotes rondom 'and' verwijderen, helpt dat?

Yo, Dit werkt, Bedankt.
Ik zal het nu nog ff proberen met tekstvelden

[Verwijderd]

Masch schreef op 17 July 2003 @ 13:45:
Je kunt je datum omzetten om dat te testen

Visual Basic:

"[Datum aanvraag] > #" & Format(begin, "yyyy-mm-dd") & "#" 
And "[Datum aanvraag] < #" & format(einde, "yyyy-mm-dd") & "#"

Dan is het altijd goed, indien je veldtype natuurlijk ook datum is.

edit
Vergeet de spekhaken [] niet hé

Dit werkt niet maar ik probeer nog ff met quoten weg te halen

[Masch]

Verwijderd schreef op 17 July 2003 @ 13:55:
[...]


Dit werkt niet maar ik probeer nog ff met quoten weg te halen

Ja dat moet ook. Heb ikzelf helemaal niet op gelet

[Verwijderd]

het antwoord is dit :

DoCmd.OpenReport stDocName, acViewPreview, , "[Datum aanvraag] > #" & begin & "# And [Datum aanvraag] < #" & einde & "#"

bedankt voor de hulp