MS-Office-Forum

Zurück   MS-Office-Forum > Archive > Microsoft Access - Archiv > Microsoft Access - Archiv (2000)
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads
Themen-Optionen Ansicht
Alt 16.10.2000, 19:23   #1
md
MOF Profi
MOF Profi
Standard Abfragen in einem Listenfeld anzeigen

In einem Formular gibt es ein Listenfeld namens lstabfragen, in dem alle aktuellen Abfragen aufgeführt werden sollen ( so wie im Datenbankfenster).
Beim Laden des Formulars läuft folgender Code ab:

Code:

For i = 1 To db.QueryDefs.Count
        If aListe = "" Then
            aListe = Chr$(34) & db.QueryDefs(i - 1).Name & Chr$(34)
        Else
            aListe = aListe & ";" & Chr$(34) & db.QueryDefs(i - 1).Name & Chr$(34)
        End If
    Next
With lstAbfragen
        .RowSourceType = "Value List"
        .RowSource = aListe
    End With
Jetzt stehen alle Abfragen im Listenfeld, aber leider wirklich alle, nämlich auch die access internen wie zum Beispiel ~sq_cAdressen~sq_cKategorie, also Abfragen, die im Datenbankfenster nicht auftauchen.
Wenn ich die Datenbank komprimiere, sind diese interner (~sq usw ) für eine Weile weg.

Wer weiß eine methode, Abfragen wie im datenbankfenster in einem Listenfeld darzustellen?
md ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 17.10.2000, 07:03   #2
Manuela Kulpa
MOF Meister
MOF Meister
Standard

Hallo md!

So sollte es funktionieren

Code:

Private Sub Form_Open(Cancel As Integer)

    Dim db As DAO.Database
    Set db = CurrentDb

    Dim aListe As String
    Dim i As Integer

    For i = 1 To db.QueryDefs.Count
        If Left$(db.QueryDefs(i - 1).Name, 7) <> "~TMPCLP" And Left$(db.QueryDefs(i - 1).Name, 3) <> "~sq" Then
            If Len(aListe) = 0 Then
                aListe = Chr$(34) & db.QueryDefs(i - 1).Name & Chr$(34)
            Else
                aListe = aListe & ";" & Chr$(34) & db.QueryDefs(i - 1).Name & Chr$(34)
            End If
        End If
    Next

    With lstAbfragen
        .RowSourceType = "Value List"
        .RowSource = aListe
    End With

    If Not db Is Nothing Then db.Close: Set db = Nothing

End Sub
Falls du noch eine Frage hast, melde dich!

Viele Grüsse

__________________

====================================
<a title="Kulpa-Online.com Access und VBA Tipps und Tricks" *****"http://www.kulpa-online.com" target="_blank"><img src="http://www.kulpa-online.de/newsgroup/mof1.png" width="104" height="36" alt="" border="0"/></a> <a title="Kitathek.com - Die erfolgreiche Software f&uuml;r den Kindergarten" *****"http://www.kitathek.com" target="_blank"><img src="http://www.kulpa-online.de/newsgroup/mof2.png" width="104" height="36" alt="" border="0"/></a> <a title="Erblicken.com - Eine Fotosafarie durch NRW" *****"http://www.erblicken.com" target="_blank"><img src="http://www.kulpa-online.de/newsgroup/mof3.png" width="104" height="36" alt="" border="0"/></a>
Manuela Kulpa ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 08:07 Uhr.



Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.

Copyright ©2000-2018 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günter Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.