Supportnet / Forum / Datenbanken
[Access] Zähler des Datensatznavigators nachbauen
Frage
Hi,
bei meinen Formularen habe ich teilweise unten den Datensatznavigator eingeblendet. Diesen kann man mit den vorkonfigurierten Button gut nachbauen (vor, zurück usw.)
Aber wie kann ich den Datensatzzähler nachbauen?
Danke!
Antwort 1 von Coolpix
hallo,
wenn du zumindest 2 Buttons auf deinem Formular hast is das recht einfach:
du fügst ein Textfeld in dein Formular und benennst das Textfeld mit "txtDsAktuell" und das dazugehörige Bezeichnungsfeld nennst du "lblDsGesamt"
dann fügst du in dein VBA-Projekt eine Prozedur ein z.B.
Sub Datensatzwechsel()
dort schreibst du rein :
wobei ich hier das Feld "ID" zähle das kann auch jedes andere Feld in der Tabelle sein, das in jedem Datensatz vorkommt.
diese Prozedur rufst du dann beim Klicken auf deine Navivationsbuttons und beim öffnen deine Formulars mit
auf.
jetzt mußt du nur noch das Textfeld und das Bezeichnungsfeld um deine Navigationsbuttons anordnen, und schon sieht´ original aus ;-)
Feedback fänd ich klasse
Greetings ;-)
wenn du zumindest 2 Buttons auf deinem Formular hast is das recht einfach:
du fügst ein Textfeld in dein Formular und benennst das Textfeld mit "txtDsAktuell" und das dazugehörige Bezeichnungsfeld nennst du "lblDsGesamt"
dann fügst du in dein VBA-Projekt eine Prozedur ein z.B.
Sub Datensatzwechsel()
dort schreibst du rein :
Sub Datensatzwechsel()
Me.txtDsAktuell = Me.CurrentRecord
Me.lblDsGesamt.Caption = "von " & DCount("[ID]", "[tblTabelle]")
End Sub
wobei ich hier das Feld "ID" zähle das kann auch jedes andere Feld in der Tabelle sein, das in jedem Datensatz vorkommt.
diese Prozedur rufst du dann beim Klicken auf deine Navivationsbuttons und beim öffnen deine Formulars mit
call Datensatzwechsel
auf.
jetzt mußt du nur noch das Textfeld und das Bezeichnungsfeld um deine Navigationsbuttons anordnen, und schon sieht´ original aus ;-)
Feedback fänd ich klasse
Greetings ;-)
Antwort 2 von unwichtig
Hallo Coolpix,
vielen Dank für Deinen sehr ausführlichen Tip. Es funktioniert bestens! :)
vielen Dank für Deinen sehr ausführlichen Tip. Es funktioniert bestens! :)

