Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Alle Werte einer Tabelle in einstellbarem Listenfeld zeigen
zurück: DAO/ADO: Fehler bei Recordset / Database ab A00 (Verweise) weiter: Lösung: Kundennummer vergeben mit führenden Nullen Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Tutorial Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
derArb
getting better


Verfasst am:
12. Okt 2007, 18:01
Rufname: derArb
Wohnort: Berlin

Alle Werte einer Tabelle in einstellbarem Listenfeld zeigen - Alle Werte einer Tabelle in einstellbarem Listenfeld zeigen

Nach oben
       Version: Office XP (2002)

hallo,

ein Beispiel, wie man über Optionsfelder die Abfrage der Spalten (Columns)
einstellen kann und wie man weiterhin das Suchergebnis über alle Tabellenfelder
erreichen kann.
Code:
Option Compare Database
Option Explicit

Private Sub LstMeinListenfeld_DblClick(Cancel As Integer)
    Dim strSQL      As String
   
    strSQL = "SELECT * " & _
               "FROM [Adressen] " & _
              "WHERE [Firma] & '|' & [Vorname] & '|' & [Nachname] & " & _
              "'|' & [PLZ] & '|' & [Ort] & '|' & [Strasse] Like '*" & _
                     Me!LstMeinListenfeld.Column(Me!Optionsrahmen) & "*' " & _
          " ORDER BY [Vorname]" 'Tipp von Willi Wipp
    With Forms!DeinFormularListeFiltern!LstMeinListenfeld
        .RowSourceType = "Table/Query"
        .RowSource = strSQL
    End With
End Sub
{Code modifiziert by Willi Wipp}

Da mein upload Limit erreicht ist, kann man die Beispiel DB downloaden unter
Mein erstes Formular mit einem Listenfeld mit bebildeter Anleitung (MeinErstesFormularMitListenfeld.zip)

mfg
derArb

Nachtrag: derArb am 13. Okt 2007 um 01:38 hat folgendes geschrieben:
hallo Willi Wipp,
ich bin ja schon froh, dass Du es überhaupt in Tipps und Tricks behalten hast und Deine Version ist natürlich das Optimale wieder mal. Vielen Dank für die Optimierung.

Meine Version sollte zusätzlich zeigen, wie man über select case verschiedene SQL codes verwalten kann. Für einfacher gestrickte Leute wäre das evtl. übersichtlicher.
Ausserdem können bei mir die SQL codes je Optionsauswahl auch verschieden gestaltet werden.
Sie haben aber ja nun die Möglichkeit, beide Code Versionen anzusehen.
Ich habe Deine Version natürlich in meine downloadbare Beispiel DB sofort eingearbeitet....

mfg
derArb

_________________
MfG
derArb

Scio me nihil scire...Εν οίδα οτι ουδέν οίδα... Ich weiss, dass ich nichts weiss (Sokrates)
Ich bevorzuge Beiträge mit korrekter deutscher Grammatik.



MeinErstesFormularMitListenfeld.zip
 Beschreibung:
Geaenderte DB angehaengt by Willi Wipp

Download
 Dateiname:  MeinErstesFormularMitListenfeld.zip
 Dateigröße:  28.67 KB
 Heruntergeladen:  131 mal

Willi Wipp
Moderator


Verfasst am:
14. Okt 2007, 00:15
Rufname:
Wohnort: Raum Wiesbaden


Re: Alle Werte einer Tabelle in einstellbarem Listenfeld zei - Re: Alle Werte einer Tabelle in einstellbarem Listenfeld zei

Nach oben
       Version: Office XP (2002)

Hi derArb,

wenn es um die Uebersichtlichkeit und die Verwendung von Select Case geht, dann vielleicht so
Code:
Option Compare Database
Option Explicit

