Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
probleme beim filtern des listenfeldes durch combobox
zurück: Vernünftig Variablen zwischen Subs übergeben? weiter: Zugriff von Subclass zu "Parent" mit eigenen Klass Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
bobrock42
Anfänger ACCES, VBA


Verfasst am:
07. Feb 2012, 12:28
Rufname:

probleme beim filtern des listenfeldes durch combobox - probleme beim filtern des listenfeldes durch combobox

Nach oben
       Version: Office 2010

Guten morgen Forum,

Ein Problem beim Filtern eines Textfeldes mittels combo-box:

ich habe zwei tabellen: tblMonteure und tblAuftragnehmer
Jeder Mitarbeiter ist einem Auftragnehmer zugeordnet

In einem Formular (Datenherkunft: tblMonteure) benutze ich ein Listenfeld (LbFilter) in dem alle Mitarbeiter aufgelistet sind, und in dem ich per Klick durch die Datensätze der Mitarbeiter navigieren kann.

Nun möchte ich diese Listenfeld per combobox (cboUnternehmen) filtern lassen.

Ich bin dabei so vorgegangen:

1. Beim öffnen des Formulars wird die Liste gefüllt durch:

Code:
Private Sub Form_Open(Cancel As Integer)

Dim strSQL  As String

 strSQL = "SELECT MonteurID, Vorname, Nachname, Geburtsdatum, AuftragnehmerIDf " & _
               "FROM tblMonteure " & _
           "ORDER BY [Vorname] asc"
           
   Debug.Print strSQL

    Me!LbFilter.RowSource = strSQL
    Me!cboUnternehmen.RowSource = "qryUnternehmen1"
    Me!Zaehler = Me!LbFilter.ListCount - 1
   
End Sub


das Kombifeld hat als Datensatzherkunft die Abfrage qryUnternehmen1...

Code:
SELECT DISTINCT tblAuftragnehmer.AuftragnehmerID
FROM tblAuftragnehmer;


...und ist beim Klick mit folgender Ereignisprozedur versehen:

Code:
Private Sub cboUnternehmen_Click()

    Dim strSQL  As String
   
    strSQL = "SELECT MonteurID, Vorname, Nachname, Geburtsdatum, AuftragnehmerIDf " & _
               "FROM tblMonteure " & _
              "WHERE AuftragnehmerIDf = '" & Me!cboUnternehmen & "'" & _
           "ORDER BY [Vorname] asc"
   
    Me!LbFilter.RowSource = strSQL
    Me!Zaehler = Me!LbFilter.ListCount - 1
   
End Sub


Jetzt die Fragen:

1. Wenn ich das Formular aufmache ist die Liste gefüllt, aber sobald ich den Wert in der Kombibox verändere, wird sie leer!

2. Ich habe, um das selbst für mich nachvollziehen zu können, nur mit Fremdschlüssel (AuftragnehmerIDf) in der Abfrage qryUnternehmen1 gearbeitet. Später sollte man da in der Combobox mit der Firmenbezeichnung arbeiten. Hat das Auswirkung auf die Filterfunktion?

Hoffe auf eure Antworten!
kyron9000
Practitioner :)


Verfasst am:
07. Feb 2012, 13:25
Rufname:
Wohnort: Wien


AW: probleme beim filtern des listenfeldes durch combobox - AW: probleme beim filtern des listenfeldes durch combobox

Nach oben
       Version: Office 2010

Hallo,
Code:
strSQL = " SELECT MonteurID, Vorname, Nachname, Geburtsdatum, AuftragnehmerIDf " & _
         " FROM tblMonteure " & _
         " WHERE AuftragnehmerIDf = '" & Me!cboUnternehmen & "'" & _
         " ORDER BY [Vorname] asc"

denke Abstände z.B. (" ORDER...) solltest auch eingeben und ist die ID wirklich ein String?
Dann, im Kontrollkästchen als Ereignis "Nach Aktualisierung"
Hat keine Auswirkung, wenn die "Gebundene Spalte" die ID ist!

_________________
Gruß Alfred...

Es ist nicht immer alles so einfach wie es sich im Moment darstellt...
bobrock42
Anfänger ACCES, VBA


Verfasst am:
07. Feb 2012, 13:37
Rufname:

AW: probleme beim filtern des listenfeldes durch combobox - AW: probleme beim filtern des listenfeldes durch combobox

Nach oben
       Version: Office 2010

meinst du das ereignis der kombobox? habe versucht das Ereignis afterUdpate und nicht nach Klick aber es funktioniert immer noch nicht!

was meinst du mit ID und String?
Marmeladenglas
komme zurecht


Verfasst am:
07. Feb 2012, 13:39
Rufname:

AW: probleme beim filtern des listenfeldes durch combobox - AW: probleme beim filtern des listenfeldes durch combobox

Nach oben
       Version: Office 2010

Hi,
du setzt den Wert aus dem Kombifeld in Hochkommas. Das tut man nur wenn der Wert einen String und keine Zahl darstellt.
AuftragnehmerIDRef sollte aber auf jeden Fall eine Zahl sein !

Zu Punkt2) Die Funktionalität bleibt komplett identisch. Du blendest lediglich den Fremdschlüssel im Kombi aus und zeigst so die Firmenbezeichnung.
Es wäre ein FEhler die Filterung plötzlich über die Firmenbzeichnung machen zu wollen !


