Суть проблемы:
при нажатии кнопки запускается процедура, которая
1. Создает таблицу:

CurrentDb.Execute "create table TO_Select (smena_id Int, TO_id Int, place_id int, ved_N char (20))"

2. Определяет переменные (привожу только нужную):

    
Dim d As String
d = frm.Year & "-" & frm.Month & "-" & frm.Day1 & "-" & frm.Day2 & "-__" 'Должно иметь вид, например 2017-01-19-19-__

3. Вставляю переменные в таблицу:

CurrentDb.Execute "INSERT INTO TO_Select (smena_id, to_id, place_id, ved_N) values (" & a & ",  " & b & ",  " & c & ", " & d & ")"

при выполнении процедуры вылетает ошибка (в приложении)
если переменную задать в виде

d = frm.Year & "-" & frm.Month & "-" & frm.Day1 & frm.Day2

то запрос срабатывает, но в таблицу попадает математический результат вычисления 2017-01-19-19, то есть 1978, хотя везде указано, что это поле должно быть текстовым.
Где я что-то упустил?

http://www.sql.ru/forum/1246526/izmenenie-tipa-dannyh-v-zaprose

Добрые люди,помогите вроде с не сложным вопросом
Имеется одна таблица:
*Номер дежурства
Дата приема
Время приема
Номер врача

Как правильно задать условие что бы при вводе данных нельзя было сделать несколько записей к одному врачу на одно и то же время?
Вроде все просто,нужно сделать условие что при полном повторении(Дата приема,время прием,номер врача) он выдавал ошибку и не позволял занести данное значение,но вот сижу и вообще не понимаю как создать данное условие,пожалуйста помогите новичку=)

http://www.sql.ru/forum/1246522/prostoe-deystvie-a-vse-nikak-ne-poluchaetsya-proshu-pomoshhi

В качестве источника субформы передаю следующую строку
Me![Суб Расход].Form.RecordSource = "EXEC dbo.FO_СубРасход_Источник '" & Format(Me![годНачала], "yyyymmdd") & "', '" & Format(Me![годКонца], "yyyymmdd") & "', '" & продавец & "', '" & покупатель & "' ".
Хранимая процедура на SQL сервере оттестирована - работает. Первый и второй параметры - даты, третий и четвертый - строка.
Тем не менее при запуске в форме выдает ошибку - неправильный синтаксис возле EXEC. У меня в других местах программы организованы вызовы подобных процедур, но с одним параметром - все работает. Что в данном случае неправильно? Как передать несколько параметров в процедуру, которая является источником строк формы?

http://www.sql.ru/forum/1246517/istochnik-formy-procedura-s-neskolkimi-parametrami

Подскажите, когда отчет создается с помощью мастера, то он ( мастер) каким-то образом связывает элементы. Не знаю как это называется, иначе и вопроса бы не было. В общем, если выделяешь одно из полей, то и остальные обводятся пунктиром. Что это такое (как это разбить или как туда что-то добавить)?
Наверное, это что-то очевидное, но мне недоступное. Заранее извиняюсь за свою глупость и благодарю всех ответивших по делу.

http://www.sql.ru/forum/1246474/prosteyshiy-vopros-pro-otchet

Добрый день.

Нужна помощь с построением ограничений. Как можно воплотить в реальность следующие два пункта проверки?

1. Заказ выполняется не быстрее чем за два дня.
2. Стоимость компенсации не превышает стоимости очистки.

Буду очень благодарна за какую-нибудь информацию.

http://www.sql.ru/forum/1246462/pravilo-proverki

Пишу проект с использованием RadStudio XE 10.1. Обращаюсь к базе данных в формате Microsoft Access через ADO.
В базе данных хранится кривая с большим количеством точек(больше миллиона).
Данные в базе должны обновляться(сначала удаление, затем вставка новых данных), для удаления используется запрос вида:

Query = "DELETE FROM [DeviceData] WHERE [DeviceId] = " + String(DeviceId);

При выполнении запроса на удаление происходит "зависание" более чем на 2 минуты. При этом запрос на добавление аналогичной записи вида:

INSERT INTO

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

С чем может быть связано данное подвисание?

Прикрепляю тестовый проект. Ссылка на файл базы:
https://cloud.mail.ru/public/2Qio/GmEvffzTg

http://www.sql.ru/forum/1246459/dlitelnoe-vypolnenie-zaprosa-na-udalenie

Всем привет.
Что хотелось бы сделать (автоматизировать).
Есть табличка Продажи с полями Код, Дата, Сумма, Разница.
Нужно, чтобы в поле Код = 1, Разница = 0
Код = 2, Разница = Сумма(2 строка) - Сумма(1 строка)
Код = 3, Разница = Сумма(3 строка) - Сумма(2 строка)
... и так далее.

