2 Kombifelder

Computer: Software & Programmierung Microsoft Access
1

Hallo ihr mitwissengesegneten,

ich versuche gerade ein Kombinationsfeld (Kombinationsfeld Gruppe) mit einem Kombinationsfeld (Kombinationsfeld Typ) zu „verknüpfen“.

Beide Felder sowie die beinhaltet Tabellen sind über die Gruppe_ID miteinander verbunden.

Nun fehlt mir aber etwas:

Ich möchte, dass wenn ich im Kfeld „Gruppe“ eine Auswahl mache dass dann alle Daten mit der jeweiligen ID in dem Kfeld „Typ“ erscheinen und mir zur Auswahl stehen.

Hoffe ich habe mich richtig ausgedrückt und hoffe auf HILFE.

Vielen Dank im Vorraus

Mfg
Benni

2

Hallo,

wenn ich das richtig verstanden habe, soll die 2. Kombo nach Auswahl der ersten neu gefuellt werden.

Vieleicht hilft dir folgendes weiter:

  1. In der GruppenKombo im Ereignis „Nach Aktualisieren“ eine VBA-routine anlegen.
  2. SQL-Statemanr zusammenbauen
    sqlString = "Select ID, MeinFeldTyp From MeinerTabelleMitTyp WHERE MeineGruppenID = " & MeinGruppenKombo
  3. MeinTypKombo.RowSource = sqlString
    MeinTypKombo.Requery

Tschau
Peter

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

3

Hallo,

wenn ich das richtig verstanden habe, soll die 2. Kombo nach
Auswahl der ersten neu gefuellt werden.

Ja richtig genau so!

ich versuche es mal

Vielen Dank für die Antwort

4

ich versuche es mal

Hallo,

hat nicht geklappt mache irgendwas falsch…

habe es dann anders versucht:

Ich habe 3 Kombifelder:

Kombifeld1: Gruppe
Kombifeld2: Gruppe-ID
Kombifeld3: Typ

Bei Gruppe-ID und Typ habe ich in Steuerelemete-Innhalt eingetragen:

=[Kombifeldname].Column(1)

jetzt funktioniert das eigentlich auch so wie ich es will aber:frowning:es gibt immer ein aber)

wenn ich dann einen der jetzt angezeigten Werte auswählen will kommt:

Das Steuerelement kann nicht bearbeitet werden: Es ist an den Ausdruck =[Gruppe].Column(1) gebunden

Jetzt die Frage:

gibt es einen anderen „Code“/Möglichkeit für Column(1) die das gleiche bewirkt???

Vielen Dank im Vorraus
Mfg

Benni

5

Hallo Benni,

Ich habe 3 Kombifelder:

ursprünglich waren es mal zwei?

Kombifeld1: Gruppe
Kombifeld2: Gruppe-ID
Kombifeld3: Typ

Bei Gruppe-ID und Typ habe ich in Steuerelemete-Innhalt
eingetragen:
=[Kombifeldname].Column(1)

nö, total falsch, da gehört die Feldbezeichnung der Tabelle rein, wo du diese Werte speichern willst.

gibt es einen anderen „Code“/Möglichkeit für Column(1) die das
gleiche bewirkt???

Fangen wir mal oben an:

  1. Kombifeld: Gruppe
  • Datenherkunft ist eine Abfrage
  • in der Abfrage hast du als
  • erste Spalte = ID_Gruppe
  • zweite Spalte = Gruppenbezeichnung
  • die Spaltengrößen hast du auf 0cm;10cm eingestellt damit die ID nicht angezeit wird
  1. Kompifeld: Gruppe-ID
  • Datenherkunft ist eine Abfrage
  • in der Abfrage hast du als
  • erste Spalte = ID_Gruppe
  • zweite Spalte = WASAUCHIMMER
  • die Spaltengrößen hast du auf 0cm;10cm eingestellt damit die ID nicht angezeit wird
  • in der Abfrage hast du in der ersten Spalte (ID_Gruppe) als Kriterium den Wert des ersten Kombifeldes = ME.Gruppe.column(0) eingetragen?

WICHTIG: die Zählweise bei Column beginnt bei 0, d.h.
die erste Spalte ist Column(0)
die zweite Spalte ist Column(1)
usw.

Wenn du dann als VBA Code (Kombifeld = Gruppe) diese Zeile eingibst, sollte es funktionieren:

me.gruppe-id.requery

Grüße aus Essen
Wolfgang
(Netwolf)

6

Wenn du dann als VBA Code (Kombifeld = Gruppe) diese Zeile
eingibst, sollte es funktionieren:

me.gruppe-id.requery

Grüße aus Essen
Wolfgang
(Netwolf)

Vielen vielen Dank!

Endlich mal nach langer Suche eine brauchbare Antwort!

