åben rapport fra formular, benyt filter/where

Følgende kode placeres på knappen:

If isnull(Me!Måned) then
  docmd.Openreport "DinRapport", Acviewpreview
else
  docmd.Openreport "DinRapport", Acviewpreview,,"Måned = " & Me!Måned
endif

Måned er navnet på din comboboks og Måned er et numerisk felt i rapporten.

/Thomas

Så lige at du havde skrevet navnet på rapprten. Så ser koden således ud:

If isnull(Me!Måned) then
  docmd.Openreport "Kundeliste Betalinger", Acviewpreview
else
  docmd.Openreport "Kundeliste Betalinger", Acviewpreview,,"Måned = " & Me!Måned
endif

hvad så når måned ikke er numerisk?

har funder ud af det.

tak for hjælpen

hmmm, håber du lige vil hjælpe igen.
Vil også gerne har Konsulent med.

Hvordan tilføjer jeg det?

Har tilføjet comboboks med konsulenter (tekst) men jeg får en type mismatch?
I rapporten hedder feltet Konsulent og det er det samme i formularen,

dsjk

Hvis man har flere kriterier, så bliver det lidt mere besværligt:

Dim SQLStr as String
If not isnull(Me!Måned) and ME!Måned <> "" then
  SQLStr = "Måned = '" & Me!Måned & "' AND "
endif
If not isnull(Me!Konsulent) and ME!Konsulent <> "" then
  SQLStr = SQLStr & "Konsulent = '" & Me!Konsulent & "' And "
endif
SQLStr = LEft(SQLStr, len(SQLStr)-5
if Len(SQLStr) = 0 then
  docmd.Openreport "Kundeliste Betalinger", Acviewpreview
else
  docmd.Openreport "Kundeliste Betalinger", Acviewpreview,,SQLStr
endif

PS: På denne måde kan du i princippet blive ved at lægge nye kriterier på uendeligt. Du skal blot kopiere de 3 linier med "Konsulent"-kriterierne.

/Thomas

super, det virker. Efter jeg har rettet det lidt til.

Tak for hjælpen

dsjk