Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Auflistung von Abfragen- od. Tabellennamen in Combobox
zurück: Access2010 auf Virtuellem PC/ Virtueller Maschine weiter: TreeView - MsgBox-Ersatz - Error Class 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
woolfinator
SW-Assistenten Verweigerer


Verfasst am:
12. Jul 2010, 08:37
Rufname:

Auflistung von Abfragen- od. Tabellennamen in Combobox - Auflistung von Abfragen- od. Tabellennamen in Combobox

Nach oben
       Version: Office XP (2002)

Ich grüße euch,
nachdem ich wirreste Untiefen des Internets nach diesem Lösungsanschlag durchforstet habe, wollte ich nun die Auflösung folgendes Problems darlegen:

In einer Combobox (wahlweise auch Listenfeld) sollen die Namen aller Abfragen einer Datenbank aufgelistet werden.
Hierzu habe ich in einem Formular die Combobox 'cboQueries' erstellt und deren Datenherkunft auf Wertliste gesetzt. Sollte dies noch nicht geschehen sein, kann das Ganze auch über Code gelöst werden. Hierzu die Funktion bei öffnen des Formularfensters:
Code:
Private Sub Form_Open(Cancel As Integer)
    Dim obj As AccessObject, dbs As Object
       
    Set dbs = Application.CurrentData
    'Datensatzherkunft auf Wertliste setzen
    Me.cboQueries.RowSourceType = "Value List"
    'Suche in AllQueries nach AccessObjects Objekten
    For Each obj In dbs.AllQueries
        'Füge Querienamen an Combobox
        Me.cboQueries.AddItem obj.Name
    Next obj
End Sub
Je nach Bedarf kann anstatt nach AllQueries- auch nach AllTables, AllFunctions oder AllViews Objekten gesucht werden.

Mit besten Grüßen, Wolfgang
Willi Wipp
Moderator


Verfasst am:
15. Jul 2010, 03:01
Rufname:
Wohnort: Raum Wiesbaden


Re: Auflistung von Abfragen- od. Tabellennamen in Combobox - Re: Auflistung von Abfragen- od. Tabellennamen in Combobox

Nach oben
       Version: Office XP (2002)

Hi woolfinator,

das ist eine der Moeglichkeiten. Man kann es auch ueber Funktionen loesen.
Z.B. in einem Modul mdlFillCombos
Code:
' Menue: Extras -> Verweise Microsoft DAO 3.xx Object Library muss aktiv sein!
Option Compare Database
Option Explicit

Public Function AllTablesFill(fld As Control, ID, row, col, code)
' Programmatically fills a list/combo box with table names
    With CurrentDb.TableDefs
        Select Case code
          Case 0: AllTablesFill = True                       ' Initialized OK?
          Case 1: AllTablesFill = Timer                      ' Unique combo ID
          Case 3: AllTablesFill = .Count                    ' Number of tables
          Case 4: AllTablesFill = 1                        ' Number of columns
          Case 5: AllTablesFill = -1               ' Use default column widths
          Case 6: AllTablesFill = .Item(row).Name       ' Get appropriate name
        End Select
    End With
End Function

Public Function AllQueriesFill(fld As Control, ID, row, col, code)
' Programmatically fills a list/combo box with table names
    With CurrentDb.QueryDefs
        Select Case code
          Case 0: AllQueriesFill = True                      ' Initialized OK?
          Case 1: AllQueriesFill = Timer                     ' Unique combo ID
          Case 3: AllQueriesFill = .Count                   ' Number of tables
          Case 4: AllQueriesFill = 1                       ' Number of columns
          Case 5: AllQueriesFill = -1              ' Use default column widths
          Case 6: AllQueriesFill = .Item(row).Name      ' Get appropriate name
        End Select
    End With
End Function

Public Function AllFormsFill(fld As Control, ID, row, col, code)
' Programmatically fills a list/combo box with all report names
    With CurrentProject.AllForms
        Select Case code
          Case 0: AllFormsFill = True                        ' Initialized OK?
          Case 1: AllFormsFill = Timer                       ' Unique combo ID
          Case 3: AllFormsFill = .Count                     ' Number of tables
          Case 4: AllFormsFill = 1                         ' Number of columns
          Case 5: AllFormsFill = -1                ' Use default column widths
          Case 6: AllFormsFill = .Item(row).Name        ' Get appropriate name
        End Select
    End With
End Function

Public Function AllReportsFill(fld As Control, ID, row, col, code)
' Programmatically fills a list/combo box with all form names
    With CurrentProject.AllReports
        Select Case code
          Case 0: AllReportsFill = True                      ' Initialized OK?
          Case 1: AllReportsFill = Timer                     ' Unique combo ID
          Case 3: AllReportsFill = .Count                   ' Number of tables
          Case 4: AllReportsFill = 1                       ' Number of columns
          Case 5: AllReportsFill = -1              ' Use default column widths
          Case 6: AllReportsFill = .Item(row).Name      ' Get appropriate name
        End Select
    End With
End Function

