В некотором замешательстве - необходимо отправлять письма из access 2003 через outlook.
Через DoCmd.SendObject письма создаются, все ок.
Но требуется несколько получателей + html форматирование самого сообщения, поэтому вариант с DoCmd.SendObject не подходит.

Разбирался с примерами на форуме, например, http://am.rusimport.ru/MSAccess/topic.aspx?ID=748
но на строке
Dim OL_App As Outlook.Application сразу возникает ошибка - user-defined type not defined

если просто запустить приложенную базу и попробовать отправить письмо (кнопка "выполнить"), то выдается ошибка 429 (ActiveX component can't creatw object)

что делаю не так, ткните, плз...

http://www.sql.ru/forum/1226135/sozdanie-pisma-v-outlook

На вкладке перемещение данных нету кнопки SQL server, а только access и share point, как добавить SQL server?

http://www.sql.ru/forum/1226122/peremeshhenie-dannyh

В БД необходимо написать запрос на добавление столбца в существующую таблицу, тип добавляемого столбца должен быть гиперссылка.
Запрос типа - alter table asd add column МоеПоле Hyperlink - не работает.

http://www.sql.ru/forum/1226024/obyavlenie-peremennoy-tipa-giperssylka

Искал-искал, для аксцесса не нашёл. Мож есть у кого?

http://www.sql.ru/forum/1225999/zadat-pervyy-den-tekushhego-goda

коллеги,
подскажите, вот если есть ограничение по ключу, например, по полю "город" (на самом деле количество полей больше), а пользователь пытается вставить повторную запись, то возникает ошибка 2627 ...
вопрос? коль ошибочная запись определена, можно ли получить id этой записи ...

http://www.sql.ru/forum/1225998/poluchit-id-zapisi-iz-oshibki-ogranicheniya-po-kluchu

Приветствую,
вот мой код

UPDATE vagmest_table INNER JOIN COSIMA_MATERIALnosymbols ON COSIMA_COSIMAnosybols.[Vagon A]=vagmest_table.[VagonA] AND COSIMA_COSIMAnosybols.[Vagon B]=vagmest_table.[VagonB] AND COSIMA_COSIMAnosybols.[Vagon C]=vagmest_table.[VagonC] AND COSIMA_COSIMAnosybols.[Vagon D]=vagmest_table.[VagonD] AND COSIMA_COSIMAnosybols.[Vagon E]=vagmest_table.[VagonE] 
SET vagmest_table.[V_kabine_mashinista_f]='yes'
WHERE COSIMA_MATERIALnosymbols.[V kabine mashinista]='yes';

суть кода должна быть следующая, апдейтнуть таблицу значением,когда 5 столбцов по значениям совпадают

http://www.sql.ru/forum/1225982/access-update-on-po-neskolkim-polyam

Добрый день.
Возможно ли в таблицу с использованием запроса
INSERT вставить даты всех пятниц (или любого другого дня недели) за произвольный период времени без дополнительных таблиц? Есть одна таблица с полем даты для вставки.

http://www.sql.ru/forum/1225878/vstavka-v-tablicu-vseh-dat-s-pyatnicami-v-2016-godu

коллеги, подскажите пожалуйста!
Есть запрос

TRANSFORM Last(РМ_дляПерекрестногоЗапроса.ОстатокПослеИзменения) AS [Last-ОстатокПослеИзменения]
SELECT РМ_дляПерекрестногоЗапроса.DT
FROM РМ_дляПерекрестногоЗапроса
WHERE РМ_дляПерекрестногоЗапроса.DT>=cdate([Формы]![РМ_ПерекрестныйОтчет]![fi_DateBegin])
GROUP BY РМ_дляПерекрестногоЗапроса.DT
PIVOT РМ_дляПерекрестногоЗапроса.Название;

как правильно задать условие для перекрестного запроса?
Ругается на строку

WHERE РМ_дляПерекрестногоЗапроса.DT>=cdate([Формы]![РМ_ПерекрестныйОтчет]![fi_DateBegin])

- не распознается ядром бд как допустимое поле
Заранее спасибо за любую помощь!

http://www.sql.ru/forum/1225734/kak-pravilno-zadat-uslovie-dlya-perekrestnogo-zaprosa

Коллеги, добрый день!
Есть перекрестный запрос - учет расходных материалов (значения - это остатки материала за соответствующий день):

Название	02/08/2016	03/08/2016	04/08/2016	05/08/2016
Бумага-1	   15	           35	             32	
Бумага-2	   17		                     10	
Бумага-3			                     40	            38

Как добавить данные в "пустые" клетки?
Т.е. Для Бумаги-2 03.08.2016 должно стоять значение 17 и 05.08.2016 должно стоять 10
Для Бумаги-1 05.08.2016 должно стоять 32.

Спасибо заранее за любую помощь!

http://www.sql.ru/forum/1225695/perekrestnyy-zapros-nedostaushhie-znacheniya

Здесь читал
http://www.sql.ru/faq/faq_topic.aspx?fid=214
Q7

Сделал у себя:

SELECT (Select Sum(1) From Главная AS p Where p.[Внутренний код студента]<=p1.[Внутренний код студента]) AS Номер, p1.[Внутренний код студента], p1.[Код специальности], [Сертификат 1-ый предмет]+[Сертификат 2-ой предмет]+[Сертификат 3-ий предмет]+[Балл аттестата] AS сумм, p1.[Сертификат 1-ый предмет], p1.[Сертификат 2-ой предмет], p1.Ф, Специальности.[План приема бюджет]
FROM Специальности INNER JOIN Главная as p1 ON Специальности.[Общий код специальности] = p1.[Код специальности]
ORDER BY p1.[Внутренний код студента];

Все работает нормально.
Но мне нужна порядковая нумерация для другой сортировки, а не по уникальному полю [Внутренний код студента]

SELECT (Select Sum(1) From Главная AS p Where p.[Внутренний код студента]<=p1.[Внутренний код студента]) AS Номер, p1.[Код специальности], [Сертификат 1-ый предмет]+[Сертификат 2-ой предмет]+[Сертификат 3-ий предмет]+[Балл аттестата] AS сумм, p1.[Сертификат 1-ый предмет], p1.[Сертификат 2-ой предмет], p1.[Внутренний код студента], p1.Ф, Специальности.[План приема бюджет]
FROM Специальности INNER JOIN Главная AS p1 ON Специальности.[Общий код специальности] = p1.[Код специальности]
ORDER BY p1.[Код специальности], [Сертификат 1-ый предмет]+[Сертификат 2-ой предмет]+[Сертификат 3-ий предмет]+[Балл аттестата] DESC , p1.[Сертификат 1-ый предмет] DESC , p1.[Внутренний код студента];

И все - порядковая нумерация пропадает((.

Полагаю, что вот здесь надо что-то менять

Where p.[Внутренний код студента]<=p1.[Внутренний код студента]

но что и как?

http://www.sql.ru/forum/1225684/i-eshhe-raz-pro-numeraciu-strok-v-zaprose

Здравствуйте.
Есть SQL Server с несколькими базами данных, объемом до нескольких десятков гигабайт.
Сейчас я могу искать значения вручную при помощи SSMS, составляя запросы. Для пользователей нарисовал форму, в которой они тыркают кнопки и ищут значения в базах, при этом составляется текст запроса SQL и подменяется в связанном запросе. Все работало ОК.
Теперь появилось два требования:
1. Поиск по десяткам и сотням значений, в т.ч. с группировкой
2. Искомых таблиц стало много, и кнопок - тоже.
Возникает проблема - если все буду делать на MS Access, то упираюсь во время ожидания ODBC, которое не может быть больше 5 минут.
Возникла идея сделать некое приложение, позволяющее:
1. Создавать поисковый запрос
2. Отправлять его на поиск на SQL Server по всем имеющимся источникам
3. Отслеживать ход выполнения поисковых запросов (где-то это будет секунды, где-то выполнение займет 10 минут)
4. Просматривать результаты поиска.
Затем навесить на это дело поиск по группам значений.
Отсюда не понимаю, как сделать именно асинхронный запуск поисковых процедур. Чтобы Access добавил значение на поиск и лишь рефрешил строчки со статусом, а уже SQL Server после успешного выполнения поисковых процедур проставлял статус готовности.
Как лучше это сделать? Пока возникла идея запускать батник с командой выполнения поисковых процедур... но это как-то выглядит решением в лоб.

http://www.sql.ru/forum/1225683/asinhronnoe-vypolnenie-dolgih-procedur-na-sql-server-s-obolochkoy-na-ms-access

Всем привет.

Каким образом можно сказать Access'у, что редактирование строки закончено, после обновления одного поля? Стандартно строка обновляется при переходе на другую. Но в одном месте мне нужно чтобы это происходило при обновлении любого из 2 полей (строка сразу писалась в базу).


Что-то я даже Яндекс спросить не могу нормально, не понимает он меня. :)

Спасибо!

http://www.sql.ru/forum/1225654/prinuditelno-zapustit-process-obnovleniya-stroki-do-perehoda-na-novuu-stroku

опыт работы с ассеss 2 дня) так что не судите строго ))

