volgend probleem

[jo geuens]

ik heb onafhankelijke keuze lijsten met daarin artikels , deze worden gefilterd op leverancier merk en categorie en als laatste artikel.

nu heb ik in het artikel een veld J/N om een bep. artikel te arciveren indien dit niet leverbaar is of niet meer bestaad .
nu zouden deze niet meer mogen getoond worden na het filteren . is dit mogenlijk


deze code zit achter de cbobox van de categorie
en in het veld tblartikel.inactief zit de waarde J/N

Private Sub ProdCategorie_AfterUpdate()


Dim strSQL As String

strSQL = "SELECT tblArtikel.ArtikelID, tblArtikel.Artikelcode, tblArtikel.Artikelnaam, tblArtikel.CategorieID, tblArtikel.LeverancierID, tblArtikel.Prijsstuk, tblartikel.inarcief "
strSQL = strSQL & "FROM tblArtikel "
strSQL = strSQL & "WHERE(tblArtikel.CategorieID)=" & Me.ProdCategorie

Me.Artikel.RowSource = strSQL
Artikel.Requery
Me.Artikel.SetFocus

Select Case Me.Artikel.ListCount
    Case 0
        Me.Artikel = Null
    Case 1
        Me.Artikel = Me.Artikel.ItemData(0)
    Case Else
        Me.Artikel = Null
        Me.Artikel.Dropdown
End Select

End Sub

 

[OctaFish]

Lijkt me niet zo lastig:

    strSQL = "SELECT ArtikelID, Artikelcode, Artikelnaam, CategorieID, LeverancierID, Prijsstuk, inactief "
    strSQL = strSQL & "FROM tblArtikel "
    strSQL = strSQL & "WHERE(CategorieID= " & Me.ProdCategorie & " AND inactief = 0)"
    With Me.Artikel
        .RowSource = strSQL
        Requery
        Select Case .ListCount
            Case 0
                .Value = Null
            Case 1
                .Value = Me.Artikel.ItemData(0)
            Case Else
                .Value = Null
                .Dropdown
        End Select
    End With

 

[jo geuens]

hallo

ga deze afsluiten had al een nieuwe gepost