Здравствуйте, помогите пожалуйста советом, т.к. зашёл в тупик.
Имеется форма, в которой есть поле со списком "Введите ФИО" и кнопкой "Занести в журнал".
ФИО хранится в таблице "Список людей" в поле "ФИО".
Имеется таблица "Журнал", в которую и надо занести данные.
Связь 1 ко многим: "Список людей"-1(ключевое поле), "Журнал".
Проблема в том, что в "Журнал" заносится только ФИО.
А требуется, чтобы при нажатии кнопки "Занести в журнал" в таблицу "Журнал" кроме ФИО, вставлялись другие аналогичные поля(всего - 6) из таблицы "Список людей". Как это сделать?

http://www.sql.ru/forum/1195203/kak-vstavit-v-tablicu-neskolko-poley-iz-drugoy-tablicy-cherez-pole-podstanovki

Добрый день Знатоки!
Загружаю файл из инета с помощью вот такой функции

Public Function DownloadFile(ByVal URL$, ByVal LocalPath$) As Boolean
    ' Функция скачивает файл по ссылке URL$
    ' и сохраняет его под именем LocalPath$
    Dim XMLHTTP As Object, ADOStream As Object, FileName
    On Error Resume Next: Kill LocalPath$
 
    Set XMLHTTP = CreateObject("Microsoft.XMLHTTP")
    XMLHTTP.Open "GET", Replace(URL$, "\", "/"), "False"
    XMLHTTP.send
    If XMLHTTP.statustext = "OK" Then
        Set ADOStream = CreateObject("ADODB.Stream")
        ADOStream.Type = 1: ADOStream.Open
        ADOStream.Write XMLHTTP.responseBody
 
        ADOStream.SaveToFile LocalPath$, 2
        ADOStream.Close: Set ADOStream = Nothing
        DownloadFile = True
    Else
        'MsgBox "Не удаётся скачать файл " & XMLHTTP.statustext
    End If
    Set XMLHTTP = Nothing
End Function

Подскажите как визуализировать процесс загрузки файла. Если можно с примером.

http://www.sql.ru/forum/1195155/vizualizaciya-processa-zagruzki-fayla

Всем привет!
Работаю в MS Access 2002, c недавнего времени начал работать с модулями классов, понял что это очень классная вещь, позволяет экономить кучу времени для создания однотипных задач в разных формах.
Из того что у меня уже работает на модуле класса, это
-получение/потеря фокуса(Lost/Got): обработка событий всех текст и комбо боксов в формах (подсветка поля зеленым цветом при получении фокуса);
-клавиша вверх(KeyUp):отображение переключения раскладки клавиатуры в доп. форме (необходимо для удаленного рабочего стола)
-двойной клик(DblClik): вызов календаря во всех формах для полей, которые имеют короткий формат даты
-отслеживания запущенных программ у пользователей (Open/Unload)

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

Forms("ИмяФормы").Controls("ИмяКонтрола").ИмяКонтрола_AfterUpdate

Поэтому пока приходится использовать вот такой костыль для обработки событий

Private Sub SelectAfterUpdate(tctrl As Object)
  Dim canl As Integer
  
  On Error Resume Next
  
  Select Case tctrl.Name
    Case "DATE_BEG"
      Forms(tctrl.Parent.Name).DATE_BEG_BeforeUpdate canl
      If Not canl Then Forms(tctrl.Parent.Name).DATE_BEG_AfterUpdate
    Case "DATE_END"
      Forms(tctrl.Parent.Name).DATE_END_BeforeUpdate canl
      If Not canl Then Forms(tctrl.Parent.Name).DATE_END_AfterUpdate
    Case "DATE_ZAKAZ"
      Forms(tctrl.Parent.Name).DATE_ZAKAZ_BeforeUpdate canl
      If Not canl Then Forms(tctrl.Parent.Name).DATE_ZAKAZ_AfterUpdate
    Case "DATE_POSTAVKI"
      Forms(tctrl.Parent.Name).DATE_POSTAVKI_BeforeUpdate canl
      If Not canl Then Forms(tctrl.Parent.Name).DATE_POSTAVKI_AfterUpdate
    Case "DATE_DOC"
      Forms(tctrl.Parent.Name).DATE_DOC_BeforeUpdate canl
      If Not canl Then Forms(tctrl.Parent.Name).DATE_DOC_AfterUpdate
    Case "DATE_NEXT"
      Forms(tctrl.Parent.Name).DATE_NEXT_BeforeUpdate canl
      If Not canl Then Forms(tctrl.Parent.Name).DATE_NEXT_AfterUpdate
    Case "DATE_PREV"
      Forms(tctrl.Parent.Name).DATE_PREV_BeforeUpdate canl
      If Not canl Then Forms(tctrl.Parent.Name).DATE_PREV_AfterUpdate
    Case "DATE_CALENDAR"
      Forms(tctrl.Parent.Name).DATE_CALENDAR_BeforeUpdate canl
      If Not canl Then Forms(tctrl.Parent.Name).DATE_CALENDAR_AfterUpdate
  End Select

End Sub

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

Forms(tctrl.Parent.Name).(tctrl.Name).AfterUpdate

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

http://www.sql.ru/forum/1195137/zapusk-sobytiya-formy-s-pomshhu-tekstovoy-peremennoy

Добрый день Форумчане!

Есть подчиненная форма с ленточной таблицей. Хотелось бы добавить в нее чек-бокс для выделения записей.
Вставлять чек в таблицу не вариант т.к. програмулька сетевая т.е. одновременно могут выделить записи несколько пользователей и действие воспроизведется со всеми выделенными записями (понятно что после отработки действия чеки будут сниматься).
Если добавлять поле чек непосредственно в форму то при выделении 1 записи выделятся все.
Подскажите как реализовать задумку.
надеюсь объяснил понятно. если что спрашивайте буду отвечать, для меня главное добиться результата.

http://www.sql.ru/forum/1194902/vstavka-polya-chek-v-lentachnuu-formu

как получить значение предыдущего поля таблицы по дате?
есть таблица такого вида, сортировка по дате. нужны ИД предыдущего поля по прошлой дате

ID Value Date
1 280 12.01.2016
2 281 13.01.2016
3 282 14.01.2016
4 283 15.01.2016
5 284 16.01.2016
6 285 17.01.2016
7 286 18.01.2016
8 287 19.01.2016

нужный результат
ID Value Date ID_previous
1 280 12.01.2016
7 281 13.01.2016 1
3 282 14.01.2016 7
9 283 15.01.2016 3
5 284 16.01.2016 9
6 285 17.01.2016 5
7 286 18.01.2016 6
8 287 19.01.2016 7

http://www.sql.ru/forum/1194832/znachenie-predydushhego-polya-v-zaprose

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

http://www.sql.ru/forum/1194817/zapros-na-vyvod-kolichestva-poseshheniy-s-parametrami

Доброе время суток!
Задача: перебрать всевозможные комбинации значений по полю SIMBOL (по 3 значения из 4-х возможных), сгруппированные по полю ROOM. Пример таблицы исходной и результирующей - в присоединенном архиве базы

http://www.sql.ru/forum/1194792/realizaciya-rekursivnogo-zaprosa

по вотсапу приходят данные как бы импортнуть их в акцес для дальнейшей статистики?

http://www.sql.ru/forum/1194759/po-votsapu-prihodyat-dannye-kak-by-importnut-ih-v-akces-dlya-dalneyshey-statistiki

Привет Всем !
Не могу понять в чём ошибка :

SQL = " INSERT INTO OrdersAll (AgencyId, EmployeeNo, CustomerID, CurrentShipPrice, OrderDate, OrderTime, ShipDate,  ShipDetailID , RecipientID, [Recieved?], ReceivedDate , InvoiceID , InvoiceReport , InvoicePayment, DutyFee, BoxFee, TapingFee, PackingFee, " & _
" StrappingFee, DeliveryFee, Weight  ) " & _
" SELECT Orders.AgencyId, Orders.EmployeeNo, Orders.CustomerID, Orders.CurrentShipPrice, Orders.OrderDate, Orders.OrderTime, Orders.ShipDate,   Orders.ShipDetailID , Orders.RecipientID, Orders.[Recieved?], Orders.ReceivedDate , Orders.InvoiceID , Orders.InvoiceReport , Orders.InvoicePayment, Orders.DutyFee, Orders.BoxFee, Orders.TapingFee, Orders.PackingFee, " & _
" Orders.StrappingFee, Orders.DeliveryFee, Orders.Weight  " & _
" FROM Orders  IN '" & user_file & "' LEFT JOIN OrdersAll  ON  [Orders].[AgencyId]=[OrdersAll].[AgencyId]  AND  [Orders].[AgencyId]=[OrdersAll].[AgencyId]    AND   [Orders].[EmployeeNo]=[OrdersAll].[EmployeeNo]  AND " & _
" [Orders].[CustomerID]=[OrdersAll].[CustomerID] AND [Orders].[CurrentShipPrice]=[OrdersAll].[CurrentShipPrice] AND [Orders].[OrderDate] = [OrdersAll].[OrderDate] AND   [Orders].[OrderTime]= [OrdersAll].[OrderTime]  AND " & _
" [Orders].[ShipDate] = [OrdersAll].[ShipDate] AND  [Orders].[ShipDetailID] = [OrdersAll].[ShipDetailID] AND [Orders].[RecipientID] = [OrdersAll].[RecipientID] AND [Orders].[Recieved?]=[OrdersAll].[Recieved?]  AND " & _
" [Orders].[ReceivedDate] = [OrdersAll].[ReceivedDate] AND   [Orders].[InvoiceID] = [OrdersAll].[InvoiceID] AND [Orders].[InvoiceReport]= [OrdersAll].[InvoiceReport]  AND [Orders].[InvoicePayment] = [OrdersAll].[InvoicePayment] AND " & _
" [Orders].[DutyFee]=[OrdersAll].[DutyFee] AND [Orders].[BoxFee] = [OrdersAll].[BoxFee] AND [Orders].[TapingFee]= [OrdersAll].[TapingFee]  AND [Orders].[PackingFee]= [OrdersAll].[PackingFee]  AND " & _
" [Orders].[StrappingFee]=[OrdersAll].[StrappingFee] AND [Orders].[DeliveryFee]=[OrdersAll].[DeliveryFee] AND [Orders].[Weight] = [OrdersAll].[Weight]  WHERE [Orders].[OrderId] Not IN (SELECT [OrdersAll].[OrderIdAgency] FROM [OrderIdAgency])"

Синтаксическая ошибка в FROM
Добавление порядка 100000 - 200000 тис записей
Пробовал через рекордсет - очень долго
Буду благодарен за помощь

http://www.sql.ru/forum/1194750/insert-into-select

Доброго времени суток.

Заказчик хочет запретить редактирование данных средствами NTFS. Т.е. есть разделенное приложение: данные - отдельно в файле ACCDB с паролем, а все остальное - в ACCDE. ACCDE находятся на компьютерах пользователей, а ACCDB - на файловом ресурсе (файловом сервере). Таблицы из ACCDB прилинкованы к ACCDE. Отдельным пользователям нужно максимально ограничить возможность изменения данных в ACCDB. Заказчик предлагает запретить им доступ к ресурсу на изменение, а оставить только на чтение. Возможен ли такой вариант?

http://www.sql.ru/forum/1194635/mozhet-li-bd-lezhat-na-resurse-s-dostupom-tolko-na-chtenie

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

Можно ли это организовать и как?

http://www.sql.ru/forum/1194606/avtomaticheskoe-dobavlenie-drugih-poley-zapisi-posle-podstanovki

Добрый день, подскажите где ошибка кроется?

Set db = CurrentDb()
Set rs = db.OpenRecordset(" select dbo_UPR_1214.kod_upr, dbo_StrEd_18.nStrEd  FROM dbo_UPR_1214, dbo_StrEd_18, 
[Excel 12.0 xml;HDR=Yes;IMEX=1;DATABASE=" & Me.Form.l1.Value & "].[Лист1$] AS Ex Where dbo_UPR_1214.kod_upr = Ex.[Код управления] ")

Выходит сообщение что слишком мало параметров. Требуется 1.
Проверил поля в таблице, такое точно есть.
Имя столбца copy-paste из файла

http://www.sql.ru/forum/1194585/oshibka-v-zaprose

Добрый день, уважаемые форумчане.

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

Имеется форма, в которую будут заноситься данные. Которые, в свою очередь, надо вывести в отчет.
Задача 1: в отчете необходимо создать общее поле, чтобы данные были в строчку (я сделал с помощью вычисляемого поля)
Задача 2: к данным должны быть добавлены комментарии, запятые, в т.ч. названия соответствующих полей (я добавил с помощью кавычек " ")
ПРОБЛЕМА: не всегда все поля будут заполняться, т.е. то, что в кавычках останется в отчете

Я создал пример на основе моего проекта, в отчете видно, что у меня не вышло.

Каким образом мне вообще можно реализовать эту задачу?

http://www.sql.ru/forum/1194574/kak-organizovat-obedinenie-poley-s-esli-kolichestvo-obedinyaemyh-poley-menyaetsya

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

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

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

http://www.sql.ru/forum/1194567/ubrat-povtoryaushhiesya-zapisi-v-pole-podstanovki

Добрый день, уважаемые форумчане!
Ранее рабочая база перестала правильно вести вычисления (итоговые значения).
Нужно исправить (если возможно), или переписать базу, желательно в первоначальном виде.
Выкладывать в теме исходник не буду.
Все вопросы через личку или почту riora2015@yandex.ru
Спасибо за понимание.
С уважением.

http://www.sql.ru/forum/1194427/pomoshh-po-reanimacii-bazy-dannyh

Здравствуйте, есть таблица, встречи двух игроков А и Б, нужно найти в таблице их общего противника и вывести встречи игрока А с этим общим противником и игрока Б с общим противником.

ID1 ID2 1 2 1 4 4 2

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

SELECT ID1 FROM ((SELECT distinct  ID1 FROM tbl WHERE ID1=1 or ID2=1)
union(SELECT distinct ID2 FROM tbl WHERE ID1=1 or ID2=1)) as q1 
join ((SELECT distinct ID1 FROM tbl WHERE ID1=2 or ID2=2)
union(SELECT distinct ID2 FROM tbl WHERE ID1=2 or ID2=2)) as q2 on q1.ID1=q2.ID1
;

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

WordPress дает возможность анализа посещений сайта. Как проще всего импортировать в таблицу Access данные из WordPress? В прилагаемом ScreenShot-e есть колонки данных: , <Местоположение>, <Последний URL>. Как организовать запрос, по которому данные за нужный интервал дат копировались бы из этих колонок в три соответствующие поля таблицы Access? Пусть поля будут A1, A2, A3.

http://www.sql.ru/forum/1194304/import-iz-wordpress

Кто-нибудь ещё продолжает пользоваться MS Access 2003?

http://www.sql.ru/forum/1194267/ms-access-2003

Здравствуйте, мне нужна помощь.

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

Кто нибудь силен в таком запросе?

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

Подскажите, как исправить. Выдает ошибку: "Неверное число аргументов функции":

 IIf([kodstat]=1000,([syma]*0.036),IIf([kodstat]=6000,([syma]*0.020)),IIf([kodstat]=2500 Or 5000,0)) AS es

http://www.sql.ru/forum/1194004/nevernoe-chislo-argumentov-funkcii