+ Ответить в теме
Показано с 1 по 5 из 5

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

  1. #1
    dummy Islan is on a distinguished road
    Регистрация
    20.03.2018
    Возраст
    69
    Сообщений
    3
    Вес репутации
    0

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

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

  2. По умолчанию

     
    Хотите избавиться от рекламы? Зарегистрируйтесь
  3. #2
    system architect pashulka will become famous soon enough pashulka will become famous soon enough
    Регистрация
    24.11.2004
    Возраст
    77
    Сообщений
    831
    Вес репутации
    16

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

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

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

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

  4. #3
    dummy Islan is on a distinguished road
    Регистрация
    20.03.2018
    Возраст
    69
    Сообщений
    3
    Вес репутации
    0

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

    Цитата Сообщение от pashulka Посмотреть сообщение
    Напишите так и протестируйте эту функцию отдельно, т.е.

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

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

  5. #4
    system architect pashulka will become famous soon enough pashulka will become famous soon enough
    Регистрация
    24.11.2004
    Возраст
    77
    Сообщений
    831
    Вес репутации
    16

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

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

    Код :
    1. Dim ImLst As ImageList
    2. Set ImLst = ИмяФормы.ИмяОбъекта
    3.  
    4. ImLst.ListImages.Add 1, "key1", StdFunctions.LoadPicture("D:\ГРАНУЛятор\ FlagRed.bmp")

    Вторая строка - есть псевдокод, просто не помню как в Access идёт обращение к элементам управления.

  6. #5
    dummy Islan is on a distinguished road
    Регистрация
    20.03.2018
    Возраст
    69
    Сообщений
    3
    Вес репутации
    0

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

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

    Код :
    1. Dim ImLst As ImageList
    2. Set ImLst = ИмяФормы.ИмяОбъекта
    3.  
    4. ImLst.ListImages.Add 1, "key1", StdFunctions.LoadPicture("D:\ГРАНУЛятор\ FlagRed.bmp")

    Вторая строка - есть псевдокод, просто не помню как в Access идёт обращение к элементам управления.
    Болльшое спасибо, разобрался.

+ Ответить в теме

Похожие темы

  1. Ошибка. key violation. Delphi -> MS Access
    Добрый день. Перейду сразу к делу. При выполнении запроса INSERT выдает ошибку "key violation. Общий сбой Недостаточно сведений для подключения к...
    от Oleg_Rus в разделе SQL
  2. Access.Ошибка при сохранении таблицы (Save on...)
    Добрый день! При попытке сделать копию одной из таблиц в проекте Access возникает ошибка с собщением: - "Начальная позиция находится до начала...
    от Putincev в разделе MS Office и VB(A).
  3. Vba: проблема с функцией
    Макрос должен по двум заданным значениям найти ячейку и скопировать Но во втором цикле перебор не происходит Sheets("Лист1").Select ...
    от Volond в разделе MS Office и VB(A).
  4. VBA: проблема с функцией
    Короче, такая беда. Написал функцию линейного интерполирования Function Agp(xt(), yt(), x, n As Integer) Dim i As Integer, j As Integer, j1...
    от Irbis в разделе MS Office и VB(A).
  5. Ошибка открытия Access - ADOTable - cxGrid.
    Подскажите, кто знает как можно исправить или обойти ошибку, возникающую у меня при открытии таблицы из файла БД Access, с помощью компонента...
    от bion в разделе Delphi и Pascal

Ваши права

  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения