Access 2000 - курс лекций
a. Создание макроса
При открытии любой базы данных автоматически запускается макрос AutoExec, вспомните командный файл DOS «autoexec.bat». В этот макрос для примера можно вставить программы Access, например, команду увеличения приложения до максимального размера и команду открытия формы «Мой калькулятор».
Public Function funCreateMacro(strMacro As String) As Boolean
Dim frm As Form
On Error GoTo 999 'Переход по ошибке
funCreateMacro = False 'Возвращаем значение при ошибке
'Импортируем макрос
appAccess.DoCmd.TransferDatabase acImport, "Microsoft Access", appFolder & "\Старый калькулятор.mdb", acMacro, strMacro, strMacro
funCreateMacro = True 'Возвращаем значение
Exit Function 'Выходим из программы
999:
MsgBox Err.Description 'Сообщаем об ошибке
Err.Clear 'Очищаем поток от ошибок
End Function
