Access / VBA中的数字选择器答案

【问题标题】：Number Picker in Access / VBAAccess / VBA中的数字选择器
【发布时间】：2016-01-06 07:00:33
【问题描述】：

我正在尝试在 MS Access 2007 中的表单中放置一个数字选择器。这是我正在尝试制作的示例：

我在默认表单控件中找不到这个，并尝试使用列表框自己制作一个。列表框可以修改为看起来就像上面的数字选择器，但是箭头只会改变列表的视图，而不是实际的选择（即值）。例如，对于列表框，如果我将其范围从 1 到 3，并且默认为 1 - 当我通过箭头将其更改为 2 时，列表框的值不会改变，并且仍然是 1。

有人知道如何在 Access 中获取数字选择器吗？

【问题讨论】：

【解决方案1】：

因此，您希望创建一个数字列表并允许用户使用向上和向下箭头更改显示的值（并存储为控件的值），以便他们选择列表中的下一个或上一个。

我建议创建一个文本框和两个按钮。使用值列表填充数组。当一个按钮被点击时，它会：

A.查找已输入文本框（例如从数据库加载）的任何值在数组中的位置

B.从数组中获取下一项或上一项。

根据需要填充数组（可能在打开表单时）。

如果您只需要允许用户输入一个整数（即数字微调器），您可以执行以下操作：

使用（锁定的）文本框和两个按钮创建一个。只需添加一个文本框（将其命名为 txtValue）和两个按钮（btnUp 和 btnDown），然后将这样的代码添加到这些按钮的 Click 事件中：

Private Sub btnUp_Click()
  Me.txtValue = Nz(Me.txtValue, 0) + 1
End Sub

Private Sub btnDown_Click()
  Me.txtValue = Nz(Me.txtValue, 0) - 1
End Sub

您可以添加 if 语句来限制输入的数据

或者您可以使用第 3 方控件。

可能还有更多，但请注意，不支持在 Access 中使用这些类型的控件，并且无法保证它们将在 Access 中继续工作。使用前面描述的本地方法要好得多。

【讨论】：