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

SELECT [Дополнительные сведения о сотрудниках].ИД, [Дополнительные сведения о сотрудниках].[Имя сотрудника],
(SELECT xx2(([Forms]![Общее расписание].[Dat]), (Forms![Общее расписание].[ИД])) AS h FROM [Расписание мастера] WHERE((([Расписание мастера].[id_мастера])=Forms![Общее расписание]![ИД] ) And 
(([Расписание мастера].[дата])=([Forms]![Общее расписание]![Dat]+([Forms]![Общее расписание]![time1]))))) AS t1, 
(SELECT xx2(([Forms]![Общее расписание].[Dat]), (Forms![Общее расписание].[ИД])) AS h FROM [Расписание мастера] WHERE((([Расписание мастера].[id_мастера])=Forms![Общее расписание].[ИД] ) And 
(([Расписание мастера].[дата])=[Forms]![Общее расписание]![Dat]+([Forms]![Общее расписание]![time2])))) AS t2, 
(SELECT xx2(([Forms]![Общее расписание].[Dat]), (Forms![Общее расписание].[ИД])) AS h FROM [Расписание мастера] WHERE((([Расписание мастера].[id_мастера])=Forms![Общее расписание].[ИД] ) And 
(([Расписание мастера].[дата])=[Forms]![Общее расписание]![Dat]+([Forms]![Общее расписание]![time3])))) AS t3, 
(SELECT xx2(([Forms]![Общее расписание].[Dat]), (Forms![Общее расписание].[ИД])) AS h FROM [Расписание мастера] WHERE((([Расписание мастера].[id_мастера])=Forms![Общее расписание].[ИД] ) And 
(([Расписание мастера].[дата])=[Forms]![Общее расписание]![Dat]+([Forms]![Общее расписание]![time4])))) AS t4, 
(SELECT xx2(([Forms]![Общее расписание].[Dat]), (Forms![Общее расписание].[ИД]))  AS h FROM [Расписание мастера] WHERE((([Расписание мастера].[id_мастера])=Forms![Общее расписание].[ИД] ) And 
(([Расписание мастера].[дата])=[Forms]![Общее расписание]![Dat]+([Forms]![Общее расписание]![time5])))) AS t5
FROM [Дополнительные сведения о сотрудниках];

Добавил Модуль, в котором прописал Функцию

Public Function xx2(Dat As Date, ИД As Variant)
If IsDate(Dat) And Not IsNull(ИД) Then
xx2 = "X"
End If
End Function

В итоге в форме получаю следующее


В таблице Расписание мастеров имеется одна запись на 15.08.2014 с ИД мастера 1. А Расписание заполняется по всем мастерам.

Также для отбора временных периодов написал процедуру

Public Sub xxx1()
Me!time1 = #6:00:00 AM# 'Format(DLookup("[Значение]", "[Таблица времени]", "ИД=1"), "hh:mm")
Me!time2 = #6:30:00 AM# 'Format(DLookup("[Значение]", "[Таблица времени]", "ИД=2"), "hh:mm")
Me!time3 = #7:00:00 AM# 'Format(DLookup("[Значение]", "[Таблица времени]", "ИД=3"), "hh:mm")
Me!time4 = #7:30:00 AM# 'Format(DLookup("[Значение]", "[Таблица времени]", "ИД=4"), "hh:mm")
Me!time5 = #8:00:00 AM# 'Format(DLookup("[Значение]", "[Таблица времени]", "ИД=5"), "hh:mm")

End Sub

Так вот, если я убираю значения времени и раскомментирую функцию Format, то получаю сообщение



Написал свою функцию, в которую загнал Format(DLookup), результат тот же
Посмотрите пожалуйста, целый день бьюсь
База больше 150кб поэтому Ссылка Для скачивания

http://www.sql.ru/forum/1111288/formirovanie-obshhego-grafika-raboty

Через раз отрабатывает INSERT INTO

Имею такую хранимку, которая должна писать в таблицу TempNPP набор данных. Но работает через раз. Так понимаю mdb блокирует.

CREATE PROCEDURE procTempNPP
 AS 
INSERT INTO TempNPP (NomZ_v, NomZ_i, NomZ_p, NPP)
SELECT i.NomSoed, i.NomZ, p.NomZ, i.IarusNom*100+p.PorodaNom
FROM TblVydIarus AS i
	INNER JOIN TblVydPoroda AS p ON i.NomZ=p.NomSoed
