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 'Очищаем поток от ошибок

Содержание раздела

---

---