Option Compare Database
 
Dim Eski, Yeni As Object
Private Function MouseOn(ctl As Object)
  If Not Yeni Is Nothing Then
    If Yeni.Name = ctl.Name Then Exit Function
    If Not Eski Is Nothing Then SonrakiKayit1
    Set Yeni = ctl
    SonrakiKayit2 Yeni
    Set Eski = Yeni
  Else
    Set Yeni = ctl
    SonrakiKayit2 Yeni
    Set Eski = Yeni
  End If
 End Function
Private Sub SonrakiKayit2(ctl As Object)
  DoCmd.GoToRecord , , acNext
End Sub
Private Sub SonrakiKayit1()
  DoCmd.GoToRecord , , acNext
End Sub
Private Sub Acilis()
  Dim ctl As Control
  For Each ctl In Me.Controls
    If ctl.Tag = "trz" Then
      ctl.OnmouseMove = "=MouseOn([" & ctl.Name & "])"
    End If
  Next
  Set Yeni = Nothing
  Set Eski = Nothing
End Sub
 
Private Sub Ayrıntı_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  If Eski Is Nothing Then Exit Sub
  SonrakiKayit1
  Set Eski = Nothing
  Set Yeni = Nothing
End Sub
 
Private Sub Form_Load()
  Acilis
End Sub

Private Sub Ayrıntı_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  If Eski Is Nothing Then Exit Sub
  'SonrakiKayit1
  Set Eski = Nothing
  Set Yeni = Nothing
End Sub

Private Sub SonrakiKayit1()
  DoCmd.GoToRecord , , acNext
End Sub