Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Sortierung mit Listenfeld
zurück: Datenherkunft im Fomular auswählen, ist das möglich ? weiter: Problem beim Anwenden von Filtern 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
Crusico
zwischen Anfänger und Fortge.


Verfasst am:
06. Apr 2006, 11:48
Rufname:

Sortierung mit Listenfeld - Sortierung mit Listenfeld

Nach oben
       

Hi @ll,

Hab ein Formular mit einen Listenfeld (hat 12 Spalten und wird aus eine Abfrage gebildet wo sortiert wird nach letzter Wert Gruppierung)

Ich möchte jetzt gerne im gleichen Formular eine Suchfunktion erstellen, die sich auf das Listenfeld bezieht. Die Suchfunktion will ich aus 4 Dropdown flächen machen.

Beispiel:

Dropdown1 alle Daten zeigen bezieht sich auf Spalte 2 aus denn Listenfeld
or
Dropdown2 alle Daten zeigen bezieht sich auf Spalte 3 aus denn Listenfeld
or
Dropdown3 alle Daten zeigen bezieht sich auf Spalte 6 aus denn Listenfeld
or
Dropdown4 alle Daten zeigen bezieht sich auf Spalte 7 aus denn Listenfeld

Oder auch 2,3,4 kombinieren.

Danke
lothi
c#, .Net


Verfasst am:
07. Apr 2006, 08:48
Rufname:
Wohnort: Birgisch


AW: Sortierung mit Listenfeld - AW: Sortierung mit Listenfeld

Nach oben
       

Hallo

Bin nicht ganz schlau geworden.

Was soll genau passieren?
Du liest ein Wert aus dem Kombi aus und das Listenfeld wird sortiert oder Filtriert?

Alle 4 Kombis zusammen sollten dann einen Filter mit einer ODER Verknüpfung geben?

Du könntest in deiner Abfrage direkt auf die Kombis zugreifen.
Zitat:
Formulare!Formularname!Kombi1
ODER
Formulare!Formularname!Kombi2
Oder mit VBA die RowSource des Listenfeldes zusammenstellen.
_________________
Gruss Lothi, der Bastler
Feedback ist die beste Möglichkeit mir zu sagen ob die Antwort geholfen hat!
AC2002, WinXP, Office XP
Crusico
zwischen Anfänger und Fortge.


Verfasst am:
10. Apr 2006, 14:59
Rufname:

AW: Sortierung mit Listenfeld - AW: Sortierung mit Listenfeld

Nach oben
       

Crusico am 10. Apr 2006 um 07:16 hat folgendes geschrieben:
Hi lothi,

danke für Deine Hilfe,

wie kann ich das in VBA die RowSource des Listenfeldes zusammenstellen?

Das mit der Abfrage( Formulare!Formularname!Kombi1 ) funktioniert nicht so richtig, wenn ich das Formular starte ist das Listenfeld nicht sichtbar! <.. denke mal das es daran liegt, das er nicht erst alle Werte anzeigt sondern direkt die Abfrage bearbeitet...

So, hab mal rum gesucht und was gefunden.
Der VBA Code:
Code:
Private Sub test1_AfterUpdate()
    If Nz(Me!Test1) <> "" Then
        Me!Suche.RowSource = "SELECT * " & _
                               "FROM qrySuche " & _
                               "WHERE Profilform Like '*" & Me!Test1 & "*'"
      Else
        Me!Suche.RowSource = "SELECT * " & _
                               "FROM qrySuche"
    End If
End Sub
Wie kann ich eine und verknüpfung schreiben, also das gesucht wird nach Kombi1 und Kombi2?
jens05
Moderator


Verfasst am:
10. Apr 2006, 18:33
Rufname:
Wohnort: ~~~~~

AW: Sortierung mit Listenfeld - AW: Sortierung mit Listenfeld

Nach oben
       

Hallo,
die UND - Verknüpfung könnte so aussehen.
Code:
        Me!Suche.RowSource = "SELECT * " & _
                               "FROM qrySuche " & _
                              "WHERE Profilform Like '*" & Me!Test1 & "*'" & _
                               " AND Profilform Like '*" & Me!Test2 & "*'"

_________________
mfg jens05 Wink
Crusico
zwischen Anfänger und Fortge.


