Wert aus Formular-Feld an SQL-Statement übergeben

[tomm85]

Hallo werte Access-Helfer,

ich möchte in einem Unterformular (neues Angebot anlegen) nur die Werte in einer DropSown-Box angezeigt bekommen, die zu diesem Hauptformular (Kontakte dieses Kunden) gehören; s. Anlage.

Soweit ich das jetzt herausgefunden habe, geht das - bspw. auch in der reinen Datenbank-Tabellen-Ansicht per Nachschlage-Assistent - nicht, da zum Zeitpunkt der Anlage zwar die KundeID in der Zeile steht, aber noch nicht wirklich in der Datenbank ist. So bin ich auf das Thema Input-Parameter bzw. Parameter gestoßen.

1.) Ich vermute, das ist der einzige Weg, richtig?
2). Ich hatte schon das hier gefunden (https://administrator.de/forum/access-vba-formularfelder-auslesen-kopieren-178054.html), aber das brachte mich nicht richtig weiter.
3.) Bin ich, was VBA angeht, leider ziemlich blank. Sofern die Lösung tatsächlich in VBA liegt, freue ich mich über den gesamten Code inkl. End-Sub usw.

Dankeschön

[tomm85]

bzw. eigentlich so... (Anlage)

[DF6GL]

Hallo,

mit nur einem Kombifeld geht das nicht (richtig).


Zunächst:   Ändere überall "Name" in z. B. "Kontaktname" und hänge "-f" an die Fremschlüsselfeldnamen an  (in Tabelle "Angebot" ---> "Angebot_KundenID_f", dito in "Kontakt"--> "Kontakt_KundenID_f").



Das vorhandene Kombi erhält als Datensatzherkunft:  Select KontaktID, KontaktName From Kontakt

Platziere ein zweites ungebundenes Kombi ("cmbAnsprechP") neben das erste und verkleinere die Breite solange, bis nur der Aufklapppfeil übrig bleibt.

Datensatzherkunft :  Select KontaktID, KontaktName From Kontakt Where Kontakt_KundenID_f = [Angebot_KundenID_f]

Spaltenbreiten: 0cm ; 4cm
Gebundene Spalte:  1
Spaltenanzahl: 2



 Als "Beim Hingehen"-Ereignisprozedur :

Code [Auswählen] Erweitern

Sub cmbAnsprechP_Enter()
  Me!cmbAnsprechP.Requery
  Me!cmbAnsprechP.Dropdown
End Sub


Als "Nach Aktualisierung"-Ereignisprozedur:

Code [Auswählen] Erweitern

Sub cmbAnsprechP_AfterUpdate()
  Me!AnsprechP = Me!cmbAnsprechP
End Su

[tomm85]

@DF6GL:

Danke für Deine Antwort. Ich habe soeben Punkt eins umgesetzt (s. Anlage) und mach mich jetzt an die nächsten Steps.

[tomm85]

Also, nochmal: Sehr toll beschrieben - riesen Dank!
Sie dürfen in diesem Board keine Dateianhänge sehen.


hmm, das DropDown bleibt noch leer.
Sie dürfen in diesem Board keine Dateianhänge sehen.

Dem neuen / ungebundenem Kombinationsfeld habe ich den Namen "cmbAnsprechP" gegeben.
Den Select habe ich wie folgt angepasst:

Code [Auswählen] Erweitern

SELECT KontaktID, Kontaktname FROM tblKontakt WHERE [tblKontakt.KundeID_f] = [tblAngebot.KundeID_f];
Die beiden Ereignis-Prozeduren habe ich eingefügt.
Sie dürfen in diesem Board keine Dateianhänge sehen.

@"altes Feld":
... und das original Kombinationsfeld muss ich vermutlich dann abschließend noch in ein Textfeld umwandeln, korrekt?

[DF6GL]

Hallo,

und das original Kombinationsfeld muss ich vermutlich dann abschließend noch in ein Textfeld umwandeln, korrekt?

nein...


Die Fremdschlüssel-Feldnamen hast Du noch nicht vernünftig umbenannt...


sollte ergeben:

... WHERE Kontakt_KundeID_f = [Angebot_KundeID_f];

[tomm85]

ah, okay, ich dachte Du meinst damit die TABELLE.FELDNAME ...
wird erledigt.

[tomm85]

ah, okay, ich dachte Du meinst damit die TABELLE.FELDNAME ...
wird erledigt.

...


Wow, das begeistert mich schon mal.

Drop-Down funktioniert, nur beim Klicken gibt noch den Debugger.
Sie dürfen in diesem Board keine Dateianhänge sehen.


Das original Feld heißt = AnsprechP
Das neue Feld = cmbAnsprechP

[Beaker s.a.]

Hallo Tom,
Das AfterUpdate brauchst du doch gar nicht, - binde das Kombi
an das Tabellenfeld (FK des A-Part.) und gut ist.
gruss ekkehard

[DF6GL]

Hallo,

vermutlich heißt das "alte" Kombifeld nicht so...


@Ekkehard:  das alte war und bleibt gebunden, das neue darf nicht gebunden werden.

[tomm85]

@DF6GL :

Einfach "Krass!! ...es funktioniert" ...ich wiederhole meine Faszination :-)
und in der Tat, das "alte Feld" hatte noch "_f" hinten dran ... hatte ich übersehen 

Geht das auch noch mit einem weiteren UFo, allerdings in der Datenblatt-Ansicht?
Ich bastele das mal kurz...

[tomm85]

@Beaker s.a. : ja, okay, probiere ich auch gleich mal ... mal sehen, was das ergibt.

Zurück zur gleichen Funktion im UFo (s. Anlage): geht das oder geht das nicht, weil man mit den KombiBoxen da nicht so tricksen kann?

Sie dürfen in diesem Board keine Dateianhänge sehen.

Sie dürfen in diesem Board keine Dateianhänge sehen.

[tomm85]

@Beaker s.a. : "FK des A.-Part" => was ist damit gemeint?

[MzKlMu]

Hallo,
Du solltest Dich auf ein Forum beschränken. Gleichzeitig in verschiedenen Foren zu fragen wird nicht gern gesehen und verstößt auch gegen die Regeln in beiden Foren.

[tomm85]

@MzKlMu : ja, verstanden

mir war nicht klar, welches besser / bekannter ist - ich denke diese Überlegung ist nachvollziehbar. Hier bin ich ja jetzt sehr glücklich.

und das Forum Office-Lösungen (sagte mir noch etwas von früher) scheint wohl gänzlich tot ... letzter Beitrag 2014