Проверка поля другой таблицы на наличие данных

@meralisa · Регистрация: 28.01.2015

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

День добрый!
Пытаюсь проверить на пустоту ячейки таблицы с помощью вот этого кода.
Возникает проблема - даже если в ячейках проверяемой таблицы ничего нет, то выдается результат "Все хорошо".
Сам код:

Visual Basic

Private Sub Кнопка193_Click()
Dim A As Variant
A = DLookup("[ДатаРождения]", "[ДанныеНаРебенка]", "[ФИОРебенка]=[Формы]![Бронирование]![ФИОРебенка]")
'Получение данных из проверяемой таблицы. 
If A = Null Then GoTo Linez Else GoTo Linev
'Проверка условий
'Пробовал еще вариант с A="", но тоже безуспешно
Linez:
MsgBox "Не хватает документов"
GoTo Exit1
Linev:
MsgBox "Все хорошо"
Exit1:
End Sub

@VinniPuh · 05.03.2015, 12:08

Я не спец в программном коде, но сразу бросилось в глаза в 3-й строчке нет кавычек и символа &
У вас так
A = DLookup("[ДатаРождения]", "[ДанныеНаРебенка]", "[ФИОРебенка]=[Формы]![Бронирование]![ФИОРебенка]")
а обычно писуют так
A = DLookup("[ДатаРождения]", "[ДанныеНаРебенка]", "[ФИОРебенка]=" &[Формы]![Бронирование]![ФИОРебенка]")
Хотя и не факт, что суть в этом.

@ltv_1953 · 05.03.2015, 12:10

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

Visual Basic

1	A=DLookup("[ДатаРождения]", "[ДанныеНаРебенка]", "[ФИОРебенка]='" & Forms("Бронирование").Controls("ФИОРебенка") & "'")

Не по теме:

Опоздал. Но т.к. ФИО - строковое, нужны еще одиночные кавычки.

mobile · 05.03.2015, 12:26

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

If A = Null Then GoTo Linez Else GoTo Linev

Null ничему не равен. Даже самому себе :-)
Проверять надо на IsNull или на длину поля

Visual Basic

1
2
3

If IsNull(A) Then GoTo Linez Else GoTo Linev
или
If Len(A & "")=0 Then GoTo Linez Else GoTo Linev

@meralisa · 05.03.2015, 13:48 **[ТС]**

kmv-puh, проблема была не в этом)
ltv_1953, попробую Ваш способ чуть позже, спс за помощь.
mobile, большое спасибо, ваш ответ в который раз меня спасает

Вопрос немного не по теме - я правильно понимаю, что Null - означает, что переменная не содержит подходящих данных?

mobile · 05.03.2015, 14:06

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

я правильно понимаю, что Null - означает, что переменная не содержит подходящих данных?

Не совсем так. Скорее обозначает, что переменная или поле вообще не содержит данных. Никаких. Кстати в ВБА нуллом может быть только переменная типа Variant

@VinniPuh 9110 / 6039 / 590 Регистрация: 27.03.2013 Сообщений: 19,843
	05.03.2015, 12:08	2
	Я не спец в программном коде, но сразу бросилось в глаза в 3-й строчке нет кавычек и символа & У вас так A = DLookup("[ДатаРождения]", "[ДанныеНаРебенка]", "[ФИОРебенка]=[Формы]![Бронирование]![ФИОРебенка]") а обычно писуют так A = DLookup("[ДатаРождения]", "[ДанныеНаРебенка]", "[ФИОРебенка]=" &[Формы]![Бронирование]![ФИОРебенка]") Хотя и не факт, что суть в этом. 1

@meralisa 0 / 0 / 0 Регистрация: 28.01.2015 Сообщений: 26
	05.03.2015, 13:48 [ТС]	5
	kmv-puh, проблема была не в этом) ltv_1953, попробую Ваш способ чуть позже, спс за помощь. mobile, большое спасибо, ваш ответ в который раз меня спасает Вопрос немного не по теме - я правильно понимаю, что Null - означает, что переменная не содержит подходящих данных? 0

mobile 26817 / 14496 / 3192 Регистрация: 28.04.2012 Сообщений: 15,782
	05.03.2015, 14:06	6
	Сообщение от meralisa я правильно понимаю, что Null - означает, что переменная не содержит подходящих данных? Не совсем так. Скорее обозначает, что переменная или поле вообще не содержит данных. Никаких. Кстати в ВБА нуллом может быть только переменная типа Variant 0

Проверка поля другой таблицы на наличие данных

Решение