Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Recordsource vom UFo ändern durch Listenfelder
zurück: Optionsgruppe für Suchverknüpfung und oder weiter: Problem mit check-Box Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
MoXon
Anfänger


Verfasst am:
22. Jun 2007, 15:45
Rufname:
Wohnort: Hamburg

Recordsource vom UFo ändern durch Listenfelder - Recordsource vom UFo ändern durch Listenfelder

Nach oben
       Version: Office 2k (2000)

Hallo zusammen,

wie der Titel schon verrät versuche ich durch mehere Listenfelder mit Mehrfachauswahl den Recordsource eines Unterformluares zu ändern.
Komme aber leider nicht so richtig vorran Confused VIELEN DANK FÜR HILFE

Hier mal mein Code:
Code:
Private Sub Listen_Button_Click()
    Dim strSQL As String
    Dim strKrit As String
    Dim strKA As String
    Dim Feld(2) As String

    For Each varItem In Me!Liste_KA.ItemsSelected
        strKA = strKA & Me!Liste_KA.ItemData(varItem) & ","
    Next varItem
    For Each varItem In Me!Liste_WBKZ.ItemsSelected
        strKrit = strKrit & Me!Liste_WBKZ.ItemData(varItem) & ","
    Next varItem
    If Not strKrit = "" Then
        strKrit = Left(strKrit, Len(strKrit) - 1)
    End If
    If Not strKA = "" Then
        strKA = Left(strKA, Len(strKA) - 1)
    End If
    Feld(1) = strKrit
    Feld(2) = strKA
    WHERE_used = False
    Bedingung = False
    strSQL = "SELECT * FROM db_katalog_kosten WHERE USER=BenutzerName()"
    For I = 1 To 2
        If Not IsNull(Feld(I)) Then
            If WHERE_used = False Then
                strSQL = strSQL & " AND "
                WHERE_used = True
            End If
            Select Case Feld(I).Name
              Case "strKA"
                strSQL = strSQL & "KA In ('" & strKA & "') AND "
              Case "strKrit"
                strSQL = strSQL & "WBKZ In (" & strKrit & ") AND "
            End Select
            Bedingung = True
        End If
    Next I
    If Bedingung = True Then strSQL = Left(strSQL, Len(strSQL) - 4)
    Me!EUFO.Form.RecordSource = strSQL & ";"
Mit Kombinationsfeldern klappt des prima. Beispiel anbei...
Code:
Public Function Kombo_Update_New()
    Dim Feld(3) As Control, Formular As Form
   
    Set Formular = Forms!Katalogkosten
    SQL = "SELECT * FROM db_katalog_kosten WHERE USER=BenutzerName()"
    Set Feld(1) = Formular!Kombo_WBKZ
    Set Feld(2) = Formular!Kombo_KA
    Set Feld(3) = Formular!Kombo_WBKZ_BEZ
    WHERE_used = False
    Bedingung = False
    For I = 1 To 3
        If Not IsNull(Feld(I)) Then
            If WHERE_used = False Then
                SQL = SQL & " AND "
                WHERE_used = True
            End If
            Select Case Feld(I).Name
              Case "Kombo_WBKZ_BEZ"
                SQL = SQL & "[WBKZ_BEZ] = '" & Feld(I) & "' AND "
              Case "Kombo_KA"
                SQL = SQL & "[KA] = '" & Feld(I) & "' AND "
              Case Else
                SQL = SQL & "[" & Right(Feld(I).Name, _
                                        Len(Feld(I).Name) - 6) & "] = " & _
                                                             Feld(I) & " AND "
            End Select
            Bedingung = True
        End If
    Next I
    If Bedingung = True Then SQL = Left(SQL, Len(SQL) - 4)
    Me!EUFO.Form.RecordSource = SQL & ";"
End Function
blicki
Es wird langsam besser...


Verfasst am:
22. Jun 2007, 16:01
Rufname: Martin
Wohnort: Meerbusch


AW: Recordsource vom UFo ändern durch Listenfelder - AW: Recordsource vom UFo ändern durch Listenfelder

Nach oben
       Version: Office 2k (2000)

Versuchs mal so:
Code:
    Forms!H_Form!UFO_Rahmen.Form.RecordSource = istSQL

_________________
Gruß Martin
Ein paar gesammelte Werke habe ich in der Beispiele.mdb,die ihr auf meiner HP findet, zusammengefasst.
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: Änderungsabfrage Alle Daten schnell ändern? 2 Muschimaus 3748 30. Jul 2008, 10:33
Muschimaus Änderungsabfrage Alle Daten schnell ändern?
Keine neuen Beiträge Access Tabellen & Abfragen: Autowert ändern 0 derhoeppi 815 21. Nov 2006, 13:30
derhoeppi Autowert ändern
Keine neuen Beiträge Access Tabellen & Abfragen: benutze Tabellen in Abfrage ändern? 15 MBarthel 1397 04. Aug 2006, 13:30
MBarthel benutze Tabellen in Abfrage ändern?
Keine neuen Beiträge Access Tabellen & Abfragen: vom Format Currency das Währungssymbol entfernen 4 china 1495 12. Apr 2006, 07:51
steffen0815 vom Format Currency das Währungssymbol entfernen
Keine neuen Beiträge Access Tabellen & Abfragen: Duplikat-Abgleich in Kunden-DB; Bei Dublette: Status ändern 0 deadlink 1011 30. März 2006, 22:13
deadlink Duplikat-Abgleich in Kunden-DB; Bei Dublette: Status ändern
Keine neuen Beiträge Access Tabellen & Abfragen: Daten über eine Schleife im gefilterten Formular ändern 1 Alwin 707 21. März 2006, 09:28
mapet Daten über eine Schleife im gefilterten Formular ändern
Keine neuen Beiträge Access Tabellen & Abfragen: Feldname ändern? 9 Chriz1985 5469 30. Jan 2006, 08:23
Chriz1985 Feldname ändern?
Keine neuen Beiträge Access Tabellen & Abfragen: Mit einem Formular Kriterien ändern ? 1 MatthiasDD 703 13. Jan 2006, 12:28
jens05 Mit einem Formular Kriterien ändern ?
Keine neuen Beiträge Access Tabellen & Abfragen: Verknüpfte Tabelle - Pfad ändern 5 Chris77 18471 13. Dez 2005, 19:59
Chris77 Verknüpfte Tabelle - Pfad ändern
Keine neuen Beiträge Access Tabellen & Abfragen: Wie kann ich Daten laden vom nächsten recordset ohne 1 MatthiasDD 696 03. Nov 2005, 10:21
rita2008 Wie kann ich Daten laden vom nächsten recordset ohne
Dieses Thema ist gesperrt, du kannst keine Beiträge editieren oder beantworten. Access Tabellen & Abfragen: Abfrage ändern 1 Gast 491 28. Jul 2005, 14:18
Willi Wipp Abfrage ändern
Keine neuen Beiträge Access Tabellen & Abfragen: Daten aus Abfrage ändern 4 majeca 604 17. Jul 2005, 14:56
majeca Daten aus Abfrage ändern
 

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