Kombinationsfeld Suchfunktion nur aktueller Monat

Hallo,

ich hab mal wieder ein Problem!!!
Meine Datenbank ist so aufgebaut:

  1. Tabelle: Monate mit Primärschlüssel (Januar 2011, Februar 2011 usw.)
  2. Tabelle: Adressen wo die Monate verküpft werden mit der 1. Tabelle.
    (z.B. Peter Stein, Januar 2011; Klaus Wege, Januar 2011 usw.)

Das Formular beinhaltet die Tabelle Monate und als Unterformular die Tabelle Adressen.
Jetzt gebe ich die Adressen ein, die z.B. für den Monat Dezember annonciert haben und eine Rechnung ausgestellt bekommen

Das Problem ist das Suchfeld.
Das Kombifeld im Unterformular sucht nach Name und Monat.
Es erscheinen jetzt alle Namen und Monate. Ich möchte aber nur die Namen für den Monat im aktuellen Datensatz sehen. (Adressen nur für Dezember oder nur für Januar)
Das krieg ich nicht hin.
Vielleicht könnt Ihr helfen.
(Hoffentllich hab ich es gut erklärt.)

Gruß aus Rheinbach
Erika

Hallo,

ich hab mal wieder ein Problem!!!

wer hat die nicht? :wink:

Meine Datenbank ist so aufgebaut:

  1. Tabelle: Monate mit Primärschlüssel (Januar 2011, Februar
    2011 usw.)

Ist „Januar 2011“ tatsächlich ein Primärschlüssel-Wert??

  1. Tabelle: Adressen wo die Monate verküpft werden mit der 1.
    Tabelle.
    (z.B. Peter Stein, Januar 2011; Klaus Wege, Januar 2011 usw.)

Das Formular beinhaltet die Tabelle Monate und als
Unterformular die Tabelle Adressen.
Jetzt gebe ich die Adressen ein, die z.B. für den Monat
Dezember annonciert haben und eine Rechnung ausgestellt
bekommen

Das Problem ist das Suchfeld.

Das Kombifeld im Unterformular sucht nach Name und Monat.

im Unterformular ??

WIE suchst Du damit?

Es erscheinen jetzt alle Namen und Monate. Ich möchte aber nur
die Namen für den Monat im aktuellen Datensatz sehen.
(Adressen nur für Dezember oder nur für Januar)
Das krieg ich nicht hin.
Vielleicht könnt Ihr helfen.

Vermutlich, auch wenn das Ganze etwas unglücklich (unnormalisiert) konstruiert ist.

Sub Suchkombi_Afterupdate()
Me.Recordsource=" Select * from Adressen where [Monat] like ‚" & left(Me!Suchkombi,Instr(Me!Suchkombi," ")-1) & "*‘"
End Sub

Viele Grüße vom Bodensee
Franz, DF6GL