Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Im Listenfeld ein Formular auswählen
zurück: Kalendersteuerelement 11.0 in Access 2007 weiter: Filter nach Kombinationsfeld und Datum 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
Jamaikafloe
Gast


Verfasst am:
30. Apr 2010, 12:51
Rufname:

Im Listenfeld ein Formular auswählen - Im Listenfeld ein Formular auswählen

Nach oben
       Version: Office 2003

Hallo ihr fleißigen Helfer,

ich hab folgende Frage:
ich möchte in einem Formular ein Listenfeld haben in dem verschiedene Formulare aufgelistet und per Klick darauf direkt startbar sind. Gibt es eine Möglichkeit wie ich das lösen kann oder gibt es Alternativen.

Das wär super wenn ihr mir diese Frage beantworten könntet Smile

Lieben Gruß

Florian
MissPh!
Office-VBA-Programmiererin


Verfasst am:
30. Apr 2010, 13:34
Rufname:
Wohnort: NRW


AW: Im Listenfeld ein Formular auswählen - AW: Im Listenfeld ein Formular auswählen

Nach oben
       Version: Office 2003

Hallo Florian,

du kannst zu diesem Zweck die Sytemtabelle MSysObjects auslesen und folgende Abfrage als RowSource des Listenfelds einsetzen:
Code:
SELECT   [Name]
FROM     MSysObjects
WHERE    ParentId=(SELECT ID
                   FROM   MSysObjects
                   WHERE  [Name]="Forms")))
ORDER BY [Name];
Im Ereignis "Nach Aktualisierung" des Listenfeldes kannst du das Formular mit der OpenForm-Methode öffnen, sofern es (das Listenfeld) nicht leer ist.
_________________
Gruß MissPh!
Jamaikafloe
Gast


Verfasst am:
30. Apr 2010, 14:28
Rufname:

AW: Im Listenfeld ein Formular auswählen - AW: Im Listenfeld ein Formular auswählen

Nach oben
       Version: Office 2003

Danke dir, jetzt stehen auf jeden Fall schonmal alle Formluare im Listenfeld jedoch kann ích die Formulare nicht öffnen.
Warum nicht, hätt ich an der Syntax nochwas ändern müssen?

GRuß
Florian
MissPh!
Office-VBA-Programmiererin


Verfasst am:
30. Apr 2010, 14:32
Rufname:
Wohnort: NRW

AW: Im Listenfeld ein Formular auswählen - AW: Im Listenfeld ein Formular auswählen

Nach oben
       Version: Office 2003

Zeige doch bitte deinen Code dazu.
_________________
Gruß MissPh!
Jamaikafloe
Gast


Verfasst am:
30. Apr 2010, 14:37
Rufname:


AW: Im Listenfeld ein Formular auswählen - AW: Im Listenfeld ein Formular auswählen

Nach oben
       Version: Office 2003

Ich hab doch einfach deinen genommen:
Code:
SELECT   [Name]
FROM     MSysObjects
WHERE    ParentId=(SELECT ID
                   FROM   MSysObjects
                   WHERE  [Name]="Forms")))
ORDER BY [Name];
Und er sagt mir jetzt das er das Makro '...' (entscprechender Formularname) nicht finden kann Sad

Lieben Gruß

Florian
MissPh!
Office-VBA-Programmiererin


Verfasst am:
30. Apr 2010, 14:41
Rufname:
Wohnort: NRW

Re: AW: Im Listenfeld ein Formular auswählen - Re: AW: Im Listenfeld ein Formular auswählen

Nach oben
       Version: Office 2003

Das genügt aber doch nicht, ich fragte nach dem VBA-Code...
MissPh! - 30. Apr 2010, 13:34 hat folgendes geschrieben:
und folgende Abfrage als RowSource des Listenfelds einsetzen: ...

Im Ereignis "Nach Aktualisierung" des Listenfeldes kannst du das Formular mit der OpenForm-Methode öffnen, sofern es (das Listenfeld) nicht leer ist.
Wie hast du das umgesetzt?
_________________
Gruß MissPh!
Jamaikafloé
Gast


Verfasst am:
30. Apr 2010, 14:48
Rufname:

AW: Im Listenfeld ein Formular auswählen - AW: Im Listenfeld ein Formular auswählen

