Всем привет)

Подскажите как в VBA сохранить диаграмму из формы как изображение?

спасибо

http://www.sql.ru/forum/1165026/kak-sohranit-diagrammu

В конструкторе объекта раскрываю закладку "Свойства". Отображается "Окно свойств", но без заголовков - наименований этих свойств.
Как сделать так, чтобы наименования отображались ? Всё перерыл, но найти никак не могу. Помогите пожалуйста, кто сталкивался с подобной проблемой. На рисунке пример - свойства отчета. Этот глюк для всех объектов этого файла (базы). Причем для других файлов (баз данных) всё нормально.

http://www.sql.ru/forum/1164997/ne-otobrazhautsya-zagolovki-svoystv-obekta

Добрый день,
в запросе вычисляется поле.
Дайте, пожалуйста, ссылку, в которой указан синтаксис, как можно в запросе задать формат отображаемого значения.
Необходимо, чтобы Числовое значение (формат текстовый или числовой) отображалось в виде 1 234 543 090,97

Спасибо

http://www.sql.ru/forum/1164951/chislovoe-znachenie-format-tekstovyy-ili-chislovoy-v-zaprose

Вроде простой вопрос ... но как же заколебался с этими кавычками :(

В VBA формируется запрос на добавление данных в таблицу (находящуюся на сервере, проект adp).

sSQL = "Insert Into tblStuff (strName, strDescription, strStandart, iMeasure, iKind, strNote)" & _
    "Values (" & Me.fldName & ", " & Nz(Me.fldDescription, "Null") & ", " & Nz(Me.fldStandart, "Null") & _
    ", " & Me.cmbMeasure & ", " & Me.cmbKind & ", " & Nz(Me.fldNote, "Null") & ");"
CurrentProject.Connection.Execute sSQL

в итоге получается запрос типа:

"Insert Into tblStuff (strName, strDescription, strStandart, iMeasure, iKind, strNote)Values (ловыало, лыдалд, Null, 10, 18, Null);"

без кавычек в строковых полях. Как добавить в нужные места эти кавычки? Пробовал их дублировать типа "" или """ - ничего хорошего из этого не получилось только еще больше запутался.

http://www.sql.ru/forum/1164938/kavychki

Здравствуйте!
Подскажите пожалуйста начинающему: есть два отчета (запроса) на выбор данных из двух таблиц:
в первом в строках города (Москва, Питер...) в столбце объём;
во втором в строках города (Москва, Питер...) в столбце сумма.

Как сделать так, чтобы в обобщающем отчёте по строке Москва отразить данные объема и суммы, относящиеся только к Москве, аналогично для остальных городов.
Другими словами, что Москва из таблицы Объема, та же Москва что и в таблице Сумм. Таблица справочник городов есть.

Есть стандартные средства? Премного благодарен.

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

http://www.sql.ru/forum/1164873/obedinit-v-odnom-otchete-dannye-iz-raznyh-zaprosov

Коллеги, добрый день!

Я продолжаю развивать свою систему на базе Access "АСУ Менеджер"
Она предназначена для автоматизации процессов между сотрудниками рабочей группы по программе проектов.
Внутри нашей компании существует система проектного управления MS Project и система на SharePoint.
Каждый созданный проект в MS Project мы публикуем на Web-портал SP. Таким образом для каждого проекта у нас образуется рабочая область со своими списками в SP.
Сейчас моя БД Access для разных проектов использует в качестве таблиц свои идентичные списки из своей рабочей области на SP.
Т.е. две (три и так далее) одинаковых "АСУ Менеджер" с привязкой к разным спискам на сайтах SP.
При запуске нового проекта из программы проектов это влечет за собой сложность развертывания "АСУ Менеджер". Развертывание "АСУ Менеджера" происходит путем дублирования списков на новую рабочую область SP нового проекта и после в ручную приходится привязывать таблицы "АСУ Менеджера" к этим спискам SP и после обновлять все поля в формах "АСУ Менеджера". Надеюсь я понятно изложил вводные данные и свою проблему.
Я знаю и понимаю, что изначально была неправильно создана структура БД и таблиц, но "АСУ Менеджер" создавался экспериментально и на тот момент мы не знали что мы дойдем до этого возникнет такая потребность.

Поэтому сейчас я планирую выполнить следующее:
1. В структуру БД на верхний уровень внести таблицу с номером и названием проекта.
2. Во все таблицы БД добавить столбец с номером проекта для идентификации данных
3. Объединить все данные с разных рабочих областей SP в одну и, далее, перенести всю БД на MS SQL.

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

Прошу Вас подсказать как мне можно это реализовать?

http://www.sql.ru/forum/1164786/dobavlenie-prefiksa-nomer-proekta-pri-rabote-s-formami-i-tablicami

Не могу отладить фильтр в Форме поиск по месту проживания. Сейчас работает по коду, но нужно, чтобы, естественно, искал по названию. Прошу о помощи!

http://www.sql.ru/forum/1164781/vba-filtr

Доброго времени суток!
Начальные данные: две таблицы (tblPasport-(один-ко-многим)-tblMetering) - Паспорта и измерения.
Необходимо: вывести n-ю запись таблицы измерения(название прибора и номер) указанного паспорта. Но именно в порядке сортировки tblMetering.id ASC,
так как данные забиваются в определенной последовательности.

Делаю сие этой функцией:

Public Function sTypeDevice(i1 As Integer, i2 As Integer) As String
'Входные параметры: i1-код паспорта, i2-какую запись берем
Dim str As String
Dim rs As Object
Dim k As Integer
Dim myarr()
str = "SELECT nDevice,FactoryNum FROM tblMetering LEFT JOIN tblNameDevice ON tblMetering.[idNameDevice] = tblNameDevice.[id] Where idPasport=" & i1 & " Order By tblMetering.id ASC"

On Error GoTo 1: sTypeDevice = ""
Set rs = CurrentDb.OpenRecordset(str)
If rs.BOF Then
   sTypeDevice = "": GoTo 1
End If

k = Nz(DCount("*", "tblMetering", "idPasport=" & i1), 0)
myarr = rs.GetRows(k)
sTypeDevice = Nz(myarr(0, i2 - 1), "") & ";" & Nz(myarr(1, i2 - 1), "")

1:
rs.Close
Set rs = Nothing
Exit Function
End Function

В запросе: sTypeDevice(tblPasport.id,1) as tdv1
Отображается как "КСД-3;202309". После чего функцией mid беру необходимое "поле" из выражения Mid([tdv1],1,InStr([tdv1],";")-1).

Только вот беда, на машине с 2Гб оперативы все это довольно таки долго вычисляется. Можно сказать зависает на пару секунд(3-4). Это если в запросе вычислять.

Используются данные для построения отчета.
Combobox-в нет, только вот вычисляемое поле.

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

Посоветуйте как лучше выполнить задуманное, но чтобы "грузить" акс/машину поменьше. Спасибо!

http://www.sql.ru/forum/1164768/optimizaciya-koda-zaprosa

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

Коллеги, есть желание сделать следующее: идет некая информация по десяти клиентам. Допустим, счета.
Хочется сделать разрыв принудительный отчета, если начинается информация по новому клиенту. Первого информацию распечатал, далее разрыв и с новой страницы информация второго.

Полагаю, надо копать где-то в форматировании отчета, и там хранить некую переменную с ID_Client и если она не совпала с новым ID - то делать как-то разрыв. Верно ли?

http://www.sql.ru/forum/1164757/razryv-stranicy-v-otchete-po-usloviu

Коллеги, всем привет!
есть небольшой вопрос по процедуре отлова отмены отправки письма, как его зацепить и отслеживать?

Есть небольшой рабочий кусочек кода, который у меня формирует отправку писем в программе Outlook:

....

Set oMessage = oOutlook.CreateItem(olMailItem)
oMessage.To = "ВасилийПупкин@mail.ru"
oMessage.Subject = "Тестовое письмо"
oMessage.HTMLBody = "Куку"
oMessage.Display
oMessage.Attachments.Add att, , , d
....

То есть создается письмо, с нужным списком рассылки, текстом и адресатом.
А как отловить событие ,если пользователь не отправил данное письмо - то есть отменил его. К примеру чтобы выводилось
сообщение письмо не отправлено? В свойствах oMessage покопался, но нахрапом не нашел. Типа IsCancel или IsConflict или что то подобное не работают. Прошу помочь.

http://www.sql.ru/forum/1164642/poymat-sobytie-otmeny-otpravki-pisma-omessage

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

http://www.sql.ru/forum/1164633/leva99

Здравствуйте. Прошу помочь не специалисту.
Есть полный путь к файлу.
1. Нужно из строки получить полное имя файла.
2. Нужно получить только расширение файла
Благодарю всех откликнувшихся

http://www.sql.ru/forum/1164604/fayl-iz-stroki

Доброго дня, ночи!

Имеется таблицы с историей выполнения пользователями занятий:
id занятия - id занятия у каждого пользователя он свой
текущий статус - текущий этап данного занятия (для каждого занятия состояния этапов уникальны)
время - время перехода из одного этапа выполнения к другому
id пользователя - и так понятно.

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

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

В итоге необходимо для каждого занятия сделать таблицу этапов выполнения. Заранее спасибо!
например:
таблицу и файл с таблицей прикладываю.

условный № занятия порядок наименование этапа 1 1 семячко 1 2 росток 1 3 дерево 1 4 солнце 1 5 пчела 1 6 завязь 1 7 плод 2 1 холод 2 2 зима 2 3 снег

Пример таблицы:

+

id занятия текущий статус время id пользователя 53901116 дерево 04.07.2015 12:46:07 18 32627388 солнце 04.07.2015 12:46:40 17 31323805 завязь 04.07.2015 13:09:45 5 55308060 холод 04.07.2015 13:10:04 22 44993734 завязь 04.07.2015 13:10:39 10 54635755 холод 04.07.2015 13:11:32 25 53592123 холод 04.07.2015 13:11:52 30 55294674 зима 04.07.2015 13:14:32 32 54643816 зима 04.07.2015 13:15:32 23 56121835 холод 04.07.2015 13:16:26 34 53588297 холод 04.07.2015 13:17:09 26 19753185 завязь 04.07.2015 13:17:33 8 56191926 семячко 04.07.2015 13:17:37 9 53836003 холод 04.07.2015 13:22:11 3 53133608 зима 04.07.2015 13:23:41 20 54635934 зима 04.07.2015 13:27:18 27 55288691 зима 04.07.2015 13:27:31 21 34262125 семячко 04.07.2015 13:27:33 3 56122362 зима 04.07.2015 13:27:35 3 56130091 зима 04.07.2015 13:28:23 28 53570685 зима 04.07.2015 13:29:02 31 54634820 холод 04.07.2015 13:30:55 29 54640436 зима 04.07.2015 13:32:10 33 53139256 зима 04.07.2015 13:32:32 24 52942472 солнце 04.07.2015 13:32:35 14 52337450 завязь 04.07.2015 14:08:18 12 52976498 семячко 04.07.2015 14:13:29 13 54790380 росток 04.07.2015 14:17:53 7 52605727 дерево 04.07.2015 14:18:41 1 54885745 завязь 04.07.2015 14:31:38 16 53295203 завязь 05.07.2015 00:11:25 6 52578794 семячко 05.07.2015 00:15:39 11 55486748 завязь 05.07.2015 00:17:12 4 53319524 дерево 05.07.2015 00:29:59 15 53901116 солнце 05.07.2015 13:30:10 18 32627388 пчела 05.07.2015 13:31:09 17 55294674 снег 05.07.2015 13:48:55 32 54635755 зима 05.07.2015 13:49:56 25 53592123 зима 05.07.2015 13:53:42 30 53836003 зима 05.07.2015 13:56:44 3 54635934 снег 05.07.2015 13:57:50 27 53570685 снег 05.07.2015 14:01:59 31 55288691 снег 05.07.2015 14:02:40 21 53133608 снег 05.07.2015 14:02:54 20 56130091 снег 05.07.2015 14:02:59 28 56191926 росток 05.07.2015 14:04:51 9 19753185 плод 05.07.2015 14:05:07 8 54643816 снег 05.07.2015 14:05:37 23 56122362 снег 05.07.2015 14:08:09 3 54634820 снег 05.07.2015 14:10:59 29 53139256 снег 05.07.2015 14:11:20 24 55486748 плод 05.07.2015 22:38:39 4 52337450 плод 05.07.2015 22:44:33 12 52976498 росток 05.07.2015 22:49:00 13 53319524 солнце 05.07.2015 22:50:15 15 54790380 дерево 05.07.2015 22:52:51 7 52605727 солнце 05.07.2015 22:53:36 1 54885745 плод 05.07.2015 23:04:26 16 53295203 плод 05.07.2015 23:07:05 6 52578794 росток 05.07.2015 23:10:53 11 31323805 плод 06.07.2015 00:47:45 5 55308060 зима 06.07.2015 00:48:04 22 44993734 плод 06.07.2015 00:51:33 10 56121835 зима 06.07.2015 00:58:35 34 53588297 зима 06.07.2015 00:59:32 26 34262125 росток 06.07.2015 00:59:53 3 52942472 пчела 06.07.2015 01:05:11 14 54640436 снег 06.07.2015 01:05:59 33 52942472 завязь 06.07.2015 02:00:10 14

http://www.sql.ru/forum/1164594/postroit-spisok

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

Спасибо.

http://www.sql.ru/forum/1164552/obnovlenie-polya-so-spiskom-pri-razvorachivanii

Здравствуйте, у меня каждая форма отображается на отдельной вкладке (Параметры Access / Текущая база данных). Подскажите, на какое событие повесить команду обновления, чтобы форма обновлялась при переключении на её вкладку?

Спасибо.

http://www.sql.ru/forum/1164551/obnovlenie-formy-f9-pri-perekluchenii-na-eyo-vkladku

Есть папка D:\papka\
В ней находится множество книг формата .xls и .xlsx, большинство из книг также состоят из множества листов.
Все книги имеют различную структуру.
В access простенькая форма с текстовым полем FindText и кнопка Find по нажатию по которой нужно выполнять следующую процедуру (опишу алгоритм):

For перебираем все книги формата .xls и .xlsx из папки D:\papka\
For перебираем все листы книги
For ищем на листе значение поля FindText
If при нахождении совпадения
копируем в книгу_отчёт
название книги и листа где найдено и
полностью строку в которой был найдено совпадение
End If
Next
Next
Next

Прошу помочь в реализации подобного алгоритма

http://www.sql.ru/forum/1164460/poisk-po-faylam-excel-iz-formy-access

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

Коллеги, как свернуть/развернуть базу в трей через winapi знают все. А вот как выдать туда сообщение всплывающее?

Суть задачи: есть некое событие, которое должно произойти в произвольную дату. Программа запускается, и раз в час смотрит, не наступила ли эта дата. Если наступила - хочется заморгать иконкой в трее как минимум, а лучше - выдать туда сообщение "Ура, рабочая неделя окончена!" Т.е. сделать прямой аналог того, что в винде уже есть - на любую иконку в трее курсор навести - всплывает подсказка. Вот так же хочу, чтобы всплыло мое сообщение. Где копать?

http://www.sql.ru/forum/1164410/vydat-soobshhenie-v-trey

пришел халтурчик по теме и пришлось наткнуться на старую мину
- вот помню, что проблема не решалась и сейчас пробежался по
статьям - везде одно и тоже - типа "avoid..." и без разницы: ключ
в ручную назначать или позволять MSA....

может кто-то нашел способ как в msa97 (я так помню что не только
на связи с FB такая ошибка появлялась)

http://www.sql.ru/forum/1164357/pri-ruchnom-inserte-v-linkedtabl-msa97-fb-deleted

Форумчане,база данных стала слишком большой(access 2007), как можно ее разбить, чтобы элементы управления находились в одной, а отсальные просто поставляли данные для элементов управления?

http://www.sql.ru/forum/1164322/kak-izbezhat-ogranicheniya-bd-access-na-2-gb

Всем привет)

Есть такой SQL запрос:

SELECT 
test.VBELN, 
test.POSNR, 
test.BSTNK, 
...
test.YEAR, 
test.KNR, 
...
test.DATE1, 
test.DATE2, 
test.KBM, 
test.KBW_W, 
...
test.KBWAP_WERT / test.KBMENG AS Price, 
Mid([DATE1],7,2) & '.' & Mid([DATE1],5,2) & '.' & Mid([DATE1],1,4) AS ERDATE, 
Mid([DATE2],7,2) & '.' & Mid([DATE2],5,2) & '.' & Mid(DATE2,1,4) AS LDate, 
DateDiff("d",[DATE2],[DATE1])*-1 AS Days, 
SUM(test.LFIMG) AS Delivery
FROM test 
GROUP BY test.VBELN, test.POSNR, test.BSTNK; 

мне нужно сгруппировать позиции по VBELN, POSNR, BSTNK(эти поля могут служить для идентификации позиций), так я могу идентифицировать отдельные позиции и далее группировать по дням DATE1 и DATE2.
Можно ли это в одном запросе реализовать? или как-то через подзапросы решать и выводить в разные таблицы(а далее обьединять)?

Спасибо

http://www.sql.ru/forum/1164141/kak-pravilno-sgruppirovat-po-neskolkim-polyam