Announcement

Collapse
No announcement yet.

Problem mit Kombinationsfeld

Collapse
X
  • Filter
  • Time
  • Show
Clear All
new posts

  • Problem mit Kombinationsfeld

    Hallo Zusammen,

    ich hab mal eine Frage zu einem Kombinationsfeld: Und zwar hab ich in meiner Tabelle1 die Felder RanNr, ArtikelNr....die RanNr kann mehrmals vorkommen.
    Ich hab meine Kombinationsfeld so gestaltet, dass ich auswählen kann, von welcher RanNr ich mir die Daten der Tabelle anzeigen lassen will.

    Nun zum Problem: Wie kann ich es machen, dass mir das Formular nur die Datensätze der ausgewählten RanNr im Kombinationsfeld angibt??

    Vielen Dank schon mal für Eure Antworten.

  • #2
    Lösung zum Kombinationsfeld

    Hallo!
    Versuche folgendes:
    • In der Tabelle1 benötigst du (falls nicht vorhanden) eine laufende Nummer z.B.: den Autowert, diesen benötigst du in deinem Kombinationsfeld
    • Im Formular benötigst du ein Kombinationsfeld mit 2 Spalten (Autowert, RanNr)
    • Die Spalte AutoWert könntest du durch festlegen der Spaltenbreite von 0 unsichtbar machen
    • Im Register Daten vom Dialogfenster Eigenschaften des Kombinationsfeldes (Doppelklick auf das Kombinationsfeld) trägst du unter Datenherkunft folgenden Text ein:

    SELECT Tabelle1.AutoWert, Tabelle1.RanNr FROM Tabelle1;

    • Wechsle zum Register Ereignis
    • Wähle in der Zeile Nach Aktualisierung die Ereignisprozedur aus
    • Zum Suchen benötigst du folgende Anweisungen:

    Private Sub cboRanNr_AfterUpdate()
    Dim rs As Object
    Set rs = Me.Recordset.Clone
    rs.FindFirst "[AutoWert] = " & Str(Nz(Me!cboRanNr, 0))
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark
    End Sub

    • Soll im Formular nur der jeweils im Kombifeld ausgewählte Datensatz angezeigt werden benötigst du den Filter mit diesem Code:

    Private Sub cboRanNr_AfterUpdate()
    Dim rs As Object
    With Me
    .Filter = "[AutoWert] = " & Str(Nz(Me!cboRanNr, 0))
    .FilterOn = True
    End With
    End Sub

    Comment


    • #3
      Danke Franz,

      die Antwort mit dem Filter hat mir weiter geholfen

      Comment

      Working...
      X