Access обработка ошибок в запросе

1. Обработка ошибок на этапе выполнения

Как
тщательно не проверялся бы код, на этапе
его выполнения неизбежно возникают
ошибки. Попытка деления на ноль – это
типичный пример ошибки времени выполнения.
В Access обработка ошибок выполняется с
помощью инструкции On Error. Имеется три
вида инструкций On Error:

1. On Error GoTo Метка –
   осуществляет переход на строку с меткой
   (Метка) при возникновении произвольной
   ошибки на этапе выполнения. Обычная
   часть кода, обрабатывающая ошибки,
   помещается в корпус процедуры. После
   обработки ошибки можно либо вызвать
   повторение той части кода, где произошла
   ошибка, либо проигнорировать ошибку и
   продолжить выполнение последующих
   инструкций. Для возвращения на строку
   с ошибкой используется ключевое слово
   Resume.

2. On
   Error Resume Next – игнорирует ошибку и
   продолжает выполнение последующих
   инструкций.

3. On
   Error GoTo 0 отключает обработку ошибок.

После
обработки первой ошибки инструкция On
Error GoTo Метка продолжает выполняться для
всех последующих ошибок, пока не
закончится выполнение данной процедуры
либо обработка ошибок не будет явно
отключена инструкцией On Error GoTo 0. Если
нет обработки какой-то ошибки или
обработка выключена, то при возникновении
необработанной ошибки приложение сразу
же выдаст сообщение об ошибке и прекратит
работу.

Если
процедура обработки некоторого события
создается с помощью мастера, то он
автоматически дополняет процедуру
кодом обработки ошибок.

Private
Sub MyID_DblClick(Cancel As Integer)

On
Error GoTo Err_MyID_DblClick

Текст
процедуры

Exit_MyID_DblClick:

Exit
Sub

Err_MyID_DblClick:

MsgBox
Err.Description

Resume
Exit_MyID_DblClick

End
Sub

Объект
Err содержит информацию об ошибках
выполнения и обычно используется вместе
со структурой Select Case, чтобы определить,
какое действие предпринять в зависимости
от кода ошибки.

Select
Case Err

Case
58 To 76

Call
FileError- процедура обработки ошибок работы
с файлами

Case
281 To 297

Call
DDEError — процедура для обработки ошибок
DDE

Case
340 To 344

Call
ArrayError — процедура
ошибок
массивов

End
Select

Err=0
— отключение обработки необработанных
ошибок.

1. Работа с объектами и коллекциями

В
VBA можно работать с объектами и коллекциями
Access, библиотекой доступа к данным DAO
(Data Access Objects), библиотекой прямого доступа
к данным баз данных ODBC (ODBC Direct), библиотекой
доступа к данным ADO (ActiveX Data Objects) и другими
библиотеками. В Access, DAO и ADO все объекты
расположены внутри коллекций и доступны
в VBA. Каждый объект имеет свойства и
методы. Все библиотеки организованы в
виде иерархии объектов. Объекты имеют
коллекции (семейства) подчиненных
объектов и т.д. В Access имеется 8 базовых
объектов; их иерархия представлена на
Рис. 12.

Объекты
MS
Access:

1. Application – активное
   приложение;

2. Control
   – элемент управления;

3. DoCmd
   – объект вызова макрокоманд в VBA коде;

4. Form
   – открытая форма;

5. Module
   – объект, ссылающийся на стандартные
   модули;

6. Reference
   – объект, содержащий ссылки на объекты;

7. Report
   – открытый отчет;

8. Screen
   – ссылка на экран;

Названия
семейств формируются путем возведения
в множественное число названия
соответствующего объекта. В свою очередь
большинство объектов имеют присоединенные
коллекции свойств (Properties),
а формы и отчеты – коллекции разделов
и т.д. Так как все объекты в Access хранятся
внутри иерархически связанных коллекций,
то доступ к объекту на нижней ступени
иерархии можно получить, указав все
имена коллекций, разделенных точкой,
начиная от корневого объекта. Например,
Application.Forms(«Заказы»).Controls(0).Properties(0).
Большинство коллекций, к примеру,
коллекции форм и отчетов, являются
глобальными. Тогда к объекту этой
коллекции можно обращаться напрямую:
Forms(«Заказы») или Forms!Заказы.

