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

        Do While True
            rst.Seek ">=", "значение"
            If Not rst.NoMatch Then
                If rst!oldid <= g1 Then
                    'некоторые действия
                    k = k + 1
                End If
            Else
                Exit Do
            End If
         Loop

http://www.sql.ru/forum/1270652/poisk-v-rekordsete-po-seek-ot-dao

Доброго дня господа !

Имею таблицу T1
F0 F1 F2
R1 100 200

Получить результат
F0 KEY VAL
R1 F1 100
R1 F2 200

Возможный запрос
select A.F0,
B.F1,
iif(B.F1='F1',A.F1,iif(B.F1='F2',A.F2,Null)) F2
from T1 A
inner join (select 'F1' F1 from TEMP
union all
select 'F2' F1 from TEMP
) B
on (1=1)

НО !!!!!!!
Проблема в том что список полей мне неизвестен (T1 это книга Excel - пользователь может менять имена полей их кол-во)
Список и названия полей я реально достать могу в виде строки 'F1','F2'...
(select 'F1' F1 from TEMP
union all
select 'F2' F1 from TEMP
) B

Но обработчик прийдется все время дописывать руками
iif(B.F1='F1',A.F1,iif(B.F1='F2',A.F2,....................................)) F2

Есть ли еще варианты развернуть таблицу ?
Может в Microsoft Jet (использую его) есть возможность сослаться на поле таблицы через строку

Т.е. так
select A.F0,
B.F1,
A.Fields(B.F1) F2
from T1 A
inner join (select 'F1' F1 from TEMP
union all
select 'F2' F1 from TEMP
) B
on (1=1)


Заранее благодарен !

http://www.sql.ru/forum/1270606/kak-razvernut-tablicu-imena-poley-neizvestny

Доброго дня господа !

Имею таблицу T1

F0 F1 F2 R1 100 200

Получить результат

F0 KEY VAL R1 F1 100 R1 F2 200

Возможный запрос

select  A.F0,
          B.F1,
          iif(B.F1='F1',A.F1,iif(B.F1='F2',A.F2,Null)) F2
   from T1  A
 inner join (select 'F1' F1 from TEMP
                 union all
                 select 'F2' F1 from TEMP
               ) B
  on (1=1)

НО !!!!!!!
Проблема в том что список полей мне неизвестен (T1 это книга Excel - пользователь может менять имена полей их кол-во)
Список и названия полей я реально достать могу в виде строки 'F1','F2'...
(select 'F1' F1 from TEMP
union all
select 'F2' F1 from TEMP
) B

Но обработчик прийдется все время дописывать руками
iif(B.F1='F1',A.F1,iif(B.F1='F2',A.F2,....................................)) F2

Есть ли еще варианты развернуть таблицу ?
Может в Microsoft Jet (использую его) есть возможность сослаться на поле таблицы через строку

Т.е. так

select  A.F0,
          B.F1,
          A.Fields(B.F1) F2
   from T1  A
 inner join (select 'F1' F1 from TEMP
                 union all
                 select 'F2' F1 from TEMP
               ) B
  on (1=1)

Заранее благодарен !

http://www.sql.ru/forum/1270606/kak-razvernut-tablicu-imena-poley-neizvestny

Добрый день
есть у меня 2 работающих запроса

Таблица1

SELECT Название компании, Период, IDклиента, оплата 
FROM таблица1

Таблица2

SELECT Период2, IDклиента2 , sum(оплата2) as оплата от клиента
FROM таблица2
GROUP BY Период2, IDклиента2;

в таблице2 оплата суммируется по Период2&IDклиента2

не могу создать подзапрос, выдает то ошибку from то "в качестве входных данных...."
сам join на "все поля" тоже работает , не могу разобраться с синтаксисом

задумка такова что из таблица1 будет высчитываться РЕЗУЛЬТАТ таблицы2 (в таблице2 будет изменяться запросы следовательно результат таблицы2 будет изменяться и сам итоговый результат тоже)

нашел только 1 похожий пример , но он выдает ошибку

select*
from таблица1
LEFT JOIN ( select ....)  < - и вот тут не понятно ...
таблица2
on таблица1.период = таблица2.период2 and таблица1.IDклиента = таблица1.IDклиента2

http://www.sql.ru/forum/1270555/podzaprosy-select-join

Добрый день
есть у меня 2 работающих запроса

Таблица1

SELECT Название компании, Период, IDклиента, оплата 
FROM таблица1

Таблица2

SELECT Период2, IDклиента2 , sum(оплата2) as оплата от клиента
FROM таблица2
GROUP BY Период2, IDклиента2;

в таблице2 оплата суммируется по Период2&IDклиента2

не могу создать подзапрос, выдает то ошибку from то "в качестве входных данных...."
сам join на "все поля" тоже работает , не могу разобраться с синтаксисом

задумка такова что из таблица1 будет высчитываться РЕЗУЛЬТАТ таблицы2 (в таблице2 будет изменяться запросы следовательно результат таблицы2 будет изменяться и сам итоговый результат тоже)

