Рассылка статей

    Ярким примером в Интернете, кто копирует информацию с сайтов, а потом выдает ее как свою собственную является Компания Интерфейс (далее Интерфейс), сайт interface_ru. Для того, чтобы перейти на этот сайт, замените _[подчеркивание] на [.]точку. Это сделано для того, чтобы эта ссылка не индексировалась поисковыми машинами, и тем самым не поднимался рейтинг сайта. Об этом будет сказано чуть позже. Собственная точка зрения Интерфейса на публикацию данных:

Мы ...только перепубликовали на другом сайте с ссылкой на оригинальный источник (на ваш сайт). В-вторых, в законодательстве Российской Федерации нет законов, которые регламентируют публикацию материалов в Интернете. Единственное упоминание о данной теме в законе об авторском праве. Но там, правда, есть пометка, что необходимо указывать оригинальный источник, мы его указали.

А вот мои 7 выводов на эти действия.

   Вывод 1. Очевидно, что информацию Интерфейс копирует не для того, чтобы внести вклад в развитие науки и Интернета, а как можно быстрее раскрутить свой сайт при минимальных затратах. Понятно, что для написания статей по базам данных нужно нанимать специалистов, платить им зарплату, что требует достаточно больших вложений и времени. Например, у меня уходило на написание статьи от 2-3 дня, а если требовалось написать код к статье как минимум 2 недели. Интерфейс пошел более коротким путем - стал брать с сайтов информацию, а потом ее выдавать как свою собственную, дополняя ее рекламой. 

  Вывод 2. Никаких авторских ссылок Интерфейс не делает. Это полная демагогия. Вот пример как выглядит прямая ссылка на сайт http://www.leadersoft.ru. Что делает Интерфейс для того чтобы "убить ссылку" для поисковых систем. Во первых, у ссылки безжалостно отрезается домен и другая важная интернет- информация, и она превращается в обычный текст  leadersoft. На втором этапе, вместо прямой ссылки на сайт дописывается что-то типа этого (... goto.asp?Url=enc:rn%7Ej%40%255bofz%24v%5Fk%5Eohyeln4h%7F%...kizr), на третьем этапе они ее размещают не внутри статьи, а после своей рекламы. Таким образом у читателя создается полная иллюзия того, что эта статья Интерфейса. Не брезгует Интерфейс еще и тем, что "ломает" ссылки, т.е. среди ссылок есть и не рабочие.  Достаточно грязный подход к вопросу о ссылках вообще. Ясно, что за статью Интерфейс вам ничего не отдаст, даже ссылку интернета.
 
   Вывод 3. Зачем Интерфейс маскирует ссылки на автора. Вывод один - увеличение собственного рейтинга. Современные роботы интернета умеют анализировать информацию стараясь в начале поиска выдавать свежую и уникальную информацию. Например, если Вы написали статью, и точно такую же статью вдруг опубликует другой сайт, то ей может быть присвоен очень низкий рейтинг. Таким образом, защищается информация от "подделки".  Если такой информации много, то всему сайту будет присвоен низкий рейтинг, и его достаточно сложно обнаружить в поиске. С этим достаточно часто сталкиваются разработчики интернет - магазинов по партнерской программе, когда указывают пр��мые ссылки на товары партнера. С другой стороны, если будут прямые ссылки на автора, но рейтинг его сайта будет увеличиваться, а это Интерфейсу не выгодно.

   Вывод 4. Зачем Интерфейс старается максимально полно скопировать статью, а не давать ей краткую характеристику. Главная цель - это изменение индекса поисковых систем. Чем больше статей с различной информацией, тем больше вероятность того, что индекс поисковой системы будет изменен. Это легко проверить. Попробуйте поискать вашу статью в интернете и Вы заметите, что статьи Интерфейса (!!!) имеют больший "вес", чем ваши. Хотя собственных статей у Интерфейса очень мало. Проверьте также и собственную статистику сайта по посещаемости. В базе данных я не нашел ни одной ссылке с Интерфейса за несколько лет.

   Вывод 5. Бороться с такими компаниями типа Интерфейс очень сложно. Защитить интернет статью, как программу - невозможно, да и общественные правила на них не действуют. Хотя некоторые шаги для решения этой проблемы можно сделать. Я, например, обратился в  http://www.nic.ru, где получил подробный ответ от Токаревой Ксении, юрисконсульта АНО "РСИЦ". Обратите внимание на выделенный текст - очень умное решение.

   АНО "РСИЦ" является регистратором для домена interface_ru Услуги хостинга для сайта www_interface_ru АНО "РСИЦ" не предоставляет. АНО "РСИЦ" как регистратор домена interface_ru вправе применить к администратору (владельцу) домена только действия, прямо предусмотренные Регламентом регистрации доменов в домене RU (http://www.nic.ru/dns/contract/sup1_1_ru.html). Администратор домена самостоятельно определяет порядок использования домена; несет ответственность за выбор доменного имени, возможные нарушения прав третьих лиц, связанные с выбором и использованием доменного имени, а также несет риск убытков, связанных с такими нарушениями.
Вопросы создания сайта и размещения на нем информации относятся к вопросу использования домена, а не к вопросу его регистрации. Регистратор не вправе вмешиваться в отношения Администратора домена с третьими лицами, возникающими при использовании домена. Если обращение к Администратору домена не помогло, Вы вправе в суд с иском о защите авторских прав к Администратору домена. Перед обращение в суд рекомендуем заверить содержание сайта www_interface_ru у нотариуса в порядке обеспечения доказательств. Сведения об Администраторе домена для подачи иска в суд (паспортные данные, почтовый адрес) могут быть предоставлены АНО "РСИЦ" в порядке и случаях, предусмотренных действующим законодательством, в том числе по запросу адвоката.

   Я бы добавил к этому еще несколько писем. Например, можно их отправить по следующим адресам в:
1) http://www.yandex.ru о нарушении рейтинга. Интерфейс находится у них на первом месте по базам данных, и видно, что этот рейтинг накручен статьями.
2) https://www.google.com/webmasters/tools/spamreport?hl=ru об интернет спаме. 
3) http://www.subscribe.ru о дублировании статей. Интерфейс использует данный ресурс для рассылки рекламной информации под видом статей о базах данных. Для них это важная проблема. Они же теряют на этом авторов и рекламная аудитория - уменьшается

  Вывод 6. О подготовке специалистов Интерфейсом. Компания не имеет серьезной собственной научной базы и преподавателей, пройдя у них обучение Вы просто впустую потратите свои деньги. Знаний Вы не получите. С другой стороны, если Вы имеете на руках свидетельство об образовании Интерфейса, то не показывайте документ работодателю. Ему может не понравиться ваши контакты с данной компанией.

  Вывод 7. О покупке программных продуктов. Не рискуйте и не покупайте у них программные продукты. Может оказаться, что Интерфейс продаст Вам их с нарушением авторских прав. Деньги потом вернуть будут очень сложно. Тем более сейчас много компаний, которые продают программы дешевле.

  Заключение.
   Вы можете оставить комментарий ниже

      Иногда бывает необходимо сложить в запросе символьные поля. Например: имеется база данных о строениях. Одним из параметров описания строений является описание материалов, из которых здания построены. Для одного здания может быть использовано несколько материалов: кирпич, газосиликатный кирпич, бетонные блоки, бетонные перекрытия, дерево,