Рис. 12. Иерархия
объектов Access

Поскольку
библиотека DAO всегда поставляется с
Access,
рассмотрим ее структуру и основные
методы более подробно (смотри Рис. 13).

Объекты
библиотеки DAO:

Database
– открытая база данных;

DBEngine
– ссылка на Microsoft Jet (ядро БД);

Error
– объект ошибок;

Field
– поле в таблицах, запросах, динамических
наборах и т.д.;

Index
– индекс;

Parameter
– параметр запроса;

QueryDef
– сохранённый запрос;

Recordset
– динамический набор данных;

Relation
– связь между таблицами;

TableDef
– сохраненная таблица;

Workspace
– активная сессия.

Рис. 13. Иерархия
объектов DAO

В
программах на VBA имеется набор свойств
объектов, которые возвращают ссылки на
подчиненные объекты:

Me
– ссылка на активную форму или отчет
(доступна в присоединенном модуле);

ActiveControl
– ссылка на активный элемент управления;

ActiveForm
– ссылка на активную форму (доступна в
объекте Screen);

ActiveReport
– ссылка на активный отчет (доступна в
объекте Screen);

Application
– ссылка на открытое приложение;

Parent
– ссылка на родительский объект, т.е.
на коллекцию;

DBEngine
–
возвращает
ссылку на Application.

Работа
с записями и полями

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

Me![Полная
цена] = Me![Цена]
* Me![Количество]

Me.Filter
= «[Адрес] Like
‘*» & Me![ПолеУсловияПоиска]
& «*'»

Me.FilterOn
= True

Если
есть желание читать и менять данные в
некотором поле базового набора, но не
видеть его на экране, то достаточно
поместить элемент управления Поле
на форму и задать свойство Visible
в False.
Но прямой доступ к базовому набору в
Access
невозможен. Можно лишь создать динамическую
копию базового набора и синхронизировать
все производимые действия с ней с базовым
набором самой формы. Для прямого доступа
к записям и полям используется объект
Recordset. Имеются четыре типа Recordset объектов
– table,
dynaset,
snapshot
и forwarrd-only:

1. Table:
   Может быть создан только на основе
   существующей или присоединенной
   таблицы. Предоставляет доступ ко всем
   методам и свойствам таблицы, а также к
   индексам, что дает намного более быстрый
   метод поиска (метод Seek);

2. Dynaset
   — может быть создан на основе таблицы
   или запроса. Позволяет обновлять данные
   в многотабличных запросах и в запросах
   к внешним БД. Обновление Dynaset
   объекта приводит к автоматическому
   обновлению всех участвующих в нем
   таблиц;

3. Snapshot
   — создает статическую копию и существует
   только в то время, когда он создан.
   Последующие изменения таблиц на него
   не воздействуют;

4. Forward-only
   создает статическую копию с просмотром
   только в прямом порядке.

Для
создания объекта типа Recordset используется
метод OpenRecordset:

Set
variable = database.OpenRecodset (source [type, options, lockedits]),
или

Set
variable = object.OpenRecodset ( [type, options, lockedits]),

где
database – это
переменная
типа
Database; object – переменная
типа
TableDef или
QueryDef; source – ссылка
на
объект
типа
TableDef или
QueryDef; type – тип
динамического
набора
(может
принимать
следующие
значения:
dbOpenTable, dbOpenDynaset, dbOpenSnspshot dbOpenForwardOnly);
options может
принимать
следующие
значения:
dbAppendOnly, dbReadOnly, dbForwardOnly,
…; lockedits
– аргумент,
определяющий
разрешение
конфликтов
в
многопользовательских
БД
(может
принимать
следующие
значения:
DbReadOnly, dbPessimistic, dbOptimistic). Например:

Dim db As Database

Dim rst As Recordset

Set db = CurrentDb()

Set rst =
db.OpenRecordset(«Клиенты»,
dbOpenDynaset)

