Public Function funCreateQueries() As Boolean

Dim dbs As Database, sSQL As String

    On Error GoTo 999 'Переходим по ошибке

    funCreateQueries = False  'Возвращаем результат при ошибке

    subDeleteQuery "ЗапросСписокКалькулятора" 'Удяляем старый запрос

    subDeleteQuery "ЗапросУдалитьСписок" 'Удяляем старый запрос

    Set dbs = appAccess.CurrentDb 'Выбираем базу данных

    With dbs

        sSQL = "SELECT Выражение, Итог FROM Калькулятор ORDER BY “ & _

                       “Пункт DESC;"

        .CreateQueryDef "ЗапросСписокКалькулятора", sSQL 'запрос на выборку

        sSQL = "DELETE Калькулятор.* FROM Калькулятор;"

        .CreateQueryDef "ЗапросУдалитьСписок", sSQL 'запрос на удаление

    End With

    funCreateQueries = True 'Возвращаем результат

    Exit Function 'Выходим из программы

999:

    MsgBox Err.Description 'Сообщаем об ошибке

    Err.Clear 'Очищаем поток от ошибок

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

---

---