металлоконструкции и т.п. Количество материалов может быть произвольным.

      Создаем в базе две таблицы - таблицу зданий tblOsnFond и таблицу материалов tblMaterial. Потом создаем третью таблицу tblOFmaterial, куда будем заносить связь между строениями и мотериалами, из которых оно построено. Всё довольно стандартно. Легко получить список материалов, из которых сделано строение, и легко получить список строений, в котором используется определенный материал. Но вот настала пора создавать отчет (или форму), в котором должен быть столбецы (поля) "Строение" и  "Материалы", В поле "Материалы" должны быть перечислены все материалы, которые были использованы при строительстве. Использовать в запросе функцию Sum() для сложения (слияния) символьных значений не представляется возможным потому, что функция Sum() применима только для скалярных(!!!) значений. А для символьных она не работает. И действительно:

      3+2=2+3, но "3"+"2"<>"2"+"3" "32"<>"23"

      Для того, чтобы сложить значения символьного поля надо самому написать функцию сложения символьных (string) значений и подставить её в запрос. Эта функция должна быть расположена в отдельном модуле (а не в модуле формы или отчета) и иметь свойство Public Такую функцию уже можно подставлять в запрос. Вот пример функции:

Public Function fnSumString(LngOsnFond As Long) As String

Dim sResult As String

On Error GoTo fnSumString_Error
Dim RstX As ADODB.Recordset
Dim strSQL As String

       Set RstX = New ADODB.Recordset
       strSQL = "SELECT * FROM qryOFmaterial WHERE IdOsnFond=" & LngOsnFond

       RstX.Open strSQL, CurrentProject.Connection, adOpenKeyset
 
       ' первоначальное присвоение значения
       sResult = ""
       ' проверка на наличие записей в запросе
       If RstX.RecordCount > 0 Then
              Do
                     sResult = sResult & (IIf(Len(sResult) > 0, ", ", "") & Nz(RstX.Fields("Material"), ""))
                     RstX.MoveNext
              Loop Until RstX.EOF 
       End If
       RstX.Close
       Set RstX = Nothing
       fnSumString = sResult

On Error GoTo 0
       Exit_fnSumString:
       Exit Function

fnSumString_Error:
       MsgBox "Ошибка " & Err.Number & " (" & Err.Description & ") в процедуре fnSumString в Module Module1"
       Resume Exit_fnSumString
End Function

      Эта функция проводит суммирование значений поля "Material" для каждого сооружения.Она не является универсальной (т.е на все случаи жизни), но её можно дорабатывать для своих нужд. А вот пример запроса с использованием этой функции:

SELECT qryOFmaterial.IdOsnFond, qryOFmaterial.OsnFond, fnSumString(qryOFmaterial.IdOsnFond) AS MaterialSum
FROM qryOFmaterial
GROUP BY qryOFmaterial.IdOsnFond, qryOFmaterial.OsnFond;

      Вот собственно и всё. Но поскольку сейчас многие начинают переходить на MS SQL Server, то следует рассказать как эта задача решается и там. Там тоже используется пользовательская функция, но не написанная в программе, а хранимая на сервере. Решает она те же самые задачи. Вот её текст:

ALTER FUNCTION [dbo].[fn_OFmaterialS]
(@id INTEGER)
RETURNS NVARCHAR(100)
AS
BEGIN
      DECLARE @Result NVARCHAR(4000)
      SET @Result = ''
      SELECT @Result = @Result + case when [Material] Is null then '' else case when @Result<>'' then ', '+[Material] else                   [Material] end end
      FROM vw_OsnFondMaterial WHERE [IdOsnFond] = @Id
      RETURN  @Result
END

Используемые источники:

Сайт HIPROG.COM Слияние полей из разных строк запроса
Сайт SQL.RU Сложение символьных полей в запросе

Ну и справочники и учебники по Access и MS SQL Server. К статье приложен небольшой пример в формате Access 2000.

В современных языках программирования (VBA) аналогичные задачи решает функция Evаl. Пример правильного выражения:  Eval("2*30+32-345.456+sin(0.2)"). Для ASP.NET эта функция возвращает еще данные и из таблиц базы данных. Для SQL запросов такой функции нет, поэтому ее надо придумать, использовать предложенный выше вариант. Еще замечание. Если вам нужно разработать высокоскоростное решение для больших баз данных, то придумать его на языке SQL не так-то просто. Нужно использовать индексы и временные таблицы, иначе простая построчная обработка записей (например, через курсоры) займет много времени.

  Вы решили использовать ссылки на Word, Excel, Outlook. К сожалению на OS Vista это может вызвать проблемы из-за того, что они неправильно будут обрабатываться в mde и ade  проектах. Вам надо будет привязывать ссылки в момент вызов�� приложения CreateObject("Application.Word"), а не через References в VBA (New Application.Word). Управлять и писать код на VBA в первом варианте - невозможно. У офисных приложений много переменных, а в варианте с CreateObject мы их не видим. Суть решения - ставим ссылку на Word и решаем задачу. Далее копируем фрагменты кода и заменяем типы переменных на object.
 Заключение. Для создания рабочей версии базы данных для пользователей снимите ссылку в VBA на Word, приравняйте  WordRef = 0, создайте проект mde или ade. В этом случае база данных будет работать и в XP и в Vista для офисов 2000, 2002, 2003, 2007

Нам надо в Word вставить таблицу или запрос из базы данных. Это делает функция InsertDatabase. При этом в версии A2000 - она имела одни параметры, а в Access 2002 - другие. Изменилась строка соединения. Если не использовать препроцессор, то придется писать несколько баз данных для разных версий. Понятно, что работать с одной базой значительно проще, чем управлять несколькими.

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

      Есть множество «чайных» учебников, где подробно разжевывается, как с помощью мастеров создавать таблицы, формы, отчеты (хотя мастера как раз и не пользуются «построителями») – но опускаются или вскольз упоминаются некоторые важные моменты, невнимание к которым может создать серьезные проблемы, вплоть до кардинальной переработки всего проекта и переносом данных («распиливания», «сборки» таблиц, редактирования модулей, форм, отчетов и т. д.). Рассмотрим некоторые из них.

