Ошибка Runtime Error 94

@эйтан · Регистрация: 17.11.2014

Студворк — интернет-сервис помощи студентам

Всем привет!
делаю лабу в access
смысл такой что нажимаю на кнопку и она должна выполнить вот это:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Option Compare Database
 
Private Sub Кнопка4_Click()
Dim S As String  'Определение строковой переменной STR
   S = "SELECT [vladel].[FIO], [vladel].[kapital] FROM [vladel]"
   S = S + "WHERE ((([vladel.kapital]) < 40000 "
   S = S + CStr([Поле0]) '
   S = S + " )) ;  "
   With [ПолеСоСписком0]
   .RowSource = S
   .Requery
   .SetFocus
   .Dropdown
   End With
 
End Sub

вылетает ошибка 94 и ссылается на 4 строчку, навожу на нее и там всплывает "CStr([Поле0])=<invalid use of null>
Поле0 - это пустое поле, которое по условиям надо создать
Поле Со Списком0 то же самое

я не разбираюсь в sql, поэтому если можно попроще, то я буду очень благодарен!

@ltv_1953 · 21.05.2015, 05:29

Сообщение от эйтан

Поле0 - это пустое поле, которое по условиям надо создать

Если оно пустое, то зачем оно нужно в SQL? Скорей всего перед нажатием Кнопка4 оно должно быть заполнено. И это нужно проверять ... .

shanemac51 · 21.05.2015, 07:59

для начала --нет пробелов, строка формируется некорректно

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Option Compare Database
 
Private Sub Кнопка4_Click()
Dim S As String  'Определение строковой переменной STR
   S = "SELECT [vladel].[FIO], [vladel].[kapital] FROM [vladel]"
   S = S  & " WHERE ((([vladel.kapital]) < 40000 "
   S = S  & CStr([Поле0])             ' совсем непонятная строка или в предыдущей строке нет после 40000 пробела
   S = S  & " )) ;  "
debug.print s ''''''посмотрите, то ли вы получили в окне отладки
   With [ПолеСоСписком0]
   .RowSource = S
   .Requery
   .SetFocus
   .Dropdown
   End With
 
End Sub

@snipe · 21.05.2015, 11:46

1. к полю на форме надо обращаться правильно
me.[поле1] - если код находится в модуле формы
или
Forms![Имя формы]![имя поля]
2. после описания раздела From должен стоять пробел (shanemac51, исправила в своем коде этот недочет
3.
S = S *& CStr([Поле0]) вот это вообще непонятное
поясню
в разделе Where прописываются условия отбора примерно так [имя таблицы].[имя столбца] знак сравнения [значения] если условий несколько то применяются логические операции and or not xor imp eqv
т.е. у вас должно получиться что-то типа

Visual Basic
1
 " WHERE [vladel.kapital] < 40000 and [vladel.kapital]>" & CStr(me.[Поле0])

предположим что в поле0 забито значение 10
тогда строка будет иметь вид

Visual Basic
1
" WHERE [vladel.kapital] < 40000 and [vladel.kapital]>10"

У вас же получается

Visual Basic
1
" WHERE [vladel.kapital] < 40000 10"

4.отсутствует проверка поля0 на пустоту (я могу предположить что в настройках поля установлено значение по умолчанию, но если такого нет - то возникнет ошибка) в чем полностью согласен с ltv_1953

Новые блоги и статьи Все статьи Все блоги /
Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .	Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизита табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита "ПричинаСписания". . .
wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .	Программное заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .