Dlookup

@govorun · Регистрация: 01.11.2013

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

Вот такой код:

Visual Basic
1
2
dim a as integer
a = dlookup("[ID]", "T1", "[Товар] = " & forms!Forma1!Список1.Column(1))

Не хочет работать.
При установлении курсора в Списке на запись, где Column(1) = Топор (одно слово) появляется ошибка 2471: "Введенное в качестве параметра запроса выражение вызывает ошибку:Топор"
При установлении курсора в Списке на запись, где Column(1) = Грабли деревянные (два слова) появляется ошибка 3075: "...Ошибка синтаксиса...[Товар] = Грабли деревянные "

И как тут разобраться?
Выручайте....
Спасибо

@ltv_1953 · 03.12.2015, 19:00

Сообщение от govorun

dlookup("[ID]", "T1", "[Товар] = " & forms!Forma1!Список1.Column(1))

Текстовые нужно заключать в одиночные кавычки. Попробуйте так

Visual Basic
1
a = dlookup("[ID]", "T1", "[Товар] = '" & forms!Forma1!Список1.Column(1) & "'")

@govorun · 03.12.2015, 20:06 **[ТС]**

Сообщение от ltv_1953

Попробуйте так

Спасибо, завтра (на работе) попробую и отпишусь.
А как правильно написать, когда будет несколько Column()

Visual Basic
1
a = dlookup("[ID]", "T1", "[Товар1] = '" & forms!Forma1!Список1.Column(1) & "' and [Вид] = '" & forms!Forma1!Список1.Column(2) & "'  and  [Сорт] = '" & forms!Forma1!Список1.Column(3) & "' ")

shanemac51 · 03.12.2015, 20:16

чтобы не воевать с кавычками и для наглядности пишу с заменой

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
dim s1
s1= "[Товар1] = '%1' and [Вид] = '%2'  and  [Сорт] = '%3' ")
s1=replace(s1,"%1",forms!Forma1!Список1.Column(1))
s1=replace(s1,"%2",forms!Forma1!Список1.Column(2))
s1=replace(s1,"%3", forms!Forma1!Список1.Column(3)) 
 
a = dlookup("[ID]", "T1", s1)
'''''''''''''''''''''''''''''''''''''''''''''''''''''''
'с учетом типов данных
 
s1= "[номер] = %1 and [дата] =#%2#  and  [Сорт] = '%3' ")
s1=replace(s1,"%1",forms!Forma1!Список1.Column(1))
s1=replace(s1,"%2",format(forms!Forma1!Список1.Column(2),"mm\/dd\/yyyy")
s1=replace(s1,"%3", forms!Forma1!Список1.Column(3)) 
 
a = dlookup("[ID]", "T1", s1)

@govorun · 03.12.2015, 20:23 **[ТС]**

Сообщение от shanemac51

чтобы не воевать с кавычками и для наглядности пишу с заменой

Интересный вариант, знаете ли... Обязательно попробую....
Спасибо.

@texnik-san · 04.12.2015, 00:22

Сообщение от govorun

Visual Basic
1
dim a as integer

Тут потенциальные грабли:
1) если поле ID имеет тип "Счетчик", то это не Integer, а Long
2) но если DLookup не найдет запись, удовлетворяющую условию, то вернет Null. а его нельзя присвоить переменной числового типа.

Варианты выхода: либо описать переменную как Variant, либо "обернуть" DLookup в Nz

@govorun · 08.12.2015, 21:33 **[ТС]**

Сообщение от texnik-san

если поле ID имеет тип "Счетчик", то это не Integer, а Long

Это критично?

Сообщение от texnik-san

сли DLookup не найдет запись

проверку на Null я еще не сделел, но планирую примерно так:

Visual Basic
1
if isNull(a).....

Пока столкнулся с другой бедой. На форме Список. И в этот список нуна обязательно тыркнуть, что бы правильно отработал Dlookup. Поэтому нужна помощь: как проверить, что в Списке выбрана запись (установлен курсор на любую запись)?

Добавлено через 5 минут
ltv_1953, shanemac51
Воспользовался советом ltv_1953, поскольку запутался с типами данных в примере shanemac51 (вторую части сообщения увидел только сейчас). Хотя все-равно застрял с Датой. Но сейчас почитал и увидел решение. Спасибо.

@texnik-san · 08.12.2015, 22:16

Сообщение от govorun

Это критично?

Конечно. Если бы наоборот (поле в таблице Integer, а переменная - Long) не было бы, а вот именно так - да. В таблице вполне может найтись ID больший, чем максимальное значение Integer, и на операторе присвоения программа вылетит по ошибке.

Добавлено через 1 минуту
[quote="govorun;8458713"]проверку на Null я еще не сделел, но планирую примерно так:

Visual Basic
1
if isNull(a).....

не дойдет программа до этого оператора. Null целочисленной переменной a просто не присвоится.

mobile · 08.12.2015, 22:30

Сообщение от govorun

На форме Список. И в этот список нуна обязательно тыркнуть, что бы правильно отработал Dlookup. Поэтому нужна помощь: как проверить, что в Списке выбрана запись (установлен курсор на любую запись)?

Проверить можно разными способами. Если список с мультиселектом, то проверять надо Список.ItemSelected.Count. Впрочем, эта проверка пойдет и для списка без мультиселекта. Для списка без мультиселекта к тому же можно проверять чему он равен. Если Null, значит ничего не выбрано.

@govorun · 08.12.2015, 23:11 **[ТС]**

Сообщение от texnik-san

Null целочисленной переменной a просто не присвоится.

А разве Null можно присвоить? Как говаривал Mobile, Null ничему не равен, даже самому себе...
Следовательно (это уже мои думки) Null нельзя ничему присвоить. Но вот определить, что на определенном этапе кода значение переменной есть Null наверное возможно.
Как дойдут руки - попробую. Самому интересно....

Добавлено через 5 минут

Сообщение от mobile

то проверять надо Список.ItemSelected.Count.

А можно с синтаксисом...

Visual Basic
1
If... Список.ItemSelected.Count ...Then.

Честно говоря пока затрудняюсь....

@texnik-san · 08.12.2015, 23:20

Visual Basic
1
2
3
4
5
If Список.ItemsSelected.Count>0 Then
    ' (операторы для случая, если в списке что-то выбрано)
 else
    ' (операторы для случая, если в списке ничего выбрано)
end if

mobile · 09.12.2015, 01:10

Сообщение от govorun

А разве Null можно присвоить

Конечно можно. В нуллах нет никакой мистики, это вполне определенное состояние машинного слова. И когда говорят, что нулл ничему не равен, имеется в виду, что любые арифметические и логические операции с нуллом также равны NULL. Не TRUE или FALSE, а NULL.

О проверке списка. У Вас действительно список? Не поле со списком? Проверка списка на выбранное значение:

Visual Basic
1
2
3
4
5
If Список.ItemSelected.Count=0 Then 'В списке ничего не выбрано
   'Что-то делаем, когда в списке ничего не выбрано
Else
   'Что-то делаем, когда в списке выбрано значение
End If

Если будет выбрано значение, а в списках с мультиселектом выбрать можно несколько, количество ItemSelected списка (ItemSelected.Count) будет больше нуля.

Добавлено через 1 час 42 минуты

Сообщение от mobile

Конечно можно

В ВБА присвоить можно только не типизированной переменной. Любой тип, кроме Variant не примет NULL, будет ошибка. Но это не касается полей таблиц, хотя любое из них обязательно имеет определенный тип.

@alvk · 09.12.2015, 06:58

Сообщение от mobile

Но это не касается полей таблиц, хотя любое из них обязательно имеет определенный тип.

К слову, тут уже можно проверять так на NULL:

Visual Basic
1
If len(поле & "") = 0 then

@govorun · 09.12.2015, 18:52 **[ТС]**

Сообщение от mobile

ВБА присвоить можно только не типизированной переменной.

Ну вот еще немного науки в голову запихнул. Пригодится....
Я тут с Dlookup, вернее с датой все-таки застрял.
1. Присвоил переменным значения полей Списка.
2. В Dlookup записал условие с переменными. Получилась такая беда. Без условия на поле Дата все работает, а с условием на поле Дата не хочет. Вернее все время возвращает Null. Т.е. не находит, хотя в действительности оно есть.
По-этому прошу посмотреть, что у меня не так нацарапано:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
Dim s1, s2, s3, s4, s5
Dim a
......
s5 = format(Forms!T1!Список1.Column(6), "dd\/mm\/yyyy")   'Дата вида 15.01.2015
...
a = Dlookup("ID"........& " and [Дата] = #" & s5 & "#" )
....
if isNull(a) then
msgbox "траляля"
else
Me.Надпись1.Caption = a
end if

Без проверки на поле Дата в Списке получается либо траляля либо a=чему-то равно.
а с проверкой - всегда траляля....
Что-то я с датой не так пишу....
Спасибо.

mobile · 09.12.2015, 19:29

Сообщение от govorun

s5 = format(Forms!T1!Список1.Column(6), "dd\/mm\/yyyy") * 'Дата вида 15.01.2015

Дата должна быть в американском формате "mm\/dd\/yyyy" где месяц впереди

@govorun · 10.12.2015, 18:52 **[ТС]**

mobile, А insert into тоже таким макаром делается, если нужно вставить данные из формы?

Visual Basic
1
w= "insert into T1 ( AAA ) select " & forms!Forma1!Список1.Column(3)

или в случае с переменной

Visual Basic
1
w= "insert into T1 ( AAA ) select " & s1

Спасибо

mobile · 10.12.2015, 22:49

Одна запись по конкретным значениям вставляется иной формой Insert Into с помощью Values

Visual Basic
1
w= "insert into T1 ( AAA ) Values (" & forms!Forma1!Список1.Column(3) & ")"

@minob · 11.12.2015, 05:40

Сообщение от mobile

любые арифметические и логические операции с нуллом также равны NULL. Не TRUE или FALSE, а NULL.

Это не всегда верно. Например

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
? false and null
False
?null and false
False
?true or null
True
?null or true
True
?false imp null
True
?null imp true
True

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11680&d=1772460536 Одним из. . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .

Dlookup

Решение