Office: (Office 2010) Nach Datensatz filtern

pcler88 · 27. Juni 2016

keiner eine Idee was man noch probieren könnte? *smashing

MaggieMay · 27. Juni 2016

Hi,

der einzige Fehler den ich bekomme ist der, dass das Requery nicht möglich ist.
Diese Befehle sind also zu entfernen.
In dem Formular gibt es nichts zu aktualisieren, vermutlich weil es ungebunden ist.

Hast du es denn auch mit der hochgeladenen Test-DB probiert??

Kyron9000 · 27. Juni 2016

also, bei mir funktioniert die TestDB und auch das Formular.
Es wird gefiltert, aber mM nicht gut...
bei einer Eingabe z.B. "m" bleibt auch Fixieren mit angezeigt...?

Auch bei einem leeren Listenfeld habe ich keinen Fehler...
ob mit dem Code Code:

If Me.SearchResults.ListCount > 0 Then
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

oder ohne völlig egal... es funktioniert.

Den Fehler den pcler88 angezeigt bekommt, habe ich nicht.
Da er ein Anlagenfeld verwendet ist das in der .mdb natürlich nicht mehr so vorhanden wie es sein soll.
Dadurch wird auch kein Bild angezeigt, was aber hier egal ist.

Wie schon geschrieben, eine mdb ist im Anhang... eine etwas gekürzte Version.

Nouba · 27. Juni 2016

Hallo,

hier scheint die Autokorrektur zuzuschlagen. Ich habe gerade noch einmal dre eingegeben und Fehler 2110 erhalten, wobei der eingegebene Text in der geändert wurde. Gleiches passiert bei dei -> die. Also die Eigenschaft Autokorrektur für das sichtbare Textfeld abstellen. Code:

Private Sub SearchFor_Change()
'Create a string (text) variable
Dim vSearchString As String

'Populate the string variable with the text entered in the Text Box
'SearchFor
vSearchString = Me.SearchFor.Text

'Pass the value contained in the string variable to the hidden text box
'SrchText, that is used as the sear4ch criteria for the Query QRY_SearchAll
Me.SrchText = vSearchString

'Requery the List Box to show the latest results for the text entered in
'Text Box SearchFor
Me.SearchResults.Requery

'Tests for a trailing space and exits the sub routine at this point so as to
'preserve the trailing space, which would be lost if focus was shifted from
'Text Box SearchFor
If Len(Me.SrchText) And Right$(Me.SrchText, 1) = " " Then

'Set the focus on the first item in the list box
' Me.SearchResults = Me.SearchResults.ItemData(1)
' Me.SearchResults.SetFocus

'Set the focus on the first item in the list box
With Me.SearchResults
If .ListCount > 0 Then
.Value = .ItemData(0)
.SetFocus
End If
End With

'Requery the form to refresh the content of any unbound text box that
'might be feeding off the record source of the List Box
'DoCmd.Requery

'Returns the cursor to the the end of the text in Text Box SearchFor,
'and restores trailing space lost when focus is shifted to the list box
With Me.SearchFor
.Value = vSearchString
.SetFocus
.SelStart = .SelLength
End With
Else

'Set the focus on the first item in the list box
With Me.SearchResults
If .ListCount > 0 Then
.Value = .ItemData(0)
.SetFocus
End If
End With

'Requery the form to refresh the content of any unbound text box that
'might be feeding off the record source of the List Box
'DoCmd.Requery ' There is no RecordSource in this Form

'Returns the cursor to the the end of the text in Text Box SearchFor
With Me.SearchFor
.SetFocus
.SelStart = Len(.Text)
End With
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Kyron9000 · 27. Juni 2016

...das 'dre' usw. habe ich leider überlesen und deshalb auch nicht getestet.

@Nouba, hast mal 'f' eingegeben? Da bleibt "Fixieren" und "Messen2"!
Bei 'm' bleibt auch "Fixieren" auch dabei.
Das kann nicht gewünscht sein oder?

Nouba · 27. Juni 2016

\@Alfred,

so ist die Abfrage halt gestrickt. Es werden ja auch Leerzeichen, obwohl sie im Suchtext angezeigt werden, beim Suchbegriff eliminiert. Ob das gewollt ist, weiß ich nicht.

Persönlich halte ich von mehrdeutigen Suchen in mehreren Datenfeldern über ein Textfeld, das als eierlegende Wollmichsau ausgelegt ist, gar nichts.

pcler88 · 7. Januar 2021

von Nouba

Hallo,

hier scheint die Autokorrektur zuzuschlagen
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

ich kann es kaum glauben *entsetzt
die Autorkorrektur war schuld *Smilie

Stephan hatte die Systemsprache während der Erstellung der Datenbank auf Englisch.
Also war die Autokorrektur der Datenbank auch auch Englisch.
Warum der Fehler jetzt nur bei Wochentagen und "dre" aufgetaucht ist... das kann nur einer von euch beantworten *Smilie

Vielen vielen dank für eure Hilfe *Smilie

die suche mag so wie sie von Stephan zusammen gebastelt wurde nicht optimal sein, aber sie tut jetzt was sie soll und das zählt erstmal.

Außerdem muss mein Nachfolger ja auch noch was zu tun haben *tongue.gif*

Noch einmal vielen dank, ihr seit ein super Forum *Smilie

Edit:
Das wirft die nächste Frage auf....
Die Autokorrektur ist ja wahrscheinlich nur Lokal auf meinem Rechner deaktiviert, die Datenbank wird aber in Zukuft auf einem Server liegen.
Die Autokorrektur lässt sich doch bestimmt auch per VBD deaktivieren oder? *Smilie

ebs17 · 28. Juni 2016

Autokorrektur per VBA Code ein/ausschalten

Außerdem muss mein Nachfolger ja auch noch was zu tun haben
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

"Wenn jeder an sich denkt, ist an jeden gedacht." (Ralf Nölleke)

Kyron9000 · 28. Juni 2016

...eigentlich brauchst du es ja nur für das eine Textfeld!
Also, Textfeld anklicken, im Eigenschaftenblatt "Andere" wählen und "AutoKorrektur zulassen" auf nein setzen.

Office: (Office 2010) Nach Datensatz filtern

Nach Datensatz filtern

Nach Datensatz filtern

Nach Datensatz filtern

Nach Datensatz filtern

Nach Datensatz filtern - Similar Threads - Datensatz filtern

Filtern von Datensätzen

Datensätze per Dropdown/Eingabefeld Filtern?

Datensätze filtern/ändern und kopieren

Datensätze im unterformular nach suche Filtern

Datensatz filtern zwischen zwei Werten

Anwenden eines Filters zum Anzeigen ausgewählter Datensätze in einer Access-Datenbank

Seriendruck: Datensätze filtern