Имеется таблица записей с полями: Дата, ПоступилоНаСумму.
Можно ли создать запрос в Access такого содержания: выбрать наиболее старые поступления на общую сумму не более 10000 руб.
Подскажите в каком направлении копать?

http://www.sql.ru/forum/1258725/nuzhen-otvet-ekspertov-access

Вот это должно работать

Sub Агрегация()
    Dim s
    Dim d
    d = "& ""--"" &"
    s = "Insert into Сведения(ДатаДокумента, НомерДокумента, КодКонтрагента, ДатаНакладной, НомерНакладной, КодОтветственного, Сумма, ОтметкаОбОплате, НомерНакладнойСПрефиксом " & _
        "SELECT First(ВедомостьПоступленийТовара.ДатаДокумента) AS [First-ДатаДокумента], First(ВедомостьПоступленийТовара.НомерДокумента) AS [First-НомерДокумента], " & _
        "First(Контрагенты.КодКонтрагента) AS [First-КодКонтрагента], First(ВедомостьПоступленийТовара.ДатаНакладной) AS [First-ДатаНакладной], " & _
        "First(ВедомостьПоступленийТовара.НомерНакладной) AS [First-НомерНакладной], First(Ответственные.КодОтветственного) AS [First-КодОтветственного], " & _
        "Sum(ВедомостьПоступленийТовара.СуммаПоЗакупочнойЦене) AS [Sum-СуммаПоЗакупочнойЦене], first('не оплачено') as Отметка, [НомерНакладной] " & d & " [КодОтветственного] " & _
        "AS ВиртНакл " & _
        "FROM ВедомостьПоступленийТовара INNER JOIN (Ответственные INNER JOIN ((СправочникТоваров INNER JOIN Классификатор ON СправочникТоваров.КодПодгруппы = Классификатор.КодПодгруппы) " & _
        "INNER JOIN Контрагенты ON СправочникТоваров.КодПоставщика = Контрагенты.КодКонтрагента) ON Ответственные.КодОтдела = Классификатор.КодОтдела) " & _
        "ON ВедомостьПоступленийТовара.КодТовара = СправочникТоваров.КодТовара " & _
        "GROUP BY [НомерНакладной] " & d & " [КодОтветственного];"
    Debug.Print s
    
    
    CurrentDb.Execute s
    MsgBox ("Импорт успешно завершен")
End Sub

Выдает строку: "Insert into Сведения(ДатаДокумента, НомерДокумента, КодКонтрагента, ДатаНакладной, НомерНакладной, КодОтветственного, Сумма, ОтметкаОбОплате, НомерНакладнойСПрефиксом SELECT First(ВедомостьПоступленийТовара.ДатаДокумента) AS [First-ДатаДокумента], First(ВедомостьПоступленийТовара.НомерДокумента) AS [First-НомерДокумента], First(Контрагенты.КодКонтрагента) AS [First-КодКонтрагента], First(ВедомостьПоступленийТовара.ДатаНакладной) AS [First-ДатаНакладной], First(ВедомостьПоступленийТовара.НомерНакладной) AS [First-НомерНакладной], First(Ответственные.КодОтветственного) AS [First-КодОтветственного], Sum(ВедомостьПоступленийТовара.СуммаПоЗакупочнойЦене) AS [Sum-СуммаПоЗакупочнойЦене], first('не оплачено') as Отметка, [НомерНакладной] & "--" & [КодОтветственного] AS ВиртНакл FROM ВедомостьПоступленийТовара INNER JOIN (Ответственные INNER JOIN ((СправочникТоваров INNER JOIN Классификатор ON СправочникТоваров.КодПодгруппы = Классификатор.КодПодгруппы) INNER JOIN Контрагенты ON СправочникТоваров.КодПоставщика = Конт
рагенты.КодКонтрагента) ON Ответственные.КодОтдела = Классификатор.КодОтдела) ON ВедомостьПоступленийТовара.КодТовара = СправочникТоваров.КодТовара GROUP BY [НомерНакладной] & "--" & [КодОтветственного];"

