Filterung in Tabellarischem Formular

07/10/2007 - 20:37 von Hans Bläse | Report spam
Hallo NG!
Ich habe ein Formular in Tabellarischer Form und möchte Datensàtze
Filtern, d.h. Ich habe ein Steuerelement, wo ich Positionen stehen habe,
z.B. Werker oder Stapler usw. natürlich noch mehr Positionen, aber nur
diese Datensàtze möchte ich auch angezeigt bekommen.
Habe es mit einer Schleife versucht aber bekomme es nicht hin.

Wollte diese Prozedur beim laden des Formulars starten, damit ich die
aktiven Produktionskràfte herausfiltern kann.

Private Sub Form_Load()
Dim db As DAO.Database
Dim rs As DAO.Recordset

Set db = CurrentDb
Set rs = db.OpenRecordset("abf_MA_anwesend", dbOpenDynaset)

' Hier möchte ich nun die die Filterung - Nur "Werker" und "Stapler"
Datensàtze von Steuerelement Position anzeigen, Datensàtze
'mit anderem Inhalt sollen nicht angezeigt werden.

' Dann habe ich hier ein label wo ich dann ausgeben möchte wieviele
Mitarbeiter (gefiltert Anzahl) angezeigt wird.

Me!lblMA.Caption = "Es sind derzeit " & rs.RecordCount & " Mitarbeiter
in der Schicht 1 anwesend ! Stand " & Date

End Sub


Danke schon mal für eure Hilfe
Gruß Hans
 

Lesen sie die antworten

#1 Thomas Möller
08/10/2007 - 20:51 | Warnen spam
Hallo Hans,

Hans Blàse schrieb:
Ich habe ein Formular in Tabellarischer Form und möchte Datensàtze
Filtern, d.h. Ich habe ein Steuerelement, wo ich Positionen stehen
habe, z.B. Werker oder Stapler usw. natürlich noch mehr Positionen,
aber nur diese Datensàtze möchte ich auch angezeigt bekommen.
Habe es mit einer Schleife versucht aber bekomme es nicht hin.

Wollte diese Prozedur beim laden des Formulars starten, damit ich die
aktiven Produktionskràfte herausfiltern kann.

Private Sub Form_Load()
Dim db As DAO.Database
Dim rs As DAO.Recordset

Set db = CurrentDb
Set rs = db.OpenRecordset("abf_MA_anwesend", dbOpenDynaset)

' Hier möchte ich nun die die Filterung - Nur "Werker" und "Stapler"
Datensàtze von Steuerelement Position anzeigen, Datensàtze
'mit anderem Inhalt sollen nicht angezeigt werden.

' Dann habe ich hier ein label wo ich dann ausgeben möchte wieviele
Mitarbeiter (gefiltert Anzahl) angezeigt wird.

Me!lblMA.Caption = "Es sind derzeit " & rs.RecordCount & " Mitarbeiter
in der Schicht 1 anwesend ! Stand " & Date

End Sub



Du kannst Dir eine zusàtzliche Abfrage erstellen, die auf Deiner Abfrage
"abf_MA_anwesend" basiert. Dort tràgst Du als Kriterium die Werker und
die Stapler ein.
Diese Abfrage verwendest Du dann in Deinem Code.

HTH
Thomas

Homepage: www.Team-Moeller.de

Ähnliche fragen