Queries med tilhørende kalender

jan@schoesler.com

Er sendt

Opret 2 felter på din form en slutdato og en startdato, lad disse felter indgå i din forespøgsel som et kriterie med ala "between [Startdato] and [Slutdato]"

Håber du kan bruge det :o)

Eksempel sendt

'mugs' kan ikke åbne dit eksempel kører office 2000?

Har du pakket det ud?

Ja, det har jeg

Hmm - Jeg bruger XP og Access2000. Hvilken fejl får du? Jeg prøver igen.

Prøv evt at kigge på denne database: http://www.makeiteasy.dk/eksempler/Kalender.zip

Vælg knappen "Søg på dato". De 2 datofelter i dialogboksen kan dobbeltklikkes på, hvorved kalenderen åbnes.

/Thomas

Tak for foreslag, vender tilbage iaften. 'mugs' kan stadig ikke bruge din db Access lukker automatisk ned når jeg trykker på øverste knap

Jeg har afprøvet min db igen, og her fungerer den upåklageligt. Jeg har set Thomas' forslag, og det kører efter stort set samme princip, om end Thomas' er lidt mere elegant.
For sfovs skyld prøver jeg lige at sende en anden db. Jeg vender tilbage iaften.

Nu har jeg rodet lidt med thomasjepsen's foreslag. Får søgefunktionen til at virke, men jeg kan ikke overføre søgningen til min rapport kun på forms?

'mugs' Kan ikke forstå at jeg ikke kan få din db til at køre når der ikke er noget galt med thomasjepsens!

Jeg ved ikke hvad der kan være galt. Du skrev tidligere at den gik ned, når du trykkede på den øverste knap. Hvad sker der når du trykker på nederste?

Schoesler-> Du kan evt lave en knap på din formular med denne kode:

If Me.Filteron Then
  Docmd.Openreport "DinRapport",acviewpreview,,Me.Filter
else
  Docmd.Openreport "DinRapport",acviewpreview
endif

Derved udskrives præcis de samme poster, som vises på formularen.

/Thomas

'thomasjepsen' du har delvis ret, men hvis jeg lukker søgeformularen kan den ikke finde start og slut dato.?

på den knap jeg oprettet med:

If Me.Filteron Then
  Docmd.Openreport "DinRapport",acviewpreview,,Me.Filter
else
  Docmd.Openreport "DinRapport",acviewpreview
endif

Jeg plejer at bruge denne til at udskrive en filtreret rapport:

If Me.FilterOn = False Then
MsgBox "Der er ikke sat filter på formularen." & vbNewLine & "Procedüren forlades."
Exit Sub
Else
DoCmd.OpenReport "Rapport1", acViewPreview, , Me.Filter
End If

Men når du benytter Me.Filter, SKAL formularen være åbnet, eller kan rapporten ikke finde filteret.

Schoesler->Nå ja, det kan du have ret i. I stedet kan du lægge knappen på søgeformularen. Så skal kode bare se således ud:

If Forms!DinFormular.Filteron Then
  Docmd.Openreport "DinRapport",acviewpreview,,Forms!DinFormular.Filter
else
  Docmd.Openreport "DinRapport",acviewpreview
endif

'thomasjepsen' nu virker det fint tak for hjælpen. Et lille tillægsspørgsmål. Hvis jeg vil ændre datoen i søge formularen. Vil jeg gerne når jeg trykker på feltet slette indholdet "onclick"?

Me!Start = Null (på vedFokus på Start og slut-feltet)

tak for point :o)