Office: (Office 2013) Auslesen einer Spalte im Formular

Hallo,

Ich habe mit dem folgenden Code ein mehr oder weniger Syntax Problem *Smilie

PHP:

         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.Selected(Me.LstNichtPG.ListIndex)

Set DB = CurrentDb
'Zusammen der Anfügeabfrage
strSQL = "INSERT INTO tblPortalgruppen " _
& "(Portalraum_ref, PortalgruppenID, Portalgruppenname) VALUES(" _
& lngPortalraumID & ", " & lngPortalgruppenID & ", " & PGName & ")"
'Ausführen der Anfügeabfrage
DB.Execute strSQL
Aktualisieren der Listenfelder
Me!LstPG.Requery
Me!LstNichtPG.Requery
Set DB = Nothing
End Sub


:)

 

Strings werden in Hochkommata ' zusammengefasst.

 

Und das heißt? Ich bin leider nicht allzu vertraut mit diesem Thema *Smilie
Aber schonmal danke für deine Hilfe *Smilie

 

Das würde dann heißen:

Code:

 

Ok Danke, aber das Problem ist, dass PGName auf die Tabelle in der Seite des Formulars verweisen soll. Ich hab im Anhand mal ein Bild zur Verdeutlichun (vielleicht erkläre ich es einfach falsch *Smilie) Und da möchte ich, dass der Code das was dort in der Tabelle steht in die tblPortalgruppen einträgt.

Vielen Dank schonmal *Smilie

 

Habe noch nich mit SEITEN auf einem Formular gearbeitet...!?

 

Schade *frown.gif*
Aber mein Problem ist verständlich erklärt oder?

 

Kann mir da niemand helfen? Ich finde nichts im Internet zu dem Thema wie ich von VBA auf Access Formulare zugreife *frown.gif*

 

Wenn Du die Verwendung von zwei Listenfeldern mit Mehrfachauswahl meinst, wo Inhalte verschoben werden sollen: Dann sind die Formulierungen Spalte in Formular oder Seite Im Formular sehr irritierend sowie auch i.d.R. unbekannt.

Ein Anwendungsbeispiel könntest Du hier nachvollziehen: Grundlagen - SQL ist leicht (7) - Verwendung einer m:n-Beziehung, und zwar in der dort angefügten Demo-DB im PopUp-Formular "Schlagworte verwalten".

Code:

Hier bist Du doch schon mitten im Formularzugriff - Me steht für das aktuelle Formular.

 

Also ich möchte einfach den Portalgruppennamen (siehe Anhang) nehmen, und diesen in den rot markierten einfügen. Ich bekomme nur den Verweis auf das Formular nicht Formgerecht hin. *Smilie


strSQL = "INSERT INTO tblPortalgruppen " _
& "(Portalraum_ref, PortalgruppenID, Portalgruppenname) VALUES(" _
& lngPortalraumID & ", " & lngPortalgruppenID & ", '" & PGName & "')"

So hier sieht mein derzeiter Verweis aus (ohne Erfolg):
PGName = Me.LstNichtPG.Selected(Portalgruppenname)

 

Wie gesagt: Im Formular bist Du schon.

Du solltest aber für Dich selber erkennen (und hier mitteilen), mit welchen Steuerelementen Du Dich beschäftigst. Wenn ich weiß, welches Steuerelement ich benutze, dann kann ich mich auch gezielt mit dessen Eigenschaften und Zuständen beschäftigen. Hilfsmittel dazu wären Onlinehilfe und Objektkatalog.

 

Also das Steuerelement aus dem ich den Portalgruppenname auslesen möchte ist ein Listenfeld. Und dieses möchte ich in die Tabelle tblPortalgruppen fortlaufend eintragen. Aber ich kann kein Fehler mehr erkennen.

 

Das farblich Markierte ist kein Informationsmüll, mit dem der Beitrag oben etwas aufgefüllt wurde. Ein Listenfeld mit Mehrfachauswahl verhält sich sehr anders als eines mit Einfachauswahl, entsprechend würde man dann auch eine "Ansprache" gestalten.

Wie zeigt sich der Nichterfolg? Womöglich mit einer Meldung, deren Inhalt man verstehen zu versuchen könnte?

 

Mit keiner Meldung; es wird einfach nichts in mein linkes Listenfeld eingetragen (auch nicht in die tblPortalgruppen). Das ist ja das komische, sprich Syntax müsste richtig sein. Von daher weiß ich absolut nicht mehr weiter wie ich sonst darauf verweisen soll.

Ist ja eigentlich nicht weiter schlimm ich möchte ja einfach den Portalgruppenname aus dem Listenfeld auslesen und diesen mit in die tblPortalgruppen eintragen.

 

Was ergibt
Code:

... in dieser Situation?