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

时间:2018-10-16 21:03:08

标签: vba ms-access access-vba

我正在使用此功能:

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

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

这必须是唯一的,因此我需要它检查列中的唯一性,如果不唯一则重新生成一个新字符串。如果有更好的方法来生成字符串,我就不会嫁给这段代码。

1 个答案:

答案 0 :(得分:0)

您可以执行以下操作:

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