Nach Filtern gehen die Schaltflächen nicht mehr

[Herbert Bartkowski]

Hallo NG,

ich habe in einem Formular im Formularkopf ein paar Schaltflächen gemacht
mit denen ich Navigieren kann. Vor, zurück usw. Doch wenn ich einen Filter
aktiviere geht gar nichts mehr.

Me.Filter = "[Gericht] = 'Giessen'"
Me.Filter = True

Das Formular zeigt mich zwar an 8(gefiltert), doch beim Navigieren bleibt er
immer beim 1. Datensatz stehen. Wo ist mein Fehler???

Danke schon mal...

--
Herbert J. Bartkowski

[Jürgen Volke]

Hallo Herbert

> ich habe in einem Formular im Formularkopf ein paar Schaltflächen
gemacht
> mit denen ich Navigieren kann. Vor, zurück usw. Doch wenn ich
einen Filter
> aktiviere geht gar nichts mehr.
>
> Me.Filter = "[Gericht] = 'Giessen'"
> Me.Filter = True
>
> Das Formular zeigt mich zwar an 8(gefiltert), doch beim Navigieren
bleibt er
> immer beim 1. Datensatz stehen. Wo ist mein Fehler???
>

meinste nicht, dass die Info ein bischen dürftig ist??
welcher Code liegt denn hinter deinen Schaltflächen?

Gruß Jürgen

[Henry Habermacher [MVP Access]]

Hallo Herbert

"Herbert Bartkowski" <buchh...@autohaus-giessen.de> wrote:
>ich habe in einem Formular im Formularkopf ein paar Schaltflächen gemacht
>mit denen ich Navigieren kann. Vor, zurück usw. Doch wenn ich einen Filter
>aktiviere geht gar nichts mehr.
>
>Me.Filter = "[Gericht] = 'Giessen'"
>Me.Filter = True
>
>Das Formular zeigt mich zwar an 8(gefiltert), doch beim Navigieren bleibt er
>immer beim 1. Datensatz stehen. Wo ist mein Fehler???

Am Filter liegt's sicher nicht. Es muss IMO daran liegen, dass Du den Filter
immer wieder auf's neue setzt. Dies hat zur Folge, dass die Daten immer wieder
neu eingelesen werden (Filter setzen liest die Daten neu ein, wie wenn Du einen
Requery machen würdest)

Wo setzt Du denn den Filter? Vielleicht beim Current Ereignis oder beim
Activate, evt. beim SetFocus?
Stell hier mal ein bisschen Code rein, damit wir sehen, wo Du was machst.

Oder versuch mal Folgendes zu machen, wenn Du den Filter setzt:

Dim strFilter as String
strFilter = "[Gericht] = 'Giessen'"
If Me.Filter <> strFilter OR Me.FilterOn = False Then
Me.Filter = strFilter
Me.FilterOn = True
End If

Damit verhinderst Du, dass Du den gleichen Filter nochmals anwendest und damit
einen impliziten Requery auslöst.

HTH
Henry

--
__________________________________________________________
News suchen, lesen, schreiben mit http://newsgroups.web.de

[Herbert Bartkowski]

Meine Schaltflachen sehen so aus:
Private Sub cmdLast_Click()
On Error GoTo Err_cmdLast_Click

DoCmd.GoToRecord , , acLast
Call Befehl70_Click
Exit_cmdLast_Click:
Exit Sub

Err_cmdLast_Click:
MsgBox Err.Description
Resume Exit_cmdLast_Click

End Sub

Der Filter wird in einem Optionsfeld gesetz, nach aktuallisierung:

Private Sub optGericht_AfterUpdate()
Select Case Me.optGericht
Case 1

Me.Filter = "Gericht = 'Giessen'"

Me.FilterOn = True
Case 2
Me.Filter = "Gericht = 'Wetzlar'"
Me.FilterOn = True
Case 3
Me.Filter = "Gericht = 'Marburg'"
Me.FilterOn = True
End Select
End Sub

Henry Habermacher [MVP Access] <he...@psp-online.com> schrieb in im
Newsbeitrag: 3b399312$1...@netnews.web.de...

[Jürgen Volke]

hallo Herbert

> Meine Schaltflachen sehen so aus:
> Private Sub cmdLast_Click()
> On Error GoTo Err_cmdLast_Click
>
> DoCmd.GoToRecord , , acLast
> Call Befehl70_Click

und was passiert in Befehl70_Click ????

Gruß Jürgen

[Herbert Bartkowski]

Genau! Was passiert mit Befehl70_Click... Dort war die Kuh begraben. Habe
einfach einenen Haltepunkt gesetzt und im Einzelschritt alles durchlaufen.
Bei diesem Befehl wurde wieder alles zurückgesetzt...

Bin ich doof....

Jürgen Volke <j.v...@svg.de> schrieb in im Newsbeitrag:
9hct0b$5rb$06$1...@news.t-online.com...