Kombinationsfeld

Computer: Software & Programmierung Microsoft Access
#1

Mion www’ler,

ich habe folgendens Problemchen:

Ich habe mir ein ungebundenes Kombinationsfeld gebaut. Dieses Kombinationsfeld hat eine übereinstimmende Datensatzsuche, d.h.: Ich tippe einen Buchstaben ein und die Funktion vervollständigt mir den Rest mit Namen (ich nenne sie mal Arbeiter-Namen) von einer von mir erstellten Tabelle.

Das Funktioniert soweit auch gut. Nun habe ich aber eine zweite Tabelle mit Namen (die Kundennamen), die jeweils verschiedenen Arbeitern zu geordned sind.

Rufe ich jetzt einen Arbeiter auf, kann ich jetzt über das zweite Kombinationsfeld, einen bestimmt Kunden aufrufen. Das Prinzip funktioniert, wenn man den Kundenzugehörigkeit zuordnen kann. Denn wenn ich einen Namen in das Kombinationsfeld eingebe, das nicht dem Arbeiter zugeordnet ist, ist es trotzdem selectierbar, wird aber nicht aufgerufen. Damit habe ich aber in meiner Datenbank aber ein Problem, weil ich dann auch noch Fehlermeldungen kriege.

Meine Frage wäre,… :

Gib es Funktionen, die die Auswahl in Kombinationsfeldern auf die nur möglich selectierbaren beschränkt.

#2

Du wirst, wie es aussieht, in der Datenbank eine Beziehung zwischen den Arbeitern und den Kunden haben. Dann musst Du für das zweite Kombinationsfeld die RowSource entsprechend auf die Kunden einschränken, die dem Arbeiter zugeordnet sind. Das machst Du am besten im AfterUpdate-Ereignis des Arbeiter-Kombinationsfeldes (cboKunden.RowSoure="SELECT FROM Kunden WHERE [Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

#3

Mion Manfred,

mir ist nicht ganz klar wie ich das machen soll oder eher gesagt ich weiß nicht was mit cbo gemeint ist.

cboKunden.RowSoure="SELECT FROM Kunden WHERE

#4

Moin, Scout!

mir ist nicht ganz klar wie ich das machen soll oder eher
gesagt ich weiß nicht was mit cbo gemeint ist.

cboKunden.RowSoure="SELECT FROM Kunden WHERE

sub cboArbeiter_AfterUpdate
If IsNull(Me.cboArbeiter) Then
’ Wenn kein Arbeiter ausgewählt, auch keine Kunden
Me.cboKunden.RowSource = „“
Else
’ Alle Kunden mit Verweis auf ausgewählten Arbeiter
Me.cboKunden.RowSource = „SELECT * FROM Kunden WHERE Id_Arbeiter=“ _
& Me.cboArbeiter
End If
end sub

Gruß, Manfred

1 Like