Зміст

# Access2Base

## Що таке Access2Base?

Access2Base is a LibreOffice BASIC library of macros for (business or personal) application developers and advanced users. It is one of the libraries stored in "Application macros and dialogs".

The functionalities provided by the implemented macros are all directly inspired by Microsoft Access. The macros are callable mainly from a LibreOffice Base application, but also from any LibreOffice document (Writer, Calc, ...) where access to data stored in a database makes sense.

API, що надає Access2Base, покликаний бути гнучкішим, інтуїтивнішим та простішим для вивчення, ніж стандарт UNO API (API = Application Programming Interface - прикладний програмний інтерфейс).

Бібліотека документована у мережі на http://www.access2base.com

## Реалізовані макроси включають:

1. спрощений і розширюваний API для керування формами, діалогами та елементами керування подібний до об'єктної моделі Microsoft Access,

2. API для доступу до баз даних з об'єктами таблиця, запит, набір записів та поле,

3. багато дій з таким самим синтаксисом, як у відповідних макросах/діях Microsoft Access,

4. функції баз даних DLookup, DSum та інші,

5. підтримка короткого запису на зразок Forms!myForm!myControl

додатково

6. стійкий обробник помилок та виняткових ситуацій,

7. засоби для програмування подій форм, діалогів та елементів керування і

8. підтримка як вбудованих, так і окремих (Writer) форм.

## Порівняння Access2Base та Microsoft Access VBA

       REM Open a form ...
                 OpenForm("myForm")
       REM Move a form to new left-top coordinates ...
                 Dim ofForm As Object  ' In VBA =>  Dim ofForm As Form
                 Set ofForm = Forms("myForm")
                 ofForm.Move(100, 200)
       REM Get the value of a control ...
                 Dim ocControl As Object
                 ocControl = ofForm.Controls("myControl")
                 MsgBox ocControl.Value
       REM Hide a control ...
                 ocControl.Visible = False
       REM ... or alternatively ...
                 setValue("Forms!myForm!myControl.Visible", False)  '  Shortcut notation
                 ' In VBA =>  Forms!myForm!myControl.Visible = False