3
Access Unterformular über Eintrag vom Kombinationsfeld öffnen
Guten Abend! 
Ich möchte gerne über ein ungebundenes Kombinationsfeld ein Unterformular auswählen können und dieses sollte sich dann nach der Auswahl öffnen.
Die Daten von meinem Kombinationsfeld stammen aus einer Werteliste.
Werteliste: Test1, Test2, Test3 ...etc.
Die UFO's haben nicht die selben Namen wie die Einträge in der Werteliste.
In meinem Hauptformular befindet sich das Unterformular frmFlexibelTest
In dieses UFO (frmFlexibelTest) möchte ich je nach Auswahl des Eintrags im Kombinationsfeld ein UFO laden.
Bisher konnte ich ein einziges UFO wie gewünscht öffnen.
Vielleicht kann mir ja nochmal jemand helfen.
Vielen Dank und einen schönen Abend
Ich möchte gerne über ein ungebundenes Kombinationsfeld ein Unterformular auswählen können und dieses sollte sich dann nach der Auswahl öffnen.
Die Daten von meinem Kombinationsfeld stammen aus einer Werteliste.
Werteliste: Test1, Test2, Test3 ...etc.
Die UFO's haben nicht die selben Namen wie die Einträge in der Werteliste.
In meinem Hauptformular befindet sich das Unterformular frmFlexibelTest
In dieses UFO (frmFlexibelTest) möchte ich je nach Auswahl des Eintrags im Kombinationsfeld ein UFO laden.
Bisher konnte ich ein einziges UFO wie gewünscht öffnen.
Private Sub KombiFrmOpen_AfterUpdate()
Me!frmFlexibelTest.SourceObject = "UFOTest1"
Me.Requery
End SubVielleicht kann mir ja nochmal jemand helfen.
Vielen Dank und einen schönen Abend
Auf Facebook teilen
Auf Twitter teilen
Auf Reddit teilen
Auf Linkedin teilenBitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 362762
Url: https://administrator.de/contentid/362762
Ausgedruckt am: 25.11.2024 um 01:11 Uhr
3 Kommentare
Neuester Kommentar
Habe jetzt statt
eingegeben und siehe da es funktioniert sobald ich in der Werteliste das UFO mit Namen also UFOTest1 rein schreibe.
Jetzt muss ich nur noch raus finden wie ich die mit den Bezeichnungen in der Werteliste die jeweiligen Formulare aufrufen kann.
Me!frmFlexibelTest.SourceObject = "UFOTest1" Me!frmFlexibelTest.SourceObject = Me!meinKombi.Valueeingegeben und siehe da es funktioniert sobald ich in der Werteliste das UFO mit Namen also UFOTest1 rein schreibe.
Jetzt muss ich nur noch raus finden wie ich die mit den Bezeichnungen in der Werteliste die jeweiligen Formulare aufrufen kann.
So hab das jetzt mit mehreren If-Schleife gelöst.
Bin mir aber sehr unsicher ob man das nicht eleganter bzw. besser lösen kann.
Vielleicht hat ja doch jemand noch einen Tip
hier nochmal mein bisheriger Code funktioniert soweit:
Bin mir aber sehr unsicher ob man das nicht eleganter bzw. besser lösen kann.
Vielleicht hat ja doch jemand noch einen Tip
hier nochmal mein bisheriger Code funktioniert soweit:
If Me!meinKombi.Value = "Test1" Then
Me!frmFlexibelTest.SourceObject = "UFOTest1"
End If
Else....
Hallo,
am einfachste ist, Du erstellst dafür eine Tabelle die Du dafür als Quelle verwendest.
Diese 2 Spalten. Eine für den Anzeigenamen und eine für den Namen des Objektes.
Dann wählst Du die "gebundene" Spalte entsprechend und fertig.
Alternativ kann Du den Werten auch einen 2. Wert zuweisen.
Ich weiß aber nicht wie das Trennzeichen ist. Dann mit .Column(1) den 2. Wert ansprechen.
Stefan
am einfachste ist, Du erstellst dafür eine Tabelle die Du dafür als Quelle verwendest.
Diese 2 Spalten. Eine für den Anzeigenamen und eine für den Namen des Objektes.
Dann wählst Du die "gebundene" Spalte entsprechend und fertig.
Alternativ kann Du den Werten auch einen 2. Wert zuweisen.
Ich weiß aber nicht wie das Trennzeichen ist. Dann mit .Column(1) den 2. Wert ansprechen.
Stefan
1
