Исправления старых модулей для Access 2016

[Iskin]

В 2007 Access, форма показывает фотографии, а в 2016 форма запускается, но пустая. VB ругается на строку

FileName = Dir(DirPhoto & "\" & [Disegno].Value & ".*")

Подскажите что нужно исправить?

Private Sub Form_Load()
DirPhoto = CurrentProject.Path & "\pic"
 FileName = Dir(DirPhoto & "\" & [Disegno].Value & ".*")
 If FileName <> "" Then
 Рисунок0.Picture = DirPhoto & "\" & FileName
Else
  Рисунок0.Picture = CurrentProject.Path & "\pic\logo.jpg"
   End If
End Sub

[Aleksandr H.]

Обычно ругается какими-то словами, было бы неплохо лицезреть их

[shanemac51]

в первую очередь вставляю в каждый модуль Option Explicit и разбираюсь с необъявленными переменными

[Iskin]

Сообщение от Aleksandr H.

Обычно ругается какими-то словами, было бы неплохо лицезреть их

просто выделяет желтым

Сообщение от Aleksandr H.

Обычно ругается какими-то словами, было бы неплохо лицезреть их

выделяет эту строку желтым

[Iskin]

вложил.

[Aleksandr H.]

Dim DirPhoto, FileName
DirPhoto = .....

а совет

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

в первую очередь вставляю в каждый модуль Option Explicit и разбираюсь с необъявленными переменными

дельный, уделите полчаса и изучите для чего

[Serge_Bliznykov]

Сообщение от Aleksandr H.

Dim DirPhoto, FileName

я бы рекомендовал в данном случае указать тип переменных:

Dim DirPhoto As String, FileName As String

[Iskin]

Спасибо! Работают оба предложенных варианта. Странное дело, но и мой вариант теперь тоже работает, может что-то обновилась. Но на всякий случай, вставлю

Dim DirPhoto As String, FileName As String

[Iskin]

Скажите, а как можно без наименьших потерь написать в Access 2007, чтобы убрать ленту в Access 2016? В 2007-ом, у мены программа запускалась только с моим меню. А теперь и основное и в качестве "надстройки" моё... ё-моё
Вычитал, что нужно сделать "условную компиляцию", но как не понимаю, примеры не помогли. Либо выдают ошибку либо не реагируют