Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
-9 / 1 / 0
Регистрация: 25.04.2015
Сообщений: 101

Run time error 94 invalid use of null access

28.04.2015, 17:41. Показов 1010. Ответов 0
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Помогите пожалуйста!!!!
Вот событие кнопки при нажатии:
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Private Sub cmdOpenReport_Click()
Dim S As String, _
     i As Byte
 'For i = 1 To 11
 S = " "
  If Me("cbx4") Then
   S = S & ",[Договоры аренды МИ].[Тип помещения]"
  End If
  If Me("cbx5") Then
   S = S & ",[Договоры аренды МИ].[Описание помещения]"
  End If
   If Me("cbx6") Then
   S = S & ",[Договоры аренды МИ].[АП в год]"
  End If
 If Me("cbx7") Then
   S = S & ",[Договоры аренды МИ].[АП в месяц]"
  End If
    If Me("cbx8") Then
   S = S & ",[Договоры аренды МИ].[Номер договора]"
  End If
   If Me("cbx9") Then
   S = S & ",[Договоры аренды МИ].[Дата договора]"
  End If
 If Me("cbx10") Then
   S = S & ",[Договоры аренды МИ].[Срок окончания договора]"
  End If
  
 CurrentDb.QueryDefs!Query01_Query.SQL = "SELECT [Договоры аренды МИ].[№],[Договоры аренды МИ].[Адрес объекта аренды],[Договоры аренды МИ].[Арендатор],[Договоры аренды МИ].[Площадь] " & S & " FROM [Договоры аренды МИ] WHERE [Договоры аренды МИ].[Дата расторжения] IS NULL;"
 DoCmd.OpenReport "Report02_Report", acViewPreview
End Sub
Где здесь ошибка?? Ситуация такая - Если открыть форму и активировать все chebox'ы и нажать на кнопку, то все ок, и потом можно снимать флажки, но все, без разницы... То все также работает.
Но если открыть форму и не активировать ни одного checkbox'а или хотя бы один оставить без флажка, то появляется эта ошибка...
Подскажите, что не так)))
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
28.04.2015, 17:41
Ответы с готовыми решениями:

Run-time error 94: 'Invalid use of Null'
Помогите избавиться от ошибки 'Invalid use of Null' Если у меня в таблице есть незаполненные элементы, то при выборке возникает...

run-time error 5 Invalid procedure or argument
Sub fgh() x = InputBox("Ââåäèòå x") Dim b1 As Single For i = 1 To 6 c = Log(b1) + x * Log(b2) b1 = b1 + 0.225 b2 = b2 - 0.231 ...

Run-time error '339': Component ' or one of its dependencies not currectly registered: a file is missing or invalid
Во время запуска проги под VB IDE код выполняется без ошибок. Но если откомпилировать в EXE то при закрытии проги появляется сообщение об...

0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
28.04.2015, 17:41
Помогаю со студенческими работами здесь

Ошибка в VB6.0 и Access: 'Run-time error -2147217842(80040e4e) Automation error'.
На Visual Basic 6.0 сделал форму которая выводит на экран данные из таблиц Access.Сделал .EXE и выложил на сервер локальной сети.Со своей...

Run-time error 380: "Invalid property value"
На другой (тестовой) машине программа выдает ошибку: 'Run-time error 380. Invalid property value.' Народ, подскажите...

SQL-запрос в Access, ошибка: Run-time error 3464 Несоответствие типов данных в выражении условия отбора.
Добрый день! Помогите решить проблему. Есть поле regdate в Access-таблице типа Дата/время, где я в коротком формате храню даты. Данные...

Ошибка 'Run-time error '-2147217842(80040e4e)' Automation error'.
На VB6.0 сделал несколько форм для вывода данных из базы Access на экран.Выложил на сервер, со своей машины работает, с чужой не хочет. ...

Ошибка: Run-time error 48 Error loading DLL
программа выдает ошибку: Run-time error 48 Error loading DLL выдает это когда вызывается процедура где есть: Dim oExcel...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Новые блоги и статьи
Модель ЗдрввоСохранения 7: больше работников, больше ресурсов.
anaschu 08.04.2026
работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20%
Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики.
Hrethgir 07.04.2026
Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .
Горе от ума
kumehtar 07.04.2026
Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .
Использование значений реквизитов справочника в документе, с определенными условиями и правами
Maks 07.04.2026
1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .
Доступность команды формы по условию
Maks 07.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .
Уведомление о неверно выбранном значении справочника
Maks 06.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .
Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt
8Observer8 05.04.2026
Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .
AkelPad-скрипты, структуры, и немного лирики..
testuser2 05.04.2026
Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru