Sortering af oplysninger

du skal bare lave en

Case select og så angive de kritere for hver enkelt afkrydsnings boks, med en string der angiver kriteret i rapporten.

Bind dem samme i en forspørgelse, og byg rapporten på den

Kunne i evt. give et eksempel da jeg ikke er så skrap til access endnu.

det er ikke så nemt hvis ikke du kan lidt VBA ?  men det se nogenlunde sådan ud


kode start-------

Private Sub Kommandoknap19_Click()

    Dim strFilter As String, strReportName As String
    Select Case Ramme0
   
    Case 1
        strFilter = \"(Kunder.[Ansatte fra]>=1) AND (Kunder.[Ansatte til]>=50)\"
    Case 2
        strFilter = \" (Kunder.[Ansatte fra]>=51) AND (Kunder.[Ansatte til]>=99)\"
    Case 3
        strFilter = \" (Kunder.[Ansatte fra]>=100) AND (Kunder.[Ansatte til]>=199)\"
    Case 4
        strFilter = \" (Kunder.[Ansatte fra]>=200) AND (Kunder.[Ansatte til]>=299)\"
    Case 5
        strFilter = \" (Kunder.[Ansatte fra]>=300) AND (Kunder.[Ansatte til]>=399)\"
    Case 6
        strFilter = \" (Kunder.[Ansatte fra]>=400) AND (Kunder.[Ansatte til]>=499)\"
    Case 7
        strFilter = \" (Kunder.[Ansatte fra]>=500)\"
    Case 8
        strFilter = \" (Kunder.[Ansatte fra]>=0) AND (Kunder.([Type=Kombinationsboks66])\"
    Case 9
        strFilter = \" (Kunder.[Ansatte fra]>=100)\"
    Case 10
        strFilter = \" (Kunder.[Ansatte fra]>=200)\"
    Case 11
        strFilter = \" (Kunder.[Ansatte fra]>=300)\"
    Case 12
        strFilter = \" (Kunder.[Ansatte fra]>=400)\"
    Case 13
        strFilter = \" (Kunder.[Ansatte fra]>=500)\"
   
    End Select
    Select Case Labeltype
    Case 1
        strReportName = \"vari_labels\"
        DoCmd.OpenReport strReportName, acViewPreview, , strFilter

    Case 2
        DoCmd.OpenReport \"Labels til tidligere kursister (kun en pr firma)\", acViewPreview

    Case 3
        DoCmd.OpenReport \" offentlige\", acViewPreview
        End Select
     
     
   
End Sub
kode slut

lukker, da jeg har fået nogle andre til at lave det