Добрый день.
Есть MS Office 2003. В Access создана база данных с кучей отчетов, таблиц и форм. В одном из отчетов используется внедренная таблица ексель.
Открываю отчет в режиме конструктора, дважды кликаю по отчету, он переходит в режим редактирования. Появляется лист ексель. Редактирую необходимое, и .... Как его закрыть? Просто закрыть - ексель остается видимым и печатается его сетка и разметка. Любые способы выхода пробовал - ексель остается видимым.
Подскажите, плиз.

http://www.sql.ru/forum/1105113/redaktirovanie-vnedrennoy-tablicy

Добрый день!
Есть таблица:

Артикул | Дата
1 01.05.2008
1 12.05.2008
1 18.06.2008
2 03.05.2008
2 06.05.2008
2 07.07.2008
3 05.02.2008
3 09.08.2008

Необходимо выбрать, так, чтобы по каждому артикулу была максимальная дата
Артикул | Дата
1 18.06.2008
2 07.07.2008
3 09.08.2008

http://www.sql.ru/forum/1105098/vyborka-po-usloviu

В форму вносятся данные, рядом находится другая форма. Как сделать так чтобы при переходе в поле другой формы данные, внесенные в первую форму сохранялись?

Пробовал на потерю фокуса формы вот это:

DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

но не получилось сохранить.

http://www.sql.ru/forum/1105094/sohranit-dannye-v-tablicu

Здравствуйте.
В таблицу добавляю поле денежного формата:

CurrentProject.Connection.Execute "ALTER Table [Путь].[ИмяТаблицы] ADD COLUMN ИмяПоля Currency"

Скажите пожалуйста, а как этому полю определить значение по умолчанию, напр. "0"?

http://www.sql.ru/forum/1105088/zadat-znachenie-po-umolchaniu

Добрый день!
Есть таблица:

Артикул Дата
1 01.05.2009
1 15.05.2009
1 16.06.2009
2 05.07.2009
2 06.08.2009
... ...

Надо выбрать максимальную дату по каждому артикулу, т.е.
Артикул Дата
1 15.05.2009
2 06.08.2009

http://www.sql.ru/forum/1105028/vyborka-po-usloviu

