Не отрабатывает условие

[Айвенго]

Привет, хочу реализовать проверку ввода имени и пароля, есть форма с двумя полями (user и pass) и кнопкой, форма построена на основе таблицы access с полями user, pass, id_user и id_pass. Вот код который отрабатывается при нажатии на кнопку:

Private Sub Кнопка5_Click()

id_user = DLookup("id", "s_users", "user='" & Forms!Access!user & "'")
id_pass = DLookup("id", "s_users", "pass='" & Forms!Access!pass & "'")
If id_user = id_pass Then
MsgBox ("Пароль верный")
End If
If id_user <> id_pass Then
MsgBox ("Пароль неверный")
End If
End Sub

Проблема в том, что если указать пароль которого вообще нет, то условие:

If id_user <> id_pass Then
MsgBox ("Пароль неверный")

не работает.

Пробовал решить проблему с помощью Len(), не получилось, помогите разобрать в чем проблема?

[Волшебник]

Айвенго,
Пароль от 1 до 7.
https://yadi.sk/d/lZEAHQe-eJrEf

[Айвенго]

перепробовал для всех пользователей пароль 1234567, не смог войти

[Волшебник]

Айвенго,
У первого-1,
У второго-5,
У третьего-3,
У четвертого-2,
У пятого-4,
У шестого-7,
У седьмого-6.

[Айвенго]

Что-то я не могу открыть саму структуру так еще и просит 300 р.

[Волшебник]

Айвенго,
Если пример варианта устраивает,
то после оплаты,
я дам тебе ссылку на этот файл уже без защиты.

[lomastr_]

Проблема в том, что если указать пароль которого вообще нет, то условие:

If id_user <> id_pass Then
MsgBox ("Пароль неверный")

не работает.

зачем тут условие?

[Айвенго]

Сообщение от lomastr_

Проблема в том, что если указать пароль которого вообще нет, то условие:

If id_user <> id_pass Then
MsgBox ("Пароль неверный")

не работает.

зачем тут условие?

все сделал!