Выдается ошибка функцией LoadPicture (VBA ACCESS)

Islan · 20 мар 2018, 10:12

Пожалуйста, помогите разобраться.
В программе на 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 присутствует и другими программами открывается.

pashulka · 20 мар 2018, 20:58

Напишите так и протестируйте эту функцию отдельно, т.е.

Код: Выделить всё

Set p = LoadPicture("D:\ГРАНУЛятор\FlagRed.bmp")

Если прокатит, значит проблема не в ней.

Islan · 21 мар 2018, 07:45

pashulka писал(а):Напишите так и протестируйте эту функцию отдельно, т.е.
Код: Выделить всё
Set p = LoadPicture("D:\ГРАНУЛятор\FlagRed.bmp")
Если прокатит, значит проблема не в ней.

Да, так сработало. Но тогда не понимаю, что вызывает ошибку.

pashulka · 21 мар 2018, 07:58

Вольный перевод ошибки гласит, что Вы обращаетесь к несуществующему об'екту. И это правда

Код: Выделить всё

Dim ImLst As ImageList
Set ImLst = ИмяФормы.ИмяОбъекта

ImLst.ListImages.Add 1, "key1", StdFunctions.LoadPicture("D:\ГРАНУЛятор\ FlagRed.bmp")

Вторая строка - есть псевдокод, просто не помню

как в Access идёт обращение к элементам управления.

Islan · 21 мар 2018, 09:31

pashulka писал(а):Вольный перевод ошибки гласит, что Вы обращаетесь к несуществующему об'екту. И это правда
Код: Выделить всё
Dim ImLst As ImageList
Set ImLst = ИмяФормы.ИмяОбъекта

ImLst.ListImages.Add 1, "key1", StdFunctions.LoadPicture("D:\ГРАНУЛятор\ FlagRed.bmp")
Вторая строка - есть псевдокод, просто не помню как в Access идёт обращение к элементам управления.

Болльшое спасибо, разобрался.