PDA

Vollständige Version anzeigen : Zusammengesetzte Werte in ComboBox


cni
02.10.2001, 10:19
Hallo,

ich habe da ein Problem:

Ich möchte gerne in einem Kombinationsfeld verschiedene Werte haben, die sich aus einem vorgegebenen Wert und einem Wert aus einer Tabelle zusammensetzten.

z.B.: Ggp-App-WinZip
Ggp-App- = vorgegeben
WinZip = Wert aus einer Tabelle

in einem ungebundenenm Textfeld siht das so aus:
Steuerelemntinhalt:
= "Ggp-App-" & [AAWName]

nur wie bekomme ich das als Werte in eine ComboBox, wenn ich dies als Werte in Datensatzherkunft eingebe bekomme ich das angezeigt, was ich eingegeben habe, also: = "Ggp-App-" & [AAWName] und nicht Ggp-App-WinZip

Kann mir jemand weiterhelfen ???

Danke.

Harry Meyer
02.10.2001, 10:57
Du könntest z.B. die Eigentschaft Herkunftstyp deiner Combobox auf Werteliste stellen und im Code die Eigenschaft RowSource mit der Kombination aus Feldwerten und konstanten Strings füllen die du gerne hättest.


MfG
Harry

cni
02.10.2001, 11:25
Hi,

und wie sieht das dann aus ?

ungefähr so:

Private Sub Form_Open(Cancel As Integer)

ADGruppen = "Ggp-App-FAT-" & [AWWName] & ";" & "Ggp-App-TSE-" & [AAWName]

Me.ADGrp.RowSource = ADGruppen

End Sub

Das funktioniert aber auch nicht :-((

Er kann den Wert [AWWName] nicht finden.

Aber wenn ich diesen in ein ungebundenes Textfeld ausgebe, so wie oben beschrieben, dann zeigt er den Wert komischerweise an.

Harry Meyer
02.10.2001, 11:59
Ich hatte es ein klein wenig anders gedacht ...

Private Sub Form_Open(Cancel As Integer)
Dim rsTabelle As RecordSet

Set rsTabelle = CurrentDB.OpenRecordSet("Tabelle")

ADGruppen = "Ggp-App-FAT-" & rsTabelle![AWWName] & ";" & "Ggp-App-TSE-" & rsTabelle![AAWName]

Me.ADGrp.RowSource = ADGruppen

rsTabelle.Close
End Sub

cni
02.10.2001, 12:24
Ich möchte die Werte aber nicht aus einer Tabelle sondern aus einem Formular, das da heißt "8"

Sieht das dann so aus:

Private Sub Form_Open(Cancel As Integer)

Dim Anwendung As String
Dim ADGruppen As String

Anwendung = [Formulare!8!AAWName]
ADGruppen = "GgpApp-MgF-" & Anwendung & ";" & "GgpApp-MgT-" & Anwendung

Me.ADGrp.RowSource = ADGruppen

End Sub

???

Das geht aber so nicht, er sagt immer:

Kann das in Ihrem Ausdruck angesprochene Feld "|" nicht finden :-(((