Office: Werte aus Kombinationsfeld in andere Tabelle schreiben!?

Hallo liebe Access-Gemeinschaft!

Hoffe es hat jemand eine Lösung für mein Problem!?

In meinem Formular [Kunden] befindet sich ein [Unterformular_Kundenangebote].

Ich möchte auf diesem [Unterformular_Kundenangebote] ein [Kombinationsfeld151] mit vier Spalten verwenden.

Spalten: "Fahrzeughersteller:","Fahrzeugmodell:","Fahrzeugtyp:","Farbe:"

Den Spalteninhalt befülle ich mit der Tabelle [Fahrzeuge]

Nachdem ich im [Kombinationsfeld151] den [Fahrzeughersteller:] auswähle, wird dieser sofort in die Tabelle [Kundenangebote] geschrieben.
So soll es sein!!!

Wie kann ich nun die anderen Spaltenwerte aus dem [Kombinationsfeld151] in die gleiche Tabelle [Kundenangebote] und
natürlich auch in die gleiche Zeile (Datensatz) schreiben damit sie dauerhaft
gespeichert werden?

Meine bisherige Lösung:

Private Sub Kombinationsfeld151_AfterUpdate()
Dim stSQL As String
stSQL = "INSERT INTO Kundenangebote ([Fahrzeugmodell:],[Farbe:]) VALUES (" & [Kombinationsfeld151].Column(2) & ", " & [Kombinationsfeld151].Column(4) & " )"
DoCmd.RunSQL stSQL
End Sub

Leider muß ich bei dieser Lösung die Parameter wie Modell und Farbe von Hand eingeben, es erfolgt keine automatische Wertübergabe!?

Die eingefügten Werte erscheinen zudem in einem neuen Datensatz. Der Bezug zum bereits eingefügten Datensatz mit dem Fahrzeughersteller geht leider verloren.

Ich wäre für einen lauffähigen Code sehr dankbar!

Gruß

Speedynator

:)

 

Hi Speedynator,

also grundsätzlich stören mich an Deiner Vorgehensweise drei Dinge:

1. Sobald ein Wert in der ComboBox ausgewählt wird, soll dieser in die Angebotstabelle aufgenommen werden.

Was ist, wenn Du aus Versehen den falschen Wert wählst?

2. Du willst 4 zusammengehörige Felder aus Deiner Fahrzeugtabelle in Deine Angebotstabelle schreiben.
Ich hoffe mal, Du machst nicht viele Angebote.

Sinnvoller ist es doch, für jeden Fahrzeugtyp einen Schlüssel zu haben, der dann in der Angebotstabelle gespeichert wird.

3. Du solltest keine Sonderzeichen in Feldnamen verwenden.
([Fahrzeugmodell:],[Farbe:])

Fahrzeugmodell, Farbe reicht doch aus.


Aber jetzt mal zu Deinem Problem:

Vorweg, mit einem "INSERT INTO"-Statement erzeugst Du einen neuen Datensatz. Zum Aktualisieren eines bestehenden Datensatzes nutzt man ein "UPDATE"-Statement.
Erstelle mal in der Entwurfsansicht eine Aktualisierungsabfrage und wechsle in die SQL-Ansicht, dann siehst Du den Aufbau.

Solltest Du alles so lassen, wie es ist, wirst Du ein weiters Problem haben, nämlich daß Du Deine Aktualisierung durchführen lassen willst, nachdem die ComboBox aktualisiert ist, d.h. bevor der neue Datensatz, den Du aktualisieren willst, überhaupt existiert. "Bevor" deswegen, weil nach der Aktualisierung der ComboBox erst noch die Speicherung des Datensatzes stattfinden muß, bevor dieser existiert und verändert werden kann.

Willst Du wirklich alles so lassen, dann kann ich Dir nur empfehlen, für jedes Tabellenfeld, welches durch die ComboBox gefüllt werden soll, jeweils ein Feld in Deinem Unterformular anzulegen und deren Eigenschaft "Sichtbar" auf False zu setzen. Diese Felder kannst Du dann im "Nach Aktualisierung"-Ereignis der ComboBox füllen, in etwa so:

Code:

Beim Speichern des Datensatzes werden dann logischerweise auch diese Daten gespeichert.

Sonst noch Fragen?

 

Vielen Dank für Deine schnelle Hilfe!!!

Hier meine Lösung:

Ich füge folgenden Code in die Eigenschaften von [Kombinationsfeld151]

Private Sub Kombinationsfeld151_AfterUpdate()
Me![Fahrzeugmodell:] = Kombinationsfeld151.Column(2)
Me![Farbe:] = Kombinationsfeld151.Column(4)
End Sub

In den Feldeigenschaften von Textfeld [Fahrzeugmodell:] und [Farbe:] trage ich als Steuerelementinhalt folgendes ein:
=Kombinationsfeld151.column(2) bzw. =Kombinationsfeld151.column(4)

Zum Ablauf:
Ich wähle im Kombinationsfeld den Fahrzeughersteller z.B. "Porsche" aus
und bekomme in zwei weiteren Textfeldern das Fahrzeugmodell "Boxster"
und die Farbe "schwarz" angezeigt. Alle Werte werden in die Tabelle
Kundenangebote übernommen. Suuuuper.....!!!

Anmerkung:
Übrigens möchte ich keinen Fahrzeugschlüssel auswendig lernen, sondern die Fahrzeuge aus der Liste des Kombinationsfeldes entnehmen. Somit ist meine Tabelle Fahrzeuge der Fahrzeugschlüssel!


Immer wieder erklärt mir jemand, daß die Feldnamen ohne Sonderzeichen benannt werden müssen. Es geht trotzdem => einfach die Namen in
eckige Klammern schreiben: [Feldname:]

Gruß

Speedynator

 

Es ist mir etwas schleierhaft, wie Du einem berechneten Feld (also Steuerelementinhalt: =Combo.Column(2)) über VBA einen Wert zuweisen kannst, aber wenn's funktioniert, um so besser.

Zu Deinen Anmerkungen:

Es hat niemand davon gesprochen, Schlüssel auswendig zu lernen. Einzig der Speicherplatz für Textfelder ist größer, als für ein Long Integer-Feld.

Sieh Dir mal in meinem Beispiel die Tabelle und das Formular AngeboteNeu an, dann verstehst Du vielleicht, was ich meine.

Von müssen war nie die Rede. Letztendlich kannst Du es machen, wie Du willst. Falls noch nicht geschehen, solltest (nicht mußt) Du Dir trotzdem mal Don Karl 1.5 Benamsungen ansehen.