Оригинал ЗАПРОСА в ACCESS

SELECT First(ВедомостьПоступленийТовара.ДатаДокумента) AS [First-ДатаДокумента], First(ВедомостьПоступленийТовара.НомерДокумента) AS [First-НомерДокумента], First(Контрагенты.КодКонтрагента) AS [First-КодКонтрагента], First(ВедомостьПоступленийТовара.ДатаНакладной) AS [First-ДатаНакладной], First(ВедомостьПоступленийТовара.НомерНакладной) AS [First-НомерНакладной], First(Ответственные.КодОтветственного) AS [First-КодОтветственного], Sum(ВедомостьПоступленийТовара.СуммаПоЗакупочнойЦене) AS [Sum-СуммаПоЗакупочнойЦене], first('не оплачено') as Отметка, [НомерНакладной] & "--" & [КодОтветственного] AS ВиртНакл
FROM ВедомостьПоступленийТовара INNER JOIN (Ответственные INNER JOIN ((СправочникТоваров INNER JOIN Классификатор ON СправочникТоваров.КодПодгруппы = Классификатор.КодПодгруппы) INNER JOIN Контрагенты ON СправочникТоваров.КодПоставщика = Контрагенты.КодКонтрагента) ON Ответственные.КодОтдела = Классификатор.КодОтдела) ON ВедомостьПоступленийТовара.КодТовара = СправочникТоваров.КодТовара
GROUP BY [НомерНакладной] & "--" & [КодОтветственного];

Добавил команду Insert Into

http://www.sql.ru/forum/1258719/uvazhaemye-specialisty-pomogite-nayti-oshibku-v-sintaksise-zaprosa-sql-v-vba

Друзья, всем привет!
Подскажите, делаю небольшую базу в access, есть две таблицы 1 и 2, вторая подчиняется первой. Необходимо по нажатию на элемент таблицы 2, копировать его в память и передавать в отбор таблицы 1. С VBA сильно не знаком, стандартными макросами пытался делать, но запись через построитель выражений вида:

автор
=[Аргументация]![Код] = [Ссылка].[DefaultValue]

Эффекта не даёт, собственно [Ссылка] хранит то самое значение которое мне надо подставить в [Аргументация]![Код].

Буду рад за любую наводку.

http://www.sql.ru/forum/1258689/kak-skopirovat-znachenie-i-peredat-ego-v-otbor

Добрый день, подскажите как в запросе сделать фильтрацию по полю чтобы показать только значения которые не содержат часть слова
<>"*АПП*"
не работает(

http://www.sql.ru/forum/1258682/filtr-po-znacheniyam-ne-soderzhitsya

Люди!!!!
Есть необходимость(жадность коллег) распечатывать данные из фомы в формате А5, 2 копии на листе.
Стандартными операторами мастдая не получается. Я ставлю печать 2 страницы на листе, выходит 2 листа, на каждом 1 копия формата А5.
Помогите, плз.
Экономия должна быть экономной))) Это касается и бумаги))

http://www.sql.ru/forum/1258670/pechat

Всем привет.
Есть таблицы: Заказы, Списание, СоставСписания, Товары.
На форме расположено несколько форм, подчиненных друг другу:
Заказ (главная) -> Списание (подч. 1 ур.) -> СоставСписания (подч. 2 ур.)

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

http://www.sql.ru/forum/1258667/sozdanie-zapisi-v-glavnoy-forme-pri-vybore-tovara-v-podchinennoy-forme

Цель - сравнить две имеющиеся таблицы одного типа. Обе примерно по 50 тыс.записей.

Из двух путей что выполнится быстрее?

Необходимо внести в первую таблицу из второй таблицы записи, которые отсутствуют в первой.

Есть два пути:
1. Методом сравнения (IN и подобные операторы) выявить необходимые изменения.
2. Объединить две таблицы, сгруппировать результаты и заменить первую таблицу на полученную после группировки.