Открыть
Recordset можно и основываясь на переменной
типа формы (допустим только для форм,
основанных на таблице или запросе) с
помощью метода RecordsetClone. Метод RecordsetClone
создает динамический набор, основываясь
на свойстве Источник
данных для
формы

Dim
rstOrders As Recordset

Set
rstOrders = Forms![Заказы].RecordsetClone

или
просто Me.RecordsetClone

Recordset
можно создать, также основываясь на
строке SQL

Set rst =
db.OpenRecordset(«SELECT * FROM Товары
WHERE Цена
> 1000», dbOpenDynaset, dbReadOnly)

После
завершения работы с динамическим набором
его необходимо закрыть. Существуют два
общих способа закрытия объектов в VBA.
Первый заключается в вызове метода
Close, второй – в присвоении соответствующей
объектной переменной значения Nothing.
Например,
rst.Close или
Set rst = Nothing.

Recordset
имеет
текущее
приложение
– current position. Для
синхронизации текущего положения
динамического набора с текущей записью
формы можно использовать свойство
Bookmark
(необходимо всегда помнить, что при
обращении к динамическому набору данные
берутся именно из текущей записи). Для
перемещения по динамическому набору
имеется ряд методов: MoveFirst,
MoseLast,
MoveNext,
MovePrevions,
Move[n].
Например:

Dim
rst As Recordset

Set
rst = Me.RecordsetClone

rst.MoveNext

Me.Bookmark
= rst.Bookmark

Для
определения начала и конца набора можно
использовать свойства BOF (before of file –
начало файла) и EOF (end of file – конец файла).
Если в наборе нет записей, то BOF и EOF равны
True. Если в наборе есть записи, то при
открытии курсор обычно устанавливается
на первой записи и BOF и EOF = False. Если курсор
находится перед первой записью, то BOF =
True, и если курсор находится после
последней записи, то EOF = True.

Число
записей в динамическим наборе можно
получить с помощью свойства RecordCount. Это
свойство возвращает реальное число
записей только для динамического набора,
основанного на таблице, т.е. имеющего
тип dbOpenTable. После открытия динамических
наборов любых других типов число записей
в нем будет неизвестно до тех пор, пока
курсор не будет перемещен на последнюю
запись. Для непосредственной проверки
на наличие в наборе записей лучше
проверить свойство EOF. Если EOF будет
равно True, то RecordCount также будет равен 0.

Public
Function RecCount() As Long

Dim
rstCount As Recordset

Dim
dbs As Database

Set
dbs = CurrentDB()

Set
rstCont = dbs.OpenRecordset(«Заказы»)

If
rstCount.Eof Then

RecCount
= 0

Else

rstCount.MoveLast

RecCount
= rstCount.RecordCount

End
If

rstCount.Close

Set
dbs = Nothing

End
Function

Поиск
определенной записи

Для
наборов, основанных на таблице, можно
использовать метод Seek, который ищет
запись, основываясь на сравнении данных
некоторого индекса с заданными значениями
(самый быстрый метод). Для примера запишем
программу, которая будет проверять
дублирование значений ключевого поля
таблицы Клиенты
перед сохранением записи. Для проверки
результатов поиска в объекте Recordset
имеется свойство NoMatch. Если NoMatch равно
False, то запись с заданными условиями
поиска отсутствует в наборе.

Dim
rst As Recordset

Set
rst = CurrentDb.OpenRecordset(«Клиенты»,
dbOpenTable)

rst.Index
= «PrimaryКey»

rst.Seek
«=»,
Me![КодКлиента]

If
Not rst.NoMatch Then

MsgBox
«Клинт с таким табельным номером уже
существует в базе»

DoCmd.GoToControl
«КодКлиента»

End
If

rst.Close

Метод
Seek всегда начинает поиск с начала набора,
поэтому поиск по одному и тому же условию
будет всегда приводить к одной и той же
записи. Для поиска по динамическим
наборам остальных типов можно применять
также методы FindFirst, FindLast, FindNext и
FindPrevions. Например, подсчитаем количество
заказов определенного клиента:

intCount
= 0

rstOrders.FindFirst
«КодКлиента=» & Me![КодКлиента]

Do
While rstOrders.NoMatch