WHERE i.Iarus NOT IN(17, 19)

Таким образом вызываю хранимку. Вызов произвожу из компонента TADOCommand.
EXECUTE procTempNPP

Ошибки никакой не выскакивает.

http://www.sql.ru/forum/1111247/cherez-raz-otrabatyvaet-insert-into-builder-6-na-mdb-fayle

Добрый день уважаемые есть маленький вопрос.
Имеется таблица в которой один столбик весь в датах ##.##.####
как можно и нужно сделать запрос чтобы при вводе наименования месяца "март" выводились бы конкретные данные.
пока придумал токо like*##.03.####*

http://www.sql.ru/forum/1111223/zapros-na-datu

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

http://www.sql.ru/forum/1111184/access

Добрый день!

Уважаемые форумчане, прошу помочь. Третий день мучаюсь - ничего не выходит((
В Access (.accdb) была табличная подчиненная форма, на ней-combobox. Источник строк - данные из таблицы

ID	NAME
1	Иванов
2	Петров
3	Сидоров

SELECT ID, NAME
FROM NAMES;

Со временем возникла необходимость ограничить список фамилий. Для этого я поставила на загрузку формы:

Private Sub Form_Load()
Me.ПолеСоСписком1.RowSource = "SELECT NAMES.ID, NAMES.NAME FROM NAMES where ID in(1,2)"
End Sub

При переходе на ADP возникла проблема: в ранее внесенных записях не отображаются поля с ID=3, Сидоров, хотя в Access все работало, записи с ID=3 были видны на форме. Извините за, возможно, глупый вопрос. Очень жду помощи. Заранее спасибо!!!

http://www.sql.ru/forum/1111143/rowsource-polya-so-spiskom-pri-perehode-na-adp

Приветствую!

Исходные данные — запрос из таблицы такого вида:

Месяц	Доход
2014-08	2000
2014-07	3416
2014-06	5428
2014-05	4533
...	...
2013-08	2500
2013-07	2390
и так далее

Требуется
Вывести эти данные на графике, но не всё подряд, а в виде 2х графиков: текущий год и прошлый год, чтобы наглядно сравнивать доход (см. пример, сделанный в Excel).

Как это лучше организовать? Можно ли обойтись без кода, а только встроенными средствами конструктора?
У меня была только одна идея: 2 запроса сделать (текущий год и прошлый год), но их на один график не получилось засунуть :(

http://www.sql.ru/forum/1111083/vyvesti-2-grafika-v-odnom-dohod-po-mesyacam-za-tekushhiy-god-i-za-proshlyy

Пытаюсь "наваять" свою БД по теме "Деканат". Есть свои наработки (схема в приложении). Есть и на этом форуме материал для ознакомления (напр.: http://www.sql.ru/forum/849101/funkcii-i-formy?mid=10697234#10697234).

Для простенькой контрольной/лабораторной не плохо.

Проблема в том, что учебного плана, как такового, у меня нет. В смысле таблицы... А работать придётся с информацией о тех или иных оценках в каком-то году, в той или иной специальности т.д. Можно, конечно запросом, этот текущий учебный план узнать, но как его сохранять?Однако при изменении/удалении записи о предмете, например, данные о сдаче этого предмета студентами изменятся.

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

Вижу несколько выходов:
1. В начале сессии создавать запросом таблицу "учебный план" для каждого студента, с учетом его специальности. Где, кроме информации о нём, будет находится список предметов для сдачи. В последствии, после сессии - проставляем оценки и храним в архиве.

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

3. Для текущих записей использовать мою текущую БД. Летом архивировать данные в отдельную БД.

Возможно, все три варианта выглядят полным бредом, но хотелось бы узнать мнение профессионалов. Как теоретиков, так и практиков. Возможно, где то применяется (и с успехом) что-то ещё.

http://www.sql.ru/forum/1111030/arhitektura-bd-dekanat

доброго всем времени суток, возникла такая проблема, работаю в школе педагогом-психологом, приходится обрабатывать много тестов, отчетной документации, чтобы упростить работу, появилась идея создания такой БД, но знаний не хватает, поэтому ищу "куратора", помогите пожалуйста, мой скай alena8971, скину туда то, что есть

http://www.sql.ru/forum/1110969/bd-pedagoga-psihologa-ishhu-kuratora

Поправьте, плз, функцию.

Есть запрос z_site_zapchasti_dlya_importa
в нем поле Product_name содержит неисправленные названия
и поле namenew в котором должны появится исправленные названия, которые вызываются в запросе функцией zameny

namenew: zameny(Product_name)

таблица замен t_site_zameny_nazvaniy содержит поля name_bylo и name_stalo

приведенный код ничего не меняет в запросе, подскажите, где я накосячил?

Public Function zameny(поле)
Set rstTrans = CurrentDb.OpenRecordset("t_site_zameny_nazvaniy")
Set rst = CurrentDb.OpenRecordset("z_site_zapchasti_dlya_importa")
rstTrans.MoveFirst
Do While Not rstTrans.EOF
    rst.MoveFirst
    Do While Not rst.EOF
            If InStr(rst!, rstTrans!name_bylo) = 1 Then
            rst.Edit
            rst!namenew = Replace(rst!namenew, rstTrans!name_bylo, Nz(rstTrans!name_stalo, ""))
            rst.Update
            Exit Do
        Else
            rst.MoveNext
        End If
    Loop
    rstTrans.MoveNext
Loop

rst.Close
Set rst = Nothing
End Function

http://www.sql.ru/forum/1110905/poisk-chasti-teksta-v-stroke-i-zamena-na-znachenie-iz-podstanovochnoy-tablicy

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

спасибо

http://www.sql.ru/forum/1110878/filtr-vvoda

Доброе время суток!
в 97 АК при написании макроса есть функция "задатьзначение" в 2007-2010 АК её нема подскажите что сделать?

http://www.sql.ru/forum/1110833/funkciya-zadat-znachenie

При запуске любых мастеров в access97 база самопроизвольно закрывается
Прошу подскажите пожалуйста в чем может быть причина такого поведения. Аccess97 установлен на Windows2003. Устанавливал на разных Пк с Windows2003 - реакция та же. На WindowsХР этот же Аccess97 работает нормально.
Заранее благодарю

http://www.sql.ru/forum/1110813/pri-zapuske-lubyh-masterov-v-access97-baza-samoproizvolno-zakryvaetsya

Добрый день!

Есть запрос "q_cw_amt":

SELECT Sum(CW.AMT) AS СУММ, 
(SELECT SUM(CW2.AMT) FROM CW2 AS CW2 LEFT JOIN [LAST-1_date] ON CW2.DT = [LAST-1_date].Дата 
WHERE CW2.INN=CW.INN AND CW2.ISPSZ_contract = "очн" 
GROUP BY CW2.INN, CW2.ISPSZ_contract) AS СУММ2

FROM CW LEFT JOIN LAST_date ON CW.DT = LAST_date.Дата
WHERE (((CW.INN)=Forms!карточка_клиента!Lstbox_cln) And ((CW.ISPSZ_contract)="неочн"))
GROUP BY CW.INN, CW.ISPSZ_contract;

Пытаюсь присвоить в форме txtfld_summ1 и fld_summ2 присвоить значения СУММ и СУММ2 соответственно

=DLookUp("[СУММ2]";"q_cw_amt") - помогает, получается

Хочу сделать как написано здесь 12321018, но пишет что "Слишком мало параметров. Требуется 1".
Читаю вот это: http://www.sql.ru/faq/faq_topic.aspx?fid=410

Делаю вот это:

    Set q = CurrentDb.QueryDefs("q_cw_amt_clean")
       Me.fld_сумм = q.OpenRecordset("q_cw_amt_clean")
       q.Close: Set q = Nothing

А кусок кода не срабатывает и пишет "ошибка преобразования типа данных" :(
Господа! Помогите куску разобраться с куском кода :)

http://www.sql.ru/forum/1110703/vyvod-rezultata-zaprosa-v-tekstboks-formy

сделал запрос на обновление на основе другого запроса.
как запрос все работает

пытаюсь повесить его исполнение на кнопку - не работает
в чем проблема ?

вот текст макроса

Private Sub Кнопка113_Click()


DoCmd.RunSQL "UPDATE t_shipment SET t_shipment.Surname_driver = " & DLookup("Surname_driver", "q_driver_template") & ", t_shipment.Name_driver = " & DLookup("Name_driver", "q_driver_template") & ", t_shipment.MidName_driver = " & DLookup("MidName_driver", "q_driver_template") & " WHERE (((t_shipment.ID_shipment)=[Формы]![f_shipment]![ID_shipment]));", -1



End Sub

http://www.sql.ru/forum/1110688/ispolzovanie-dlookup-v-makrose-vba

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

Вот код, привязанный ко 2ой форме
t_nm - глобальная переменная, тип String

Private Sub Form_Load()
Me.Project.Form.Filter = "Name=" & t_nm
Me.Project.Form.FilterOn = True
End Sub

При ее открытии появляется окно, в котором просят ввести значение переменной. Как этого избежать?
Если его ввести в этом окне фильтр срабатывает

http://www.sql.ru/forum/1110650/filtr-cherez-globalnuu-peremennuu

Есть локальная база товаров.

Было бы неплохо видеть изображения товара (картинки) в карточке товара.
При этом изображения JPG должны храниться не в БД, а в отдельной папке.
И вторая задача - при добавлении нового товара как-то добавлять и картинку товара. Желательно, чтобы при єтом у картинки еще и имя менялось с DS4251.JPG на id_tovara_№img.jpg


Вероятно в таблице товаров должно появится поле со ссылкой на картинку, а в форме объект, который бы по этой ссылке показывал бы изображение.

В поиске вопрос поднимался, но подходящего примера я так и не нашел.
Подскажите, плз, как можно реализовать подобное.

http://www.sql.ru/forum/1110617/ispolzovanie-svyazannyh-kartinok-izobrazheniy-v-access

пытаюсь обновить данные на основании данных в другой таблице. Выдает ошибку

вот текст запроса
UPDATE t_shipment SET t_shipment.Surname_driver = [t_driver_template].[Surname_driver]
WHERE (((t_shipment.ID_shipment)=[Формы]![f_shipment]![ID_shipment]));


при запуске запрос просит ввести значение [t_driver_template].[Surname_driver]
хотя в таблице t_driver_template данные присутствуют

объясните, пожалуйста, в чем ошибка запроса ?

http://www.sql.ru/forum/1110494/zapros-na-obnovlenie-na-osnovanii-dannyh-drugoy-tablicy

Добрый день.

Ранее использовался Listview (Treeview) для организации Drag'n'Drop файлов, текста и т.д. из эксплорера и других программ на форму Access. В версии Access 2007 все работало более-менее сносно, но после перехода на Access 2013 в вышеуказанных контролах исчезли свойства OLEDragMode и OLEDropMode. Соответственно, Drag'n'Drop-эффект тоже перестал работать.

Скажите, сталкивался ли кто с данной проблемой и нашлись ли пути её решения?

На всякий случай:
- Win 7 Enterprise SP1 32-bit
- Microsoft Access 2013 (15.0.4569.1503) MSO(15.0.4569.1506) 32-bit

Заранее спасибо за помощь.

http://www.sql.ru/forum/1110443/drag-n-drop-s-ispolzovaniem-listview-treeview-v-access-2013

С access-ом дружу, раньше все через связанные таблицы делал, хочу перенести таблицы на ms sqlserver express или типа того что-то. Как лучше поступить, как это проще технически исполнить и много ли в клиентской части придется переделывать?

http://www.sql.ru/forum/1110343/ot-razdelennoy-bazy-k-sql-server

В общем ситуация такая:
Есть разделенная бд-медицинских исследований (по учреждению). Из некоторого нашего оборудования можно отчет о исследованиях получить в виде файла exсel (ФИО, дата, заключение и тп). Ходу сделать простую форму с кнопкой, чтобы мой сотрудник скопировав предварительно файл excel в нужное место мог её нажать и автоматически перенести данные из файла excel в таблицу бд. Кое как наверно и у самого получится, хочется узнать как грамотно написать (чтобы 100 страниц текста не вышло) функцию автоматического импорта? Думаю наверно лучше делать это в 2 этапа - первым создать таблицу на основе excel а потом запросом перекинуть недостающие записи в основную таблицу. При этом надо учесть, что в excel данные начинаются не с первой строки, а с 3ей, количество строк может быть разным.

Заранее всем спасибо!

http://www.sql.ru/forum/1110342/programmnyy-import-iz-exsel