Keuzemenu voor afdrukken

Status
Niet open voor verdere reacties.
J

jlebbink

Gebruiker
Lid geworden
15 feb 2010
Berichten
106
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.
 

Bijlagen

Ik zou het anders aanpakken:
Om te beginnen krijgt je rapport een stukje code.
Code: 
Private Sub Report_Close()
    Forms!frmKeuzemenu.Form.Visible = True
End Sub
En op je formulier gebruik je deze: (de knop kan dus weg)
Code: 
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
 
Geweldig, het werkt prima.

Ik begrijp de oplossing. Weer wat geleerd.

Mijn dank is groot.
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan