Доброго времени суток уважаемые гуру Access.
Прошу Вас помочь в решении такого вопроса.
Есть три формы Client, Contract, Object соответственно формы на основе одноимённых таблиц. Схема данных такова тбл. Client один ко многим к тбл. Contract по полю IDClient, тбл. Contract один ко многим к тбл. Object по полю IDContract.
Так вот, при вводе нового клиента, созданные мастером связанные формы при переходе через ToggleLink к форме Contract, не отображают введённого клиента в поле IDClient формы Contract автоматически, соответственно далее при переходе из формы Contract в форму Object (также при помощи ToggleLink) автоматом не отображается соответствующее значение в поле IDObjec
В принципе всё это спокойно происходит при создании этих форм как подчинённых, но к сожалению мне нужны именно связанные, а не подчинённые.
Каким образом можно достичь необходимого мне результата.
Спасибо.

http://www.sql.ru/forum/1171231/svyazannye-formy

Здравствуйте, подсткажите пожалуйста.

Есть две таблицы: 1-я(Товары) с ценой и текущей датой товара; 2-я(АрхивЦен) с ценой и с прошедшей датой товара.
Вопрос: Как настроить автоматически создание запроса на "добавление" из 1-й таблицы во вторую с условием, что текущая дата должна быть больше последней даты в архиве для каждого товара в соответственно.
Создание запроса должно сопровождаться предупреждением (Выполнить добавление цен в архив да/нет) и в определенное время (Допустим каждые три дня в 12.00 по МСК).

Благодарю за внимание!!!

http://www.sql.ru/forum/1171194/kak-avtomaticheski-otpravlyat-v-arhiv-dannye-tablicy

Господа, снова за помощью.

Чисто в командной строке пишу:
программа---парам1---разделитель---парам2
textextract "C:\Notice.pdf" /to "C:\Notice.txt"

программа отрабатывает нормально.
пытаюсь в shell запихнуть:
Shell("textextract ""C:\Notice.pdf"" /to ""C:\Notice.txt""", vbHide)
- матерится, но уже видовс сам

столько времени убил на гугл...потом уже тупо перебором пытался, докатился до:
Shell("cmd.exe /c C:\Program Files\Two Pilots\PDF2Text Pilot\textextract.exe ""C:\Notice.pdf"" /to ""C:\Notice.txt""", vbHide)
- не матерится, но ничего и не происходит...

Уж не знаю, как переписать эту гребаную строку, что бы он мне отработал гад

http://www.sql.ru/forum/1171153/shell-peredat-parametry-zapuskaemoy-programme

День добрый всем!
Есть временная таблица "Tmp_Tbl" из одного поля - Id_Rec.
Есть "тяжелый" запрос по куче таблиц - Tmp_Query, где записи также идентифицируются по ключу Id_Rec.
Каким образом удалить из таблицы "Tmp_Tbl" записи не входящие в запрос Tmp_Query?
Инструкция

 delete from [Tmp_Tbl] Where [Id_Rec] not in (SELECT [Id_Rec] FROM [Tmp_Query])"

работает оооочень медленно.

http://www.sql.ru/forum/1171098/udalenie-zapisey-iz-tablicy-ne-vhodyashhih-v-rezultat-vyborki-zaprosa

Здравствуйте.
Есть несколько баз данных (29), которые каждый день запуска.тся одна за другой каждый день. После отработки алгоритма происходит процедура сжатия всех баз данных. Запускается .bat файл вида:

echo off
chcp 1251

"C:\Program Files (x86)\Microsoft Office\OFFICE11\MSACCESS.exe" "D:\базы данных\test.mdb" /compact

ниже идет перечисление путей ко всем остальным базам.
Примерно 1-2 раза в неделю при сжатии возникает ошибка "Недостаточно места на временном диске". При нажатии "ОК" процедура продолжается. Можно как-то избавиться от нее?

http://www.sql.ru/forum/1171087/nedostatochno-mesta-na-vremennom-diske-pri-szhatii

Часто приходится писать такие конструкции:

Dim x As ...
Set x = ...
x.MyMethod

Описание переменной здесь явно лишнее, и MS, чувствуя это, предлагает другой синтаксис:

With ...
.MyMethod

Так удается обойтись без лишнего Dim'а. Но вот другой случай:

Dim x As ...
For Each x In ...
x.MyMethod

Есть ли возможность и здесь тоже написать какой-нибудь With, чтобы не описывать переменную?

Thanx заранее!
.

http://www.sql.ru/forum/1171078/kak-oboyti-sintaksis

Народ, доброго всем времени суток! Ужас! Есть файл MDB, который запускается пользователем, выполняет несколько процедур на VBA и после завершения их выполнения закрывается, открывая другой проект. Нет, все, конечно, работает прекрасно, но вот возникла необходимость подредактировать этот самый MDB. Что я делаю: открываю его и тут же давлю CTRL+BREAK... И что я вижу? Ему хоть бы х... что... Продолжает падла исполнять процедуры (вижу это по одной единственной форме с прогресс-баром, которая, кстати, стоит в параметрах запуска) и со спокойной душонкой скотина закрывается... Как так?

http://www.sql.ru/forum/1171060/sochetanie-ctrl-break-ne-ostanavlivaet-kod-pochemu

Добрый день! Столкнулся с такой проблемой есть таблица в Access 2010, где есть столбец подстановки. Т.е можно несколько значений вставлять в одно поле. (тут можно почитать о нем общие сведения https://support.office.com/ru-ru/article/Добавление-и-изменение-столбца-подстановок-одновременно-допускающего-несколько-значений-63834360-2d63-4e13-8499-a62b47a4ee27?ui=ru-RU&rs=ru-RU&ad=RU

так вот у меня теперь проблема, а как добавить запись в это поле с помощью VBA?
Пробовал через Recordset выдает ошибку

rst.fields("Поле").value="тест"

Или даже как просто получить значение этого поля, чтобы использовать его дальше в макросе?

http://www.sql.ru/forum/1171053/kak-dobavit-i-prochitat-dannye-iz-stolbca-podstanovok-s-pomoshhu-vba

Здравствуйте, подскажите пожалуйста как настроить кнопку для очистки поля со списком (оно влияет на данные в подчиненной форме), чтоб при пустом поле выводились все данные в подчиненной форме?

http://www.sql.ru/forum/1170995/pomoshh-kak-ochistit-pole-so-spiskom-txt

Продолжаю работать над своей БД. Есть форма (открывается по кнопке "Выбор по артиклю" с помощью которой вызывается отчет. Хотелось бы увеличить количество параметров в запросе -но пока не совсем получается.
Хотелось бы отчет вызывать по выбору параметров:тип оборудования, марка оборудования,подрядчик,АТС. У меня пока по двум параметрам. Далее увеличить количество параметров не получилось -появляются ошибки. Как правильно нужно расставить в запросе ссылки на те параметры,которые нужно выбрать для создания отчета?

http://www.sql.ru/forum/1170981/kak-na-forme-sdelat-neskolko-parametrov-dlya-vyvoda-otcheta

Здравствуйте у меня следующая проблема
База Access
Написал запрос для случайной выборки из 3-х баз данных

SELECT * FROM
(SELECT TOP 5 * FROM Base1 ORDER BY RND (ID))
UNION ALL SELECT * FROM
(SELECT TOP 5 * FROM Base2 ORDER BY RND(ID)) 
UNION ALL SELECT * FROM
(SELECT TOP 5 * FROM Base3 ORDER BY RND(ID))

запрос работает нормально
но теперь проблема со вставкой полученного результата в другую базу
запрос

INSERT INTO MainBase
SELECT * FROM
(SELECT TOP 5 * FROM Base1 ORDER BY RND (ID))
UNION ALL SELECT * FROM
(SELECT TOP 5 * FROM Base2 ORDER BY RND(ID)) 
UNION ALL SELECT * FROM
(SELECT TOP 5 * FROM Base3 ORDER BY RND(ID))

не работает.

Прошу помочь

http://www.sql.ru/forum/1170928/insert-into-select-union-all

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

+

Fr03.Password = 30 Fr03.Connect '''''''''''''''''''''''''''''''''''''''''''''''''''''''' 'Fr03.Quantity = 2.25 Fr03.Price = 17.5 Fr03.Department = 0 Fr03.StringForPrinting = "Бананы" Fr03.Sale If ResultCode <> 0 Then GoTo exit_sub Fr03.Quantity = 3 Fr03.Price = 98.3 Fr03.Department = 0 Fr03.StringForPrinting = "Русский Стандарт 0,5" Fr03.Sale If ResultCode <> 0 Then GoTo exit_sub '''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' Можно ли этот фрагмент заменить на запрос Fr03.StringForPrinting = "------------------------------------" Fr03.CheckSubTotal Fr03.CloseCheck If ResultCode <> 0 Then GoTo exit_sub Fr03.Disconnect

Естественно, что количество строк и их содержимое постоянно меняется.
Каким способом можно сделать обновляемым часть кода?
Мне пришло в голову только два варианта, но не знаю как их реализовать и возможно ли вообще их сделать.
1. Можно ли вместо выделенного фрагмента использовать запрос?
2. или сформировать данные в txt-шный файл и из него запустить процедуру?
Предполагаю, что правильнее всего будет запустить цикл по количеству записей в таблице/запросе, но к сожалению не могу сообразить как это выполнить.
Может быть есть еще какие то варианты?

http://www.sql.ru/forum/1170881/vypolnenie-funkcii-iz-zaprosa

Здравствуйте.
Схема работы:
0. Из VBA выполняю HTTP запрос к некоему серверу, в результате получаю строковую переменную с текстом ответа. Текст ответа представляет собой текстовую таблицу с заголовком и разделителями полей.
1. Эту переменную записываю во временный файл.
2. Выполняю запрос из этого файла как-то так:

SELECT *, Format(DateDiff('s', [created], Now())/86400, 'hh:mm:ss') as [cDuration]
FROM [dijfelisjaldifjsl#txt] IN 'h:\temp'[Text;DSN=lalala;IMEX=1;HDR=No];

3. Засовываю этот запрос куда надо.
4. Удаляю временный файл.

Как-то можно обойтись без временного файла, т.е. непосредственно выполнить запрос из строковой переменной?

http://www.sql.ru/forum/1170816/vypolnit-zapros-iz-strokovoy-peremennoy

в коде vba есть строка присвоения полю формы текущей даты Me.date_incoming = Date
при выполнении кода вываливается ошибка Can't find project or librari
В References библиотека Microsoft Access 12.0 Object Librari подключена
В чем причина сего недоразумения?

http://www.sql.ru/forum/1170813/vba-rugaetsya-na-funkciu-date

Dim zap As String
    zap = "', '"
    str_2 = "UPDATE patients_history INNER JOIN kodebi_q ON patients_history.id_patient_history = kod_q.id_patient_history" _
          & " SET patients_history.kode = ([patients_history].[kode] +" & zap & ") & [kod_q].[regcode]" _
          & " WHERE momartvis_tarigi = " & Format(Me.date_1, "\#mm\/dd\/yyyy\#")

Выдает ошибку: Error ‘3061’. Too few parameters. Expected 1

Хотя сам запрос работает:

UPDATE patients_history 
INNER JOIN kodebi_q ON patients_history.id_patient_history=kod_q.id_patient_history 
SET patients_history.kode = [patients_history].[kode] & ", " & [kod_q].[regcode]
WHERE momartvis_tarigi=Me.date_1;

Никак не пойму, какая особая разница между ними.

http://www.sql.ru/forum/1170803/update-zapros

Здравствуйте, подскажите пожалуйста как перенастроить поле для поиска чтоб в нем заработало два условия отбора: Поиск по артикулу и поиск по товару (не зависимых друг от друга).
*************************
Сейчас код выглядит так:
Private Sub Поле5_Change()
Dim S1
S1 = Me.Поле5.Text & ""
Me.Filter = "Товар Like '*" & S1 & "*'"

Me.FilterOn = True
Me.Поле5.SelStart = Len(S1) + 1
End Sub

По названию товара ищет отлично (Благодарю участников форума)

http://www.sql.ru/forum/1170734/pomoshh-uluchshit-polya-poiska-po-nazvaniu

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

Разбираюсь с WebBrowser, появилась небольшая проблема. Через цикл загружаю страницы на некоторых из них есть элемент с ID "Follow", а на некоторых нет, вот там где нет этого элемента программа просто вываливается, а где есть всё отлично отрабатывает. Каким образом отловить то что нет этого элемента.

http://www.sql.ru/forum/1170718/webbrowser

Добрый вечер, уважаемые форумчане!Помогите,пожалуйста, с вопросом объединения столбцов перекрестного запроса и обычного запроса на выборку. Перекрестный запрос с переменным количеством столбцов.

Запрос на выборку: (Запрос4)


SELECT DISTINCT Подтип_расх.Подтип_расх,
Nz([Общие],0)+Nz([Не акцептованные],0)+Nz([Прочие],0)+Nz([Летный состав],0)+Nz([Стюарты],0) AS [Сумма затрат],

(SELECT SUM(Затраты.Сумма) FROM Затраты
WHERE Затраты.№_рейса IS NULL AND Затраты.Прочие IS NULL
AND Затраты.Подтип_расх=Подтип_расх.Подтип_расх GROUP BY Подтип_расх.Подтип_расх) AS Общие,

(SELECT SUM(Затраты.Сумма) FROM Затраты
WHERE (Затраты.Дата_сост_отчета>Затраты.Дата_услуги OR Затраты.Дата_сост_отчета>Format(Затраты.Дата,"mmmm yyyy"))
AND Затраты.Подтип_расх=Подтип_расх.Подтип_расх
GROUP BY Подтип_расх.Подтип_расх) AS [Не акцептованные],

(SELECT SUM(Затраты.Сумма) FROM Затраты
WHERE Затраты.Прочие IS NOT NULL AND Затраты.Подтип_расх=Подтип_расх.Подтип_расх
GROUP BY Подтип_расх.Подтип_расх) AS Прочие,

(SELECT SUM(Затраты.Сумма) FROM Затраты
WHERE Затраты.КВС IS NOT NULL AND Затраты.Второй_пилот IS NOT NULL AND Затраты.Подтип_расх=Подтип_расх.Подтип_расх
GROUP BY Подтип_расх.Подтип_расх) AS [Летный состав],

(SELECT SUM(Затраты.Сумма) FROM Затраты
WHERE Затраты.Стюарты IS NOT NULL AND Затраты.Подтип_расх=Подтип_расх.Подтип_расх
GROUP BY Подтип_расх.Подтип_расх) AS Стюарты
FROM Подтип_расх, Затраты
WHERE (Format(Затраты.Дата,"mmmm yyyy") LIKE [Введите_месяц_год] OR Затраты.Дата_услуги LIKE [Введите_месяц_год])
AND Затраты.Серийный_ВС=[Введите серийный номер ВС];

Перекрестный запрос: (Запрос2)


PARAMETERS [Введите_месяц_год] Text ( 255 ), [Введите серийный номер ВС] Text ( 255 );
TRANSFORM SUM(Затраты.Сумма) AS [SUM]
SELECT Подтип_расх.Подтип_расх AS [Статьи затрат]
FROM Подтип_расх, Затраты
WHERE Затраты.[№_рейса] IS NOT NULL
AND Затраты.Подтип_расх=Подтип_расх.Подтип_расх
AND (Format(Затраты.Дата,"mmmm yyyy") LIKE [Введите_месяц_год]
OR Затраты.Дата_услуги LIKE [Введите_месяц_год]) AND Затраты.Серийный_ВС=[Введите серийный номер ВС]
GROUP BY Подтип_расх.Подтип_расх
PIVOT Затраты.[№_рейса] & " " & Затраты.а_п_выл & " " & Затраты.Дата;

При подстановке перекрестного запроса в обычный в виде:

SELECT DISTINCT Подтип_расх.Подтип_расх,
Nz([Общие],0)+Nz([Не акцептованные],0)+Nz([Прочие],0)+Nz([Летный состав],0)+Nz([Стюарты],0) AS [Сумма затрат],

(SELECT SUM(Затраты.Сумма) FROM Затраты WHERE Затраты.№_рейса IS NULL AND Затраты.Прочие IS NULL AND Затраты.Подтип_расх=Подтип_расх.Подтип_расх GROUP BY Подтип_расх.Подтип_расх) AS Общие,

(SELECT SUM(Затраты.Сумма) FROM Затраты
WHERE (Затраты.Дата_сост_отчета>Затраты.Дата_услуги
OR Затраты.Дата_сост_отчета>Format(Затраты.Дата,"mmmm yyyy"))
AND Затраты.Подтип_расх=Подтип_расх.Подтип_расх
GROUP BY Подтип_расх.Подтип_расх) AS [Не акцептованные],

(SELECT SUM(Затраты.Сумма) FROM Затраты
WHERE Затраты.Прочие IS NOT NULL AND Затраты.Подтип_расх=Подтип_расх.Подтип_расх
GROUP BY Подтип_расх.Подтип_расх) AS Прочие,

(SELECT SUM(Затраты.Сумма) FROM Затраты
WHERE Затраты.КВС IS NOT NULL AND Затраты.Второй_пилот IS NOT NULL AND Затраты.Подтип_расх=Подтип_расх.Подтип_расх
GROUP BY Подтип_расх.Подтип_расх) AS [Летный состав],

(SELECT SUM(Затраты.Сумма) FROM Затраты
WHERE Затраты.Стюарты IS NOT NULL
AND Затраты.Подтип_расх=Подтип_расх.Подтип_расх
GROUP BY Подтип_расх.Подтип_расх) AS Стюарты,

(SELECT * FROM Запрос2)
FROM Подтип_расх, Затраты
WHERE (Format(Затраты.Дата,"mmmm yyyy") LIKE [Введите_месяц_год]
OR Затраты.Дата_услуги LIKE [Введите_месяц_год])
AND Затраты.Серийный_ВС=[Введите серийный номер ВС];
получаем ошибку "" не распознается ядром СУБД MA как допустимое имя поля или выражения.Я так понимаю при пересечении для перекрестного запроса выборка ничего не дает и из-за этого появляется данная ошибка. Подскажите,пожалуйста,какими методами можно это обойти? Или как то иначе можно получить данный вид отчета. Примерный вид отчета также приложил.

http://www.sql.ru/forum/1170697/obedinenie-stolbcov-zaprosa-na-vyborku-i-perekrestnogo-zaprosa

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

Итак:

Есть таблица 1
- Клиент 1
- Клиент 2
- Клиент 3

Есть таблица 2:
- клиент 1 - юр.лицо 1
- клиент 1 - юр.лицо 2
- клиент 2 - юр.лицо 1
и т.д. то есть один клиент может работать со мной от неограниченного количества юр.лиц
они между собой, разумеется, связаны по полю Клиент

создаю таблицу 3 с проектом.
в нем поля - клиент и его юр.лицо.

как сделать так, чтобы
- я выбрала клиента
- перешла к полю юр.лицо
- и в нем бы выпадали только те, которые относятся к соответствующему клиенту?

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

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

Заранее спасибо.

http://www.sql.ru/forum/1170667/vybor-tolko-nuzhnyh-mne-zapisey

Уважаемые гуру, подскажите пожалуйста как в поле отчета прописать длинный формат даты.
У меня сейчас стоит вот такое выражение: ="&lcase(format([date];"dd\mmmm\yyyy"))&" г."
получается например 02 август 2015 г. Как прописать функцию используя long date.
Искренне благодарен за помощь.

http://www.sql.ru/forum/1170592/format-data-v-otchyote