Создал запрос из двух полей

Сверху создал текстовое поле и кнопку

на кнопку в параметрах создал макрос и присвоил фильтр ПрименитьФильтр с условием

[Наименование держателя] Like "*" & [Формы]![Query]![SearchText] & "*" 
Or [ИИН / БИН] Like "*" & [Формы]![Query]![SearchText] & "*"

поиск работает, но только один раз находит, а последующие нажатия по кнопке по поиску записи не работают.

что я сделал не так?

http://www.sql.ru/forum/1225625/poisk-po-tekstovomu-znacheniu

Уважаемые форумчане!
Собственно, очень долго искал алгоритм защиты своих программ по серийному номеру.
Ничего не нашел. Создал свой собственный.
Генерируется ключ по системе rnd
Он выглядит в таком формате:
0059C-00599-4D9A3-A62FE
Здесь содержится количество лицензий и количество месяцев. В данном ключе 1 комп, 1 месяц.
При каждой регистрации, компьютер обращается к серверу, и проверяет, сколько уже копий этого ключа использовано.
При вводе ключа, записывается информация в системный реестр (в секретное место и с секретным кодом), на сколько месяцев продлена программа.
Весь смысл был в том, чтобы исключить проверку серийных номеров компа и прочего. Просто, тупо, отдаете ключ, и любой комп продлевает лицензию.