нашел только 1 похожий пример , но он выдает ошибку

select*
from таблица1
LEFT JOIN ( select ....)  < - и вот тут не понятно ...
таблица2
on таблица1.период = таблица2.период2 and таблица1.IDклиента = таблица1.IDклиента2

http://www.sql.ru/forum/1270555/podzaprosy-select-join

DoCmd.OpenQuery "ЗАПРОС" , acReadOnly
Как увидеть запрос, который при открытии - прячется за модальной формой?
------------------------------------------------------------------------
СПС

http://www.sql.ru/forum/1270544/nahodyas-v-modalnoy-forme-mozhno-li-vyvesti-na-ekran-zapros

Цитата из статьи:

Можно инициировать событие Scroll, выпустив метод Scroll для формы, кадра или страницы. Пользователи могут генерировать события Scroll, перемещая ползунок.

Ссылка на эту статью:
https://msdn.microsoft.com/ru-ru/library/office/gg251461.aspx

Вопрос как инициировать событие Scroll?

http://www.sql.ru/forum/1270534/kak-v-forme-poymat-sobytie-scroll

Здравствуйте. Прошу помочь в решении проблемы

А2000

В форме есть поле для поиска, при вводе значения в которое и нажатии кнопки отбираются записи.

Поиск основан на запросе, результаты которого подставляются в RecordSourse формы.

Если запрос не пустой (т.е. есть записи), все нормально, если же пустой, например ввели некорректное значение для поиска, то на форме пропадают все контролы.

Как это исправить, подскажите пожалуйста

http://www.sql.ru/forum/1270526/problema-s-poiskom-zapisi

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

В таблице есть поле "Адрес доставки" с типом "Длинный текст". Когда в SQL использую SELECT DISTINCT, то уникальность из за этого поля не работает, то есть выгружаются все строки.

У DISTINCT есть ограничения?

http://www.sql.ru/forum/1270469/pro-distinct

Есть приложение, построенное на SQL Server. Стоит задача - извлечь данные. Подключился к базе из Access, всё хорошо, но есть проблема: в этой базе два раздела, как бы две базы, при входе выбираешь, с какой будешь работать, и данные в таблицах вперемешку. Вот, нашёл таблицу с описанием разделов (их почему-то 4), а что дальше делать - не знаю. Помогите, в SQL Server - полный ноль!

Модератор: Тема перенесена из форума "Microsoft SQL Server".

http://www.sql.ru/forum/1270458/dva-razdela-v-odnoy-baze-nichego-ne-ponimau

Есть достаточно большая БД: некая информация по оборудованию, точкам и прочая, прочая, прочая (изначально были екселевые таблицы, потом их загнали в ACCESS).
Потихоньку добавляю в нее функционал. Но нет "междумордия": добавление и изменение данных напрямую в таблицах. Пока таблиц и записей было немного - нормально, и правил я один. Но сейчас таблиц уже более 50, записей в некоторых более 500 - становится грустно. Ну и распределять обязанности приходится.
Вот "стандартная" задача (стандартная - ибо по такому принципу многие вещи в ней учитываются):
Есть список юрлиц (таблица ЮРИКИ), список торговых точек (МАГАЗИНЫ), какая версия ПО стоит в каждом магазине (таблица ВЕРСИИ) и история изменений версий (ИсторияВерсий).
Надо сделать форму:
1. Первый список: перечень юрлиц+слово ВСЕ
2. Грид1, в которой показываются магазины по выбранному юрлицу в списке (или все).
3. Поле, показывающее текущую версию на указанном в гриде магазине
4. Грид2 с историей версий по выбранному в грид1 магазине.
5. Кнопку, нажав на которую в запросится номер новой версии, ФИО и в таблицу "ИсторияВерсий" добавится соответствующая запись, и внесется исправление в таблицу "Версии".

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

Во вложении - таблицы, вырезанные для этого случая...

З.Ы. На ДЕльфях\Лазарусе+MySQL для одного отдельного примера - 2-3 часа: накидал на форму списки, гриды, повязал их через DataSource, ну и рефреши в соответствующих событиях. Но таких задач - около 35-40... Да конвертить в мускуль тоже время потеряется (просто перегнать - не больше 30 минут, но вот править все поля, к нужному виду-не один день потратить придется)....

http://www.sql.ru/forum/1270396/forma-svyaz-spisok-tablica-dvetablicy-dobavlenie-zapisi-i-ispravlenie-zapisi-ne-poluchaet

Есть кнопка, в результате которой в таблицу добавляется новая запись, нужно чтобы форма после добавления перешла на первую, новую запись данных. Me.refresh Me.recalc не помогают.

http://www.sql.ru/forum/1270309/pochemu-ne-srabatyvaet-obnovlenie-dannyh-formy

Здравствуйте, прошу помочь начинающей.

Есть 1-я таблица с списком должников (ФИО, дата рождения)

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

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

