Страница 1 из 1
Выдается ошибка функцией LoadPicture (VBA ACCESS)
Добавлено: 20 мар 2018, 10:12
Islan
Пожалуйста, помогите разобраться.
В программе на VBA ACCESS в следующем коде:
Dim ImLst As ImageList
ImLst.ListImages.Add 1, 1, StdFunctions.LoadPicture("D:\ГРАНУЛятор\FlagRed.bmp")
выдается ошибка Object variable or With block variable not set.
(Та же ошибка выдается и при опускании StdFunctions). Файл рисунка D:\ГРАНУЛятор\FlagRed.bmp присутствует и другими программами открывается.
Re: Выдается ошибка функцией LoadPicture (VBA ACCESS)
Добавлено: 20 мар 2018, 20:58
pashulka
Напишите так и протестируйте эту функцию отдельно, т.е.
Код: Выделить всё
Set p = LoadPicture("D:\ГРАНУЛятор\FlagRed.bmp")
Если прокатит, значит проблема не в ней.
Re: Выдается ошибка функцией LoadPicture (VBA ACCESS)
Добавлено: 21 мар 2018, 07:45
Islan
pashulka писал(а):Напишите так и протестируйте эту функцию отдельно, т.е.
Код: Выделить всё
Set p = LoadPicture("D:\ГРАНУЛятор\FlagRed.bmp")
Если прокатит, значит проблема не в ней.
Да, так сработало. Но тогда не понимаю, что вызывает ошибку.
Re: Выдается ошибка функцией LoadPicture (VBA ACCESS)
Добавлено: 21 мар 2018, 07:58
pashulka
Вольный перевод ошибки гласит, что Вы обращаетесь к несуществующему об'екту. И это правда
Код: Выделить всё
Dim ImLst As ImageList
Set ImLst = ИмяФормы.ИмяОбъекта
ImLst.ListImages.Add 1, "key1", StdFunctions.LoadPicture("D:\ГРАНУЛятор\ FlagRed.bmp")
Вторая строка - есть псевдокод, просто не помню
как в Access идёт обращение к элементам управления.
Re: Выдается ошибка функцией LoadPicture (VBA ACCESS)
Добавлено: 21 мар 2018, 09:31
Islan
pashulka писал(а):Вольный перевод ошибки гласит, что Вы обращаетесь к несуществующему об'екту. И это правда
Код: Выделить всё
Dim ImLst As ImageList
Set ImLst = ИмяФормы.ИмяОбъекта
ImLst.ListImages.Add 1, "key1", StdFunctions.LoadPicture("D:\ГРАНУЛятор\ FlagRed.bmp")
Вторая строка - есть псевдокод, просто не помню
как в Access идёт обращение к элементам управления.
Болльшое спасибо, разобрался.