Создание приложения в VBA в Access для автоматизации формирования договоров в Word

Добавим при помощи Toolbox на свободную часть формы элемент управления «Присоединенная рамка объекта». Удалим автоматически сгенерированную вместе с ним надпись, а затем откроем свойства этого объекта. Для свойства «Имя» настроим значение OLEObject1, а для свойства «Вывод» на экран установим значение «Нет». Добавим на форму две кнопки: «Отмена» и «Сформировать договор». Элемент управления для первой кнопки должен называться cmdCancel, а для второй — cmdDog. В открывающемся окне мастера при создании кнопки нажмем на кнопку «Отмена».  Нужно убедиться, что для элементов управления текстовых полей оставлены имена по умолчанию (НомерДоговора, Город, Дата и т.п.). В итоге форма в окне конструктора должна выглядеть, например, так, как представлено на рисунке 3.2.

Рисунок 4.2 – Форма в окне конструктора

Щелкнем правой кнопкой мыши по кнопке «Отмена» и в контекстном  меню выбираем «Обработка событий». В  открывшемся окне «Построитель»  выбираем «Программы» и нажимаем OK. Вводим следующий код для события  Click этой кнопки:

Private Sub cmdCancel_Click()

Form.Undo

End Sub

При помощи меню Tools -> Referencesв окне редактора кода добавляем ссылку на объектную библиотеку Microsoft Word 11.0 Object Library.

Так же как и для события  Click открываем код для кнопки «Сформировать договор» и введем следующий код:

Private Sub cmdDog_Click()

Dim dDate As Date

Dim НомерДоговора, Город, Организация, Представитель, Должность, ЮрОснование As String

'Присваиваем значения  переменным при помощи элементов  управления формы 

If Form.Controls("Дата").Value <> "" Then _

dDate = Form.Controls("Дата").Value

If Form.Controls("НомерДоговора").Value <> "" Then _

НомерДоговора = Form.Controls("НомерДоговора").Value

If Form.Controls("Город").Value <> "" Then _

Город = Form.Controls("Город").Value

If Form.Controls("Организация").Value <> "" Then _

Организация = Form.Controls("Организация").Value

If Form.Controls("Представитель").Value <> "" Then _

Представитель = Form.Controls("Представитель").Value

If Form.Controls("Должность").Value <> "" Then _

Должность = Form.Controls("Должность").Value

If Form.Controls("ЮрОснование").Value <> "" Then _

ЮрОснование = Form . Controls ("ЮрОснование"). Value

'Получаем шаблон —  теперь из базы данных 

Dim oBOF As BoundObjectFrame

Set oBOF = Form.Controls("OLEObject1")

oBOF = DLookup("[Шаблон]", "Шаблоны", "[НомерШаблона] = 1")

oBOF.Verb = acOLEVerbOpen

oBOF.Action = acOLEActivate

'Получаем ссылки на  запущенный нами Word и открытый в нем документ

Dim oWord As Word.Application

Set oWord = GetObject(, "Word.Application")

Dim oDoc As Word.Document

Set oDoc = oWord.ActiveDocument

oWord.Visible = True

oWord.ActiveWindow.WindowState = wdWindowStateMaximize

oDoc . Activate

'Вставляем данные в  закладки 

oDoc.Bookmarks("bNumber").Range.Text = НомерДоговора

oDoc.Bookmarks("bCity").Range.Text = Город

oDoc.Bookmarks("bDate").Range.Text = dDate

oDoc.Bookmarks("bOrg").Range.Text = Организация

oDoc.Bookmarks("bTitle").Range.Text = Должность

oDoc.Bookmarks("bPerson").Range.Text = Представитель

oDoc.Bookmarks("bLaw").Range.Text = ЮрОснование

End Sub

Запускаем созданный код  на выполнение и убеждаемся в его  работоспособности.

3. Обеспечение минимальной защиты от действий пользователя:

В окне базы данных Access в меню Сервис выбираем «Параметры запуска». В открывшемся окне снимаем все флажки, а в списке «Вывод формы/страницы» выбираем «Форма для занесения договоров» (рис. 3.3).

Рисунок 4.3 – Настройка параметров приложения в окне «Параметры запуска»

Нажимаем на кнопку OK. Затем  закрываем и вновь открываем  созданную базу данных. Необходимо убедиться, что все объекты базы данных, кроме формы для занесения  договоров, спрятаны от пользователя.

 

ЗАКЛЮЧЕНИЕ

Управление продажами включает в себя как управление людьми, так и управление процессами в области продаж.

Можно выделить следующие положительные  тенденции в области управления продажами: в целом внимание и  интерес к данной сфере растет; все больше компаний начинают пользоваться таким инструментом управления, как  планирование продаж; все больше внимания уделяется повышению профессионального  уровня специалистов по продажам; повышение  внимания к вопросам ориентированности  на клиента и поддержания отношений  с постоянными клиентами.

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

Список использованных источников