Private Sub LstMeinListenfeld_DblClick(Cancel As Integer)
    Dim strSQL  As String
    Dim strWert As String
   
    Select Case Me!Optionsrahmen
      Case 1: strWert = Me!LstMeinListenfeld.Column(1)
      Case 2: strWert = Me!LstMeinListenfeld.Column(2)
      Case 3: strWert = Me!LstMeinListenfeld.Column(3)
      Case 4: strWert = Me!LstMeinListenfeld.Column(4)
      Case 5: strWert = Me!LstMeinListenfeld.Column(5)
      Case 6: strWert = Me!LstMeinListenfeld.Column(6)
    End Select
    strSQL = "SELECT * " & _
               "FROM [Adressen] " & _
              "WHERE [Firma] & '|' & [Vorname] & '|' & [Nachname] & " & _
              "'|' & [PLZ] & '|' & [Ort] & '|' & [Strasse] Like '*" & _
                                                           strWert & "*' " & _
           "ORDER BY [Vorname]"
    With Forms!DeinFormularListeFiltern!LstMeinListenfeld
        .RowSourceType = "Table/Query"
        .RowSource = strSQL
    End With
End Sub

_________________
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 14. Okt 2007, 21:56, insgesamt einmal bearbeitet
derArb
getting better


Verfasst am:
14. Okt 2007, 00:50
Rufname: derArb
Wohnort: Berlin

AW: Alle Werte einer Tabelle in einstellbarem Listenfeld zei - AW: Alle Werte einer Tabelle in einstellbarem Listenfeld zei

Nach oben
       Version: Office XP (2002)

hallo Willi Wipp,

bei mir gehts nur mit
Code:
    strSQL = "SELECT * " & _
               "FROM [Adressen] " & _
              "WHERE [Firma] & '|' & [Vorname] & '|' & [Nachname] & " & _
              "'|' & [PLZ] & '|' & [Ort] & '|' & [Strasse] Like '*" & _
                                                                   strWert & _
           "ORDER BY [Vorname]"
da ja & "*' " schon in strWert drin ist.

mfg
derArb

_________________
MfG
derArb

Scio me nihil scire...Εν οίδα οτι ουδέν οίδα... Ich weiss, dass ich nichts weiss (Sokrates)
Ich bevorzuge Beiträge mit korrekter deutscher Grammatik.
Willi Wipp
Moderator


Verfasst am:
14. Okt 2007, 21:59
Rufname:
Wohnort: Raum Wiesbaden

Re: Alle Werte einer Tabelle in einstellbarem List... (II) - Re: Alle Werte einer Tabelle in einstellbarem List... (II)

Nach oben
       Version: Office XP (2002)

Hi derArb,

da hast Du natuerlich recht. ich habe es Oben im Code korrigiert.

_________________
Eine kurze Rueckmeldung waere nett
SL Willi Wipp

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


Verfasst am:
17. Okt 2007, 05:10
Rufname: derArb
Wohnort: Berlin

AW: Alle Werte einer Tabelle in einstellbarem Listenfeld zei - AW: Alle Werte einer Tabelle in einstellbarem Listenfeld zei

Nach oben
       Version: Office XP (2002)

hallo,

hier nun eine Beispiel DB (Alternativen mit Hilfe von Willi Wipp und vielen Anderen erarbeitet), in welcher eine umfangreiche Listenauswertung dargestellt wird.
Zusätzlich ist nun eine alphanumerische Auswertung des Listenfelds möglich.
(Das alphanumerische Listenfeld stellt automatisch numerische Werte zur Verfügung...siehe PLZ)
Ausserdem eine Verkoppelung der Ansicht des Formulars mit den Listenfeldeinträgen.
Sobald ich wieder Zeit habe, werde ich auch eine Unterscheidbarkeit hinzufügen, welche zwischen generell zusätzliche Filterungen. wie...Like *. und Like*.* unterscheiden kann

mfg
derArb
Nachtrag: derArb am 20. Okt 2007 um 02:06 hat folgendes geschrieben:
hallo,

Willi Wipp hat diese Version in solch professioneller Version überarbeitet,
dass weitere Fragen am besten an ihn weiterhin gestellt werden sollten.

mfg
derArb

_________________
MfG
derArb

Scio me nihil scire...Εν οίδα οτι ουδέν οίδα... Ich weiss, dass ich nichts weiss (Sokrates)
Ich bevorzuge Beiträge mit korrekter deutscher Grammatik.



MeinErstesFormularMitListenfeld.zip
 Beschreibung:
Version aktualisiert 18.10.2007 00:20

