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

Программирование и готовые решения

Подписаться Бесплатная «Серебряная» новостная рассылка . Подписчиков 5.409 RSS
←   Январь 2016   →
 1
 2
 3
 4
 5
 6
06.01.2016
06:30:36
14:30:26
 7
 8
 9
09.01.2016
06:30:36
17:30:53
10
10.01.2016
06:30:20
21:30:23
11
12
13
14
15
16
17
18
19
20
21
22
23
23.01.2016
09:30:43
17:31:13
24
25
25.01.2016
13:31:12
14:30:23
26
27
28
29
30
31


За последние 60 дней ни разу не выходила


Сайт рассылки: http://blog.leadersoft.ru
Открыта: 29-08-2000

Автор
leadersoft.ru

Статистика

5.409 подписчиков
0 за неделю
←   Все выпуски   →

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 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

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

Теперь Вы научились создавать отчеты в 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 String) As 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 String) As 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. Несколько советов по написанию программ

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

ОГЛАВЛЕНИЕ

ССЫЛКИ ПО ТЕМЕ
Загрузить исходники по теме (скоро …)
В избранное