Добрый день! Проблема такая: имеется три зависимых поля со списком, третье поле "ФИО" фильтруется по результатам выбора в предыдущих двух. Как сделать так, чтоб после выбора ФИО сотрудника в третьем поле на форме выводилась информация именно по нему (Фамилия, Имя, Отчество, Дата приема на работу и т.п.). Иначе говоря, выбираем в поле со списком Иванова Ивана Ивановича, и на форме появляется вся дополнительная информация по Иванову И.И. Вопрос, наверно, очень глупый, но разобраться не могу :(

http://www.sql.ru/forum/1105018/pomogite-s-formoy

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

Что то сдается мне, что "неактуальным для бизнеса Microsoft направлением" станет Access.

http://www.sql.ru/forum/1104977/microsoft-planiruet-uvolit-kazhdogo-desyatogo

Кто-нибудь в курсе, что быстрее выполняется: динамический запрос или статистический?

http://www.sql.ru/forum/1104907/chto-bystree-dinamicheskiy-zapros-ili-statisticheskiy

1. Существует таблица с перечнем должностей (ИД, Наименование, Год).
2. В форме есть поле со списком с подстановкой из этой таблицы (Перечень должностей) и поле для ввода года отчетности (Год отчетности).

Вопрос: как сделать так, чтобы при вводе года в (Год отчетности) значения в поле (Перечень должностей) фильтровались и отображались должности конкретно для указанного года? Или возможно подсказать другой способ решения.

http://www.sql.ru/forum/1104876/filtraciya-dannyh-v-pole-so-spiskom

Всем доброго дня!
Можете подсказать чайнику, в чем причина.

Установил Microsoft Office Access 2007, открываю форму базы которая создавалась в Access 2000,
и ничего не ищет.
Ввожу номер в окно "Поиска", нажимаю "Enter" и ничего не происходит.

База простая, форма с поиском по номеру телефону из 6 таблиц.
Раньше, если вводимый номер совпадал с номером из любой таблицы, он появлялся в окне, на форме поиска.
Макрос VBA не менял.

Потом стала выскакивать "Оповещение системы безопасности" "включить это содержимое".
Когда поставил галочку, в закладке "Оповещение системы безопасности" "включить это содержимое"
Выскакивает ошибка Run-time error 2137 - в данный момент поиск и замена невозможны.

А теперь, после загрузки формы поиска, и "Оповещение системы безопасности" не "выскакивает".
Только одна форма поиска

===


Код Visual Basic

199
100
101


Private Sub Form_GotFocus()
Me![Поле0].SetFocus
End Sub

Private Sub Кнопка20_Click()
On Error GoTo Err_Кнопка20_Click

Dim stDocName As String
stDocName = "Сотрудники"

DoCmd.OpenForm stDocName
Forms![Сотрудники]![Телефон].SetFocus
DoCmd.FindRecord (Поле8), acAnywhere

Exit_Кнопка20_Click:
Exit Sub

Err_Кнопка20_Click:
MsgBox Err.Description
Resume Exit_Кнопка20_Click

End Sub

Private Sub Кнопка21_Click()
On Error GoTo Err_Кнопка21_Click

Dim stDocName As String
stDocName = "Заказчики"

DoCmd.OpenForm stDocName
Forms![Заказчики]![Телефон].SetFocus
DoCmd.FindRecord (Поле8), acAnywhere

Exit_Кнопка21_Click:
Exit Sub

Err_Кнопка21_Click:
MsgBox Err.Description
Resume Exit_Кнопка21_Click

End Sub

Private Sub Кнопка22_Click()
On Error GoTo Err_Кнопка22_Click

Dim stDocName As String
stDocName = "Поставщики"

DoCmd.OpenForm stDocName
Forms![Поставщики]![Телефон].SetFocus
DoCmd.FindRecord (Поле8), acAnywhere

Exit_Кнопка22_Click:
Exit Sub

Err_Кнопка22_Click:
MsgBox Err.Description
Resume Exit_Кнопка22_Click


End Sub


End Sub
Private Sub Поле8_AfterUpdate()
Dim i, j, k As Integer
k = 0

DoCmd.OpenForm "Сотрудники"
Forms![Сотрудники]![Телефон].SetFocus
DoCmd.FindRecord (Поле8), acAnywhere
If InStr(Forms![Сотрудники]![Телефон], Me![Поле8]) > 0 Then k = k + 1
Me![Поле0] = Mid(Forms![Сотрудники]![Телефон], 1, 4) + "-" + Mid(Forms![Сотрудники]![Телефон], 5, 2) + "-" + Mid(Forms![Сотрудники]![Телефон], 7, 2)
DoCmd.Close acForm, "Сотрудники"

DoCmd.OpenForm "Заказчики"
Forms![Заказчики]![Телефон].SetFocus
DoCmd.FindRecord (Поле8), acAnywhere
Me![Поле2] = Mid(Forms![Заказчики]![Телефон], 1, 3) + "-" + Mid(Forms![Заказчики]![Телефон], 4, 2) + "-" + Mid(Forms![Заказчики]![Телефон], 6, 2)
If InStr(Forms![Заказчики]![Телефон], Me![Поле8]) > 0 Then k = k + 1
DoCmd.Close acForm, "Заказчики"
If Me![Поле2] = Me![Поле8] Then
End If

DoCmd.OpenForm "Поставщики"
Forms![Поставщики]![Телефон].SetFocus
DoCmd.FindRecord (Поле8), acAnywhere
Me![Поле4] = Mid(Forms![Поставщики]![Телефон], 1, 3) + "-" + Mid(Forms![Поставщики]![Телефон], 4, 2) + "-" + Mid(Forms![Поставщики]![Телефон], 6, 2)
If InStr(Forms![Поставщики]![Телефон], Me![Поле8]) > 0 Then k = k + 1
DoCmd.Close acForm, "Поставщики"
If Me![Поле4] = Me![Поле8] Then
End If


For j = 1 To k
For i = 1 To 350
DoCmd.Beep
Next
Next

End Sub

http://www.sql.ru/forum/1104816/ne-rabotaet-forma-poiska-v-access-2007-sozdavalas-v-access-2000

С верхним (родительским) слоем просто, проверкой на

[TV].Nodes(Node.key).Parent) Is Nothing

А как выяснить, что это узел слоя "-1", "-2" и т.д.?

http://www.sql.ru/forum/1104808/mozhno-li-v-treeview-poluchit-nomer-sloya-uzla

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

http://www.sql.ru/forum/1104791/tormozit-pri-otkrytii-formy-konstruktorom

Добрый день!
Столкнулся со следующей проблемой после миграции с mdb на sql server + adp
Для вывода отчета, сформированного на основании результата запроса, в mdb использовалась следующая конструкция:

stDocName = "Печать Счета"
DoCmd.OpenReport stDocName, acViewPreview, "ВыборСчетаДляПечати"

