Udførelse af rapport, med en hvis interval mellem datoer.

Lav en forespørgsel med relevante felter fra tabellerne. Evt. kan fu i forespørgslens kriteriefelt sætte 4-kantede paranteser, der giver dig wen inputboks når forespørgslen køres, eller du kan bruge Between koden i forespørgslen. Herefter kan du lave en rapport, der opsummerer beløbene:

=Sum[(FELTNAVN)]

Brug evt. Access indbyggede Guide når du klikker på ny rapport i databasevinduet. 

Make a form with two fields one named txtFra and the other txtTil. Name the form frmDates.

Then make a query choosing the fields you want in your report.
In the criteria for the date field add the following.

Between [Forms]![frmDates]![txtFra] And [Forms]![frmDates]![txtTil]

Save the query.
Then make a report using the report wizard. Choose the query you made from the combo box.

In the wizard you will be asked if you want any grouping. This could be for example order number, or Customer number. If you choose grouping then on th enext form you will see a button \"Summary Options\". If you press this buttin you can now choose which fields you want to sum. Otherwise you have to make you rown field like mugs says.
If you want to see the dates you have on the form then you can add a text box and then right click on the text box, choose properties. Then choose the data tab and right click in the control source field. Choose Build from the menu. Choose Forms, Loaded forms, frmDates. Then choose either the txtFra or txtTil fields depend on which text box your working with.

Thats about it.

On the form you can add a button to open the report. You can use the wizard to help you with this.

Du kan også bruge egenskaben filter:
Dette er et eksempel fra en af mine databaser:

Private Sub ÅbenRap(strRpt As String)
    Dim frmDate1 As String
    Dim frmDate2 As String
    frmDate1 = Format$(CDate(txtRapFilter1 & \" \" & txtRapFilterKL1), \"mm/dd/yyyy hh:nn:ss\")
    frmDate2 = Format$(CDate(txtRapFilter2 & \" \" & txtRapFilterKL2), \"mm/dd/yyyy hh:nn:ss\")
    DoCmd.OpenReport strRpt, acViewPreview
    Reports(strRpt).FilterOn = False
   
    If afkFilter = True Then
        Reports(strRpt).Filter = \"[tids] >= #\" & frmDate1 & _
                            \"# AND  [tids] <= #\" & frmDate2 & \"#\"
        Reports(strRpt).FilterOn = True
    End If
End Sub

min formular har 4 textfelter:
  txtRapFilter1, txtRapFilter2, txtRapFilterKL1, txtRapFilterKL2
  Her kan brugeren indtaste start/stop dato og klokkeslet
1 checkbox : afkFilter hvor filter slåes on/off

I rapporten er et datofelt med navnet [tids]

Rapporten åbnes med en klik_evnet som denne:
Private Sub CmdRapDetaljer_Click()
   
    ÅbenRap \"rpt_Detaljer\"
   
End Sub

Niels

gawc>Hows it going?

Takker.. svært at finde ud af hvem der skal have pointene, da jeg kunne bruge stort set lidt af hvert.

så derfor får den der kom først, desværre... men mange tak... blev klogere.

Ups  glemte at kogge min kammerat ud først :)