Nach oben
       Version: Office 2003

Das Problem ist dass ich gar nicht weiß was ich da eineben soll ...
Code:
Private Sub Formularauswahl_AfterUpdate()
    DoCmd.OpenForm
End Sub
... mehr weiß ich echt nicht, ich möcht einfach dass wenn ich in dem Listenfeld auf ein Formular klicke, dass es sich direkt öffnet.

Danke dir für deine Ausdauer und Nachsicht Wink

Gruß

Florian
MissPh!
Office-VBA-Programmiererin


Verfasst am:
30. Apr 2010, 15:02
Rufname:
Wohnort: NRW

AW: Im Listenfeld ein Formular auswählen - AW: Im Listenfeld ein Formular auswählen

Nach oben
       Version: Office 2003

Ja, ist schon klar was du möchtest... Wink

Wenn du etwas dazulernen willst, dann schaust du in der Access-Hilfe nach, wenn man dir "Fremdwörter" wie OpenForm-Methode an den Kopf wirft. Dazu gehst du mit Doppelklick auf den Befehl OpenForm im VBA-Editor und drückst F1, das ist der einfachste und direkteste Weg, an die Hilfe zu gelangen. Schau dir die Syntax an, dann weißt du, was fehlt. Außerdem solltest du den Code stets kompilieren und die Fehlermeldungen beachten.
Code:
Private Sub Formularauswahl_AfterUpdate()
    If Not IsNull(Me!Formularauswahl) Then
        DoCmd.OpenForm Me!Formularauswahl
    End If   
End Sub

_________________
Gruß MissPh!
Jamaikaflo
Gast


Verfasst am:
30. Apr 2010, 15:09
Rufname:

AW: Im Listenfeld ein Formular auswählen - AW: Im Listenfeld ein Formular auswählen

Nach oben
       Version: Office 2003

Na klar aber ich wollte es noch vor dem Wochenende schaffen, was du mir übrigens gerettet hast. Du bist ein Schatz , Vielen Dank für deine super schnelle Hilfe.

Und ich hätte noch eine Frage an dich ...
... wenn ich jetzt in einem Feld noch links daneben im Formular die Beschreibung anzeigen will, gibts da einen Trick.

Bitte helfen nur noch einmal Wink

Lieben Gruß

Florian
MissPh!
Office-VBA-Programmiererin


Verfasst am:
30. Apr 2010, 15:48
Rufname:
Wohnort: NRW

AW: Im Listenfeld ein Formular auswählen - AW: Im Listenfeld ein Formular auswählen

Nach oben
       Version: Office 2003

Wenn du die Beschreibung zum Formular haben willst, musst du einen anderen Weg gehen, dann brauchst du eine Funktion, um die RowSource des Listenfeldes zu füllen.
Beispiel:
Code:
Private Sub Form_Open(Cancel As Integer)
    Dim db As DAO.Database, con As Container, doc As Document
    Dim listSource As String
    Dim vDesc
   
    ' wenn die Beschreibung fehlt, tritt ein Fehler auf,
    ' den wollen wir einfach ignorieren
    On Error Resume Next
    Set db = CurrentDb
    Set con = db.Containers!Forms
    For Each doc In con.Documents
        vDesc = ""
        vDesc = doc.Properties("Description")
        listSource = listSource & doc.Name & ";" & vDesc & ";"
    Next doc
    Me!Formularauswahl.RowSourceType = "Value List"
    Me!Formularauswahl.RowSource = listSource
    Set db = Nothing
End Sub
Beachte: Das Listenfeld ist nun zweistellig!
_________________
Gruß MissPh!
Jamaikafloe
Gast


Verfasst am:
03. Mai 2010, 10:51
Rufname:

AW: Im Listenfeld ein Formular auswählen - AW: Im Listenfeld ein Formular auswählen

Nach oben
       Version: Office 2003

Miss Ph!

ich ziehe meinen Hut, hab vielen Dank für deine großartige Hilfe.

Ich bin echt schwer beeindruckt

Lieben GRuß

Florian
Gast



Verfasst am:
04. Mai 2010, 14:46
Rufname:

AW: Im Listenfeld ein Formular auswählen - AW: Im Listenfeld ein Formular auswählen