где запрос ВыборСчетаДляПечати представлял собой

SELECT Счета.КодСчета, IIf([Company]![ФормаСобственности] Is Null,[Company]![OrganizationName],[Company]![ФормаСобственности] & " " & [Company]![OrganizationName]) AS OrganizationName, СчетаТовары.Товар AS Наименование, СчетаТовары.Поставка, СчетаТовары.ЕдИзм, СчетаТовары.Цена, СчетаТовары.Количество, SumBNDS([Цена],[Количество]) AS Итого, СчетаТовары.НДС, SumNDS([Цена],[Количество],[НДС]) AS НДСсумма, SumSNDS([Цена],[Количество],[НДС]) AS Всего, СчетаТовары.Примечание, Счета.ГрузополучательАдрес, Счета.ГрузополучательТелефон, Счета.ГрузополучательФакс, Счета.ГрузополучательКонтакт, Счета.СчетОплачен, Счета.СчетДействует, Счета.Договор, Счета.ДатаДоговора, Счета.Предоплата, Счета.ПримечаниеСчет, Счета.Основание, Счета.Заказчик, Счета.НомерСчета, Счета.ДатаСчета, СчетаТовары.КодСчетаТовара, СчетаТовары.ПериодПодписки
FROM (Company INNER JOIN Счета ON Company.CompanyID = Счета.Заказчик) INNER JOIN СчетаТовары ON Счета.КодСчета = СчетаТовары.КодСчета
WHERE (((Счета.КодСчета)=[Forms]![Счета]![КодСчета]))
ORDER BY СчетаТовары.КодСчетаТовара;

В adp такая конструкция не работает. IIf надо менять на case, так?
А главный вопрос: как вообще в adp применять ссылки на объекты формы? Вроде этого:

WHERE (((Счета.КодСчета)=[Forms]![Счета]![КодСчета]))

http://www.sql.ru/forum/1104787/vyvod-otcheta-sformirovannogo-po-zaprosu

Добрый день.
подскажите как присвоить имя:

isnull (vw_Materials_Certificates_Latest.CertNum), 
iif (isnull(vwGPs.GP_MCode), '','См. комп-ты набора'),vw_Materials_Certificates_Latest.CertNum

все это нужно на пример вывести как

AS CertNum

http://www.sql.ru/forum/1104746/vyvod-znacheniya

Здравствуйте. Есть список товаров. Мне нужно отобрать все те, наименование которых начинается с #. Пишу в условии наименования "#*" - в результате получаю те товары, наименование которых начинается с числа. Подскажите как решить мою проблемку?

http://www.sql.ru/forum/1104737/nayti-v-tekste

Здравствуйте, Делаю код на событие "AfterUpdate" списка формы Аксесса:

Dim Reserve As DAO.Recordset
Set Reserve = CurrentProject.Connection.Execute(" SELECT СтатьиВедомости.ЧасовПлан" _
& " FROM  СтатьиВедомости" _
& " WHERE (СтатьиВедомости.Объект='" & Me.Объект.Value & "') AND (СтатьиВедомости.Статья=21)")

Структура таблицы, откуда хочу выбрать данные:Код-счетчик,ключевое,Объект - строка,Статья - целое число;ЧасовПлан-одинарное с плавающей точкой; Ведомость -целое число.
В списке на форме ,для которого делаю обработчик "AfterUpdate", содержит шифры объектов. После обновления списка вываливается ошибка: Run-time error-13:Type mismatch в чем ошибка? я этот запрос строил в конструкторе и запускал - все работает, а тут - нет....

http://www.sql.ru/forum/1104728/oshibka-type-mismatch-pri-vypolnenii-zaprosa-na-vba

Всем привет.

Суть такова: есть форма в ленточном виде. Она запрашивает из таблицы все заказы за сегодняшнее число.
Также на форму "искусственно" (без привязки к таблице) помещен label.
По замыслу, этот лейбел должен становиться красным, когда до заказа остается меньше двух часов.

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

Можно ли к чему-нибудь прицепиться таким образом, чтобы таймер обходил все строчки в форме и красил только те, до которых осталось меньше двух часов? Тут даже не обязательно должен быть лейбел. Чувствую, что нужно как-то цепляться к порядковому номеру заказа из таблицы, но никак не могу сообразить как именно.

http://www.sql.ru/forum/1104652/lentochnaya-forma-obrashhenie-k-elementu-v-kazhdoy-stroke