http://www.sql.ru/forum/1270255/soobshhenie-o-nalichii-zapisi

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

В Access есть запросы-объекты. В одном запросе-объекте есть параметр. Значение параметра вставляется программно. Есть код, который запускает эти запросы, в том числе запрос с параметрами.

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

http://www.sql.ru/forum/1270244/vopros-po-zaprosam

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

Function ЭкспортPDF()
On Error GoTo ЭкспортPDF_Err

Dim organ As String
organ = Forms("ф_Клиент").КраткоеНаименование

    With CodeContextObject
        If (Not IsNull(.КодСдачаГЛ)) Then
            DoCmd.OpenReport "о_СоставСдачи", acViewPreview, "", "КодСдача=" & .КодСдачаГЛ, acNormal
        Else
            DoCmd.OpenReport "о_СоставСдачи", acViewPreview, "", "", acNormal
        End If
        DoCmd.OutputTo acOutputReport, "о_СоставСдачи", "PDFFormat(*.pdf)", _
        "C:\Users\Константин\Downloads\Акт " & organ & ".pdf", False, "", , acExportQualityPrint
        DoCmd.Close acReport, "о_СоставСдачи"
    End With


ЭкспортPDF_Exit:
    Exit Function

ЭкспортPDF_Err:
    MsgBox Error$
    Resume ЭкспортPDF_Exit

End Function

http://www.sql.ru/forum/1270242/eksport-v-pdf-ne-poluchaetsya-prisvaivat-nazvanie-fayla

Меня интересует, допустим в Access файле есть некая таблица.
В SQL сидит сама основная таблица, в которую необходимо добавить записи из таблицы, находящейся в Access.
Меня интересует, если же в Access файле не прилинкована таблица из SQL, то как можно добавить эти записи в нее?

http://www.sql.ru/forum/1270236/perebroska-zapisey-iz-tablicy-v-access-v-tablicu-sql

Здравствуйте!
Столкнулся с проблемой. Создаю запрос вида

SELECT Сдача.Дата, СоставСдачи.КодОтход, Отход.Наименование, СоставСдачи.ЕдиницаИзм, СоставСдачи.Количество AS Количество, Отход.Поправка, [КОличество]*[Поправка] AS Итого
FROM Сдача INNER JOIN ((КатегорияОТх INNER JOIN Отход ON КатегорияОТх.КодКатОтход = Отход.КодКатОтход) INNER JOIN СоставСдачи ON Отход.КодОтход = СоставСдачи.КодОтход) ON Сдача.КодСдачаГЛ = СоставСдачи.КодСдача
WHERE (((Сдача.Дата) Between #8/1/2017# And #8/30/2017#));

и всё бы ничего и синтаксис верный (делал по подобию рабочей базы), но по каким то причинам в результат запроса не включаются значения дата которого 30 августа, стоит поменять диапазон на 31.08.2017 и записи с этой датой появляются
дайте совет, знающие)

http://www.sql.ru/forum/1270117/i-vnov-pro-operator-between

Привет всем! Вопрос немного не по аксессу, а больше по математике) Но можно вкрутить в VBA конечно потом.

Представим что у нас есть товар , с примерно одинаковой ценой продажи, который продается энному количеству клиентов.
Статистика цен продаж представлена в виде обычного ряда чисел:
100 рублей, 100 рублей,100 рублей, 100 рублей,100 рублей, 100 рублей,100 рублей, 100 рублей,115 рублей, 100 рублей, 100 рублей, 950 рублей.

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

Вот как называется способ определения данного наиболее ходового диапазона цен продажи. В данном случае 100 рублей + несколько рублей в ту или иную сторону. Средневзвешенное значение не подходит, среднее не подходит. Так как дают слишком большое отклонение от наибольшего диапазона ходовых цен. Отсечка слишком больших чисел (к примеру тех же самых 950 рублей) тоже не годится , так как все таки имеет в конечном итоге влияние на самый ходовой ряд, пусть и мизерный.

http://www.sql.ru/forum/1270095/nemnogo-ne-v-temu-no

Форумяне,подскажите что не так-в области данных отображается одна(последняя) запись рекордсета (все используемые переменные объявлены в разделе описаний модуля и инициализированы в Report_Open)

Private Sub ОбластьДанных_Format(Cancel As Integer, FormatCount As Integer)
Dim i As Integer
    Do Until rstReport.EOF
        For i = 0 To intColumnCount - 1
            Me("ctl" + Format(i)) = rstReport(i)
        Next intX
       rstReport.MoveNext
    Loop
End Sub

http://www.sql.ru/forum/1270028/otchet-s-peremennym-kolichestvom-stolbcov

Всем привет

А что, в Access-е нельзя затолкать инсертом в таблицу более одной записи? Как в MSSQL, например?
Типа так:
insert into dbo.at_test1 (ID, Name)
values (3,'CCC'),(4,'DDD'),(5,'FFF')
?
Надо по одной инсертить?

http://www.sql.ru/forum/1269978/mnozhestvennyy-insert-v-access