Nach oben
       Version: Office 2003

Oh ich hab noch ein klitzkleines Problem ...

was ist wenn ich jetzt nicht nur Formulare sondern auch Abfragen dort anzeigen lassen will ....

Kannst du mit nochmal helfen bitte?

Lieben Gruß

Florian
MissPh!
Office-VBA-Programmiererin


Verfasst am:
04. Mai 2010, 16:37
Rufname:
Wohnort: NRW


AW: Im Listenfeld ein Formular auswählen - AW: Im Listenfeld ein Formular auswählen

Nach oben
       Version: Office 2003

Hallo, die Querydefs haben eine eigene Auflistung, hier mal ein Beispiel:
Code:
' Abfragen hinzufügen
    For i = 0 To DB.QueryDefs.count - 1
        Set Q1 = DB.QueryDefs(i)
         If (Q1.Name Like "MSys*" Or Q1.Name Like "~*") Then
         Else
             On Error Resume Next
              vDesc = ""
              vDesc = Q1.Properties("Description")
              listSource = listSource & Q1.Name & ";" & vDesc & ";"
         End If
    Next i

_________________
Gruß MissPh!
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: Abfrageergebnis als neues Formular anzeigen 2 mila 3034 12. Apr 2005, 12:38
mila Abfrageergebnis als neues Formular anzeigen
Keine neuen Beiträge Access Tabellen & Abfragen: Abfragen im Formular aufrufen, automatisch bestätigen 3 Calvin22 1606 12. Apr 2005, 12:12
Willi Wipp Abfragen im Formular aufrufen, automatisch bestätigen
Keine neuen Beiträge Access Tabellen & Abfragen: Anzahl der Datensätze zählen (im Formular oder Bericht) ? 3 anna-bolika 3756 31. März 2005, 12:50
Dalmatinchen Anzahl der Datensätze zählen (im Formular oder Bericht) ?
Dieses Thema ist gesperrt, du kannst keine Beiträge editieren oder beantworten. Access Tabellen & Abfragen: Formular Daten in einer Tabelle speichern? 1 Gast 1017 24. März 2005, 16:24
Willi Wipp Formular Daten in einer Tabelle speichern?
Keine neuen Beiträge Access Tabellen & Abfragen: mehrer abfragen ein formular 1 romu 719 10. Jan 2005, 15:54
lothi mehrer abfragen ein formular
Keine neuen Beiträge Access Tabellen & Abfragen: kreuzabfrage ausführen nach vorgeschaltetem formular mit kom 4 Gast 887 21. Dez 2004, 15:17
Gast kreuzabfrage ausführen nach vorgeschaltetem formular mit kom
Keine neuen Beiträge Access Tabellen & Abfragen: Formeln vom Formular, werden in der Abfrage nicht angezeigt 4 maddes 895 23. Nov 2004, 12:38
Skogafoss Formeln vom Formular, werden in der Abfrage nicht angezeigt
Keine neuen Beiträge Access Tabellen & Abfragen: Filtern aus Kombi & Listenfeld 1 Gast 817 16. Nov 2004, 22:07
lothi Filtern aus Kombi & Listenfeld
Keine neuen Beiträge Access Tabellen & Abfragen: Wert eines Feldes aus Formular in Tabelle speichern 18 kave78 13710 16. Okt 2004, 13:40
Ming Wert eines Feldes aus Formular in Tabelle speichern
Keine neuen Beiträge Access Tabellen & Abfragen: Zeile der Dateneingabe (*) in einem Formular verschieben 2 Albertus 790 08. Okt 2004, 09:17
Albertus Zeile der Dateneingabe (*) in einem Formular verschieben
Keine neuen Beiträge Access Tabellen & Abfragen: Suchfunktion mit mehreren Kriterien aus Formular 5 Danny G. 2218 09. Sep 2004, 11:08
Danny G. Suchfunktion mit mehreren Kriterien aus Formular
Keine neuen Beiträge Access Tabellen & Abfragen: Mehrfachauswahl aus Listenfeld kombiniert mit SQL IN (...) 2 SMArmageddon 2417 01. Sep 2004, 15:07
SMArmageddon Mehrfachauswahl aus Listenfeld kombiniert mit SQL IN (...)
 

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