Ich versuch es sofort!!

Vielen Dank nochmal!

Grüße Benni

7

Hello again,

  1. Kompifeld: Gruppe-ID
  • Datenherkunft ist eine Abfrage
  • in der Abfrage hast du als
  • erste Spalte = ID_Gruppe
  • zweite Spalte = WASAUCHIMMER
  • die Spaltengrößen hast du auf 0cm;10cm eingestellt damit die ID nicht angezeit wird
  • in der Abfrage hast du in der ersten Spalte (ID_Gruppe) als Kriterium den Wert des ersten Kombifeldes = ME.Gruppe.column(0) eingetragen?

es hat alles geklappt(vielen Dank) bis auf:

=ME.Gruppe.column(0)

ich habe alles wie beschrieben eingetragen nun fehlt aber etwas, denn er bringt dann wenn ich die Auswahl starten will: „Undefinierte Funktion im Ausdruck: ME.Gruppe.column(0)“

an was könnte denn das liegen? Habe ich etwas vergessen oder stimmt eine Beziehung zwischen den Tabellen nicht?

Vielen Dank
und vG aus BenzTown

Benni

8

Hello again,

es hat alles geklappt(vielen Dank) bis auf:
=ME.Gruppe.column(0)
an was könnte denn das liegen? Habe ich etwas vergessen oder
stimmt eine Beziehung zwischen den Tabellen nicht?

sorry, zwei Flüchtigkeitsfehler:

  1. in der Abfrage muß der Verweis auf das Formular genau eingegeben werden, das ME. wird nicht richtig übersetzt.
  2. die Column(X) Parameter werden von der Abfrage nicht unterstützt.
    können aber im Feld unter „gebundene Spalte“ definiert werden. Ggf. in eine zusätzliches Feld zwischenspeichern und das dan für die Abfrage nutzen.

Also richtig wäre dann, wenn du nur die erste Spalte auswerten willst:
[Formulare]![DEINFORMULARNAME]![Gruppe]

Grüße aus Essen
Wolfgang
(Netwolf)

9

sorry, zwei Flüchtigkeitsfehler:

Hallo,
ok danke nochmal…versuche es gleich wieder
habe mir nun auch so einen VBA-Code geschrieben(mehr aus Vorlagen abgeschrieben und angepasst):smile:weil is doch ziemlich schwer!:
kann mir jemand sagen wie ich da noch ein Bild einbinde das dann mitaktualisiert wird sobal die erste Abfrage gemacht wird?

Option Compare Database
Option Explicit

Private Sub Typ_Enter()
On Error Resume Next
If IsNull(Me!Gruppe) Then
MsgBox „Vorher Gruppe auswählen!“, vbExclamation
Me!Gruppe.SetFocus
End If
End Sub

Private Sub Gruppe_AfterUpdate()
If Not IsNull(Me!Gruppe) Then
Me!Typ.RowSource = _
„SELECT DISTINCTROW TypID, Bezeichnung FROM tbl_Typ“ & _
IIf(Me!Gruppe = 0, IIf(Me!Widerstand = 0, „“, _
" WHERE WiderstandsID = " & Me!Widerstand), _
" WHERE GruppeID = " & Me!Gruppe) & " ORDER BY Bezeichnung"
Else
Me!Typ.RowSource = „“
End If
Me!Widerstand.Requery
Me!Typ.Requery
Me!TypID = Null
Me!Bezeichnung = Null
End Sub

Private Sub Gruppe_Enter()
If IsNull(Me!Widerstand) Then
MsgBox „Vorher Produkt auswählen!“, vbExclamation
Me!Widerstand.SetFocus
End If
End Sub

Private Sub Widerstand_AfterUpdate()
If Not IsNull(Me!Widerstand) Then
Me!Gruppe.RowSource = _
„SELECT DISTINCTROW GruppeID, Gruppe FROM tbl_Gruppe“ & _
IIf(Me!Widerstand = 0, „“, " WHERE WiderstandsID = 0 OR WiderstandsID = " & Me!Widerstand) & " ORDER BY Gruppe"
Me!Typ.RowSource = „“
Else
Me!Typ.RowSource = „“
Me!Gruppe.RowSource = „“
End If
Me!Gruppe.Requery
Me!Typ.Requery
Me!TypID = Null
Me!Bezeichnung = Null
End Sub

10

Hallo,

kann mir jemand sagen wie ich da noch ein Bild einbinde das
dann mitaktualisiert wird sobal die erste Abfrage gemacht
wird?

in Listen- und Pulldownfeldern lassen sich keine Bilder einbinden und anzeigen.

Wenn du so eine Funktion anbieten willst, benötigst du ein Unterformular (UFO).

Grüße aus Essen
Wolfgang
(Netwolf)