ms-access - 在 Access 中生成随机字母数字字符串后检查重复项

Question

我正在使用这个功能：

https://www.devhut.net/2010/06/22/ms-access-vba-generate-a-random-string/

通过我的表单创建一个随机的字母数字字符串。

这需要是唯一的，所以我需要它来检查列中的唯一性，如果它不是唯一的，则重新生成一个新字符串。如果有更好的方法来生成字符串，我不会与这段代码结婚。

标签： ms-accessvba

Answer 1

你可以这样做：

Dim Criteria As String
Dim NotFound As Boolean

Do
    RandomString = GetRandomString(StringLength, False, True, False)
    Criteria = "[YourField] = '" & RandomString & "'"
    NotFound = IsNull(DLookup("[YourField]", "[YourTable]", Criteria))
Loop Until NotFound