Zusätzliches Suchkriterium über Kontrollkästchen

14/04/2011 - 08:34 von Cliff McLane | Report spam
Hallo zusammen,

ich brauche mal wieder Hilfe... Ein Formular mit einem
Kombinationsfeld sucht ein Produkt.

Private Sub lbxProduktauswahl_AfterUpdate()
' Produktauswahl
Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[SCProduktID] = " & Str(Nz(Me![lbxProduktauswahl],
0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark

End Sub

Die Quelltabelle mit den Produkten hat eine Spalte mit einem ja/nein
Feld (cboAktiv) weil manche Produkte inaktiv sind aber zu
Nachschlagezwecken nicht gelöscht werden dürfen. Nun möchte ich neben
dem Kombinationsfeld ein Kontrollkàstchen setzen, dass, wenn gesetzt,
nur die aktiven Produkte in der Liste selektiert/anzeigt. Wer kann
helfen?

Vielen Dank im Voraus
 

Lesen sie die antworten

#1 Andreas Vogt
14/04/2011 - 08:39 | Warnen spam
Hallo
Nun möchte ich neben
dem Kombinationsfeld ein Kontrollkàstchen setzen, dass, wenn gesetzt,
nur die aktiven Produkte in der Liste selektiert/anzeigt.



das sollte in etwa so gehen:

if Me!Checkbox1 = true then
rs.FindFirst "[SCProduktID] = " & Str(Nz(Me![lbxProduktauswahl],
0)) & " And cboAktiv = True"
else
rs.FindFirst "[SCProduktID] = " & Str(Nz(Me![lbxProduktauswahl],
0))
End if

Gruß Andreas

Ähnliche fragen