rstOrders.FindNext
«КодКлиента=»
& Me![КодКлиента]

intCount
= intCount + 1

Loop

Для
поиска записей можно также применять
сортировку и фильтрацию. Для сортировки
записей лучше всего открыть новый
динамический набор, основанный на
запросе SQL с оператором ORDER BY. Для
фильтрации можно задать свойство Filter
объекта Recordset и затем обновить набор с
помощью метода OpenRecordset.
Ниже приведен текст программы,
осуществляющей фильтрацию произвольного
набора:

Function
FilterField(rstTemp As Recordset, strField As String, strFilter As
String) As Recordset

rstTemp.Filter
= strField & » = ‘» & strFilter & «‘»

Set
FilterField = rstTemp.OpenRecordset

End
Function

Обновление
динамических наборов

Обновление
данных возможно только при работе с
динамическими наборами типов dbOpenTable и
dbOpenDynaset. Для редактирования некоторой
записи необходимо вначале установить
курсор на ней, перевести динамический
набор в режим редактирования (метод
Edit), а затем сохранить изменения с помощью
метода Update.

rst.Edit

rst![Товар]
= «Pentium
100»

rst![Цена]
= 100

rst.Update

Метод
Cancel
отменяет внесенные изменения. Для
удаления текущей записи существует
метод Delete. Этот метод удаляет запись
без выдачи каких-либо предупреждений
и не меняет положения курсора. Для
перехода на следующую запись необходимо
вызвать метод MoveNext. Для добавления новой
записи служит метод AddNew. После заполнения
новой записи значениями ее необходимо
сохранить с помощью метода Update, потому
как если после добавления новой записи
перейти к другой записи без сохранения
или просто закрыть динамический набор,
то добавляемая запись будет потеряна.
Следующий пример изменяет значения
полей Цена
и Количество
таблицы Заказы,
отфильтрованной для определенного
клиента.

Dim
rst As Recordset

Dim
dbs As Database

Set
dbs = CurrentDb()

Set
rst = dbs.OpenRecordset(«Заказы»,
dbOpenDynaset)

rst.Filter
= «[КодКлиента]=» & Me![Код
клиента]

Set
rst = rst.OpenRecordset

If
Not rst.EOF Then

With
rst

Do
Until .EOF

.Edit

![Цена]
= rst![Цена]
* 1.2

![Количество]
= ![Количество]
* 2

.Update

.MoveNext

Loop

.Close

End
With

End
If

dbs.Close

Работа
с
полями

Получить
доступ
к
значениям
и
свойствам
полей некоторой таблицы можно, открыв
соответствующий динамический набор.
Коллекция полей Fields является коллекцией
по умолчанию для объекта типа Recordset.
Тогда получить доступ к некоторому полю
можно по его имени или по индексу в
коллекции, например: rst.Fields(Field1”),
rst.Fields(4) или rst![Field1]. После получения
ссылки на объект типа Field можно читать
и изменять его свойства, например:

Dim
fld As Field

fld.DefaultValue
= 1

fld.ValidationRule
= «BETWEEN 1 AND 1000»

fld.Value
= 100

Соседние файлы в папке Лабораторный практикум в Access

• #

  01.03.2016798.72 Кб118Articles2000.mdb
• #

  01.03.2016311.3 Кб117Articles_be_2000.mdb

• #
• #
• #
• #
• #
• #
• #

I am working on a Attendance table in Access, where I have InTime and OutTime. These fields are of Date/Time Field.
Some records contains only Time like 11:40:00, some contain Date as well as time like 21-07-2015 11:45:00. Hence have used the below code for getting hours worked.

HrsPresent: Round(DateDiff("n",TimeValue(TimeSerial(Hour([TimeIn]),Minute([TimeIn]),Second([TimeIn]))),TimeValue(TimeSerial(Hour([TimeOut]),Minute([TimeOut]),Second([TimeOut]))))/60,2)

Using this above code, in a Column in making query gives correct Number of hours worked, but if any of the field is blank, i get #error in result.

I have tried using Nz , IsError, IsNumeric but all in Vain.

• What is it that, I am doing wrong?
• Is other way of getting hours worked?