Office: (Office 2013) Auslesen einer Spalte im Formular

Was meinst du damit?

 

Mir ist das Ganze völlig schleierhaft.
Wenn dort etwas zugeordnet werden soll, dann doch die ID als Fremdschlüssel?
Sei's drum.

Wie Eberhard schon fragte: Ist das Listenfeld auf Mehrfachauswahl eingestellt?
Dann würde der Code zum Auslesen des Namens anders lauten.

Der Zugriff auf eine Spalte in einem Listen- oder Kombifeld, die nicht die gebundene Spalte ist, erfolgt prinzipiell so:
Code:

Die Zählung der Spalten beginnt bei 0.

Für ein Listenfeld mit Einfachauswahl reicht das dann auch schon.
Bei Mehrfachauswahl suche mal nach dem Stichwort ItemsSelected hier im Forum.

maike

 

Sehr gut jetzt klappt es; als ich Haltepunkte gesetzt habe um zu schauen ob das richtige drin steht hat das alles gepasst (hier der aktuelle Code) *Smilie.

PHP:

         Private Sub HinzufuegenPG(lngPortalraumID As Long, _
lngPortalgruppenID As Long)
Dim DB As DAO.Database
Dim strSQL As String
Dim PGName As String
Formel
Set DB = CurrentDb
'Zusammen der Anfügeabfrage
strSQL = "INSERT INTO tblPortalgruppen " _
& "(Portalraum_ref, PortalgruppenID, Portalgruppenname) VALUES(" _
& lngPortalraumID & ", " & lngPortalgruppenID & ", '" & Me.LstNichtPG.Column(2) & "')"
'Ausführen der Anfügeabfrage
DB.Execute strSQL
Aktualisieren der Listenfelder
Me!LstPG.Requery
Me!LstNichtPG.Requery
Set DB = Nothing
End Sub


 

Fehlersuche:
Code:

Ergebnisse?
maike

 

Da kommt Laufzeitfehler 3022 und dbFailOnError hat den Wert 128.

Im Direktbereich steht:
INSERT INTO tblPortalgruppen (Portalraum_ref, PortalgruppenID, Portalgruppenname) VALUES(0, 44, 'name324')

 

Hallo,
mit der Fehlernummer (3022) kann man meist nichts anfangen, daher immer den Fehlertext zitieren. 3022 weiß ich aber, Du versuchst ein Schlüsselfeld (oder sonst ein indiziertes Feld) mit einem schon vorhanden Wert zu füllen, was natürlich nicht geht.

128 ist der Wert von dbFailOnError und hat nichts zu bedeuten, Du kannst auch statt dbFailOnError einfach 128 schreiben. Diese Konstante sorgt nur für die Ausgabe einer Fehlermeldung wenn die Abfrage nicht klappt.

 

Ok Danke *Smilie

So wie ich das jetzt nachvollziehen kann, liegt das an der PortalgruppenID da diese Spalte den Primärschlüssel hat; wenn man nun die Funktion ausführt würden die Werte mehrmals vorkommen und das ist das Problem richtig?

 

Dann diese Spalte einfach weglassen...

 

Wenn ich PortalgruppenID aus dem Code raus nehme, kann ich nur einmal was in die Tabelle über das Formular schreiben und danach nicht mehr; erst wenn ich diesen Datensatz aus der Tabellle lösche kann ich einmal wieder was zuordnen. Jeweil bekommt PortalgruppenID die 0. Und erst wenn diese wieder gelöscht ist kann logischerweise ein neuer Eintrag gemacht werden. Zum verzweifeln

 

1. Zeig mal Deinen jetzigen Code.
2. Ist das Listenfeld denn mit Mehrfachauswahl und willst Du mehrere Gruppen auf einmal hinzufügen?

 

Womit wir wieder bei meiner Frage von vorhin wären:

Was soll denn das überhaupt werden, was ist Sinn und Zweck der Aktion?
Im Moment sieht es so aus, als wenn du eine in tblPortalgruppen bereits vorhandene Portalgruppe einfach noch mal einfügst. Das scheint mir doch eher sinnfrei.
maike

 

Also auf den ersten Bild im Anhang sieht man die Tabelle, in die ich rein schreiben möchte, welche Portalgruppe in welchem Portalraum ist (1 Portalraum kann n Portalgruppen haben). Weil es 1:n Beziehung ist habe ich keine Zwischentabelle eingefügt. So auf den zweiten Bild sieht man das Formular mit dem man das zuordnet, rechts die auszuwählenden Portalgruppen und im linken Listenfeld die zugeordneten; und dort ist wenn man z.B. Doppelklick macht dieser Code hinterlegt:

PHP:

         Private Sub LstNichtPG_DblClick(Cancel As Integer)
If Not IsNull(Me!Bezeichnung) And _
Not IsNull(Me!LstNichtPG) Then
HinzufuegenPG Me!Bezeichnung, Me!LstNichtPG
End If
End Sub

Private Sub HinzufuegenPG(lngPortalraumID As Long, _
lngPortalgruppenID As Long)
Dim DB As DAO.Database
Dim strSQL As String
Dim PGName As String
' PGName = Me.LstNichtPG.Column(2)       alter Stand, neu gleich in Formel
Set DB = CurrentDb
'Zusammen der Anfügeabfrage
strSQL = "INSERT INTO tblPortalgruppen " _
& "(Portalraum_ref, PortalgruppenID, Portalgruppenname) VALUES(" _
& lngPortalraumID & ", " & lngPortalgruppenID & ", '" & Me.LstNichtPG.Column(2) & "')"
'Debug.Print strSQL
'Ausführen der Anfügeabfrage
DB.Execute strSQL ', dbFailOnError
'Aktualisieren der Listenfelder
Me!LstPG.Requery
Me!LstNichtPG.Requery
Set DB = Nothing
End Sub


 

In dem Fall müssen beide Schlüssel in der Tabelle auf Duplikate ja gestellt sein.
maike

 

Ok Danke sehr. Da habe ich jetzt noch das Problem, dass diese in Beziehung stehen und deshalb geht das nicht. Muss ich mir mal was einfallen lassen.

Vielen Dank für eure Hilfe *Smilie

 

Wieso? Vermutlich brauchst du doch eine m:n Zwischentabelle: Jeder Projektraum kann mehrere Portale haben und jedes Portal kann in einem (oder mehreren) Projekträumen sein?
Sonst mach mal einen Screenshot vom Beziehungsfenster.
maike