Verfasst am:
11. Apr 2006, 09:24
Rufname:


AW: Sortierung mit Listenfeld - AW: Sortierung mit Listenfeld

Nach oben
       

Das mit denn Code:
Code:
        Me!Suche.RowSource = "SELECT * " & _
                               "FROM qrySuche " & _
                              "WHERE Profilform Like '*" & Me!Test1 & "*'" & _
                               " AND Profilform Like '*" & Me!Test2 & "*'"
klappt Smile

Aber so kann ich nur mit und suche und nicht auch einzeln...
Und wie schreibe ich wenn ich noch ein Kombi. habe einfach den code:
Code:
                               " AND Profilform Like '*" & Me!Test3 & "*'"
erweitern?

Wie kann ich schreiben, wenn ich in Kombi. Test1 oder Test2 die auswahl alle habe, mir auch alles anzeigt?
jens05
Moderator


Verfasst am:
11. Apr 2006, 10:26
Rufname:
Wohnort: ~~~~~

AW: Sortierung mit Listenfeld - AW: Sortierung mit Listenfeld

Nach oben
       

Hallo,
versuche es doch mal so.
Code:
Private Sub test1_AfterUpdate()
    If Nz(Me!Test1) = "alle" Or Nz(Me!Test2) = "alle" _
    Or Nz(Me!Test1) = "" Then
        Me!Suche.RowSource = "SELECT * " & _
                               "FROM qrySuche"

      Else
        Me!Suche.RowSource = "SELECT * " & _
                               "FROM qrySuche " & _
                              "WHERE Profilform Like '*" & Me!Test1 & "*'" & _
                                " OR Profilform Like '*" & Me!Test2 & "*'" & _
                                " OR Profilform Like '*" & Me!Test3 & "*'"
    End If
End Sub

_________________
mfg jens05 Wink
Crusico
zwischen Anfänger und Fortge.


Verfasst am:
26. Mai 2006, 09:45
Rufname:

AW: Sortierung mit Listenfeld - AW: Sortierung mit Listenfeld

Nach oben
       

Crusico am 11. Apr 2006 um 12:16 hat folgendes geschrieben:
Hi jens05,

ne das funktioniert nicht mit deinen Code.
bekomme unterschiedliche Ergenisse raus.

1.Wenn ich test1 und test2 auf alle hab, zeigt er mir auch alle Datensätze an.

2.Wenn ich test1 verändere und auf suchen drücke, tut sich nichts.
das gleich ungekehrt.

3.wenn ich bei beiden was anderes habe, dann filter es was, aber nicht das richtige.

Hi,

wollte das Thema noch mal ansprechen und hab gesehen das ich es falsch erklärt habe. Hab nicht 3 mal das gleiche Kombifeld sondern 3 verschiedene Kombi´s! So sieht der Code jetzt aus:
Code:
    If Nz(Me!test1) = "Alle" And Nz(Me!test2) = "Alle" And _
       Nz(Me!test3) = "0" Then
        Me!Suche.RowSource = "SELECT * " & _
                               "FROM qrySuche"
      Else
        Me!Suche.RowSource = "SELECT * " & _
                               "FROM qrySuche " & _
                              "WHERE Verwendung Like '*" & Me!test1 & "*'" & _
                                " OR Profilform Like '*" & Me!test2 & "*'" & _
                                " OR Profilbreite Like '" & Me!test3 & "'"
    End If
das Listenfeld Suche wird aus einer Abfrage gebildet, der SQL Code:
Code:
SELECT qryLast.SpannwerkzeugNr, [tblDatenbasis*].Verwendung,
       [tblDatenbasis*].Profilform, [tblDatenbasis*].Profilbreite,
       [tblDatenbasis*].Länge, [tblDatenbasis*].Winkel,
       [tblDatenbasis*].Öffnungsbreite, [tblDatenbasis*].Mittelbohrung,
       [tblDatenbasis*].PositionBohrung, [tblDatenbasis*].DurchmesserBohrung,
       [tblDatenbasis*].Schlitzbreite, [tblDatenbasis*].Artikel,
       qryLast.MaxvonDatum AS Ausdr1, [tblDatenbasis*].Stückzahl
