проверка на наличие дубликатов после генерации случайной буквенно-цифровой строки в Access

Question

Я использую эту функцию:

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

Чтобы создать произвольную буквенно-цифровую строку через мою форму.

Это должно быть уникальным, поэтому мне это нужнопроверить уникальность столбца и создать новую строку, если она не уникальна.Я не женат на этом коде, если есть лучший способ создать строку.

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