Access 2000 - курс лекций
j. Сохранить выражение
Если мы хотим печатать данные о вычислениях, то надо уметь сохранять итоги расчетов калькулятора в таблице. Напишем функцию, которая будет это делать.
Private Sub subСохранитьВыражение()
Dim dbs As Database, rst As Recordset
On Error GoTo 999 'Назначаем переход по ошибке
Set dbs = CurrentDb 'Выбираем базу данных
Set rst = dbs.OpenRecordset("SELECT * FROM [Калькулятор]")
With rst
If .RecordCount > 0 Then
.MoveLast '! Заполнить запрос SQL данными
End If
.AddNew 'Добавить новую запись
!Пункт = .RecordCount + 1 'Порядковый номер записи
!Выражение = Me.Выражение 'Вычисляемое выражение
!Итог = Me.Итог 'Итоговое вычисление
.Update '! Запомнить вычисления
End With
rst.Close 'Закрываем запрос
Set dbs = Nothing 'Уничтожаем переменную
Exit Sub 'Выходим из программы
999:
MsgBox Err.Description 'Сообщаем об ошибке
Err.Clear 'Очищаем поток от ошибок
End Sub