Public Function AllDataAccessPagesFill(fld As Control, ID, row, col, code)
' Programmatically fills a list/combo box with all modul names
    With CurrentProject.AllDataAccessPages
        Select Case code
          Case 0: AllDataAccessPagesFill = True              ' Initialized OK?
          Case 1: AllDataAccessPagesFill = Timer             ' Unique combo ID
          Case 3: AllDataAccessPagesFill = .Count           ' Number of tables
          Case 4: AllDataAccessPagesFill = 1               ' Number of columns
          Case 5: AllDataAccessPagesFill = -1      ' Use default column widths
          Case 6: AllDataAccessPagesFill = .Item(row).Name
                                                        ' Get appropriate name
        End Select
    End With
End Function

Public Function AllMacrosFill(fld As Control, ID, row, col, code)
' Programmatically fills a list/combo box with all modul names
    With CurrentProject.AllMacros
        Select Case code
          Case 0: AllMacrosFill = True                      ' Initialized OK?
          Case 1: AllMacrosFill = Timer                     ' Unique combo ID
          Case 3: AllMacrosFill = .Count                   ' Number of tables
          Case 4: AllMacrosFill = 1                       ' Number of columns
          Case 5: AllMacrosFill = -1              ' Use default column widths
          Case 6: AllMacrosFill = .Item(row).Name      ' Get appropriate name
        End Select
    End With
End Function

Public Function AllModulesFill(fld As Control, ID, row, col, code)
' Programmatically fills a list/combo box with all modul names
    With CurrentProject.AllModules
        Select Case code
          Case 0: AllModulesFill = True                      ' Initialized OK?
          Case 1: AllModulesFill = Timer                     ' Unique combo ID
          Case 3: AllModulesFill = .Count                   ' Number of tables
          Case 4: AllModulesFill = 1                       ' Number of columns
          Case 5: AllModulesFill = -1              ' Use default column widths
          Case 6: AllModulesFill = .Item(row).Name      ' Get appropriate name
        End Select
    End With
End Function
Dann gibst Du in einem Kombinationsfeld z.B. cboTabellen
fuer Herkunftstyp (RowSourceType) AllTablesFill (auch wenn es nicht angeboten wird Wink) ein.
Die Datensatzherkunft (RowSource) bleibt leer!
Dann bekommst Du alle Tabellen Deiner DB darin angezeigt.

_________________
Eine kurze Rueckmeldung waere nett
SL Willi Wipp

(Anleitung fuer das Anhaengen von Dateien: Klicke links auf [www], Gaeste muessen sich dafuer anmelden)
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: Tabellen und Abfragen (wie angehen?) 0 David_Jentsch 560 02. März 2005, 16:15
David_Jentsch Tabellen und Abfragen (wie angehen?)
Keine neuen Beiträge Access Tabellen & Abfragen: Frage Beziehungen/Abfragen HILFE!! 6 Daniel 761 09. Feb 2005, 12:26
Daniel Frage Beziehungen/Abfragen HILFE!!
Keine neuen Beiträge Access Tabellen & Abfragen: Aus Abfragen Formular drucken 4 günnaharms 965 07. Feb 2005, 09:09
günnaharms Aus Abfragen Formular drucken
Keine neuen Beiträge Access Tabellen & Abfragen: Abfragen Gruppierung, Summe oder was auch immer 3 Knopfloch 861 11. Dez 2004, 19:12
Wollibär Abfragen Gruppierung, Summe oder was auch immer
Keine neuen Beiträge Access Tabellen & Abfragen: Abfragen- Formularfeld als Kriterium 1 Gast 684 22. Nov 2004, 15:02
Felix15 Abfragen- Formularfeld als Kriterium
Keine neuen Beiträge Access Tabellen & Abfragen: Access Abfragen Hilfe wie kann ich nur die Klammer auswerten 5 Xergo 1583 19. Nov 2004, 23:43
Gast Access Abfragen Hilfe wie kann ich nur die Klammer auswerten
Keine neuen Beiträge Access Tabellen & Abfragen: Gleich 3 Probleme mit Gruppierungen in Abfragen AXP 1 silversurfer 767 22. Okt 2004, 16:49
Skogafoss Gleich 3 Probleme mit Gruppierungen in Abfragen AXP
Keine neuen Beiträge Access Tabellen & Abfragen: aktueller wert von autowert abfragen 2 uh 1971 20. Okt 2004, 20:01
lothi aktueller wert von autowert abfragen
Keine neuen Beiträge Access Tabellen & Abfragen: spezielle Abfragen 1 Hilfe 704 27. Sep 2004, 17:47
Skogafoss spezielle Abfragen
Keine neuen Beiträge Access Tabellen & Abfragen: Leere Felder in Abfragen ausblenden. 3 Gast 1374 18. Aug 2004, 14:39
mabe38 Leere Felder in Abfragen ausblenden.
Keine neuen Beiträge Access Tabellen & Abfragen: Verschachtelte SQL Abfragen in ACCESS 2000? 1 Gast 1782 17. Jul 2004, 22:34
faßnacht(IT); Verschachtelte SQL Abfragen in ACCESS 2000?
Keine neuen Beiträge Access Tabellen & Abfragen: SQL Abfragen ausgeben?? 2 woerny01 669 11. Jul 2004, 07:10
Gast SQL Abfragen ausgeben??
 

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