Download
 Dateiname:  MeinErstesFormularMitListenfeld.zip
 Dateigröße:  38.22 KB
 Heruntergeladen:  121 mal

Willi Wipp
Moderator


Verfasst am:
21. Okt 2007, 14:36
Rufname:
Wohnort: Raum Wiesbaden


Re: Alle Werte einer Tabelle in einstellbarem List... (III) - Re: Alle Werte einer Tabelle in einstellbarem List... (III)

Nach oben
       Version: Office XP (2002)

Hi Folks,

auf Wunsch von derArb habe ich die DB noch ein Wenig ueberarbeitet.
Mir fehlt allerdings momentan die Zeit das Beispiel zu optimieren und zu testen.
Daher habe ich weitgehend auf dem vorhandene Beispiel aufgesetzt und nicht alle Aenderungswuensch integriert.
Dieses liegt primaer an der fuer die bisherigen Anforderungen guten Gestaltung des Formulars,
die bei weiteren Optionen aber ein Redesign notwendig machen wuerde (Platzproblem).

Nachfragen bitte im Thema Einstellbares Listenfeld {Nachgefragt} stellen.

_________________
Eine kurze Rueckmeldung waere nett
SL Willi Wipp

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



FormularMitListenfeld.zip
 Beschreibung:

Download
 Dateiname:  FormularMitListenfeld.zip
 Dateigröße:  33.6 KB
 Heruntergeladen:  182 mal

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: Tage auf Datum addieren und an bestehende Tabelle anfügen... 1 lorelei 1234 11. Jun 2004, 08:38
stpimi Tage auf Datum addieren und an bestehende Tabelle anfügen...
Keine neuen Beiträge Access Tabellen & Abfragen: tabelle exportieren 1 Gast 1501 01. Jun 2004, 12:25
Willi Wipp tabelle exportieren
Keine neuen Beiträge Access Tabellen & Abfragen: Duplikate einer Tabelle löschen?! 3 Esel 2108 28. Mai 2004, 08:53
lothi Duplikate einer Tabelle löschen?!
Keine neuen Beiträge Access Tabellen & Abfragen: Spaltennamen einer Tabelle ermitteln 1 Alexander Neron 899 27. Mai 2004, 13:47
lothi Spaltennamen einer Tabelle ermitteln
Keine neuen Beiträge Access Tabellen & Abfragen: kein Wert in der Tabelle, dann immer Null (0)?? 3 Michel_9 1005 26. Mai 2004, 14:28
Michel_9 kein Wert in der Tabelle, dann immer Null (0)??
Keine neuen Beiträge Access Tabellen & Abfragen: Tabelle formatiert in txt-Datei exportieren 1 robby 1115 12. Apr 2004, 23:10
Helge Tabelle formatiert in txt-Datei exportieren
Keine neuen Beiträge Access Tabellen & Abfragen: Werte aus Formular per VBA in andere Tabelle anfügen 1 Gast 1861 04. Apr 2004, 21:27
el_gomero Werte aus Formular per VBA in andere Tabelle anfügen
Keine neuen Beiträge Access Tabellen & Abfragen: Zeilenumbruch nach Einfügen Word Tabelle 2 topflop 1698 30. März 2004, 16:06
Gast Zeilenumbruch nach Einfügen Word Tabelle
Keine neuen Beiträge Access Tabellen & Abfragen: Wert einer Abfrage in Tabelle kopieren? 1 BerlinerWolf 2009 21. März 2004, 12:43
Maya Wert einer Abfrage in Tabelle kopieren?
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage - keine doppelten Werte Anzeigen? 1 Gerd 713 17. März 2004, 12:04
Gerd Abfrage - keine doppelten Werte Anzeigen?
Keine neuen Beiträge Access Tabellen & Abfragen: Daten als Spaltenüberschriften einer anderen Tabelle 1 Melburnt 685 03. März 2004, 17:11
lothi Daten als Spaltenüberschriften einer anderen Tabelle
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage, die sich auf 2 Abfragen + 1 Tabelle bezieht 1 caro456 1832 27. Jan 2004, 20:03
Willi Wipp Abfrage, die sich auf 2 Abfragen + 1 Tabelle bezieht
 

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