Доброго времени суток!
Друзья, помогите с парсингом. В общем есть БД, по ней производится выборка и отправка определенных команд на различные сетевые устройства. От этих устройств приходит ответ об успешности или не успешности выполнения посланной команды. Идея состоит в том, чтобы не выполнившиеся команды складывать в текст вида: NE_100;НеВыполнившаясяКоманда
Так выглядит ответ от сетевого оборудования:

+++ NE_100 2014-07-10 15:40:24
TRAFFIC #85552
%%/*126636*/НеВыполнившаясяКоманда;%%
RETCODE = 1745023040


--- END

Буду очень благодарен :)

http://www.sql.ru/forum/1104613/parsing-na-letu

Здравствуйте, помогите сделать вычисления в запросе:

SELECT КредиторскаяЗадолженность.ВидЗадолженности, КредиторскаяЗадолженность.КодСтроки, Sum(КредиторскаяЗадолженность.[01_01_2014]) AS 01_01_2014, Sum(КредиторскаяЗадолженность.[01_04_2014]) AS 01_04_2014, Sum(КредиторскаяЗадолженность.[01_07_2014]) AS 01_07_2014, Sum(КредиторскаяЗадолженность.[01_10_2014]) AS 01_10_2014, Sum(КредиторскаяЗадолженность.[01_01_2015]) AS 01_01_2015
FROM КредиторскаяЗадолженность
GROUP BY КредиторскаяЗадолженность.ВидЗадолженности, КредиторскаяЗадолженность.КодСтроки
order by КредиторскаяЗадолженность.КодСтроки
UNION Select "Просроченная кредиторская задолженность, всего (стр.010+ стр.020+стр.080)", "100",
Sum(КредиторскаяЗадолженность.[01_01_2014]) AS 01_01_2014, Sum(КредиторскаяЗадолженность.[01_04_2014]) AS 01_04_2014, Sum(КредиторскаяЗадолженность.[01_07_2014]) AS 01_07_2014, Sum(КредиторскаяЗадолженность.[01_10_2014]) AS 01_10_2014, Sum(КредиторскаяЗадолженность.[01_01_2015]) AS 01_01_2015
FROM КредиторскаяЗадолженность
WHERE (((КредиторскаяЗадолженность.КодСтроки) Between "010" And "080"))
ORDER BY КредиторскаяЗадолженность.КодСтроки
UNION Select "Итого (стр.110+ стр.120+ стр.130+ стр.140+ стр.150- стр. 180)", "200",
Sum(КредиторскаяЗадолженность.[01_01_2014]) AS 01_01_2014, Sum(КредиторскаяЗадолженность.[01_04_2014]) AS 01_04_2014, Sum(КредиторскаяЗадолженность.[01_07_2014]) AS 01_07_2014, Sum(КредиторскаяЗадолженность.[01_10_2014]) AS 01_10_2014, Sum(КредиторскаяЗадолженность.[01_01_2015]) AS 01_01_2015
FROM КредиторскаяЗадолженность
WHERE (((КредиторскаяЗадолженность.КодСтроки) Between "110" And "180"))
ORDER BY КредиторскаяЗадолженность.КодСтроки;

первые 2 select-а все правильно формируют, а вот в части

Select "Итого (стр.110+ стр.120+ стр.130+ стр.140+ стр.150- стр. 180)"

где нужно выбрать строки со 110 по 150, сложить и отнять 180.
Подскажите, как это сделать?

http://www.sql.ru/forum/1104609/vychislenie-v-zaprose

Пользователи работают вот таким образом:
1. В сети на общем сетевом ресурсе лежит клиентская часть *.mdb и серверная часть *.mdb;
2. Перед запуском клиентской части mdb, скриптом выполняется проверка на наличие обновленной версии mdb на общем ресурсе
и, если она есть, выполняется копирование с сервера клиентской части mdb, а так же файла рабочих групп *.mdw;
3. Если обновлений нет, то запускается ранее сохраненная локальная копия mdb и mdw и выполняется работа с серверной частью mdb;

Администратор вносит изменения через (эталонный) клиентский mdb в права, то есть вносит изменения в файл mdw на сервере, теперь при запуске с рабочих станций пользователи заберут себе новый mdw (так как он копируется на клиента всегда), но он новую версию mdb (через который правил серверный mdw) на сервер не выкладывает.
Вопрос:
Собственно, надо ли выкладывать для пользователей новый mdb или достаточно, если он заберет на себя и будет работать с новым mdw??

http://www.sql.ru/forum/1104599/mdb-mdw-izmeneniya-parametrov-dostupa-nado-li-menyat-mdb