Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

Microsoft Access. Создание макроса и справки



Microsoft Access. Создание макроса и справки
2015-12-29 10:49 noreply@blogger.com (Виктор Leadersoft)
При открытии любой базы данных автоматически запускается макрос AutoExec, вспомните командный файл DOS «autoexec.bat». В этот макрос для примера можно вставить программы Access, например, команду увеличения приложения до максимального размера и команду открытия формы «Мой калькулятор».
Вот так примерно выглядит редактирование макроса в Microsoft Access 2016.



Public Function funCreateMacro(strMacro As StringAs 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


Проверка знаний

Теперь Вы научились создавать отчеты в Access и можете теперь создавать практически готовые программы. Для просмотра вашей формы нажмите кнопку [Проверка N7], для продолжения учебы, нажмите кнопку Вперед>

Проверка знаний

Теперь Вы научились создавать макросы в Access. Для просмотра объектов базы данных нажмите кнопку [Проверка N8], для продолжения учебы, нажмите кнопку Вперед>

СОЗДАНИЕ СПРАВКИ

Если Вы решили оставить общую справку по Access, которая вызывается нажатием F1, то можно написать программу, отображающую Ваш собственный файл: «Калькулятор.chm» при нажатии кнопки меню.  Команда Shell выглядит так: hh.exe -mapid 103 Калькулятор.chm
   Public Function funCreateNewHelp()
        Dim fs, s As String, hlp As String
        On Error GoTo 999
        fs = CreateObject("Scripting.FileSystemObject"'Создаем файловую систему
        s = fs.GetSpecialFolder(0) & "\hh.exe"  'Составляем hh.exe файл
        If Dir(s) <> "" Then 'Проверяем exe-файл
            hlp = fs.GetFile(CurrentDb.Name).ParentFolder & "\Калькулятор.chm" 'Находим справку
            If Dir(hlp) <> "" Then 'Проверяем файл справки
                s = """" & s & """ -mapid " & 103 & " """ & hlp & """" 'Составляем команду
                Shell(s, vbMaximizedFocus) 'Запускаем справку
            End If
        End If
        Exit Function 'Выходим из программы
999:
        Err.Clear() 'Очищаем поток от ошибок
    End Function

Создание помощника

В Access 2016 не работает. Ваша программа будет эффектно выглядеть, если Вы научитесь программировать помощника Access. Ниже написана функция, которая создает на экране сообщения в виде всплывающих ответов от «котенка».
Помните, что если Вы выключили помощника, то он при нажатии меню высвечиваться не будет, его необходимо включить снова.
Public Function funCreateAssistant()
       Dim bln As Balloon, s As String
       With Application.Assistant 'Выбираем помошника
           .Visible = True 'Вывод на экран
           .Animation = msoAnimationAppear 'Включаем анимацию
           bln = .NewBalloon 'Создаем сообщение
           With bln
               .Heading = "Калькулятор позволяет" 'Устанавливаем заголовок
               .Labels(1).Text = "Вводить выражения" 'Включаем меню 1
               .Labels(2).Text = "Вводить формулы" 'Включаем меню 2
               .BalloonType = msoBalloonTypeButtons 'Устанавливаем тип меню
               .Button = msoButtonSetNone 'Отключаем клавиши помощника
               Select Case .Show 'Отображаем помощника
                   Case 1 : s = "23-456/35" 'Назначаем 1 сообщение
                   Case 2 : s = "sin(0.5)"  'Назначаем 2 сообщение
               End Select 'Конец вариантов
           End With
           bln = .NewBalloon 'Создаем нового помощника
           With bln
               .Heading = "Пример выражения" 'Устанавливаем заголовок
               .Text = s 'Выводим назначенный текст, см. выше
               .Button = msoButtonSetOK 'Отображаем клавишу OK
               .Show() 'Показываем помощника
           End With
       End With
   End Function

Проверка знаний

Теперь Вы научились создавать различные справочные системы в Access и можете комментировать свою программу. Для просмотра объектов базы данных нажмите кнопку [Проверка N9], для продолжения учебы, нажмите кнопку Вперед>

ОГЛАВЛЕНИЕ

ССЫЛКИ ПО ТЕМЕ

Загрузить исходники по теме (скоро …)



Microsoft Access. Создание панели меню
2015-12-29 10:53 noreply@blogger.com (Виктор Leadersoft)

Большинство коммерческих программ имеет в верхней части приложения свою панель элементов, на которой есть разные кнопки. Давайте напишем программу, которая создает панель меню без кнопок.

Вот так примерно выглядит редактирование кнопок меню для новой вкладки в Microsoft Access 2016.



Public Function funCreateMenu(strMenu As StringAs Boolean
        Dim myBar As CommandBar
        'Создаем панель меню
        myBar = appAccess.CommandBars.Add(strMenu, msoBarTop, True)
        funCreateMenuControls strMenu '<10> Создаем кнопки меню
        myBar.Visible = True 'Отображаем меню
        funCreateMenu = True 'Возвращаем результат
End Function

Создание кнопок меню

В этой части лекций рассказывается о программе, которая создает две кнопки Помощник и Справка. При нажатии их будет отображаться файл справки и помощник по Вашей программе.
Public Function funCreateMenuControls(strMenu As StringAs Boolean
    Dim but As CommandBarButton
    'Добавляем первую кнопку
    but = appAccess.CommandBars(strMenu).Controls.Add(msoControlButton)
    With but
        .BeginGroup = True 'Начинаем размещение с начала группы
        .FaceId = 1 'Устанавливаем код кнопки
        .Style = msoButtonCaption 'Выбираем стандартный тип
        .Caption = "Справка" 'Называем кнопку
        .OnAction = "funCreateNewHelp" 'Определяем программу справки
    End With
    'Добавляем вторую кнопку
    but = appAccess.CommandBars(strMenu).Controls.Add(msoControlButton)
    With but
        .Caption = "Помощник" 'Называем кнопку
        .Style = msoButtonCaption 'Выбираем стандартный тип
        .FaceId = 2 'Устанавливаем код кнопки
        .OnAction = "funCreateAssistant" 'Определяем программу помощника
    End With
    funCreateMenuControls = True 'Возвращаем результат
End Function


Заключение

Вот и все. Вы полностью прошли первый этап обучения, и теперь только на практике, разрабатывая программы от простых к сложным, Вы сможете создавать законченные приложения по Access. Несколько советов по написанию программ

  • названия функций давайте только на английском языке, могут возникнуть проблемы в сложных программах;
  • старайтесь почаще их комментировать, тогда Вам легче будет разбираться в их структуре;
  • не старайтесь писать очень большие базы данных, размер ее – это не показатель качества;

ОГЛАВЛЕНИЕ

ССЫЛКИ ПО ТЕМЕ

Загрузить исходники по теме (скоро …)


В избранное