1. Соглашения об именах полей, элементов управления и объектов

 1.1. Пробелы в именах

      Вот общие правила (согласно Help), которых следует придерживаться:

• имя должно содержать не более 64 знаков;
• имя может включать любую комбинацию букв, цифр, пробелов и специальных знаков за исключением точки (.), восклицательного знака (!), надстрочного знака (`) и квадратных скобок ([ ])
• не должно начинаться с знака пробела
• не должно включать управляющие знаки (с кодами ASCII от 0 до 31)
• не должно включать прямые кавычки (") в именах таблиц, представлений и сохраненных процедур в проекте Microsoft Access.

      Дело в том, что если с именами предполагается работать с помощью процедур VBA, то в некоторых случаях будет довольно проблематично обращаться к имени объекта, если оно содержит пробелы. Например, при обращении к имени с пробелом, его нужно заключать в квадратные скобки, что не совсем удобно. Но в некоторых выражениях скобки не допустимы. В результате придется переименовывать объект, что часто влечет за собой большие проблемы с работой программы, или искать «обходные пути». Поэтому, лучше выбрать один из вариантов:

ИмяОбъекта
Имя_Объекта

1.2. Кириллица или латиница?

      Еще один часто обсуждаемый вопрос: национальная символика в именах объектов. Основная проблема, с которой можно столкнуться при ее использовании:

      программа, в которой для названия объектов используются национальные символы, НЕ БУДЕТ РАБОТАТЬ в системе, в которой нет поддержки этого языка.

      Особенно это касается кириллицы (русский алфавит). Именно по этой причине разработчики, которым приходится работать на разных версиях офиса (и тем более за границей) настаивают на использовании английских имен. Однако, иногда одной лишь замены символов бывает не достаточно – чтобы приложение 100% работало в английской версии, оно должно быть создано в АНГЛИЙСКОЙ ВЕРСИИ офиса. Кроме того, использование кириллицы создает проблемы:

• при использование сторонних утилит – они могут не работать с русскими названиями объектов. Но даже и «со своими» функциями может быть проблема. Попробуйте, к примеру, создать функцию в модуле формы, и вызвать ее, прописав в свойствах формы на какое либо ее  событие =Моя_Функция(). Access ее «не увидит». Хотя, если обратиться к той же функции в коде модуля – все работает. Это говорит о том, что полной русификации нет.
• постоянное переключение раскладки клавиатуры. У многих это вызывает раздражение.
• если вы планируете работать за рубежом (или с английскими версиями программ), то имеет смысл приучать себя к общепринятому стандартному обозначению имен объектов.

      Прочитав вышесказанное, создается впечатление, что на вопрос, как называть объекты БД, ответ очевиден, однако не все так просто. Для начала глянем на соседей.

      Кто работал за границей, тот знает, что немцы практически всегда называ��т объекты по-немецки, а французы по французски и т. д., да и вообще европейцы в этом смысле не дисциплинированны (как, впрочем, и все остальные). Стало быть, если им можно, почему нам нельзя? Хотя им конечно проще – у них латинский алфавит. Ну а если серьезно, то использование национальных названий имеет и свои преимущества:

• меньше шансов назвать что-нибудь так, что потом вызовет смех у носителя языка (да и любого, более менее владеющего английским)
• гораздо быстрее визуально ищется запрос или таблица среди сотен им подобных, гораздо быстрее понимается смысл забытых выражений, запросов и т. д.

      Хотя такие аргументы покажутся «не серьезными» сторонникам «английской школы» (привыкнется, заодно и английский подучишь), но, тем не менее, иногда этого достаточно, чтобы перейти к национальным обозначениям, особенно, если не планируется использовать программу на других языковых версиях офиса.

1.3. Собственная система обозначений

      Разобравшись с алфавитом, перейдем теперь к именам. Вот основные правила, на которых сходятся все разработчики:

• называйте объекты БД, используя осмысленные имена и префиксы, по которым можно будет определить, к какой группе относится объект. В окне проекта они отсортируются по алфавиту, что значительно облегчит понимание (и вспоминание через какое то время) структуры базы данных
• старайтесь придерживаться однообразной системы обозначений (если ее нет - придумайте). Так вы значительно облегчите себе (и другому, кто будет разбираться в ваших творениях потом) разбор структуры базы

      Вот пример системы, используемой «ПрограммистЛюбитель» (часто появляется на SQL.ru)

Я именую все объекты БД и в коде программы по-английски. Если не знаю точный перевод слова - лезу в лингво. Плюс «венгерская нотация» - префиксы. Стараюсь придерживаться однообразной системы при именовании запросов, полей таблиц.

Для запросов префиксы:

qr - обычный запрос делающий SELECT из одной/нескольких таблиц
sel - фильтрующий только уникальный записи по части полей
sum - суммирующий/агрегатирующий данные
pvt - перекрестный/сводный запрос
ins - на вставку данных
upd - на обновление данных

Для полей таблиц:

<префикс> + <корень таблицы> + <доп. слово-описание, иногда два>
i<Корень - имя таблицы>ID - счетчик, почти всегда PrimaryKey
i<Корень>Code - уникальные коды не счетчик, часто PrimaryKey
s<Корень>Code - уникальные буквенные коды
i<Корень>Nomer - номера по порядку
s<Корень>Name, s<Корень>Description, s<Корень>Comment - думаю, ясно
n<Корень>Count - количестко чего-либо
dt<Корень>Birthday, dt<Корень>From, dt<Корень>To и т.п. – даты

      Но в тоже время, часто используют смешанный тип обозначения. Например:

Имена объектов – префиксы объектов на английском, имена на русском
Имена модулей, функций, процедур – на английском
Имена полей таблиц – префиксы на английском, имя поля на русском

      В результате получается:

Имена полей таблицы типа: id, idПоставщик, sПримечание и т. д.
Имена запросов: qryRptСводка_сдачи, qrySumИтог_продаж и т. д.

      Хотя такой подход многие называют «дурным тоном», тем не менее, он довольно часто имеет место. Видимо дело все в том же: так легче визуально искать объект, а английский префикс выделяется среди русских букв, облегчая понимание. И даже переключение раскладки клавиатуры не останавливает.

Вывод:

      В конечном итоге, как называть объекты базы данных – это личное дело разработчика, и во многом зависит от того, ЧТО он пишет, ДЛЯ КОГО и ЗАЧЕМ. При этом помните о возможных проблемах, если используете кириллицу. Но, главное:

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

Дополнение от www.leadersoft.ru .
    Если Вы делаете проект adp проект. Он применяется, когда Вы разрабатывает базу данных на Access+SQL Server, то желательно все объекты называть и по имени проекта. Например, market_, student_, dnn_ и т.п. это позволит Вам избежать конфликта объектов. Например, Вы используете CRM систему сайта Dotnetnuke, то в ней может быть несколько десятков, а то и сотен объектов (зависит от установленных модулей). В таком количестве объектов очень легко потеряться. Префикс проекта, позволит Вам быстро найти нужный объект: таблицу, запрос, процедуру и т.п. Пример. Таблица: Market_Products, процедуры:  Market_UpdateProduct, Market_DeleteProduct, Market_InsertProduct. Объекты CRM системы желательно начитать с dnn_forum_ .. P.S. К сожалению интерфейс Access и менеджер баз данных  SQL Server не позволяет группировать объекты в дерево. Хотя это давно уже надо было бы сделать разработчикам.

Примеры перевода.
Конвертор отчетов Crystal Reports 
Добрый день. Я в настоящее время использую сервер отчетов с Crystal Reports XI Server. Но сам процесс обработки данных идет слишком медленно, мне нужен специалист, кто смог бы мне решить эту проблему. Бюджет $300-$1000, Знания: JSP, Programming 

Портал по работе 
Уважаемые специалисты, мне нужен портал по работе, который будет клоном сайта http://www.bdjobs.com/. Функционально он должен быть уникальным. Этот проект должен быть разработан и создан с использованием Joomla 1.5 ... (Бюджет $1000 - $3000)

      Иногда бывает необходимо просмотреть или изменить системные настройки Windows. И хочется это сделать сразу из программы, а не через «Пуск --> Панель управления --> Нужные настройки…»

      Для большинства системных установок Windows предлагает свои компоненты. Существует несколько десятков окон, предлагающих что-либо изменить в системе. Каждое из таких окно можно вызвать из VB, не используя ни одной API-функции. Наборы таких окон находятся в библиотеках Windows'a с расширением ".cpl". Например в библиотеке desk.cpl находятся четыре стандартных окна (точнее одно окно с четырмя закладками): "Фон", "Заставка", "Настройка", "Оформление" (В Windows XP добавилась пятая закладка «Темы»). Для того, чтобы вызвать не просто нужное окно, а ещё и нужную закладку, в параметрах вызова надо установить индекс нужной закладки. Вызов происходит при помощи обычной функции Shell, но немного необычным способом:

Call Shell("rundll32.exe shell32.dll,Control_RunDLL desk.cpl, ,0" )

      Откроет окно свойств экрана с закладкой "Фон". А теперь некоторые библиотеки и параметры. Только надо учесть, что состав библиотек и параметров могут зависеть от версии Winduws. Там, где ��озможно, я укажу отличия.

Экран - desk.cpl

- фон/Рабочий стол = "desk.cpl, ,0"
- заставка = "desk.cpl, ,1"
- оформление = "desk.cpl, ,2"
- настройка/параметры = "desk.cpl, ,3"
- темы = "desk.cpl, ,5" (Windows XP)

Специальные возможности – access.cpl

- клавиатура = "access.cpl, ,1"
- звуки = "access.cpl, ,2"
- экран = "access.cpl, ,3"
- мышь = "access.cpl, ,4"
- общие = "access.cpl, ,5"

Главная - main.cpl, используется для управления мышью, клавиатурой, принтерами, шрифтами.

- мышь = "main.cpl @0"
- кнопки мыши = "main.cpl @0,0" (Windows 2000/XP)
- указатели мыши = "main.cpl @0,1" (Windows XP)
- параметры указателя мыши = "main.cpl @0,2" (Windows XP)
- колесико мыши = "main.cpl @0,3" (Windows XP)
- оборудование = "main.cpl @0,4" (Windows XP)

      В Windows 2000 не смог переключить вкладки. Вместо @0 можно подставить следующие значения и получить, соответственно:
- клавиатура =”main.cpl @1”

      и для ХР

- скорость =”main.cpl @1,0” (Windows 98/2000)
- язык =”main.cpl @1,1” (Windows 9x/2000)
- оборудование =”main.cpl @1,1” (Windows XP)
- оборудование =”main.cpl @1,2” (Windows 2000)
- принтер =”main.cpl @2” (Windows 9x)
- шрифт =”main.cpl @3” (Windows 9x)

Язык и региональные параметры – intl.cpl

- региональные стандарты/региональные параметры = “intl.cpl,,0” (Windows 9х/ХР)
- общие = “intl.cpl, ,0” (Windows 2000)
- числа = “intl.cpl, ,1” (Windows 9х/2000) (в Windows XP на вкладке «региональные параметры»)
- языки = “intl.cpl, ,1” (Windows XP)
- денежная единица = “intl.cpl, ,2” (Windows 9х/2000) (в Windows XP на вкладке «региональные параметры»)
- дополнительно = “intl.cpl, ,2” (Windows XP)
- время = “intl.cpl, ,3” (Windows 9х/2000) (в Windows XP на вкладке «региональные параметры»)
- дата = “intl.cpl, ,4” (Windows 9х/2000) (в Windows XP на вкладке «региональные параметры»)
- языки и раскладка = “intl.cpl, ,5” (Windows 2000)

Дата и время - timedate.cpl

- дата и время = "timedate.cpl, ,0"
- часовой пояс  = "timedate.cpl, ,1"

Модем - modem.cpl

- модемы = "modem.cpl" (Windows 9х – две вкладки, переключить не удалось) (вкладка «модемы» на форме «Телефон и модем» в Windows 9х/2000/XP)

Телефон и модем - telephon.cpl

- набор номера = "telephon.cpl, , 0"(Windows 2000/XP)
- модемы = "telephon.cpl, ,1"(Windows 2000/XP)
- дополнительно = "telephon.cpl, ,2"(Windows 2000/XP)
В Windows 9х две вкладки. Переключить не удалось

Сеть/конфигурация - netcpl.cpl  (Windows 9х)

Три вкладки. Переключить не удалось.
Мастер настройки сети –netsetup.cpl (Windows XP)

Факс – fax.cpl (Windows 2000/XP)

- сведения о пользователе = "telephon.cpl, ,0"
- титульные страницы = "telephon.cpl, ,1"
- монитор состояния = "telephon.cpl, ,2"
- дополнительные параметры = "telephon.cpl, ,3"

Система - sysdm.cpl

- общие = “sysdm.cpl, ,0”
- устройства = “sysdm.cpl, ,1” (Windows 9х)
- сетевая идентификация = “sysdm.cpl, ,1” (Windows 2000)
- имя компьютера = “sysdm.cpl, ,1” (Windows XP)
- профили оборудования = “sysdm.cpl, ,2 (Windows 9х)
- оборудование = “sysdm.cpl, ,2 (Windows 2000/ХР)
- быстродействие = “sysdm.cpl, ,3” (Windows 9х)
- профили пользователей = “sysdm.cpl, ,3” (Windows 2000)
- дополнительно = “sysdm.cpl, ,3” (Windows XP)
- дополнительно = “sysdm.cpl, ,4” (Windows 2000)
- восстановление системы = “sysdm.cpl, ,4” (Windows XP)
- автоматическое обновление = “sysdm.cpl, ,5” (Windows XP)
- удаленные сеансы = “sysdm.cpl, ,6” (Windows XP)

Служба автоматического обновления wuaucpl.cpl (Windows 2000)

Пароль - password.cpl (Windows 9х)
Три закладки. Переключить не удалось.
В Windows 2000 за пользователей отвечает модуль netplwiz.dll, который таким путем вызвать нельзя
Учетные записи пользователей - nusrmgr.cpl (Windows XP)

ODBC - odbccp32.cpl

- пользовательский DSN = "odbccp32.cpl, ,0"
Переключить на другие закладки не получилось.

Установка и удаление программ - appwiz.cpl

- установка/удаление программ - "appwiz.cpl, ,0" (Windows 9х)
- изменение или удаление программ - "appwiz.cpl, ,0" (Windows 2000/XP)
- установка компонентов Windows - "appwiz.cpl, ,1"  (Windows 9х)
- установка программ - "appwiz.cpl, ,1"  (Windows 2000/XP)
- загрузочная дискета - "appwiz.cpl, ,2" (Windows 9х)
- установка компонентов Windows - "appwiz.cpl, ,2" (Windows 2000/XP)
- выбор программ по умолчанию - "appwiz.cpl, ,3"  (Windows 2000/XP)
Для Windows 9x переключить вкладки не удалось.

Мультимедия - mmsys.cpl

- аудио = "mmsys.cpl,,0" (Windows 9х)
- звук = "mmsys.cpl,,0" (Windows 2000)
- звуки и аудиоустройства = "mmsys.cpl,0" (Windows XP)
- громкость = "mmsys.cpl,,0" (Windows XP)
- видио = "mmsys.cpl,,1" (Windows 9х)
- аудио = "mmsys.cpl,,1" (Windows 2000)
- звуки = "mmsys.cpl,,1" (Windows XP)
- миди = "mmsys.cpl,,2" (Windows 9х)
- оборудование = "mmsys.cpl,,2" (Windows 2000)
- аудио = "mmsys.cpl,,2" (Windows XP)(включает в себя вкладку миди из 9х)
- компакт - диск = "mmsys.cpl,,3" (Windows 9х)
- речь = "mmsys.cpl,,3" (Windows XP)
- оборудование = "mmsys.cpl,,4"  (Windows XP)

Джойстик - joy.cpl

- игровые устройства = "joy.cpl, ,0" (Windows 9x/2000)
- идентификаторы устройств = "joy.cpl, ,1" (Windows 9x/2000)
В Windows XP вкладок нет

Сканеры и камеры sticpl.cpl (Windows 9х/2000)

DirectX (если он установлен) - directx.cpl
Имеет 8 вкладок (DirectX 9c). Приводить их не буду. Вряд ли Вы будете настраивать DirectX из своих программ.

Брандмауэр Windows - firewall.cpl (Windows XP)

- общие = "firewall.cpl, ,0"
Всего три вкладки. Переключить их не удалось.

Мастер установки оборудования - hdwwiz.cpl (Windows 2000/XP)

Электропитание - powercfg.cpl

- схема управления питанием = "powercfg.cpl, ,0"
Всего четыре (Windows 98 – 2)  вкладки. Переключить их не удалось.

Параметры оповещения - wscui.cpl (Windows XP)

Сетевые подключения - ncpa.cpl (Windows 2000/XP)

Свойства очереди подключений - msmq.cpl (Windows 2000)

- запоминающие устройства = "msmq.cpl, ,0"
Есть три вкладки. Переключить не удалось.

Интернет - inetcpl.cpl

- общие ="inetcpl.cpl, ,0"
- безопасность ="inetcpl.cpl, ,1"
- конфиденциальность ="inetcpl.cpl, ,2"
- содержание ="inetcpl.cpl, ,3"
- подключения ="inetcpl.cpl, ,4"
- программы ="inetcpl.cpl, ,5"
- дополнительно ="inetcpl.cpl, ,6"
Экран настройки зависит от версии IE. Здесь дан экран для IE 6.0.

      Некоторые программы тоже помещают свои экраны настройки в системный раздел Windows (например, Java - jpicpl32.cpl)
Другие программы хранят свои экраны настройки в своих папках. Их можно так же запустить через Shell

Call Shell("rundll32.exe shell32.dll,Control_RunDLL имя_файла.cpl,0" )

      Но в этом случае имя файла должно указываться с полным путем. Поскольку названия папок могут содержать пробелы, то можно привести его к DOS виду. Например, отрыть экран настройки конфигураций почты Outloоk можно так

Call Shell("rundll32.exe shell32.dll,Control_RunDLL _
G:\PROGRA~1\COMMON~1\System\MSMAPI\1049\MLCFG32.CPL,,")

      Или заключить путь в две пары двойных кавычек

Call Shell("rundll32.exe shell32.dll,Control_RunDLL _
""g:\Program Files\Common Files\System\MSMAPI\1049\MLCFG32.CPL"" ,,")

      Из-за того, что в разных версиях Windows состав экранов управления различен, причем иногда различны и закладки на этих экранах, к использованию экранов настройки Windows надо подходить с осторожностью. Желательно сначала определить используемую версию Windows.

      Маленький совет. Если Вы собираетесь часто использовать экраны настройки, или их вызов у Вас осуществляется в нескольких местах, целесообразно сделать специальную подпрограмму для вызова экранов настройки

Public Sub ShellSysComp(strLibName As String, intIndex As Integer)
      Call Shell("rundll32.exe shell32.dll,Control_RunDLL " + strLibName + ",," + LTrim(Str(intInddex)))
End Sub

      Эта подпрограмма всего лишь соединяет имя библиотеки с индексом, переведённым в строку, и запускает всё это дело. Используемые материалы: сайт www.sdteam.com, Сергей Миллер, «Вызов системных компонентов из VB»

      В опубликованной ранее статье «Справочники» кроме описания процесса и краткой теории создания справочных форм и таблиц также приводился пример использования функции AppendLookupTable, позволяющей добавлять отсутствующее значение в список. Добавление происходило автоматически после прямого ввода нужного значения в список. Однако эта функция позволяла добавлять данные только в одиночный список. На практике же довольно часто бывает необходимость подобного автозаполнения, но уже связанных (зависимых) списков. О варианте решения – доработке функции AppendLookupTable и пойдет речь в этой статье.

      Для рассмотрения примера создадим три справочных таблицы:

      Индексируем поля таблиц для получения возможности автоматического отслеживания уникальности значений. В противном случае может случится, что одно и то же значение в справочнике повторяется. Для этого открываем таблицу в режиме конструктора, жмем на значок в меню «Индексы» (значок молнии). В появившемся диалоговом окне в поле «Индекс» пишем название индекса (любое), например «Страна». Затем в поле «Имя поля» выбираем из списка «Страна» и в нижней части формы выбираем из списка «Уникальный индекс» - Да. Теперь при попытке ввести уже существующее значение появится соответствующее сообщение и ввод будет заблокирован.

      В таблицах «Производители» и «Товары» индекс должен быть составной, так как нужно отслеживать уникальность пары Страна – Производитель. Ведь разные страны могут выпускать одинаковые товары. Пример создания составного индекса:

      Связываем отношением один ко многим справочные таблицы: Страны – Производители – Товары. Таким образом получили систему из трех связанных справочников, в которой кроме данных устанавливаются так же зависимости между таблицами. Создадим так же для демонстрации примера автозаполнения две рабочих таблицы: Заказы и Список товаров.

Связываем таблицы «Заказы» и «Список товаров» соотношением один ко многим по полям «id_Заказ» (на один заказ может быть много товаров).
Теперь рассмотрим вариант создания формы – справочника. Можно двумя вариантами:

1. Сделать справочник «Страны». Потом два справочника: «Страны – производители» и «Производители - товары». Заполняться они должны поочередно: Сначала «Страны», потом «Страны – производители», потом «Производители – товары».
2. Сделать один двухуровневый справочник: «Страны – производители - товары».

      Во втором случае нужно предусмотреть процедуру, препятствующую вводу данных в форму «Производители», если не заведены данные в форме «Страны». Иначе получим не связанную запись. Для этого служит процедура события формы Enter (Вход).

Private Sub subСправочникПроизводители_Enter()
      If IsNull(Me.id_Страны) Then
            MsgBox "Сначала укажите страну производителя", vbCritical, "admin"
            Страна.SetFocus
      End If
End Sub

      Как видим, при попытке ввести данные в форму, когда не введен ключ от главной формы

If IsNull(Me.id_Страны) Then

      появляется сообщение об ошибке и фокус ввода переносится на поле главной формы. Аналогичная процедура блокировки сделана и для подчиненной табличной формы на форме «Заказы».

      На форме «Заказы» присутствуют два списка: Страны и Производители. Причем второй связан с первым через ссылку на него в запросе (источнике своих данных). Откройте форму «Заказы» в конструкторе и посмотрите на источник строк списка Производитель(id_Компании). На поле id_Страны установлено условие отбора

Eval("Forms!Заказы!id_Страны")

      Аналогично и на поле со списком табличной подчиненной формы «subЗаказы»

Eval("Forms!Заказы!id_Компании")

      Необычное в этих ссылках – это их обработка через функцию Eval(). Но об этом чуть позже.
Справочную форму можно запускать двойным кликом по списку или по меню слева. О реализации подобного интерфейса подробно рассказывалось в статье «Справочники».

      Теперь рассмотрим реализацию каскадного заполнения списков. Как уже говорилось, задача состоит в том, чтобы при автозаполнении связанного списка кроме внесения нового значения в таблицу – источник, нужно так же внести и ключевое значение от главного списка. Иначе получим не связанную запись. По этой причине вводится новая переменная ctl1.

      Функция NotInList дорабатывалась с учетом, чтобы через нее можно было добавлять отсутствующие значения ив обычные списки, а не только связанные. В этом случае при вызове функции в качестве второго аргумента (главного списка) нужно повторить ссылку на список. Это будет указанием, что добавлять данные нужно только в один список. Вызов функции автозаполнения списков нужно делать из процедуры NotInList (отсутствие в списке).

Private Sub id_Страны_NotInList(NewData As String, Response As Integer)
      Set ctl = Me!id_Страны 'устанавливаем ссылку на список "Страны"
      ' запускаем функцию каскадного добавления, и в качестве второго аргумента
      ' указываем первый список. То есть функция работает как обычная процедура
      ' добавления в один список
      Response = AppendLookupTable(ctl, ctl, ctl.Text, 0)
      Me.id_Страны.RowSource = Me.id_Страны.RowSource 'обновляем список стран
      Set ctl = Nothing 'очищаем переменную
End Sub

      В этом случае после проверки условия (каскадное или обычное добавление) отсутствующее значение добавляется так же как в старой функции

If cbo.Name = cbo1.Name Then
      Set rst = CurrentDb.OpenRecordset(cbo.RowSource)
      With rst
            .AddNew
            rst(1) = NewData
            .Update
            .Close
      End With

      Если нужно добавить данные в связанный список, тогда при вызове функции AppendLookupTable указываем в качестве аргументов два списка.

Private Sub id_Компании_NotInList(NewData As String, Response As Integer)
      Set ctl = Me.id_Компании 'устанавливаем ссылку на список "Компании"
      Set ctl1 = Me.id_Страны 'устанавливаем ссылку на список "Страны"
      ' запускаем функцию каскадного добавления в два списка
      Response = AppendLookupTable(ctl, ctl1, ctl.Text, Nz(Me.id_Страны, 0))
      Set ctl = Nothing 'очищаем переменную
      Set ctl1 = Nothing 'очищаем переменную
      Me.id_Компании.RowSource = Me.id_Компании.RowSource 'обновляем список компаний
      ' в случае отказа от заполнения
      If Response = 0 Then
            Me.id_Компании = Null 'обнуляем список компаний
            id_Страны.SetFocus  'устанавливаем фокус на список страны
      End If
End Sub

      А теперь по поводу Eval(). Дело в том, что процедура добавления отсутствующего значения в таблицу – источник списка происходит при помощи объектной модели DAO. Если в строке запроса встретится выражение типа Forms!Заказы!id_Страны – будет сообщение об ошибке типа: «Требуется параметр». Потому, что DAO, знать ничего не знает, об открытых формах, именно по этому и ругается. Ему дали строку SQL, он пытается открыть соответствующий рекордсет. Пытается найти поле таблицы с именм Forms! и разумеется не находит.

      Поэтому, когда используется работа с запросом при помощи DAO, то ссылки на элементы форм нужно оформлять через Eval(). Например так:

Eval("Forms!Заказы!id_Страны")

      Или вместо имени приводить сам текст запроса, и в нем указывать ссылку:

Set rst = CurrentDb.OpenRecordset("SELECT Производители.id_Компании, " & _
                                "Производители.Компания, Производители.id_страны " & _
                                "FROM Производители " & _
                                "WHERE Производители.id_Страны = " & Forms!Заказы!id_Страны & _
                                "ORDER BY Производители.Компания")

      Эти рекомендации справедливы и при работе с объектной моделью ADO. Часто первое, на чем спотыкаются те, кто впервые решил перевести свой проект с mdb на adp – это ошибки при выполнении запросов, где есть ссылки на элементы формы. Ведь теперь обработка данных происходит на сервере, на котором нет никаких форм. Впрочем, это уже совсем другая тема, к данной статье не имеющая отношения – переход от mdb к adp.

      В заключение остановлюсь еще на одном вопросе, который так же часто задают начинающие разработчики: как отключить стандартные сообщение Access? Например, при использовании процедуры на удаление записи

DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70

      если пользователь нажмет «Отмена» будет сообщение: «Прервано выполнение макрокоманды DoMenuItem».
Избавиться от него можно по разному. Например, «оградить» эту процедуру вызова командами отключения/включения стандартных сообщений Access.

DoCmd.SetWarnings False
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
DoCmd.SetWarnings True

      Но в этом случае отключаются все сообщения, а не только «Прервано выполнение макрокоманды DoMenuItem». И если при выполнении «огражденной» процедуры возникнет какая либо другая ошибка – никто об этом «не узнает». А ведь ошибки бывают и фатальными, с «вылетом» из программы. Еще хуже, если увлекшись включением/отключением стандартных сообщений разработчик забудет потом в коде программы включить их.

      Поэтому более разумный вариант – создать свою процедуру обработки ошибок, в которой в зависимости от кода ошибки можно выводить свои сообщения (или не выводить ничего). Пример такой процедуры (на удаление записей)

Function sDeleteRecord() As Boolean
On Error GoTo Err_
      DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
      DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
      sDeleteRecord = True
Exit_:
      Exit Function
Err_:
      ErrNum = Err.Number
      sDeleteRecord = False
      Err.Clear
      Resume Exit_
End Function

      Для ее работы  в глобальном модуле Constants введена переменная Public ErrNum As Long. Через нее передается номер ошибки. Сама же процедура удаления записи выглядит так (для формы «СПРАВОЧНИК страны производители товары»):

Private Sub butDelete_Click()
      sDeleteRecord
      Select Case ErrNum
            Case 2501
                  Err.Clear
            Case 3396
                  MsgBox "Данные нельзя удалять, иначе в таблице [Список товаров] появятся не связанные записи!", vbCritical, "admin"
      End Select
End Sub

      Здесь возможны две ошибки:

• 2501 – прерывание команды удаления (передумали удалять)
• 3396 – нарушение целостности данных

      Первую ошибку можно просто игнорировать - Err.Clear, а вот в случае возникновения второй – не помешает вывести соответствующее сообщение, чтобы было понятно, почему нельзя удалять.      Таким образом, можно создавать свои процедуры обработки ошибок выполнения. Чтобы узнать номера ошибок, можно воспользоваться Err.Number. Например, при отладке новой процедуры включить в нее обработчик ошибок:

On Error GoTo Err_

      …..
      …..
      …..

Exit_:
      Exit Sub
Err_:
      MsgBox "Ошибка " & Err.Number & ": " & Err.Description, vbInformation
      Err.Clear ' сброс ошибки
Resume Exit_

Пример по данной статье вы можете скачать здесь, а обсудить статью можно на форуме...

• Вы увеличиваете скорость разработки в несколько раз, Конечно при условии того, что Вы знаете как, разрабатывать программы на NET и можете быстро найти нужную функцию. Например, открыть файл, прочитать всю информацию в строку и потом закрыть файл можно одной командой: buffer = File.ReadAllText("test.txt"), для Visual Basic потребовалось бы написать несколько строк кода.
• Новый редактор VB.NET с улучшенным интерфейсом позволяет Вам быстрее тестировать программы и находить ошибки.
• Вы сможете создавать красивый интерфейс, шифровать данные, обрабатывать почту, подключать web интерфейс, работать со строками, массивами, хэш информацией и т.п.
• Вы сможете создавать очень компактные программы, т.к. практически весь код храниться в каталоге NET. Например, данная библиотека с формой имеет размер 0,028 MB, а на Access программа будет иметь значительно больший размер.
• Можно сказать, что это "окно в Европу", а точнее в Америку.

    P.S. Этот материал для новичков будет "трудноват", но если Вы разрабатывали классы в Access, то проблем в изучении я думаю не будет. Советую материал или ссылку на него сохранить в архиве, т.к., изучая этот материал самостоятельно (без данной статьи), Вы потеряете не менее 1 недели на поиске нужной информации.

б) Изучите строку регистрации:
%windir%\Microsoft.NET\Framework\v2.0.50727\regasm.exe LeadersoftLibrary.dll /tlb:LeadersoftLibrary.tlb /codebase >> status.txt

%windir% - ссылка на c:\windows
LeadersoftLibrary.dll - основная библиотека для Access. Из нее вызываются функции.
LeadersoftLibrary.tlb - файл будет создан автоматически. Он используется в VBA в ссылках References ...
/codebase - прописывает в NET полный путь к библиотеке LeadersoftLibrary.dll
>> status.txt (или status.doc) - файл будет создан автоматически. В него будет записан статус выполнения команды. Прочтите его после регистрации, если есть слово successfully (успешно), то регистрация прошла правильно.
 

• 1 пример - это шифрование данных и сохранение их в файле passwords.txt
• 2 пример - вызов формы (календарь) из access.

     Сжатие и архивирование БД я же остановлюсь на сжатии клиентских приложений сделанных как в формате MDB (базы), так и формате ADP (проекты).

Ещё, когда начинал писать на Access 97, возник вопрос, как периодически сжимать базу данных? За время работы она довольно сильно распухала. Решений было несколько, но все они по тем или иным причинам были не оптимальны.

1. давать пользователю доступ к полному меню Access,  что бы он мог сжимать базу не очень хорошо. Он может изменить какую-нибудь важную установку.
2. Поставлять с базой утилиту JetCompact тоже не давало желательного эффекта. Утилиту часто теряли, забывали передавать  или устанавливать вместе с базой, При использовании защиты, требовалось задавать дополнительные параметры. Кроме того, многие пользователи были так сказать, «не квалифицированными».
3. Использование параметров командной строки /compact и epair требовало размещение на рабочем столе дополнительных иконок и иногда сбивало пользователя, если у иконок оказывалось одинаковое изображение. Автоматическое создание иконок на рабочем столе требовало дополнительных знаний в программировании, а в ручную создавать было не всегда возможно. Хотя это и был на мой взгляд наиболее корректный способ обеспечения пользователя инструментом для сжатия базы.
4. Всевозможные программные ухищрения на основе Access и VBScript. Генерировались всевозможные скрипты для запуска программы на сжатие, программно создавались кнопки, на которые вешались команды на сжатие, создавались специальные программы (mdb) сжималки. Если поикать по форумам то можно найти много следов этой деятельности.

С появлением Access 2000 ситуация несколько улучшилась. В параметрах базы появился флажок «Сжимать при закрытии». Постоянное сжимание базы, хоть и позволяло минимизировать объем базы, но замедляло работу (в и-нете это обсуждалось). Одно ожидание завершения сжатия, особенно когда объем базы перевалил за 10 Мб, может помотать пользователю нервы (а он, естественно, помотает Вам). Вот если бы можно было управлять этим флажком из программы.  Тогда можно дать указание на сжатие файла базы при закрытии, а при открытии базы, сбрасывать установку флажка. Так можно реализовать однократное сжатие базы. Можно написать подпрограмму сжатия базы по расписанию. Осталось только узнать, как это можно сделать. Оказывается сделать это очень просто. Всего две строчки кода
        SetOption "Auto Compact", True ' включить
и
        SetOption "Auto Compact", False ' выключить
Теперь одну строку надо повесить на кнопку включения сжатия файла, а вторую вставить в макрос AutoExec или стартовую форму. И всё готово.

      Иногда возникают ситуации, когда требуется автоматически внести данные в один из типовых документов: служебную записку, письмо, договор и т. д. Причем не всегда такие документы можно сформировать, используя отчеты Access. Например:

• требуется сформировать договор, который, как правило, представляет собой довольно длинный текстовый документ, в который нужно вставить несколько чисел или строк – например даты.
• нужно обеспечить возможность ручного редактирования текста документа. Например, существует стандартный шаблон документа, который пользователь должен иметь возможность редактировать. Если использовать отчет Access, то придется открывать пользователю доступ к исходному коду.
• документ должен быть сохранен в виде текстового файла (отчет Access может быть только напечатан). Иногда бывают и такие условия.

      Обычно вывод отчета в документ Word применяют, когда необходимо вручную корректировать данные отчета. Чаще всего, при этом создается шаблон документа и затем программно вставляется в нужные места текст. Это проще, чем полностью программно составлять весь документ, хотя возможно и такое.

      Вообще, каждый документ Microsoft Word основан на шаблоне. Шаблон определяет основную структуру документа и содержит настройки документа, такие как элементы автотекста, шрифты, назначенные сочетания клавиш, макросы, меню, параметры страницы, форматирование и стили. В нашем же случае, необходимо просто создать макет отчета подобно тому как это делается в Access. Для этого создаем обычный документ Word, затем в меню Файл – Сохранить как  выбираем тип файла – Шаблон документа. В результате получим документ Word с расширением .dot – шаблон.

      Для редактирования шаблона лучше его открывать не двойным щелчком, как обычный документ, а например, через контекстное меню: правой кнопкой – и выбрать пункт открыть. В противном случае при попытке сохранения придется повторно задавать формат документа – шаблон (.dot), иначе он будет сохранен как обычный документ Word (.doc).

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

      А теперь собственно о технологии вставки текста в нужное место. Чтобы вставить текст, сначала нужно определить место, куда он должен вставляться. В данном примере это делается при помощи «Закладок» (смотрим в меню документа Word: Вставка – Закладка).

      Закладка — это элемент документа, которому присвоено уникальное имя. Это имя можно использовать для последующих ссылок. Например, можно использовать закладку для определения текста, который необходимо проверить позже. Чтобы в следующий раз не искать данный текст во всем документе, можно перейти к нему с помощью диалогового окна Закладка.

В нашем случае закладками являются элементы шаблона, выделенные курсивом (смотрим в папку Dot). Создаются они очень просто:

• Выделите элемент, которому следует назначить закладку – например курсивный текст Заказчик
• В меню Вставка выберите команду Закладка
• В поле Имя закладки введите или выберите нужное имя – в данном случае вводим имя «Заказчик». Имя закладки должно начинаться с буквы, в нем могут использоваться цифры, но не должно быть пробелов. Если потребуется разделить слова в имени закладки, можно использовать знак подчеркивания, например:  Главный_заказчик.
• Нажмите кнопку Добавить.

      В итоге получили закладку с именем «Заказчик». В принципе, можно было просто установить курсор в нужное место и вышесказанным образом создать закладку. Но тогда для просмотра, где какая закладка установлена в документе нужно будет через меню Вставка – Закладка выбрать имя закладки и нажать кнопку Перейти. Это неудобно, проще и нагляднее создать одноименный текст в документе.

      Теперь осталось создать функцию, которая бы открывала созданный шаблон Word, вставляла бы туда вместо закладок нужный текст и сохраняла созданный документ под заданным именем. В прошлой статье уже рассказывалось о способах открытия документов Office. Осталось только выяснить, как обратиться к закладке. Делается это при помощи свойства документа Bookmarks.Item Например:

Bookmarks.Item("Заказчик").Range.Text = Nz(Заказчик, "")

      Здесь идет обращение к закладке под именем Заказчик и при помощи ее свойства Text ей присваивается нужное значение – в данном случае содержимое одноименного поля  на форме. На случай, если в поле нет данных, применена функция Nz(Значение, Значение если Null).

      Документ создается под именем инициалов заказчика, поэтому данное поле не должно быть пустым. Это реализовано при помощи свойства поля (см. конструктор таблиц) «Обязательное поле - Да». Кроме того, в приведенном примере так же реализована процедура поиска ранее созданного документа при помощи стандартной функции Dir. Если документ не найден, то создается новый документ Word на основе шаблона

Set app = New Word.Application
app.Visible = True
app.Documents.Add strPathDot

      если же такой документ существует, то выводится соответствующее сообщение: «Документ с таким именем ранее уже был создан. Заменить его?» При выборе «Да» создается новый документ взамен старого, при выборе «Нет» открывается старый документ

Set app = CreateObject("Word.Application")
With app
      .Visible = True
      .Documents.Open strPathWord
End With