Можно ли сделать так, чтобы разница рассчитывалась при открытии таблицы?

У меня получилось только с перебросом данных:

Dim Расчет As Recordset, Склад  As Recordset
    Set Склад = CurrentDb().OpenRecordset("ТСклад")
 i = 0
  Do
  i = i + 1
    Склад.Edit
    If Склад![Код] = 1 Then
       ПредЗн = Склад![Сумм]
       Склад![Разница] = 0
    End If
    
    If Склад![Код] = i + 1 Then
       ТекЗн = Склад![Сумм]
       Склад![Разница] = 0
    End If

    Склад.Update
    Склад.MoveNext

  Loop Until Склад.EOF
  
  Склад.Close

http://www.sql.ru/forum/1246438/kak-poschitat-v-tablice

Создаю запрос
Set qry = CurrentDb.CreateQueryDef("имяЗапроса")
Но как дать ему атрибут "скрытый"?

http://www.sql.ru/forum/1246320/kak-sozdat-skrytyy-zapros-na-vba

Следующая ситуация.

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

На сервере стоит Windows 7 64 bit, Office 2010 32 bit и Office 2003
У меня на компьютере стоит Windows 7 32 bit, Office 2010 32 bit и Office 2003

Первоначально всё работало нормально. Потом после какого-то обновления произошла следующая история. Программа разработанная на моём компьютере отказывается работать на сервере. Выдаёт сообщение типа "Ошибка в запросе. Должно быть INSERT, UPDATE или DELETE" не дословно, но смысл похожий. Делаешь сжатие-восстановление, программа начинает работать на сервере. Зато перестаёт работать на моём компьютере. С тем же сообщением. Делаю уже у себя сжатие-восстановление, программа начинает работать у меня, но прекращает на сервере. Системщик только разводит руками и что-то говорит о разных обновлениях. По моему настоянию с сервера снесли оба офиса и установили Office 2010 32 bit заново. Ошибка ушла.

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

Что сделал. Дома под Windows XP в Access 2003 произвёл декомпиляцию программы. Затем поджал её. Программа заработала и на тех машинах, где раньше отказывалась работать.

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

-------------------------------------------------------------
А ты вложил уже свой кровный рубль в 50-ти миллиардное состояние Билла Гейтса?

http://www.sql.ru/forum/1246269/na-odnih-komputerah-programma-rabotaet-na-drugih-net

Никак не пойму, можно ли вообще убрать верхний отступ в контроле "поле" или "надпись" и т.п.
Чтоб текст между верхней границей и текстом не имел пробела, как снизу, например. Как отсечь то, что выше жирной черной черты?
Свойство Toppadding (верхний отступ) = 0. Что еще можно сделать? И возможно ли это вообще. Или какой-то стандартный пробел между верхней границей и текстом будет всегда?

http://www.sql.ru/forum/1246177/verhniy-otstup-v-kontrole-pole-voobshhe-ubrat

Добрый день, прошу у Вас помощи по запросу.
У меня есть таблица1 :

таблица1 Клиент номер_клиента отпущено оплата зачет_тары дата

Что бы узнать сальдо на начало месяца ДЕКАБРЯ я делаю запрос

select номер_клиента,sum(-отпущено+оплата+зачет_тары)
from таблица1
where дата Between #01/01/2016# And #30/11/2016#
group BY номер_клиента

все работает.
После делаю запрос движение за месяц Декабрь

select номер_клиента,sum(отпущено), sum(оплата), sum(зачет_тары)
from таблица1
where дата Between #01/12/2016# And #31/12/2016#
group BY номер_клиента

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

http://www.sql.ru/forum/1246147/pomogite-s-zaprosom

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

К примеру в будущем будет база, в которой будет 5 основных категорий ,в каждой из этих категорий, будут 10-15 под категорий. Соответственно, товаров в общей маcсе будет несколько тысяч, и сами понимаете что в ячейке выбора товара, получение перечень товаров, сформированный ранее через мастера подстановок - не вариант.

Саму базу (тестовую) прикрепляю (Access 2010)

http://www.sql.ru/forum/1246075/kak-realizovat-formirovaniya-novoy-stroki-v-gotovoy-tablice-s-vozmozhnostu-filtra

Описание процесса:
В рамках одной рабочей смены (smena_id) составляется несколько (например 10) ведомостей (ved_id). 5 из них имеют форму отчета (tef_id) 1 , другие 5 - форму 2
Необходимо разом отправить на печать все 10 документов в соответствующих формах.
Если я правильно мыслю, то необходимо составить запрос, отбирающий соответствующие смене ведомости с указанием номеров форм, а потом попросить систему печатать ведомости из этого запроса в соответствующих формах.
С составлением запроса проблем, естественно, никаких... печать всех документов в одной форме реализуется тоже без проблем, а вот как попросить печатать разные формы - не знаю
подскажите, плз, какие-нибудь варианты

