Lebans SetGetSrollBar代码的更新版本

Question

我正在寻找任何能够重新编写Stephen Lebans编写的代码来获取或设置VAP Access的滚动条 for Access 2013的人。

代码在最新版本的访问中似乎不起作用，我无法在用户选择记录后设置滚动条位置。

如果您有任何其他改进的建议代码，请分享。

以下是original code，只能在Access 2007或更早版本中打开。