FROM   qryLast
       INNER JOIN [tblDatenbasis*]
       ON qryLast.SpannwerkzeugNr=[tblDatenbasis*].SpannwerkzeugNr;
Hab folgenden Problem noch, wenn ich Test1 ein Wert ausgesucht habe, filter er mich auch nur zu diesem Kriterium was raus. Wenn ich jetzt aber noch einen Wert aus Test2 mitauswähle, dann zeigt er mir auch für dieses Kriterium Werte! Also Werte von Test1 oder Werte von Test2 Ich wollte aber das es Test1 + Test2 Kriterum sucht und nicht für jedes einzele! Nur wenn ich z.B. ein Wert aus Test1 suche und bei Test2 auf alle stehen habe, dann soll er einzel suchen. Das gleich natürlich auch umgekert!
Willi Wipp
Moderator


Verfasst am:
28. Mai 2006, 18:31
Rufname:
Wohnort: Raum Wiesbaden

Re: Sortierung mit Listenfeld - Re: Sortierung mit Listenfeld

Nach oben
       

Hi Crusico,

wie waere es denn so
Code:
    Dim strSQL      As String
    Dim strWHERE    As String
   
    strSQL = "SELECT * " & _
               "FROM qrySuche"
    strWHERE$ = ""
    If Nz(Me!test1) <> "Alle" Then
        strWHERE$ = strWHERE$ & " AND Verwendung Like '*" & Me!test1 & "*'"
    End If
    If Nz(Me!test2) <> "Alle" Then
        strWHERE$ = strWHERE$ & " AND Profilform Like '*" & Me!test2 & "*'"
    End If
    If Nz(Me!test3) <> "Alle" Then
        strWHERE$ = strWHERE$ & " AND Profilbreite Like '*" & Me!test3 & "*'"
    End If
    If strWHERE$ <> "" Then strSQL$ = strSQL$ & " WHERE " & Mid$(strWHERE$, 6)
    Me!Suche.RowSource = strSQL$
Kannst Du beliebig erweitern Wink
_________________
Eine kurze Rueckmeldung waere nett
SL Willi Wipp

(Anleitung fuer das Anhaengen von Dateien: Klicke links auf [www], Gaeste muessen sich dafuer anmelden)


Zuletzt bearbeitet von Willi Wipp am 29. Mai 2006, 14:30, insgesamt 3-mal bearbeitet
Crusico
zwischen Anfänger und Fortge.


Verfasst am:
29. Mai 2006, 06:57
Rufname:

AW: Sortierung mit Listenfeld - AW: Sortierung mit Listenfeld

Nach oben
       

Danke Willi Wipp,

aber leider tut sich bei mir nichts Sad


Egal was ich auswähle und danach suche, in Datensatherkunft von ListenFeld Suche steht z.B. wenn ich in test1 Spannbacken auswähle:

Code:
SELECT * FROM qrySucheWHERE Verwendung Like '*Spannbacken*'


...Das andere ist, wenn ich die abfrage öffnen will über Datensatzherkunft kriege ich folgende Fehlermeldung:

Syntaxfehler in FROM-Klausel. ...


keine Daten angezeigt, nur wenn ich alles auf Alle stehen haben kriege ich was raus (natürlich dann alle Datensätze)!
Willi Wipp
Moderator


Verfasst am:
29. Mai 2006, 12:08
Rufname:
Wohnort: Raum Wiesbaden

Re: Sortierung mit Listenfeld (II) - Re: Sortierung mit Listenfeld (II)

Nach oben
       

Hi Crusico,

sorry mein Fehler Embarassed , da fehlte einfach nur ein Leerzeichen vor dem WHERE.
Habs es Oben eingefuegt Wink

_________________
Eine kurze Rueckmeldung waere nett
SL Willi Wipp

(Anleitung fuer das Anhaengen von Dateien: Klicke links auf [www], Gaeste muessen sich dafuer anmelden)
Crusico
zwischen Anfänger und Fortge.


Verfasst am:
29. Mai 2006, 13:26
Rufname:

AW: Sortierung mit Listenfeld - AW: Sortierung mit Listenfeld

Nach oben
       

Crusico am 29. Mai 2006 um 12:13 hat folgendes geschrieben:
1000 Danke Willi Wipp,

Das funktioniert jetzt Smile

