Office: (Office 2016) Datensatzanzeige stimmt nicht

Moin Gemeinde,

auf einem Hauptformular habe ich ein Unterformular zur Anzeige von Bildern.
Mit folgendem Code lasse ich mir die Anzahl der Datensätze anzeigen:

With Me.Form.RecordsetClone
If Not (.BOF And .EOF) Then .MoveLast
Me!Anzeige.Caption = "Datensatz " & Me.CurrentRecord & " von " & .RecordCount
End With

Wenn ich im Hauptformular einen Datensatz weiter schalte steht da aber zuerst 'Datensatz 1 von 1'. Erst wenn ich im Unterformlar blätter wird die Anzeige richtig dargestellt. Also mach ich was falsch. Aber wie mache ich es richtig damit die Anzeige sofort stimmt.
Greetings

Edit: Ganz vergessen. Den Code führe ich im Form_Current Ereignis des Unterformular aus.

:)

 

Moin,
Code:

kann das eintreten? Bin mir jetzt grad nicht sicher.
maike

 

Hi Maike,
hab den Code so aus einem Beispiel übernommen. In einer anderen Datenbank auf dem Hauptformular funktioniert es einwandfrei.

 

\@Gockel67
Die Caption eines Bezeichnungsfeldes aktualisiert sich nicht autom., so wie
die DS im verknüpften UFo. Führe den Code auch im Current-Ereignis des
HFo aus.

gruss ekkehard

 

Hi Ekkehard,
danke für deine Rückantwort. Das hab ich mir schon gedacht. Wie müsste der Code dann im Hauptformular aussehen? Bin leider nicht so der Accessprofi.
Greetings Jörg

 

Code:

 

Hi Ekkehard,
leider nicht. Zuerst beschwert er sich über End If Ohne If-Block. Wenn ich das End If entferne beschwert er sich über .MoveLast. Fehler 2465 Anwendungs- oder objektdefinierter Fehler. Könntest du bitte nochmal drübergucken?

 

Servus Gockel67,
Wenn das Bezeichnungsfeld 'Anzeige' im HF ist,
dann im HF
Code:

Und im UFO
Code:

Oder im HF
Code:

im UFO
Code:

Dabei springt aber das UFO immer auf den ersten Datensatz.


Wenn das Bezeichnungsfeld 'Anzeige' im UFO ist, dann stimmt Dein Code aus #1
Die Codes sollten eine Fehlerabfangroutine beinhalten.

 

Hallo Ekkehard,
erstmal danke für deine Mühe. Hatte ich leider vergessen zu erwähnen. Das Anzeigefeld 'Anzeige' befindet sich im Unterformular 'ufmBilder' und soll aktuallisiert werden. Der erste Code von dir funktioniert im Hauptformular aber leider nicht.
LG Jörg

 

Servus Gockel67,
dann tausch doch die Namen der UFOs aus.
statt UFO_UnterGruppenArt nimm Dein ufmBilder.

 

Hi Ekkehard,
das funktioniert aber nicht. Das Ergebnis ist immer noch das gleiche. Soblad ich einen neuen Datensatz anlege und dann blätter wird im Unterformular wieder nur Datensatz 1 von 1 statt richtigerweise Datensatz 1 von x angezeigt.

 

Servus,
dann brauch ich eine Demo DB mit ein paar anonymisierten Daten(als zip)
Ich bin übrigens nicht Ekkehard seit ein paar Antworten.

 

\@Gockel67
Nimm doch statt dem Bezeichnungsfeld ein
• Textfeld mit den Eigenschaften
• Steuerelementinhalt: ="Datensatz " & [CurrentRecord] & " von " & Anzahl(*)
• Aktiviert: Nein
• Gesperrt: Ja

Das Textfeld aktualisiert sich von alleine und benötigt keinen extra VBA-Code.

 

Hi Ohrkester,
sorry, tut mir wirklich leid. Das Problem hier macht mich scheinbar bissl irre :-D
@readonly: Ganz dickes dankeschön an dich. Mit einem Textfeld funktioniert es. Warum einfach wenn's auch kompliziert geht :-D

 

Servus @Gockel67,
gratuliere Dir zu der Lösung nach einem langen Gang durch einen Irrgarten.
Du solltest nicht vergessen, den Thread als erledigt anzuklicken.

ps.:
Offtopic: Das hatte Dich nicht scheinbar, sondern anscheinend irre gemacht.