Office: (Office 2016) Navigationsschaltfläche Datensatzwechsel bei gedrückter Maustaste

harry72 · 26. April 2020

Hallo zusammen,

ich verwende eine alte Datenbank, die unter Access 2003 erstellt wurde, neuerdings unter Access 2019 (2016 müsste sich auch so verhalten).
Dabei ist mir aufgefallen, dass sich die Navigation über die in einem Formular eingeblendete Navigationsschaltfläche verändert hat. Unter dem alten Access 2003 hat ein Mausklick (und gedrückt halten) auf den Vor- oder Zurück-Buttons eine schnelle Navigation erlaubt, da die Datensätze einfach schnell weitergeblättert wurden. Mit der neuen Access-Version erfolgt ein Datensatzwechsel immer nur durch einen expliziten Mausklick und wieder loslassen, dann wieder Klick usw.
Ein schnelles "durch die Sätze navigieren" funktioniert so nicht mehr bzw. nur durch eine wilde Klickerei.
Gibt es eine Möglichkeit, dieses Verhalten zu verändern?

Danke schon mal.
Schöne Grüße Harry

:)

harry72 · 29. Mai 2020

Hallo, kennt keiner dieses Problem?

elmar · 29. Mai 2020

Das ist kein „Problem“. Nimm es einfach so hin, die Entwickler bei Microsoft haben das geändert.

Beaker s.a. · 29. Mai 2020

Hallo Harry,
Das geht nur mit eigenen Buttons und etwas Code
Code:

Option Compare Database
Option Explicit

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long

Private Const VK_LBUTTON = &H1
Private Const VK_RBUTTON = &H2
Private Const SM_SWAPBUTTON = 23

Public Enum edNaviButtons
edFirstRec = 0
edPreviousRec = 1
edNextRec = 2
edLastRec = 3
ednewrec = 4
edSaveRec = 5
edDeleteRec = 6
End Enum

Public Function DoNaviButtons( _
ByVal intButton As edNaviButtons)
'---------------------------------------------------------------------------------------
' Autor : Smart-Tools, angepasst von ede
' Version : 1
' Datum : 19.09.2010
' Purpose : Datensatznavigation
' Aufruf : "Beim Klicken" =DoNaviButtons(intButton)
' Parameter : intButton = geklickter Button (siehe edNaviButtons)
'---------------------------------------------------------------------------------------

Dim frm As Form
Dim rst As DAO.Recordset

Set frm = Screen.ActiveForm

'Abbruch bei neuem DS
If frm.NewRecord = True Then
Screen.PreviousControl.SetFocus
GoTo Ende_CleanUp
End If

Set rst = frm.RecordsetClone
rst.Bookmark = frm.Bookmark

Select Case intButton
Case edFirstRec
'Erster Datensatz
rst.MoveFirst
frm.Bookmark = rst.Bookmark
Case edPreviousRec
'Vorheriger Datensatz
rst.MovePrevious
If rst.AbsolutePosition -1 Then
frm.Bookmark = rst.Bookmark
End If
Case edNextRec
'Nächster Datensatz
rst.MoveNext
If rst.AbsolutePosition -1 Then
frm.Bookmark = rst.Bookmark
End If
Case edLastRec
'Letzter Datensatz
rst.MoveLast
frm.Bookmark = rst.Bookmark
End Select

Ende_CleanUp:
On Error Resume Next
Set frm = Nothing
rst.Close
Set rst = Nothing
Exit Function

Fehler:

Resume Ende_CleanUp

End Function

Public Function RepeatNaviButtons( _
ByVal intButton As edNaviButtons)
'---------------------------------------------------------------------------------------
' Autor : Smart-Tools, angepasst von ede
' Version : 1
' Datum : 19.09.2010
' Purpose : Wiederholfunktion für Navigations-Buttons "Vorheriger" und "Nächster"
' Aufruf : "Bei Maustaste Ab" =RepeatNaviButtons(intButton)
' Parameter : intButton = geklickter Button (siehe edNaviButtons)
'---------------------------------------------------------------------------------------

Dim intMouseBtn As Integer
Dim IsSwapped As Boolean

IsSwapped = GetSystemMetrics(SM_SWAPBUTTON)
If IsSwapped = True Then
intMouseBtn = VK_RBUTTON
Else
intMouseBtn = VK_LBUTTON
End If

Do While Abs(GetAsyncKeyState(intMouseBtn) < 0)
Call DoNaviButtons(intButton)
Call Delay(0.25)
Loop

Ende_CleanUp:
On Error Resume Next
Exit Function

Fehler:

Resume Ende_CleanUp

End Function

Public Sub Delay(ByVal Sekunden As Single)
Dim t As Single
t = Timer
Do While Timer - t < Sekunden
DoEvents
If Timer < t Then 'Mitternacht
t = t - 24 * 60 * 60
End If
Loop
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

gruss ekkehard

Ohrkester · 29. Mai 2020

Servus Harry72,
oder wie wäre eine uralte Version von Köbi2000.
Funktioniert auch in allen Versionen.

Accesbeginner · 1. Juni 2020

Hallo Ohrkester.

Super Tool. Habe ich schon immer gesucht. Dankeschön

Office: (Office 2016) Navigationsschaltfläche Datensatzwechsel bei gedrückter Maustaste

Navigationsschaltfläche Datensatzwechsel bei gedrückter Maustaste

Navigationsschaltfläche Datensatzwechsel bei gedrückter Maustaste

Navigationsschaltfläche Datensatzwechsel bei gedrückter Maustaste

Navigationsschaltfläche Datensatzwechsel bei gedrückter Maustaste - Similar Threads - Navigationsschaltfläche Datensatzwechsel gedrückter

Gedruckte Farbe der Kommentarblasen ändern

Bilder werden in falscher Proportion oder Größe gedruckt.

Navigationsschaltflächen von Formular

Navigationsschaltflächen wechseln

Navigationsschaltflächen kategorisieren

bei datensatzwechsel Unterformular aktualisieren

Welches Ereignis bei Datensatzwechsel?