Hab da noch eine Frage Willi Wipp und zwar wenn ich das Formular schliese und wieder offne, zeigt er mir immer das letzten ausgewählten Kriterium an was ich vorher ausgewählt habe. Wie kann ich schreiben, das er mir beim öffnen des Formulars alle Datensätze anzeigt?
Willi Wipp
Moderator


Verfasst am:
29. Mai 2006, 14:31
Rufname:
Wohnort: Raum Wiesbaden

Re: Sortierung mit Listenfeld (III) - Re: Sortierung mit Listenfeld (III)

Nach oben
       

Hi Crusico,

na indem Du Beim Oeffnen (Open) des Formular folgendes machst
Code:
    Dim strSQL      As String
   
    strSQL = "SELECT * " & _
               "FROM qrySuche"
    Me!Suche.RowSource = strSQL$
Oder habe ich das jetzt falsch verstanden?
_________________
Eine kurze Rueckmeldung waere nett
SL Willi Wipp

(Anleitung fuer das Anhaengen von Dateien: Klicke links auf [www], Gaeste muessen sich dafuer anmelden)
Crusico
zwischen Anfänger und Fortge.


Verfasst am:
30. Mai 2006, 06:53
Rufname:


AW: Sortierung mit Listenfeld - AW: Sortierung mit Listenfeld

Nach oben
       

Genau das braucht ich Willi Wipp, das es mir die Variable beim offnen auf alle zeigt. Danke.
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: Summe von den Optionen im Listenfeld 4 Disastro 491 22. Jan 2008, 08:08
jens05 Summe von den Optionen im Listenfeld
Keine neuen Beiträge Access Tabellen & Abfragen: Aktualisierungsabfrage bei Mehrfachauswahl in Listenfeld 5 Betullam 785 04. Jan 2008, 22:25
Betullam Aktualisierungsabfrage bei Mehrfachauswahl in Listenfeld
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage starten vom Listenfeld 3 JoSCh1 781 19. Okt 2007, 14:22
Willi Wipp Abfrage starten vom Listenfeld
Keine neuen Beiträge Access Tabellen & Abfragen: Sortierung einer Tabelle ist seltsam... :-) 2 guest 333425 394 09. Sep 2007, 10:18
guest 333425 Sortierung einer Tabelle ist seltsam... :-)
Keine neuen Beiträge Access Tabellen & Abfragen: Filter im Listenfeld aus Abfrage 1 hansemann2510 687 23. Aug 2007, 21:22
hansemann2510 Filter im Listenfeld aus Abfrage
Keine neuen Beiträge Access Tabellen & Abfragen: Wie kann ich sortierung verhindern? 2 Gast 886 19. Jul 2007, 19:10
KlausMz Wie kann ich sortierung verhindern?
Keine neuen Beiträge Access Tabellen & Abfragen: Größer Kleiner-wert- Abfrage in Listenfeld einbauen 4 toxicman 1708 24. Jun 2007, 19:26
toxicman Größer Kleiner-wert- Abfrage in Listenfeld einbauen
Keine neuen Beiträge Access Tabellen & Abfragen: abhängiges Listenfeld 1 access_anfaenger 797 13. Jun 2007, 14:03
blicki abhängiges Listenfeld
Keine neuen Beiträge Access Tabellen & Abfragen: Sortierung eines Feldes mit Zahlen und Buchstaben 3 Gastheute 985 25. Mai 2007, 11:51
Thomas2007 Sortierung eines Feldes mit Zahlen und Buchstaben
Keine neuen Beiträge Access Tabellen & Abfragen: Sortierung in Abfrage genau wie Tabelle 3 AnnRee 398 16. Apr 2007, 13:20
Nouba Sortierung in Abfrage genau wie Tabelle
Keine neuen Beiträge Access Tabellen & Abfragen: Kreuztabelle - Spaltenüberschriften - Sortierung 4 Uli2 4326 23. März 2007, 14:09
Uli2 Kreuztabelle - Spaltenüberschriften - Sortierung
Keine neuen Beiträge Access Tabellen & Abfragen: Verschachtelte Sortierung in Abfrage 5 Thrillhouse 1091 17. Okt 2006, 12:39
Willi Wipp Verschachtelte Sortierung in Abfrage
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Dreamweaver Forum