Keuzemenu voor afdrukken

[jlebbink]

Ik krijg het niet voor elkaar de afdrukkeuze voor middels een query werkend te krijgen.
Het gaat in deze om voorraadbeheer.
De afdruk keuzes:
1 Onvoldoende voorraad ( Magazijn beneden cq gelijk aan de minimale voorraad)
2 Voldoende voorraad (Magazijn voorraad groter dan de minimale voorraad)
3 Alles
Ik heb hiervoor een expressie in de Voorraad qry gemaakt.

 

[OctaFish]

Ik zou het anders aanpakken:
Om te beginnen krijgt je rapport een stukje code.

Private Sub Report_Close()
    Forms!frmKeuzemenu.Form.Visible = True
End Sub

En op je formulier gebruik je deze: (de knop kan dus weg)

Private Sub cboKeuze_AfterUpdate()
Dim strSQL As String, rpt As String
Dim qDef As QueryDef
Dim frm As Form
    
    Set frm = Me
    rpt = "Te bestellen"
    strSQL = "SELECT Artikelen.ArtikelId, Artikelen.Artikelgroep, Artikelgroepen.Omschrijving, Artikelen.Artikelnr, Artikelen.Merk, " _
        & "Artikelen.Omschrijving, Artikelen.Voorraadmagazijn, Artikelen.Minvoorraad, Artikelen.Inbestelling, " _
        & "Artikelen.Bestelhoeveelheid, Artikelen.Hoofdleverancier, Artikelen.Inkoopprijs " _
        & "FROM Artikelen INNER JOIN Artikelgroepen ON Artikelen.Artikelgroep = Artikelgroepen.Artikelgroep "
    If cboKeuze = "Onvoldoende voorraad" Then
        strSQL = strSQL & "WHERE (Artikelen.Voorraadmagazijn<[Minvoorraad]);"
    ElseIf cboKeuze = "Voldoende voorraad" Then
        strSQL = strSQL & "WHERE (Artikelen.Voorraadmagazijn>[Minvoorraad]);"
    End If
    Set qDef = CurrentDb.QueryDefs("Voorraad qry")
    qDef.SQL = strSQL
    DoCmd.OpenReport rpt, acViewPreview
    DoCmd.Maximize
    frm.Visible = False

End Sub

 

[jlebbink]

Geweldig, het werkt prima.

Ik begrijp de oplossing. Weer wat geleerd.

Mijn dank is groot.