Внимание, вопрос: Насколько, по Вашему мнению, эта система защиты не подлежит взлому.

http://www.sql.ru/forum/1225593/algoritm-zashhity-svoih-sobstvennyh-programm

Господа, снова к вам.
Осваиваю, наконец, работу с классами и работу с несколькими экз форм.
При клике на Кн. Открыть форму открываю ее экземпляр.

Set MyProject = New Form_Project_Add
MyProject.MyClsProject.TypeWork = 1 ' параметр в класс
MyProject.MyClsProject.MyLineId = 0  ' параметр в класс
MyProject.MyClsProject.clsStart MyProject  ' присваиваю экз формы и перехватываю события
' также заношу эту форму в глобальную коллекцию экземпляров этой формы. Для того, чтобы не закрылась после выхода из функции

'смотреть описание после кода
MyProject.MyClsProject.PreviosForms = myCol
MyProject.visible = True

В Form_Open открываемой формы открываю класс для работы такой формы

вот тут у меня возникла идея, чтобы в поднятый из экземпляра формы класс передавать "родительские формы", как бы цепочку до самого начала. Решил сделать на коллекции. т.е. будет последовательное добавление экз форм в коллекцию в цепочке. после изменения в каком то экземпляре - вниз по цепочке обновить зависимые данные
Создал начальную коллекцию и при старте "основной" формы саму себя добавляю в коллекцию
и передаю "начальный набор форм(ы)" коллекцией в класс открытого экземпляра:
MyProject.MyClsProject.PreviosForms = myCol

В классе есть своя private коллекция.

' установка коллекции форм, породивших этот экземпляр формы
' и добавление рабочего экземпляра формы в коллекцию
Public Property Let PreviosForms(ByVal colForms As Collection)
    Set m_colPreviosForm = colForms
    m_colPreviosForm.Add m_MyFormId, Str(m_colPreviosForm.Count + 1)
'    MsgBox m_colPreviosForm.Count
End Property