Zuletzt bearbeitet von Marmeladenglas am 07. Feb 2012, 13:40, insgesamt einmal bearbeitet
kyron9000
Practitioner :)


Verfasst am:
07. Feb 2012, 13:40
Rufname:
Wohnort: Wien

AW: probleme beim filtern des listenfeldes durch combobox - AW: probleme beim filtern des listenfeldes durch combobox

Nach oben
       Version: Office 2010

ja, Kombobox Smile
...wenn die ID eine Zahl ist, die Hochkomma weglassen
" WHERE AuftragnehmerIDf = '" & Me!cboUnternehmen & "'"

_________________
Gruß Alfred...

Es ist nicht immer alles so einfach wie es sich im Moment darstellt...
bobrock42
Anfänger ACCES, VBA


Verfasst am:
07. Feb 2012, 13:59
Rufname:


AW: probleme beim filtern des listenfeldes durch combobox - AW: probleme beim filtern des listenfeldes durch combobox

Nach oben
       Version: Office 2010

Danke Dir, funzt einwandfrei!
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Access Tabellen & Abfragen: ComboBox (sry Englisches Access) 1 Suli 486 30. Aug 2007, 19:22
rita2008 ComboBox (sry Englisches Access)
Keine neuen Beiträge Access Tabellen & Abfragen: Filtern mit Drop Down in neues Formular????? 5 seppel27 2109 14. Aug 2007, 09:07
Willi Wipp Filtern mit Drop Down in neues Formular?????
Keine neuen Beiträge Access Tabellen & Abfragen: Nach Zeitraum filtern (NULL-Wert Problem) 1 Neo3000 686 05. Jul 2007, 11:26
Neo3000 Nach Zeitraum filtern (NULL-Wert Problem)
Keine neuen Beiträge Access Tabellen & Abfragen: Daten in access 2003 - Filtern leerer Felder 2 Amitl 1612 30. Mai 2007, 21:25
Amitl Daten in access 2003 - Filtern leerer Felder
Keine neuen Beiträge Access Tabellen & Abfragen: Zeile eines Listenfeldes hervorheben 5 c.h.r.i.s.s 493 19. Mai 2007, 21:56
jens05 Zeile eines Listenfeldes hervorheben
Keine neuen Beiträge Access Tabellen & Abfragen: Datumsbereiche auf Quartal filtern? 5 IV 8521 09. Apr 2007, 15:10
steffen0815 Datumsbereiche auf Quartal filtern?
Keine neuen Beiträge Access Tabellen & Abfragen: Alle Datensätze, die in einem Jahr und Monat sind filtern 3 Desert Storm 808 02. Apr 2007, 15:49
Thomas2007 Alle Datensätze, die in einem Jahr und Monat sind filtern
Keine neuen Beiträge Access Tabellen & Abfragen: Report filtern? 2 joob_rz 511 01. März 2007, 17:20
joob_rz Report filtern?
Keine neuen Beiträge Access Tabellen & Abfragen: nur gefüllte ds filtern 4 kaoru 394 12. Feb 2007, 09:29
kaoru nur gefüllte ds filtern
Keine neuen Beiträge Access Tabellen & Abfragen: Access 2000 : Abfrage zum Filtern des Geburtsjahres ! 7 rabie 2315 08. Feb 2007, 12:35
rabie Access 2000 : Abfrage zum Filtern des Geburtsjahres !
Keine neuen Beiträge Access Tabellen & Abfragen: Geburtstage filtern 1 Unrealfighter 801 05. Okt 2006, 06:57
jens05 Geburtstage filtern
Keine neuen Beiträge Access Tabellen & Abfragen: In Abfragen nach Datum filtern 12 grandmasterb10 1003 09. Sep 2006, 17:51
grandmasterb10 In Abfragen nach Datum filtern
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Word VBA