Примеры выражений, использующих пустые значения полей (пустые значения и строки нулевой длины) в качестве условий отбора.
|
Поле |
Выражение |
Описание |
|
ОбластьДоставки |
Is Null |
Отображает заказы для клиентов, у которых поле «ОбластьДоставки» является пустым. |
|
ОбластьДоставки |
Is Not Null |
Отображает заказы для клиентов, у которых поле «РайонДоставки» содержит какое-либо значение. |
|
Факс |
" " |
Отображает заказы для клиентов, у которых нет факсимильного аппарата, то есть для тех клиентов, у которых поле «Факс» содержит пустую строку, а не значение Null. |
|
ПунктНазначения |
"Киев" |
Отображает заказы на доставку товаров в Киев. |
|
ПунктНазначения |
"Киев" Or "Минск" |
Использует оператор Or для отображения заказов на доставку товаров в Киев или Минск. |
|
ДатаОтгрузки |
Between #05.01.95# And #10.01.95# |
Использует оператор Between...And для отображения заказов на отгрузку товаров не ранее 5-янв-95 и не позднее 10-янв-95. |
|
ДатаОтгрузки |
#2/2/95# |
Отображает заказы на отгрузку товаров 2-фев-95. |
|
СтранаДоставки |
In("Канада", "Великобритания") |
Использует оператор In для отображения заказов на доставку товаров в Канаду или Великобританию. |
|
СтранаДоставки |
Not "США" |
Использует оператор Not для отображения заказов на доставку товаров во все страны, за исключением США. |
|
ИмяКлиента |
Like "С*" |
Заказы на доставку товаров клиентам, имена которых начинаются с буквы С. |
|
Название |
>="Н" |
Отображает заказы на доставку товаров в фирмы, названия которых начинаются с букв, находящихся в диапазоне от Н до Я. |
|
КодЗаказа |
Right([OrderID], 2)="99" |
Использует функцию Right для отображения заказов, код которых заканчивается на 99. |
|
Название |
Len([Название]) >Val(30) |
Использует функции Len и Val для отображения заказов для фирм, названия которых состоят из более чем 30 символов. |
Приложение 2
Процедура обработки нажатия кнопки
Private Sub Кнопка8_Click()
On Error GoTo Err_Кнопка8_Click
DoCmd.GoToRecord , , acNewRec
Exit_Кнопка8_Click:
Exit Sub
Err_Кнопка8_Click:
MsgBox Err.Description
Resume Exit_Кнопка8_Click
End Sub
Процедура присваивания значения полю
Private Sub КодТовара_AfterUpdate()
On Error GoTo Err_КодТовара_AfterUpdate
Dim strFilter As String
' Определяет фильтр перед его передачей в функцию DLookup.
strFilter = "КодТовара = " & Me!КодТовара
' Ищет поле "Цена" и присваивает его значение элементу управления "Цена".
Me!Öåíà = DLookup("Цена", "Товары", strFilter)
Exit_КодТовара_AfterUpdate:
Exit Sub
Err_КодТовара_AfterUpdate:
MsgBox Err.Description
Resume Exit_КодТовара_AfterUpdate
End Sub
Библиографический список
Хомоненко А.Д., Цыганков В.М., Мальцев М.Г. Базы данных: Учебник для высших учебных заведений. –/ Под ред. проф. А.Д. Хомоненко. - 3-е изд. испр. и доп. – СПб.: КОРОНА - принт, 2003. – 666 с.
Карпова Т. С. Базы данных: модели, разработка, реализация. — СПб.: Питер, 2001. — 304 с.: ил.
Дубнов П.Ю. Access 2000. Проектирование баз данных. – М.: ДМК,2000. – 272 с.: ил.
Microsoft Access 2000. Шаг за шагом: Практическое пособие /Пер. с англ.– М.: Издательство ЭКОМ, 2000.– 352 с.: ил.