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

Весь MS Office, программирование на Visual Basic for Applications и MS VB

Модератор: Naeel Maqsudov

Islan
Сообщения: 3
Зарегистрирован: Вт мар 20, 2018 9:54 am

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

Сообщение Islan » Вт мар 20, 2018 10:12 am

Пожалуйста, помогите разобраться.
В программе на 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
Сообщения: 831
Зарегистрирован: Ср ноя 24, 2004 3:46 am
Контактная информация:

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

Сообщение pashulka » Вт мар 20, 2018 8:58 pm

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

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

Set p = LoadPicture("D:\ГРАНУЛятор\FlagRed.bmp")
Если прокатит, значит проблема не в ней.

Islan
Сообщения: 3
Зарегистрирован: Вт мар 20, 2018 9:54 am

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

Сообщение Islan » Ср мар 21, 2018 7:45 am

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

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

Set p = LoadPicture("D:\ГРАНУЛятор\FlagRed.bmp")
Если прокатит, значит проблема не в ней.

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

pashulka
Сообщения: 831
Зарегистрирован: Ср ноя 24, 2004 3:46 am
Контактная информация:

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

Сообщение pashulka » Ср мар 21, 2018 7:58 am

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

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

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

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

Islan
Сообщения: 3
Зарегистрирован: Вт мар 20, 2018 9:54 am

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

Сообщение Islan » Ср мар 21, 2018 9:31 am

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

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

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

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

Ответить