Как открыть форму только для чтения

[Max00766]

Создал дополнительную форму для таблицы отели. При выборе из выпадающего списка названия отеля все остальные поля заполняются автоматически при помощи VB

Private Sub НазваГотелю_AfterUpdate()
[РівеньСервісу].Value = DLookup("[РівеньСервісу]", "[_Готелі]", "[НазваГотелю]='" & [НазваГотелю] & "'")
[Адреса].Value = DLookup("[Адреса]", "[_Готелі]", "[НазваГотелю]='" & [НазваГотелю] & "'")
[РайонМіста].Value = DLookup("[РайонМіста]", "[_Готелі]", "[НазваГотелю]='" & [НазваГотелю] & "'")
End Sub

Все работает но после закрытия выбивает такую ошибку:
Безымянный.jpg
Я так понял это из-за того что форма пытается занести данные в таблицу и они повторяются. Как сделать что бы форма была только для просмотра и на заносила какие либо данные?
БД (Форма _Готелі):
Туристическая фирма_ГЛАВНАЯ.zip

[Aleksandr H.]

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

Создал дополнительную форму для таблицы отели.

в чем её функционал заключается?

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

При выборе из выпадающего списка названия отеля все остальные поля заполняются автоматически при помощи VB

Зачем? Раз форма на основании таблицы, то и поля все будут автоматически подтягиваться.