Запретить повторяющиеся записи в таблице доступа через форму (с учетом верхнего и нижнего регистра) - PullRequest
1 голос
/ 25 апреля 2020

Я новичок в этом, и столкнулся с проблемой. Я ищу правильный код VBA для Access, чтобы предотвратить повторный ввод, с предупреждением о сообщении. Следующий код работает очень хорошо, но проблема в том, что «если Нижний регистр в верхний регистр или наоборот» изменен, этот код не распознает и принимает запись.

В моей таблице имя поля - «Cat_No», имя таблицы - "ArticlesDetails"

Private Sub TextCat_No_BeforeUpdate(Cancel As Integer) If Me.TextCat_No.Value = DLookup("[Cat_No]", "ArticlesDetails", "[Cat_No] = '" & Me.TextCat_No.Value & "'") Then Cancel = True MsgBox "This Catalogue number already exists, Duplicate entry not allowed", vbCritical, "Duplicate Entry" End If End Sub

Например, если Cat_No "T330" уже существует, но если пользователь изменится на "t330", он будет принят системой.

Я могу изменить индекс поля таблицы "Duplicate no", но я хочу представить сообщение пользователям, как указано выше.

1 Ответ

0 голосов
/ 25 апреля 2020

Сравнение в DLookup не чувствительно к регистру, поэтому это должно работать:

If Not IsNull(DLookup("[Cat_No]", "ArticlesDetails", "[Cat_No] = '" & Me.TextCat_No.Value & "'")) Then
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...