http://www.sql.ru/forum/1245982/pechat-gruppy-otchetov-imeushhih-raznuu-formu

Добренькой ночи/дня!

Есть простая функция

Private Function MYFUNC (ctl1 As control)
Dim Переменная1
Переменная1=3000
ctl1.height = ctl1/Переменная1
End function

Пытаюсь при нажатии кнопки изменить высоту поля (упрощенно)

Private Sub Кнопка1_Click()
call MYFUNC (Поле1)
End sub

Но высота Поля1 не меняется. Если вместо вызова функции я пишу: поле1.height = поле1/Переменная1, то все работает, а так нет.

http://www.sql.ru/forum/1245964/svoya-funkciya

Всем доброго времени суток!

Стал играться с офисной лентой. Появилось желание сделать кнопку с правой стороны. Там, где расположен вопросик и кнопки размеров окна.
Возможно ли там размещать свои элементы управления? Если Microsoft-у можно, почему нам нет?

http://www.sql.ru/forum/1245962/lenta-ribbon-v-access

Здравствуйте!
Разрабатывает базу данных для учета приема отходов
существует каталог отходов, где практически к каждому отходу присвоен определенный код.
НО у некоторых отходов существуют разновидности, к примеру люминесцентные лампы различаются по мощности, по типу цоколя, и тд., принтеры, сканеры, мфу включены в один вид отходов, имеющих один код, а на практике нужно разделять всё это.
вопрос: как можно реализовать отчет подобно тому как во вложении?
нужно ли менять структуру базы?
как сделать так, чтобы подсчитывались автоматически только виды отходов, а не подвиды, но выводились все вместе?

http://www.sql.ru/forum/1245909/sostavlenie-slozhnogo-otcheta

Здравствуйте!
Не так давно здесь на форуме поднимал тему, результатом которой и явился новый вопрос.
Суть: нужно создать похожую форму (см. рис. Форма-1), где адресу можно задать свойство "Юридический", "Почтовый", "Фактический", но... один адрес может быть юридическим и фактическим, или юр. и факт, или отдель юр., факт, почт., а фактических может быть несколько.
Вопрос: КАК можно создать такую кнопку на форме, при нажатии на которую добавлялись бы точно такие же поля для ввода нового адреса (см. рис. Форма-2)

Помогите пожаалуйста)

http://www.sql.ru/forum/1245838/dobavlenie-poley-v-forme-pri-nazhatii-knopki

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

Вот весь текст:
SELECT Курсы.[Код курса],
(SELECT Сотрудники.Должность
FROM Сотрудники
WHERE Сотрудники.Фамилия ='Ильин')
FROM Курсы, Сотрудники
WHERE InStr(1,Курсы.[Обучаемый состав].Value,Сотрудники.Должность);

Access ругается - "...запрос содержит неоднозначные внешние соединения. Для явного указания соединения, выполнемого первым, создайте отдельный запрос и включите его в инструкцию SQL". В чем ошибка?

http://www.sql.ru/forum/1245762/v-chem-oshibka-v-podzaprose

Доброго дня!
Знаю, что подобные темы поднимались, но прочитав их более 10 так и не понял как решить вопрос-ребята общаются как опытные программисты, не понятно для новичка. Прошу помощи.

цель - в таблице access фиксировать создателя и того, кто последний раз редактировал форму/таблицу.
задача 1. определить имя пользователя, который открыл базу данных
задача 2. при открытии формы внести в таблицу имя того, кто последний изменял её.
задача 3. фиксировать кто создал новую строчку в таблице (через ввод новых данных в форме) - вообще не понимаю как сделать.

Прочитав десятки тем и форумов вот, что сделал. Но это не работает.


Option Compare Database

Public Function ComputerName() As String
Dim WshNetwork As Object

Set WshNetwork = CreateObject("WScript.Network")
ComputerName = WshNetwork.ComputerName
End Function

Private Sub Form_Open(Cancel As Integer)
Me.Avtor = ComputerName
End Sub

http://www.sql.ru/forum/1245738/vzyat-imya-polzovatelya-i-vstavit-v-stroku-tablicy-ms-access

Привет. как видна совсем я новый тут. по правде новый и в MS ACCESS, использую VBA на MS EXCEL, решил подучится с ACCESS работать. Y мене возникла такая проблема

поменять параметр в форме можна так :

Forms!TechnineUzduotis.Controls!ID.Enabled = False

но по нектарам причинам я не чачу обращаться на прямую мне на-да штота такое :

form_name = Me.tipas.Value
Forms!form_name.Controls!ID.Enabled = False

как решит такую беду ?

http://www.sql.ru/forum/1245703/vba-obrashhatsya-v-formu-ne-na-pryamuu