从组合框中访问VBA随机值

Question

我有一个链接到表的客户端代码组合框 - ClientT。

当我点击randomcmd按钮时，我希望随机客户端代码出现在组合框中。

我的想法是使用VBA代码查找ClientT中的最大客户端数，然后使用Rnd函数选择max和0之间的数字，然后将该数字转换为列表中的值。

我找不到任何类似的代码可供使用。到目前为止我所拥有的是一个随机产生的数字。

Private Sub Randomcmd_Click()
    ClientCodecmb = Int(999 * Rnd) + 1
End Sub

请帮忙。

Answer 1

如果客户ID是组合框的第一列，这是绑定列，则会执行以下操作：

Private Sub Randomcmd_Click()

    Dim MaxCustomerId = 1000 ' Adjust as needed.

    Me!ClientCodecmb.Value = Int((MaxCustomerID + 1) * Rnd

End Sub

Answer 2

ClientCodecmb = DLookup("[ClientCode]", "ClientT", "Int((DMax('[Autonumber]', 'ClientT')) * Rnd) + 1 = [Autonumber]")

我在表上添加了一个自动编号字段，上面的代码可以正常工作。 查找客户端代码，其中max autonumber是随机的，= =自动编号。