Frage zur Anzeige der Datensatznavigation in Textbox

[database]

Hallo,

was kannst du denn nicht nachvollziehen?

folgende Codes kommen im Formular zur Anwendung:

Code [Auswählen] Erweitern



Private Function fx() As Long
   If Me.RecordsetClone.RecordCount > 0 Then
       Me.RecordsetClone.MoveLast
       fx = Me.RecordsetClone.RecordCount
   Else
       fx = 0
   End If
End Function



Private Sub Form_Current()

If Me.FilterOn = True Then
   Me.GEFILTERT.Value = "DS " & [CurrentRecord] & " von " & fx()
Else
   Me.GEFILTERT = ""
End If

End Sub



Das Feld GEFILTERT enthält KEINEN Steuerelemtinhalt!
Ob in dem Feld was angezeit wird oder nicht hängt vom Filter ab - ein = Inhalt, aus = kein Inhalt.
Geregelt wird das über das Formularereignis 'Beim Anzeigen' (Form_Current)

Schau mal die Formularereignisse an und vergleiche die Steuerelementinhalte der Felder.

Ev. habe ich das alte Beispiel nochmal angehängt - daher nochmal ein Anhang.


[Anhang gelöscht durch Administrator]

[accessy]

Im ersten Anhang gab es keinen Code
Private Sub Form_Current()

Jetzt ist es klar und funktioniert.
Ich musste allerding im Steuerelementeinhalt alles rausnehmen, sonst gibts nen Fehler 2448.

Aber eine Sache bleibt noch.
In Excel gibt es das Ereignis Workbook_Open.
Das hat Access scheinbar nicht. Ich habe mal das
Me.Gefiltert = ""
ins Private Sub Form_Load()
und ins
Private Sub Form_Open
eingebaut.
Aber es ist ohne Wirkung.
Es wäre halt schön, wenn beim Öffnen der DB die Textbox GEFILTERT leer ist.
Da steht beim Öffnen DS 1 von 545 drin.
Erst, wenn der Filter mal aktiviert wurde und zurückgesetzt, ist die Textbox leer.

[bahasu]

Hi,

vielleicht hilft es, wenn Du beim Lade-Ereignis auch noch einbaust:
Me.FilterOn = false

Harald

[accessy]

Ja, das hat geholfen.

Ich bedanke mich vielmals für deine Bemühungen meine kleine DB benutzerfreundlich zu gestalten.
Schönes Weekend.

[database]

Guten Morgen,

Ich musste allerding im Steuerelementeinhalt alles rausnehmen, sonst gibts nen Fehler 2448

Darauf hatte ich in meiner Antwort explizit hingewiesen. 

Bitte nicht vergessen abgeschlossene Beiträge als 'gelöst' zu kennzeichnen - DANKE

Schönen Sonntag!

[accessy]

Vergesse ich manchmal.
Werde mich bemühen daran zu denken.
Vielen Dank nochmal für die ausgiebige Unterstützung.

So, jetzt habe ich schon 5x das Symbol für "Gelöst" angewählt in der ComboBox, aber vorne wird das nicht gezeigt.

[bahasu]

So, jetzt habe ich schon 5x das Symbol für "Gelöst" angewählt in der ComboBox, aber vorne wird das nicht gezeigt.

Probier mal, bei Deinem ersten Beitrag das "Gelöst" anzuklicken.

Harald