我正在使用此功能:
https://www.devhut.net/2010/06/22/ms-access-vba-generate-a-random-string/
要通过我的表单创建一个随机的字母数字字符串。
这必须是唯一的,因此我需要它检查列中的唯一性,如果不唯一则重新生成一个新字符串。如果有更好的方法来生成字符串,我就不会嫁给这段代码。
答案 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