Передается коллекция "родительских форм" нормально. После отработки PreviosForms в коллекции класса 2 формы. Основная и сама она(для возможной передаче следующей форме)
одна беда. После возврата кода в начальную форму - в:
MyProject.visible = True
В основной форме в НАЧАЛЬНОЙ КОЛЛЕКЦИИ myCol -УЖЕ ДВЕ 2 ФОРМЫ, как и в коллекции класса.

Собственно. Что я делаю не так? Почему в Первую(начальную) коллекцию попадает/присваивается набор из класса, в который передавалась эта коллекция?

Брал инф.старое обсуждение и здесь
И параллельно обращаюсь еще к nord-woolf, Программист-Любитель, Вакшуль Сергей и др. участникам) с вопросом.
А как вы обновляете формы по цепочке после изменений в экземпляре.

http://www.sql.ru/forum/1225546/neskolko-ekz-form-obnovlenie-roditelskih-form-po-cepi

Установил некий Add-In.
Он виден в меню, вызывается.
В режиме настройки панели инструментов перетаскиваю его с копированием (с зажатым Ctrl) на панель инструментов - копируется, но не работает. Ничего не происходит.

Как победить?
.

http://www.sql.ru/forum/1225518/vbe-ide-knopka-na-paneli-dlya-add-in

Здравствуйте.

Есть макрос, который просто копирует файл из одной папки в другую.
Он состоит из 3-х строк.
1) УстановитьСообщения – Нет
2) Запуск приложения – тут указан модуль который копирует файлы.
3) Выход
Если запустить макрос внутри Access, то все происходит нормально. Происходит копирование и Access закрывается. Если создать ярлык на этот макрос на рабочем столе и нажать на него, то происходит копирование и в конце вылетает ошибка «Ошибка при направлении команды приложению.» Причем само копирование происходит успешно.

Ниже модуль копирования:

Option Compare Database
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)


Function stopiIneprinatie()

FileCopy "\\ОТЧЕТЫ\Стоп-Отгрузки\СТОПЫ.xls", "D:\Отчеты\Сегодня\" & Date & " Стопотгрузки.xls"
FileCopy "D:\Отчеты\Сегодня\" & Date & " Стопотгрузки.xls", "\\Аналитическая отчетность\Стопотгрузки\" & Date & " Стопотгрузки.xls"
On Error GoTo trycopy
b = killer_old("\\Аналитическая отчетность\Стопотгрузки\", 30)

Exit Function


trycopy:
Debug.Print Err.Description
DoEvents
Resume

End Function


Function killer_old(pt As String, per As Integer)
f1 = Dir(pt & "*.*")
Do Until f1 = ""
If IsDate(Left(f1, 10)) = True Then
If CDate(Left(f1, 10)) < (Date - per) Then
Kill pt & f1
End If
End If
f1 = Dir
Loop
End Function

Этот модуль брал с форума. Он нормально работает в другом месте. Не понятно из-за чего всплывает ошибка, так как макрос успешно выполняется.

http://www.sql.ru/forum/1225499/oshibka-pri-napravlenii-komandy-prilozheniu

Можно ли одним запросом из отсортированного набора записей по каждой группе выбрать необходимый ТОП лидеров.
Как на рисунке ниже

+

Таких групп более 50. Или надо составить на каждую группу отдельный запрос?

И еще вопрос:
В конструкции Select Top 40 можно ли число отбираемых записей брать значением из имеющейся таблицы базы?
И как это тогда записать?

http://www.sql.ru/forum/1225456/vybrat-top-zapisey-iz-kazhdoy-gruppy

Пользователь просматривает почту в Outllok-e, находит письмо на которое ему нужно ответить, в Outlook-e жмет кнопку "Ответить" - открывается окошко письма. Далее он жмет кнопку в Access-e, по которой нужно вставить в это письмо текст и файлы...

Собственно вопрос - как из Access получить ссылку на уже открытое новое письмо Outllok-a?

http://www.sql.ru/forum/1225391/kak-iz-access-poluchit-ssylku-na-uzhe-otkrytoe-aktivnoe-novoe-pismo-outllok-a

Всем привет!
Ввожу данные в форму, чтобы получить результат, приходится нажимать на F5. Как от этого избавиться?
Заранее спасибо!

http://www.sql.ru/forum/1225389/neponyatki-s-f5