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
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 362762
Url: https://administrator.de/contentid/362762
Printed on: April 23, 2024 at 12:04 o'clock
3 Comments
Latest comment
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
