Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Tabelleninhalt über mehrere Kombifelder selektieren
zurück: Unterformular Update - welches Event? weiter: Datensatzmarkierer/Recordselector ausblenden Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Bitte Status wählen ! Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
stefan2004
Neuling


Verfasst am:
17. Jun 2004, 10:45
Rufname:
Wohnort: Regensburg

Tabelleninhalt über mehrere Kombifelder selektieren - Tabelleninhalt über mehrere Kombifelder selektieren

Nach oben
       

Hallo miteinander,

ich bin Access-Anfänger und stehe vor einem für mich
unlösbaren Problem:
Ich möchte den Inhalt einer Tabelle über mehrere Kombinationsfelder,
deren Inhalt sich aneinander anpasst, steuern und in einem Unterformular
anzeigen. Konkret: In der Tabelle ist die Fauna verschiedener Grundstücke
eingetragen. Jedes Grundstück wird durch eine Grundstücks-ID gekennzeichnet. Die Fauna ist nun in eine Familie->Gattung->Art- Hierarchie
eingebunden (also für Familie eine Spalte mit Familien-ID, für Gattung
eine Spalte mit Gattung-ID,usw.). Nun möchte ich über mehrere Kombi-Felder zunächst nach der Fauna-Familie sortieren lassen, dann in
einem weiteren Kombi-Feld die zu dieser Familie gehörigen Gattungen
und dann die zugehörigen Arten (es sollen immer nur die zugehörigen
Einträge angezeigt werden!).
Das i-Tüpfelcehn wäre zuguterletzt eine ausgewählte Art an eine
Tabelle anzuhängen (eine Tabelle die die Arten bestimmten Grundstücken zuordnet).

Gibt es dafür eine (einfache) Lösung?

Stefan
Matthiasmms
Access-Kenner


Verfasst am:
17. Jun 2004, 14:37
Rufname:
Wohnort: Dresden


Hallo Stefan, - Hallo Stefan,

Nach oben
       

ich benutze immer diese Variante, Du kannst x Kombifelder dafür vorsehen.
Code:
Private Sub AddToWhere(FieldValue As Variant, FieldName As Variant, _
                       MyCriteria As Variant, ArgCount As Integer)
    ' Erstelle Kriterien für die Where - Klausel
    If FieldValue <> " " Then
        ' Füge "Und" hinzu, falls andere Kriterien vorhanden sind.
        If ArgCount > 0 Then
            MyCriteria = MyCriteria & " And "
        End If
        ' Anhängen des Kriteriums an existierende Kriterien
        ' Schließe "FieldValue" und "Sternchen" in Ausführungszeichen ein.
        MyCriteria = MyCriteria & FieldName & "=" & FieldValue
        ArgCount = ArgCount + 1
    End If
End Sub

Sub dasAnzeigen()
    Dim MySQL As String, MyCriteria As String, MyRecordSource As String
    Dim ArgCount As Integer

    ArgCount = 0
    MyCriteria = " "
    MySQL = "SELECT * From DeineAbfragefürdasFormular Where "
       
    AddToWhere [KombiGrundstücksID], "[Grundstücks-ID]", MyCriteria, ArgCount
    AddToWhere [KombiGattungID], "[Gattung-ID]", MyCriteria, ArgCount
    AddToWhere [nächstesKombi], "[nächste-ID]", MyCriteria, ArgCount
       
    If MyCriteria = " " Then MyCriteria = "True"
    MyRecordSource = MySQL & MyCriteria
    Me.DeineUnterformular.Form.RecordSource = MyRecordSource
           
    If Me.RecordsetClone.RecordCount = 0 Then
        MsgBox "Es existieren keine Datensätze, " & _
               "die den angegebenen Kriterien entsprechen.", _
               vbExclamation, "Keine Datensätze gefunden"
    End If
End Sub

Jedes Kombifeld kannst du Nach Aktualisierung auf die Sub Anzeige setzen!
Kannst Dich ja noch einmal melden, wenn Du nicht klar kommst!
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: In einer Abfrage nach Textstellen selektieren 3 Berna 107 13. Apr 2013, 10:07
Gast In einer Abfrage nach Textstellen selektieren
Keine neuen Beiträge Access Tabellen & Abfragen: Tabelleninhalt als Abfragekriterium 5 Gast 031212 206 06. Dez 2012, 06:41
Nouba Tabelleninhalt als Abfragekriterium
Keine neuen Beiträge Access Tabellen & Abfragen: Zeiterfassung, Kombifelder, Tabellen 7 Gast 823 05. Jul 2010, 16:03
chrisi499 Zeiterfassung, Kombifelder, Tabellen
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage selektieren mit Kombinationsfeld 15 maxvomsee 1124 13. Jan 2010, 16:56
astern Abfrage selektieren mit Kombinationsfeld
Keine neuen Beiträge Access Tabellen & Abfragen: Tabelleninhalt kopieren (Beziehung) 11 Chrischiable 1845 02. Dez 2009, 13:26
astern Tabelleninhalt kopieren (Beziehung)
Keine neuen Beiträge Access Tabellen & Abfragen: Tabelleninhalt mit Datum nach Wochen sortieren 10 Morphe 917 05. Nov 2009, 12:31
MissPh! Tabelleninhalt mit Datum nach Wochen sortieren
Keine neuen Beiträge Access Tabellen & Abfragen: Datum selektieren nach aktueller Woche 9 adamth 3578 21. Sep 2009, 20:23
lukretu Datum selektieren nach aktueller Woche
Keine neuen Beiträge Access Tabellen & Abfragen: DS immer mit dem aktuellsten Datum selektieren 2 Daniel1979 709 28. Jul 2009, 10:14
Daniel1979 DS immer mit dem aktuellsten Datum selektieren
Keine neuen Beiträge Access Tabellen & Abfragen: Kombifelder verbinden 5 solarlaus 404 02. März 2009, 15:14
solarlaus Kombifelder verbinden
Keine neuen Beiträge Access Tabellen & Abfragen: Tabelleninhalt aufteilen 9 pho 709 29. Mai 2008, 20:04
pho Tabelleninhalt aufteilen
Keine neuen Beiträge Access Tabellen & Abfragen: Bestimmte Datensätze selektieren und löschen 1 S.O. 512 27. Feb 2008, 18:22
Nouba Bestimmte Datensätze selektieren und löschen
Keine neuen Beiträge Access Tabellen & Abfragen: Tabelleninhalt als Abfrage-Kriterium verwenden 1 Thommy1589 714 12. Sep 2007, 20:20
jens05 Tabelleninhalt als Abfrage-Kriterium verwenden
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft-Excel Diagramme