Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Access
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 01.05.2018, 14:52   #1
Iskin
Форумчанин
 
Регистрация: 22.09.2008
Сообщений: 307
По умолчанию Исправления старых модулей для Access 2016

В 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
Думайте глобально - действуйте локально!
Iskin вне форума Ответить с цитированием
Старый 01.05.2018, 16:05   #2
Aleksandr H.
2 the Nation Glory
Старожил
 
Аватар для Aleksandr H.
 
Регистрация: 27.05.2014
Сообщений: 3,289
По умолчанию

Обычно ругается какими-то словами, было бы неплохо лицезреть их
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы.
Aleksandr H. вне форума Ответить с цитированием
Старый 01.05.2018, 16:29   #3
shanemac51
Участник клуба
 
Аватар для shanemac51
 
Регистрация: 12.08.2010
Сообщений: 1,077
По умолчанию

в первую очередь вставляю в каждый модуль Option Explicit и разбираюсь с необъявленными переменными
Имя-Галина== почта shanemac51@yandex.ru скайп shanemac51 c 8-15мск будни
Сфера интересов--word-excel-access-распознавание
shanemac51 вне форума Ответить с цитированием
Старый 02.05.2018, 07:20   #4
Iskin
Форумчанин
 
Регистрация: 22.09.2008
Сообщений: 307
По умолчанию

Цитата:
Сообщение от Aleksandr H. Посмотреть сообщение
Обычно ругается какими-то словами, было бы неплохо лицезреть их
просто выделяет желтым
Цитата:
Сообщение от Aleksandr H. Посмотреть сообщение
Обычно ругается какими-то словами, было бы неплохо лицезреть их
выделяет эту строку желтым
Думайте глобально - действуйте локально!
Iskin вне форума Ответить с цитированием
Старый 02.05.2018, 07:27   #5
Iskin
Форумчанин
 
Регистрация: 22.09.2008
Сообщений: 307
По умолчанию

вложил.
Изображения
Тип файла: jpg 1111.jpg (71.4 Кб, 125 просмотров)
Думайте глобально - действуйте локально!
Iskin вне форума Ответить с цитированием
Старый 02.05.2018, 08:21   #6
Aleksandr H.
2 the Nation Glory
Старожил
 
Аватар для Aleksandr H.
 
Регистрация: 27.05.2014
Сообщений: 3,289
По умолчанию

Код:
Dim DirPhoto, FileName
DirPhoto = .....
а совет
Цитата:
Сообщение от shanemac51 Посмотреть сообщение
в первую очередь вставляю в каждый модуль Option Explicit и разбираюсь с необъявленными переменными
дельный, уделите полчаса и изучите для чего
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы.
Aleksandr H. вне форума Ответить с цитированием
Старый 02.05.2018, 11:03   #7
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

Цитата:
Сообщение от Aleksandr H. Посмотреть сообщение
Dim DirPhoto, FileName
я бы рекомендовал в данном случае указать тип переменных:

Код:
Dim DirPhoto As String, FileName As String
Serge_Bliznykov вне форума Ответить с цитированием
Старый 05.05.2018, 06:10   #8
Iskin
Форумчанин
 
Регистрация: 22.09.2008
Сообщений: 307
По умолчанию

Спасибо! Работают оба предложенных варианта. Странное дело, но и мой вариант теперь тоже работает, может что-то обновилась. Но на всякий случай, вставлю
Код:
Dim DirPhoto As String, FileName As String
Думайте глобально - действуйте локально!

Последний раз редактировалось Iskin; 05.05.2018 в 06:20.
Iskin вне форума Ответить с цитированием
Старый 05.05.2018, 06:53   #9
Iskin
Форумчанин
 
Регистрация: 22.09.2008
Сообщений: 307
По умолчанию

Скажите, а как можно без наименьших потерь написать в Access 2007, чтобы убрать ленту в Access 2016? В 2007-ом, у мены программа запускалась только с моим меню. А теперь и основное и в качестве "надстройки" моё... ё-моё
Вычитал, что нужно сделать "условную компиляцию", но как не понимаю, примеры не помогли. Либо выдают ошибку либо не реагируют
Изображения
Тип файла: jpg 333.jpg (98.3 Кб, 120 просмотров)
Думайте глобально - действуйте локально!

Последний раз редактировалось Iskin; 05.05.2018 в 07:38.
Iskin вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Access 2016 CurrentUser Kiriller99 Microsoft Office Access 5 23.05.2017 22:24
Создание модулей VBA в Access ayselya1992 Microsoft Office Access 5 08.09.2016 13:33
Нужны программисты для исправления ошибок в S.T.A.L.K.E.R.: Clear Sky svyaznoy Фриланс 0 19.04.2016 20:20
как создать загрузочную флешку для старых биосов kakawkin Операционные системы общие вопросы 1 21.12.2009 07:39
Нужен специалист по VBA для исправления ошибок в существующей БД Dorfooz Фриланс 7 11.11.2009 22:01