Office: (Office 2016) Abfrage in Abhängigkeit eines Werts in einem Kombinationsfeld

Hallo zusammen,

ich bin blutiger Access Anfänger und meine VBA Kenntnisse sind auch eher rudimentär. Vor allem SQL war mir bis vor kurzem ein Fremdwort. Vielleicht kann mir ja hier jemand helfen.

Zum Hintergrund: Ich möchte einen Datenbank rund um meinen 3D-Drucker erstellen. Dabei habe ich zwei Tabellen erstellt. In tblLieferantCharge gibt es zwei Felder: IDLieferant und lngLieferantCharge. In einer zweiten Tabelle tblEigeneCharge gibt es drei Felder: IDEigeneCharge, lngEigeneCharge und intIDLieferant. Dabei sind IDLieferant und intIDLieferant über eine 1:n Beziehung miteinander verknüpft.

Nun möchte ich ein Formular erstellen, in welchem eine neuer Wert für lngEigeneCharge eingegeben werden kann. Außerdem enthält das Formular ein Kombinationsfeld, in welchem die lngLieferantCharge ausgewählt werden kann. Nun möchte ich eine Abfrage starten (z.B. mit einem "speichern-Button"), welche mir die IDLieferant zur jeweiligen Auswahl im Kombinationsfeld liefert und neben den neuen Eintrag (lngEigeneCharge) den Wert der Abfrage in das Feld intIDLieferant schreibt, sodass wieder eine eindeutige Beziehung entsteht.

Da ich im Makro-Generator keine Option gefunden habe um das Problem zu lösen, gehe ich davon aus, dass man hier um ein eigenes Makro nicht herum kommt. Dabei sieht meine erste Idee so aus:

Private Sub IDLieferant_auslesen_und_speichern_Click() 'z.B. über einen Button

Dim WertKombiFeld As String
Dim AbfrageIDLieferant As String

WertKombiFeld = Me.Kombinationsfeld3 'Syntax?
AbfrageIDLieferant = "SELECT * FROM tblLieferantCharge WHERE lngLieferantCharge" = "WertKombiFeld" 'Syntax?

... 'String in Integer umwandeln und mit INSERT in tblEigeneCharge im Feld intIDLieferant eintragen 'korrekt?

End Sub

Viele Grüße und schon Mal vielen Dank für eure Mühen
Felix

 

Hallo,


ich habe 2 Tabellen angelegt und miteinander verknüpft, so wie in "Mezcalero_Tabs.jpg" zu sehen.
Die erste Tabelle (tblLieferantCharge) habe ich mit 3 Lieferantensätze vorbelegt (Inhalte zu sehen in der Combobox-Dropdown-Liste der letzten Grafik "Mezcalero_Formular_Ansicht.jpg").

Dann habe ich ein Formular angelegt, das zur Erfassung der Sätze in der Tabelle "tblEigeneCharge" dient (zu sehen in "Mezcalero_Formular_Entwurf.jpg"). Hier ist zu sehen in der 3. Zeile die Combobox "cboIDLieferant".

Die entscheidenden Entwurf-Details für diese Combobox sind im Daten-Eigenschaftsblatt (Datei "Mezcalero_Formular_cboLieferant_Entwurf.jpg") zu sehen.

Und schließlich ist in der 4. Datei ("Mezcalero_Formular_Ansicht.jpg") das Ergebnis aufgrund der vorherigen Einstellungen zu sehen: Ich habe dort mittels Klick auf den Combobox-Dropdown-Pfeil die Sätze aus Tabelle "tblLieferantCharge" angezeigt. Indem ich dann den letzten Satz ausgewählt habe, ist die IDLieferant (=3) ins Feld "IntIDLieferant" der 2. Tabelle (tblEigeneCharge) kopiert worden.

Wie du siehst, braucht man dazu keine einzige Zeile VBA-Code, um die 2. Tabelle mittels Ausfüllformular vollständig auszufüllen auf Basis der 1. Tabelle.