Office: Filter ändert Datensätze

Hallo

Ich habe das Problem, dass bei einem Filtervorgang einige Felder des ersten Gefundenen Eintrages die Daten enthalten, die vor dem Filtervorgang angezeigt wurden. hier ist mal der Codeausschnitt:

Code:

'** Generelle Einstellungen
    Suchfeld.SetFocus
    
    '** Generell die letzten Rechnungen zuerst anzeigen
    OrderBy = "RechnungsDatum asc"
    OrderByOn = True
    
    '** Ist es die Kundennummer, nachder gefilter werden soll?
    WasSuchen.SetFocus
    If WasSuchen.Text = "Kundennummer" Then
        Kundennummer.SetFocus
    
        strFilter = "Rechnungsdaten.Kundennummer"
        
    '** Ist es die Firma, nachder gefilter werden soll?
    ElseIf WasSuchen.Value = "Firma" Then
        Firma.SetFocus
        
        strFilter = "Firma"
    
    '** Ist es die Rechnungsummmer, nachder gefilter werden soll?
    ElseIf WasSuchen.Value = "Rechnungsnummer" Then
        Rechnungsnummer.SetFocus
        
        strFilter = "Rechnungsdaten.Rechnungsnummer"
    End If

    '** Nimm die Filtrierung vor
    DoCmd.ApplyFilter , strFilter & " like '*" & Suchfeld.Value & "*'"

Im Dropdownmenu WasSuchen steht drinn, wonach gefiltert werden soll und in Suchfeld der entsprechende Wert, der bei den anzuzeigenden Einträgen enthalten sein muss.

 

Ich muß gestehen, daß ich nicht ganz verstehe, was Du meinst. Aber wenn ich mir den Code so ansehe, würde ich zumindest einige "Unschönheiten" bereinigen, die aber nicht unbedingt Einfluß auf die Funktionalität haben müssen.

Code:

'** Generell die letzten Rechnungen zuerst anzeigen
OrderBy = "RechnungsDatum asc"

Ähm, dann wäre ein "desc" aber sinnvoller, schätze ich mal.

Code:

    strFilter = "Rechnungsdaten.Kundennummer"
    [...]
    strFilter = "Firma"
    [...]
    strFilter = "Rechnungsdaten.Rechnungsnummer"

Den Tabellen-Namen brauchst Du eigentlich nicht. In den anderen Code-Blöcken wird der auch geflissentlich weggelassen. Aber rein vorsichtshalber könnte man den Feldnamen in [] setzen. Also u.a.:

Code:

    strFilter = "[Kundennummer]"

Code:

    If WasSuchen.Text = "Kundennummer" Then
    [...]
    ElseIf WasSuchen.Value = "Rechnungsnummer" Then
    [...]
    ElseIf WasSuchen.Value = "Firma" Then
    [...]
    DoCmd.ApplyFilter , strFilter & " like '*" & Suchfeld.Value & "*'"

Entscheide Dich, ob Du .Text oder .Value abfragen möchtest. Ich würde aber eher in Richtung .Text tendieren.

Gruß, Michael