Поиск телефона из двух таблиц

[Forlaw]

Ситуация такая:
1.Есть таблица1 в ней [номер телефона] и [название]
2.Есть таблица2 в ней [номер телефона] и [название]
3.Таблицы не связаны никак

111 | Атланта
222 | Атланта
333 | Ладога

4.Есть форма, допустим, с 10ю полями для ввода номера телефона

Нужно найти записи из двух таблиц таблиц:
Если номер из первого поля в форме есть в одной из таблиц, то рядом с полем пишем, допустим "ЗАНЯТ"
Если номер из второго поля в этой же форме есть в одной из таблиц, то рядом с полем пишем "ЗАНЯТ"
Если номера из третьего поля нет ни в одной из таблиц, то рядом пишем "СВОБОДЕН"

и так все 10 полей.. =(

либо, вместо "ЗАНЯТ", писать [название]
Да, вот все эти "ЗАНЯТ"\"СВОБОДЕН" должны нарисоваться напротив каждого из 10 полей после нажатия кнопки.
И все 10 полей не обязательно должны быть заполнены, некоторые могут быть пустыми

как быть, подскажите?

[Forlaw]

т.е. я не знаю как сделать запрос..

нужно просто выполнить этот запрос 10 раз с параметрами из этих 10ти полей в форме.
после каждого выполненного запроса проверять: если он что-то возвратил, то формс!форма!надпись1.value = "ЗАНЯТ"
если нет - "СВОБОДЕН"
и так 10 раз. этого вполне хватит

[Forlaw]

Тут подумал.. а если сделать два запроса, один для таблицы1, а второй для таблицы2.
сначала для первого поля в форме выполнять запрос1, если он ничего не вернул, то выполнять запрос2. Если и он ничего не вернул, тогда надпись1="СВОБОДЕН", else надпись1="ЗАНЯТ" и так 10 раз, для каждого из полей..

[Forlaw]

или так:
Private Sub Кнопка_Click()
Dim s$, i&
For i = 1 To 10
s = Nz(Me("Поле" & i), "")
If Not s = "" Then
If DCount("*", "таблица1", "[номерТелефона]='" + s + "'") > 0 Then
s = "ЗАНЯТ"
ElseIf DCount("*", "таблица2", "[номерТелефона]='" + s + "'") > 0 Then
s = "ЗАНЯТ"
Else
s = "СВОБОДЕН"
End If
Else
s = "ПУСТО"
End If
Me("Поле" & i).Controls(0).Caption = s
Next i
End Sub

Где Поле1,Поле2...Поле10 - поля в форме (типа TextBox с подписями - в эти подписи выводится диагноз). Предположено, что поле [номерТелефона] в таблицах - типа текст. Будет работать?

[VVitafresh]

Forlaw, тебе ведь уже делали замечания. Неужели так сложно нажать кнопку "Правка" и отредактировать свое сообщение, если вдруг тебя осенило? Неприятно читать поток мысли на форуме, оформленный столь скверно, и тем более отвечать.

[alibek]

Forlaw, строгое замечание.
Прислушайся к советам и пользуйся кнопкой "Правка".

[iGrok]

Копать в этом направлении

Код: Выделить всё

SELECT [название]
FROM таблица1
WHERE [номер телефона] = 111
UNION
SELECT [название]
FROM таблица2
WHERE [номер телефона] = 111