http://www.sql.ru/forum/1258660/chto-luchshe-pri-sravnenii-tablic-s-kolichestvom-50-tys

Здравствуйте
Задача следующая: имеется таблица. Один из столбцов содержит данные примерно следующих видов

00-00-001 и 00-00-001(некий юникодовский символ)010

Нужна процедура, с помощью которой под срокой, поле которой содержит запись вида: 00-00-001[символ]010 создались строки следующим образом.

00-00-001[символ]010
00-00-002
00-00-003
00-00-004
...
**-**-010
Т.е. пока значение перед символом не станет равно значению после. Данные соседних ячеек в строке дублируются в соответствующие поля создаваемых строк.
Подскажите как сможете

Начал объявлять переменные:

Dim s As String 
s = Cell (i,1).Value 
Dim ind As Integer 
ind = InStr (1, s, ChrW(247)) 
Dim r As String 
Dim l As String 
r = Right(s, Len(s) - ind+1) 
l = Left(s, Len(s) - ind-1)

Можно же объявить индекс с помощью определённого "-" при том, что в значении их несколько?
Потом же нужно переводить формат в числовой, чтобы в цикле прибавлять единицы?

Мысли в кашу:(

P.S. Не нужно ли с этой задачей в другой раздел форума обратиться?

http://www.sql.ru/forum/1258659/razmnozhenie-strok

Sub ОбновитьКлассификатор()
Dim s

s = "SELECT first(КодОтдела), first(НаименованиеОтдела), first(КодГруппы), first(НаименованиеГруппы), first(КодПодгруппы), first(НаименованиеПодгруппы) FROM " & _
    "(SELECT КодОтдела, НаименованиеОтдела, КодГруппы, НаименованиеГруппы, КодПодгруппы, НаименованиеПодгруппы " & _
    "FROM Классификатор " & _
    "Union " & _
    "SELECT Classif.Поле1, Classif.Поле2, Classif.Поле3, Classif.Поле4, Classif.Поле5, Classif.Поле6 " & _
    "FROM Classif) WHERE NOT КодПодгруппы IS NULL " & _
    "Group by КодПодгруппы;"

CurrentDb.Execute s
MsgBox ("Импорт успешно завершен")

End Sub

http://www.sql.ru/forum/1258639/podskazhite-gde-oshibka-etot-zapros-v-prilozhenii-access-vypolnyaetsya-no-v-vba-oshibka-3065

Здравствуйте! Пытаюсь создать запись на сервере, получаю

{
  "timestamp" : "2017-04-28T00:26:24+0300",
  "status" : 400,
  "error" : "Bad Request",
  "exception" : "org.springframework.http.converter.HttpMessageNotReadableException",
  "message" : "Bad Request",
  "path" : "/1.0/user/backlog"
}

Что может быть не так?

процедура:

    Set http = CreateObject("MSXML2.XMLHTTP")
    http.Open "PUT", sBaseUrl & "/1.0/user/backlog", False
    http.setRequestHeader "Content-Type", "application/json;charset=UTF-8"
    http.setRequestHeader "Authorization", "AccessToken " & sToken
    http.setRequestHeader "X-User-Authorization", sAuthoriztion
    
    
Dim bPOST() As Byte, PostData As String
    PostData = PostData & "{"
    PostData = PostData & ",""address-type-to"":""DEFAULT"""
    PostData = PostData & ",""given-name"":""" & GET_PersonalName_By_Type(tFirmContragent, "N") & """"
    PostData = PostData & ",""house-to"":""" & GET_House_By_Address(tClientAddress) & """"
    PostData = PostData & ",""index-to"":" & GET_PostCode_By_AddressDatas(tClientAddress_Datas)
    PostData = PostData & ",""mail-category"":""" & CategoryRPO & """"
    PostData = PostData & ",""mail-direct"":643"
    PostData = PostData & ",""mail-type"":""" & TypeRPO & """"
    PostData = PostData & ",""mass"":" & iWeight
    PostData = PostData & ",""middle-name"":""" & GET_PersonalName_By_Type(tFirmContragent, "P") & """"
    PostData = PostData & ",""order-num"":""" & Format(nz(Me.Controls(Me!txt_Frm_Prfx & "ID"), 0), "000000") & """"
    PostData = PostData & ",""place-to"":""" & GET_City_By_AddressDatas(tClientAddress_Datas) & """"
    PostData = PostData & ",""insr-value"":" & nz(Me.Controls(Me!txt_Frm_Prfx & "Sum_Declared_Value"), 0) * 100
    PostData = PostData & ",""postoffice-code"":""" & 111033 & """"
    PostData = PostData & ",""region-to"":""" & GET_RegionName_By_AddressDatas(tClientAddress_Datas) & """"
    PostData = PostData & ",""street-to"":""" & GET_Street_By_AddressDatas(tClientAddress_Datas) & """"
    PostData = PostData & ",""surname"":""" & GET_PersonalName_By_Type(tFirmContragent, "S") & """"
    PostData = PostData & ",""tel-address"":" & tFirmContragent_Phone
    PostData = PostData & ",""fragile"":false"
    PostData = PostData & "}"
    
    bPOST = StrConv(PostData, vbFromUnicode)
    http.send (bPOST)

    
    GetText = GET_JSON_decode(http.ResponseText)
    Set http = Nothing

http://www.sql.ru/forum/1258623/put-json

Привет дорогое сообщество,

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

Задача первая: Ссылка имеет вид #C:\ссылка\#, то есть поле понимает его как текст. Какой командой можно перевести тип данных поля из текста в ссылку прямо в запросе?

И второй вопрос: Результаты отсортированы по дате, количество строк каждый раз различно. Как бы вы сложили их последнее и первое значение в отдельном поле?

Спасибо!

http://www.sql.ru/forum/1258612/smena-tipa-dannyh-tekst-na-ssylku-i-slozhenie-pervogo-i-poslednego-rezultata

Здравствуйте, знатоки!
Возникла необходимость копировать кликом мышки некоторый строки из табличной формы в отдельную таблицу, в которой некоторое время накапливаются данные.
Т.е. копировать указанные строки из Tab1 в Tab2. Обе таблицы одинаковые.
Содержат столбцы (упрощаю для простоты):
id (счетчик)
Название (String)
Количество (Integer)
Долго мучился, но толком информации не нашёл... куски кода...советы, а рабочего примера нет.
Временно решил проблему таким образом. Создал запрос на добавление, куда добавил ввод параметра, который вводится
пользователем в диалоговом окне

.....
WHERE (((Tab1.Id)=[Введите код записи:]));

На КодЗаписи в форме прописал

Private Sub КодЗаписи_DblClick(Cancel As Integer)
    DoCmd.OpenQuery "зКопироватьЗаписьВTab2"
End Sub

При нажатии на нужной строке (по КодуЗаписи) загружается запрос, и ВРУЧНУЮ вводится код записи. Запрос отрабатывает правильно - указанная запись копируется из Tab1 в Tab2.
Но такая технология в наше время просто неприемлема!
Как передать параметр (id) в запрос по клику?
Или как копировать другим способом?

http://www.sql.ru/forum/1258606/peredat-id-tablicy-v-zapros-na-dobavlenie

Всем привет!
Подскажите как использовать Dcount в запросе?
В примере:
всего 5 видов товара и несколько закупок.
Хочу посчитать сколько каждого товара было в закупках.

http://www.sql.ru/forum/1258593/ispolzovanie-dcount-v-zaprose

Добрый день!

Форма открывается так:

DoCmd.OpenForm "ЗанятиеUp", acNormal, , "ГрупповойНомер=" Me.ГрупповойНомер

Вопрос: как сделать двойную фильтрацию: и по Me.ГрупповойНомер, и Me.Дата?

http://www.sql.ru/forum/1258547/docmd-openform-i-filtry

Столкнулся с такой проблемой. В отчёте автоматически считается сумма в двух столбцах =Sum([Кол-во1]) и =Sum([Кол-во2]). я пытаюсь вывести сумму сумм(не итого). получилось [Text1]+[Text2]. Все работает только в том случае, если и в Text1 и в Text2 есть значение. Если же в одном из полей "пустота" то и в результате тоже "пустота". Значение по умолчанию стоит 0, формат поля -Числовой. Уже и не знаю в чем может быть причина бага

http://www.sql.ru/forum/1258529/summirovanie-summ

Я сделал split database на FE и BE. Если я выделяю ячейку ( открыта, разумеется, FE) и начинаю ее редактировать, а другой пользователь уже произвел с ней некоторые действия, то выскакивает сообщение о конфликте- предлагается скопировать чужое значение или вставить свое. Вопрос - можно ли сделать так, как это реализовано в google sheets- если таблица редактируется разными пользователями одновременно, то ячейки подсвечиваются и блокируются от редактирования.

http://www.sql.ru/forum/1258481/kak-zablokirovat-ili-vydelit-yacheyku-kogda-baza-razdelena-i-rabotaut-neskolko-chelovek

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

http://www.sql.ru/forum/1258478/chto-by-vsegda-v-rezhime-novoy-zapisi

Здравствуйте! Опять я за советом к знатокам.
В бухгалтерской базе есть основная таблица "тУСН17" и подчиненная "тУСН17доплата".
"тУСН17" связана с "тУСН17доплата" как один ко многим

"тУСН17" содержит столбцы (с которыми надо работать, остальные пропущены):

Код

Дата

Аванс

ДатаРеализации

Сумма
Дата - это дата аванса, ДатаРеализации - дата, когда была проставлена Сумма

"тУСН17доплата" содержит столбцы

Код

КодУСН - связь с Код "тУСН17"

ДатаДоплаты

СуммаДоплаты

Задача такая, надо подсчитать суммы на указанный период по столбцам Аванс, Сумма, СуммаДоплаты, но с учетом проставленных дат для каждого платежа. Т.е. Аванс может быть оплачен 1 января 2017, Сумма (Дата реализации) - 12 февраля, а доплаты в течении длительного времени, 1-я 15 февраля, 2-я 24 апреля....
Если период указан на конец февраля 2017 (указывается в главной форме), то считаться должны лишь числа, даты которых меньше или равны 28 февраля 2017
Трудно объяснить, покажу на примере, вот первая строка в таблице:

Аванс: 20000 от 1.01.2017
Сумма: 50000 от 12.02.2017
Доплата1: 2000 от 15.02.2017
Доплата2: 3000 от 24.04.2017

вторая строка:
Аванс: 48000 от 27.02.2017
Сумма: 90000 от 11.04.2017
Доплата1: 12000 от 15.04.2017
...
В итоге должно получить следующее:
Аванс: 20000 + 48000 = 68000
Сумма: 50000
Доплата: 2000
остальное игнорируется

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

Первый запрос:

SELECT DISTINCTROW тУСН17.Код, тУСН17.№договора, тУСН17.Дата, 
IIf([Дата]!фГлавная!ДатаПо,[Аванс],0) AS DАванс, 
тУСН17.ДатаРеализации, IIf([ДатаРеализации]!фГлавная!ДатаПо,[Сумма],0) AS DСумма, 
IIf(IsNull([ДатаДоплаты]),[Дата],[ДатаДоплаты]) AS DДоплаты, 
IIf([DДоплаты]<=(Forms!фГлавная!ДатаПо),Sum(IIf(IsNull([СуммаДоплаты]),0,[СуммаДоплаты])),0) AS SumДоплаты
FROM тУСН17 LEFT JOIN тУСН17доплата ON тУСН17.Код = тУСН17доплата.КодУСН
GROUP BY тУСН17.Код, тУСН17.№договора, тУСН17.Дата, 
IIf([Дата]!фГлавная!ДатаПо,[Аванс],0), тУСН17.ДатаРеализации, 
IIf([ДатаРеализации]!фГлавная!ДатаПо,[Сумма],0), 
IIf(IsNull([ДатаДоплаты]),[Дата],[ДатаДоплаты]), тУСН17.[Оплата100%]
HAVING (((тУСН17.Дата)<=[Forms]![фГлавная]![ДатаПо]) AND ((тУСН17.[Оплата100%])=False)) OR 
(((тУСН17.ДатаРеализации)<=[Forms]![фГлавная]![ДатаПо]) AND ((тУСН17.[Оплата100%])=False)) OR 
(((IIf(IsNull([ДатаДоплаты]),[Дата],[ДатаДоплаты]))<=[Forms]![фГлавная]![ДатаПо]) AND ((тУСН17.[Оплата100%])=False))
ORDER BY тУСН17.Код;

Второй запрос:

SELECT DISTINCTROW Sum(зУСН17остатокДни.DАванс) AS [Sum-DАванс], 
Sum(зУСН17остатокДни.DСумма) AS [Sum-DСумма], 
Sum(зУСН17остатокДни.SumДоплаты) AS [Sum-SumДоплаты]
FROM зУСН17остатокДни;

Но в первом запросе есть засада, он некоторые строки дублирует (подчеркнуто красным на картинке), а именно те, где есть несколько доплат (подчеркнуто зелёным) . Естественно, второй запрос дает неправильный результат. Также пришлось принять меня к записям, где доплат нет вообще (нет записей) - в таких случаях подставлял дату от аванса, а сумма = 0.



Подскажите, пожалуйста, что тут можно сделать? Как удалить повторяющиеся суммы?
На всякий случай выложил урезанный вариант базы.

http://www.sql.ru/forum/1258464/slozhnyy-prostoy-zapros

Подскажите, как в запросе отсутствующие значения заполнить нулями.

http://www.sql.ru/forum/1258452/podskazhite-kak-v-zaprose-otsutstvuushhie-znacheniya-zapolnit-nulyami

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

Перелопатил многое прежде чем обратиться, видимо не способен догнать самостоятельно))) Есть простейший перекрестный запрос, но в его результате нужно вывести заголовки в виде порядковой нумерации, например С1,С2,С3,С4 и т.д. а не сами их значения. Попытался было воспользоваться св-вом "Заголовки столбцов" (ColumnHeadings), но что-то никак не выходит. Проблема в том что результирующее кол-во колумнов неизвестно и значения их всегда разные (так бы я мог просто использовать для вывода таблицу-шаблон).
На просторах рунета отрыл функцию нумерации GetNextNum (иногда встречается как Numeric) и с ее помощью сделал вспомогательный запрос "q_1_counter" (в приаттаченном примере) который присваивает последовательные значения для дальнейшего вывода в результирующем перекрестном запросе "q_Вариант1" как бы скрытых значений столбцов (сама нумерация для меня особо не важна). Но появилась проблема с VBA в Acc 2010 (Sub Test) - при выполнении кода с этим запросом периодически вываливает ошибка "[q_Вариант1].[Ц***] не распознается ядром СУБД Microsoft Access как допустимое имя поля или выражение", где *** - меняющееся значение в соответстиии с работой функции GetNextNum. Хотя вручную запрос отрабатывает 100%. Где собака?

Я сознаюсь, что вероятно налепил костылей и ларчик проще открывается. И если так помогите пжлст сделать перекрестный запрос без использования всяких доп.опций, чтобы вместо указанных заголовков вывелись порядковые значения. Спасибо!

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

http://www.sql.ru/forum/1258429/dinamicheskie-zagolovki-perekrestnogo-zaprosa-vozmozhno-li