Добрый день. Подскажите пожалуйста как связать приложение access с БД sql не используя Источники данных ODBC?
У меня список глобусов (связанных таблиц) выводится через Источники данных, где я сам регистрировал нужное мне подключение. Как сделать это используя только драйвер и строку подключения? Спасибо.

http://www.sql.ru/forum/1237889/svyazi-access-sql-sposoby-realizacii

Кому довелось соединять онлайн - кассу и программу на Access, поделитесь соображениями, описаниями, ссылками.

http://www.sql.ru/forum/1237820/onlayn-kassa-kak-peredat-v-neyo-dannye-iz-access

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

http://www.sql.ru/forum/1237698/vybrat-interval-pole-data-vremya-format-kratkiy-format-vremeni

есть таблица где вводятся цифровые значения. Есть форма в Полях 1,2 и 3 показаны эти значения. Напротив эти полей стоят флажки.
Стоит задача при вводе значений в Поле данных должны включаться флажки в соответствии с указанными диапазонами в Полях 1, 2 и 3.

http://www.sql.ru/forum/1237650/vkluchenie-flazhkov-v-forme

Здравствуйте, помогите, пожалуйста разобраться с данной базой данных.
Данная бд разрабатывалась для учета ос в организации. В ней ряд проблем и "недопониманий", например:
1) При открытии инвентарной карточки, постоянно пропадает "Счет учета". В чем может быть проблема?
2) Вопрос более по бухгалтерии. В графах "% на восстановление" и "износ" все задается вручную, но по логике должно как-то рассчитываться значение графы "износ". Подскажите, пожалуйста, как все сделать верно. чтобы все нормально работало автоматизированно.
Прикрепил скрин и саму базу. Заранее спасибо откликнувшимся)

саму бд скачать здесь

http://www.sql.ru/forum/1237613/bd-po-uchetu-os-nuzhna-pomoshh

Здравствуйте, не могу понять в чем моя ошибка. Понимаю что она простая, но не вижу ее в упор.
У меня есть таблица в БД Access, есть 3 поля pDt(Дата), pName(Текст), pSumm(Числовое). Нужно сделать выборку количества клиентов, которые посещали учреждение впервые в определенном месяце, т.е. до указанного месяца посещений не было.
Пишу:

SELECT COUNT (f.pname)
FROM patient f WHERE f.pName IN NOT (SELECT s.PName FROM patient s WHERE s.pDt <:d AND f.pname=s.pname)  AND month(f.pDt) =:m AND year(f.pDt)=:y

Где d - дата (день, месяц, год), m - месяц, y - год
Во-первых выборка происходит слишком медленно, а во-вторых думаю, что не правильно.
Спасибо за внимание.

http://www.sql.ru/forum/1237543/sql-zapros-na-vyborku-iz-bd-access-gde-oshibka

Удаляю программно ключ с существующей таблицы:

   dbs.Execute "alter table Таблица1 DROP CONSTRAINT PrimaryKey"

Но сложность в том что в случае отсутствия ключа в этой таблице выдаёт ошибку 3755 (мол ключа не существует)

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

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

http://www.sql.ru/forum/1237523/kak-proverit-nalichie-primarykey

Хочу сделать макет ценников с рисунками

У товара есть код, и есть файлы с изображениями.
Имена файлов = код товара

Можно ли сделать отчёт, который будет выводить в печать эти рисунки?

http://www.sql.ru/forum/1237522/pechat-risunkov

Добрый день, уважаемые форумчане.
Нужна ваша помощь, только не забрасывайте сразу гнилыми помидорами. Я новичок в Акцессе.

Для работы нужна была БД, куда выгружались бы данные из 1С и далее крутились бы там так, как мне удобно.

С грехом попала сваял такую базу и она 3 месяца служила мне верой и правдой значительно облегчая работу. До сегодняшнего дня.

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

Я так понимаю что какая-то проблема в настройках обновления, но куда бежать и что искать не понял.

Помогите, плз.
К хорошему привыкаешь быстро. Я уж и не представляю, как теперь работать без акцесса.

http://www.sql.ru/forum/1237488/obnovlenie-grafikov-v-akcess

Здравствуйте.
Не смог емко топик назвать.
В VBA собираю строку запроса на добавление. Искомая конструкция примерно такая:

INSERT INTO tTest.Поле1,  tTest.Поле2
SELECT qInsertTest.(field0), qInsertTest.(field1)
FROM qInsertTest;

причем field0 и field1- это не имена полей, а индекс в коллекции fields.
Проблема в том, что таблица-источник имеет статичную структуру, но какие будут имена- заранее неизвестно.
Пока вижу решение- в цикле пробежаться по всем полям, а затем собирать строку запроса на обновление.
Может есть более изящное решение?
Спасибо.

http://www.sql.ru/forum/1237454/zapros-na-dobavlenie

Добрый день всем.

Задание:

Разработать ER-диаграмму, а затем, пользуясь средствами СУБД Microsoft Access, создать базу данных для информационной системы железной дороги (пригородные поезда). Основная задача системы — предоставление справочной информации о расписании движения поездов и продажа билетов.

В системе хранится следующая информация:
1. Перечень направлений, по которым следуют пригородные поезда. Каждое направление содержит последовательность станций.
2. Для каждого поезда известно направление, по которому он следует, известен день недели, когда он отправляется и перечень станций, на которых он останавливается, с указанием времени прибытия для каждой станции. Через некоторые станции поезд может следовать без остановки.
3. Билет продается на конкретную дату, пассажир может занимать любое место в любом вагоне. Для каждого поезда известно общее количество мест в поезде.
4. Для каждой пары соседних станций в направлении задана стоимость переезда, и стоимость билета вычисляется как сумма стоимости между всеми станциями, через которые проезжает пассажир.
Поскольку система предназначена только для продажи билетов, не требуется хранить информацию о физических вагонах, из которых составлен поезд, отправляющийся в конкретную дату. База данных должна содержать следующие ограничения целостности:
5. Время стоянки на каждой станции должно быть не менее одной минуты
6. Билет может быть продан не ранее чем за 30 дней. (подсказка: функция Date() позволяет определить текущую дату, функция DateAdd(“d”; кол-во дней; дата) позволяет получить дату, отстоящую от указанной на определенное количество дней)
7. Два поезда не могут прибыть на станцию в одно и то же время

Вопросы:

1) Одно направление, много станций.
Допустимо ли связывать таблицы через имя направления, или надо связывать через счетчик с помощью дополнительной таблицы?

2) Поезд и билеты.
Как сделать ограничение на количество билетов для определенного поезда? Надо чтобы в сущности "билеты" записи связанные с определенным поездом можно было сделать только столько, сколько есть мест для поезда. Можно ли такое сделать в access?

3) Цена билета.
Определяется как сумма стоимостей проездов между станциями. Правильно ли я понимаю что нужно сделать сущность связывающую 2 станции и в ней в качестве атрибута будет цена проезда?

4) Ограничения.
1. Как сделать чтобы нельзя было заказать билет до станции, на которой поезд не останавливается?
2. Поезд связан с направлением. Как сделать чтобы можно было выбрать станции на которых он останавливается, только те, которые есть в направлении?

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

http://www.sql.ru/forum/1237441/kak-sdelat-ogranichenie-na-kolichestvo-tablic

Добрый день.
При сведении данных по клиенту из разных таблиц в один запрос, Аксесс задваивает результаты.
Буду признателен, если скорректируете запрос, базу магу скинуть на почту.
Требования:
Необходимо сравнить количество оплаченных занятий и количество поставленных в план в разрезе клиентов.
Требования к полям запроса:
Код клиента – обираются все клиенты из таблице Клиенты
Количество оплаченных занятий – рассчитывается, как: СУММ(ОТГР.Количество * Количество Занятий (выбирается из таблице Справочник Услуг))
Количество плановых Занятий – рассчитывается по количество значений по клиенту в таблице Участники занятий, где поле Отсутствовал = ЛОЖЬ

http://www.sql.ru/forum/1237395/aksess-zadvaivaet-rezultaty

Добр утр.
Нужно отправлять и получать письма с mail.ru. Отправку настроил с использованием CDO. С получением бьюсь уже неделю. Пробовал использовать DialMail.dll, но его Access не воспринимает, даже не хочет загружать через Tools->References. Почему?
Какие есть другие способы получения почты с mail.ru в Access?

http://www.sql.ru/forum/1237385/priem-pisem-v-access-s-mail-ru

Сделал выборку студентов, у которых нет неудовлетворительных оценок.

SELECT Студенты.Специальность, ОценкиСтудентов.КодСтудента, Sum(IIf([Оценка]>11,1,0)) AS [Количество неуд]
FROM Студенты INNER JOIN (ВедомостиОценок INNER JOIN ОценкиСтудентов ON ВедомостиОценок.КодВедомости = ОценкиСтудентов.КодВедомости) ON Студенты.Код = ОценкиСтудентов.КодСтудента
WHERE (((ВедомостиОценок.НомерВедомости) Like "16/*") AND ((ВедомостиОценок.Дата)>#3/1/2016#))
GROUP BY Студенты.Специальность, ОценкиСтудентов.КодСтудента
ORDER BY Студенты.Специальность, ОценкиСтудентов.КодСтудента;

А как сделать подсчет числа студентов по СПЕЦИАЛЬНОСТИ у которых не было долгов (можно ли это сделать в одном запросе).

Т.е. будет выводится на специальность 1 строка и число студентов.

http://www.sql.ru/forum/1237252/poschitat-chislo-studentov-po-ocenkam

Подскажите как обойти предупреждение безопасности Outlook?

http://www.sql.ru/forum/1237158/rassylka-pochty-iz-access-cherez-outlook-2010

Добрый день!
Кто знает...
Существует ли в Access ограничение по длине вложенных запросов?
Вопрос возник при попытке добавления в условие отбора вложенного запроса.
Access ругнулся так "Слишком длинный текст для изменения"
Попытка вставки через SQL привела так же к ошибке. (см. файл)
По отдельности оба запроса работают.
Вот первый запрос в котором потом, вместо значения 506117, подставим условие.

SELECT CLng([1_Base]![1_id] & [4_Mail]![id_4_Mail]) AS base_mail, [1_Base].[1_id], [1_Base].[1_compani], [1_Base].[1_id_cites], [4_Mail].Theme_4_Mail, [4_Mail].Path_Mail_4_Mail
FROM (2_cities INNER JOIN (1_Base INNER JOIN 3_Theme_Delivery ON [1_Base].[1_type] = [3_Theme_Delivery].category_recipient_3_Theme_Delivery) ON [2_cities].[2_id] = [1_Base].[1_id_cites]) LEFT JOIN 4_Mail ON [3_Theme_Delivery].id_3_Theme_Delivery = [4_Mail].id_3_Theme_Delivery
WHERE (((CLng([1_Base]![1_id] & [4_Mail]![id_4_Mail])) In (506117)));   

Это второй запрос который возвращает условие для первого запроса

SELECT Min(id_base_mail.id_base_mail) AS [Min-id_base_mail]
FROM [SELECT [1_Base].[1_id_cites], CLng([1_Base]![1_id] & [4_Mail]![id_4_Mail]) AS id_base_mail, [1_Base].[1_id]
FROM (1_Base LEFT JOIN 3_Theme_Delivery ON [1_Base].[1_type] = [3_Theme_Delivery].category_recipient_3_Theme_Delivery) LEFT JOIN 4_Mail ON [3_Theme_Delivery].id_3_Theme_Delivery = [4_Mail].id_3_Theme_Delivery
GROUP BY [1_Base].[1_id_cites], CLng([1_Base]![1_id] & [4_Mail]![id_4_Mail]), [1_Base].[1_id]
HAVING ((([1_Base].[1_id_cites])=[Forms]![Рассылка]![City]) AND ((CLng([1_Base]![1_id] & [4_Mail]![id_4_Mail])) Not In (SELECT CLng([5_History_Mail]![5_id_1] & [5_History_Mail]![5_id_4_mail]) AS id_number 
FROM 2_cities INNER JOIN (1_Base INNER JOIN 5_History_Mail ON [1_Base].[1_id] = [5_History_Mail].[5_id_1]) ON [2_cities].[2_id] = [1_Base].[1_id_cites] 
GROUP BY CLng([5_History_Mail]![5_id_1] & [5_History_Mail]![5_id_4_mail]), [2_cities].[2_id] HAVING ((([2_cities].[2_id])=[Forms]![Рассылка]![City]) AND ((Max([5_History_Mail].[5_date])>Date()-Day(7))=0)))))].AS id_base_mail GROUP BY id_base_mail.[1_id]);

А все вместе выглядит так

SELECT CLng([1_Base]![1_id] & [4_Mail]![id_4_Mail]) AS base_mail, [1_Base].[1_id], [1_Base].[1_compani], [1_Base].[1_id_cites], [4_Mail].Theme_4_Mail, [4_Mail].Path_Mail_4_Mail
FROM (2_cities INNER JOIN (1_Base INNER JOIN 3_Theme_Delivery ON [1_Base].[1_type] = [3_Theme_Delivery].category_recipient_3_Theme_Delivery) ON [2_cities].[2_id] = [1_Base].[1_id_cites]) LEFT JOIN 4_Mail ON [3_Theme_Delivery].id_3_Theme_Delivery = [4_Mail].id_3_Theme_Delivery
WHERE (((CLng([1_Base]![1_id] & [4_Mail]![id_4_Mail])) In (SELECT Min(id_base_mail.id_base_mail) AS [Min-id_base_mail]
FROM [SELECT [1_Base].[1_id_cites], CLng([1_Base]![1_id] & [4_Mail]![id_4_Mail]) AS id_base_mail, [1_Base].[1_id]
FROM (1_Base LEFT JOIN 3_Theme_Delivery ON [1_Base].[1_type] = [3_Theme_Delivery].category_recipient_3_Theme_Delivery) LEFT JOIN 4_Mail ON [3_Theme_Delivery].id_3_Theme_Delivery = [4_Mail].id_3_Theme_Delivery
GROUP BY [1_Base].[1_id_cites], CLng([1_Base]![1_id] & [4_Mail]![id_4_Mail]), [1_Base].[1_id]
HAVING ((([1_Base].[1_id_cites])=[Forms]![Рассылка]![City]) AND ((CLng([1_Base]![1_id] & [4_Mail]![id_4_Mail])) Not In (SELECT CLng([5_History_Mail]![5_id_1] & [5_History_Mail]![5_id_4_mail]) AS id_number 
FROM 2_cities INNER JOIN (1_Base INNER JOIN 5_History_Mail ON [1_Base].[1_id] = [5_History_Mail].[5_id_1]) ON [2_cities].[2_id] = [1_Base].[1_id_cites] 
GROUP BY CLng([5_History_Mail]![5_id_1] & [5_History_Mail]![5_id_4_mail]), [2_cities].[2_id] HAVING ((([2_cities].[2_id])=[Forms]![Рассылка]![City]) AND ((Max([5_History_Mail].[5_date])>Date()-Day(7))=0)))))].AS id_base_mail GROUP BY id_base_mail.[1_id]))));

Танец с бубнами не помог....
Помогите, кто знает

http://www.sql.ru/forum/1237110/ne-rabotaet-vlozhennyy-zapros

Вывожу данные из Access в Excel
вот куски кода

Dim RUBLI As Currency

      Do Until RST_TRANZAKTION.EOF 
                RUBLI = RST_TRANZAKTION("FOR_PAYMENT")
                .Cells(STROKA, 4) = RUBLI

            STROKA = STROKA + 1
            RST_TRANZAKTION.MoveNext
        Loop

Если пошагово в access следить за выводом данных на экран
то всё выводится нормально в ячейку

3.00 р.

Но если закрыть Excel файл и открыть вновь, то в ячейках будет написано

р.3.00

--------------------------------
В чём может быть дело?
------------------------------------------
СПС

http://www.sql.ru/forum/1237061/strannoe-povedenie-yacheyki-excel

Уважаемые коллеги и знатоки, прошу помощи в реализации следующего задания:
имеется таблица с полями:

ID - Код объекта и File - (второе пустое поле тип ОЛЕ)

В форму выводится список ID - отображаются те у которых поле File пустое.
выбираем в списке поле выделяем его, на событие кнопки click нужно реализовать вызов диалогового окна для выбора файла (Ексель Ворд Аксес ПДФ ТХТ...) и записать файл в таблицу в поле ОЛЕ соответствующего ID из указанного ранее в списке.

за ранее большое спасибо!

http://www.sql.ru/forum/1237029/kak-v-tablicu-prikrepit-fayl-cherez-objectfilepicker

ADP проект. Ребята, подскажите пожалуйста как сделать так, чтобы вместо Microsoft Access было имя файла и версия (можно и рядышком). Например: RSD. Версия 2016-2. Если открываешь форму я понимаю как прописать, в ПОДПИСB, а вот как прописать чтобы в Microsoft Access ... Спасибо.

http://www.sql.ru/forum/1235126/rebyata-mozhno-li-organizovat-takuu-fishku-kak-imya-programmy-vmesto-microsoft-access

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

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

  Private Sub btnCost_Click()
Dim rs As ADODB.Recordset
Dim dtDate As String
Dim strEquipment As String
Dim strCondition As String
Dim strSource As String
Dim strQry As String
strEquipment = Me.fldEquipment
dtDate = "#" & Month(Me.fldDate) & "/" & Day(Me.fldDate) & "/" & Year(Me.fldDate) & "#"
strCondition = "iEquipment =" & strEquipment & " And (dtDate <= " & dtDate & " Or IsNull(dtDate))"

If Me.gswMaxPriceDate = 1 Then
  Set rs = New ADODB.Recordset
  rs.CursorLocation = adUseClient
  rs.Open "SELECT iEquipment, QC.iComponent, iAssembly, dAmount, iItem, dKoef, iInvoice, dPrice, dCost, strNumber, dtDate, iSupplier " & _
  "FROM qryCost as QC INNER JOIN " & _
  "(SELECT iComponent, MAX(dtDate) as dt2Date " & _
  "FROM qryCost " & _
  "WHERE dtDate <= " & dtDate & _
  "AND iEquipment = " & Me.fldEquipment & _
  " GROUP BY iComponent " & _
  ")AS SQC " & _
  "ON QC.iComponent = SQC.iComponent And QC.dtDate = SQC.dt2Date " & _
  "UNION " & _
  "SELECT iEquipment, iComponent, iAssembly, dAmount, iItem, dKoef, iInvoice, dPrice, dCost, strNumber, dtDate, iSupplier " & _
  "FROM qryCost " & _
  "WHERE iEquipment = " & Me.fldEquipment, CurrentProject.Connection, adOpenDynamic, adLockOptimistic
    
  DoCmd.OpenForm "subCost", acFormDS, , , acFormReadOnly, acHidden
 
  Set Forms("subCost").Recordset = rs
  Forms("subCost").Visible = True
       
  Set rs = Nothing
  
End If

End Sub

После открытия второй формы при попытке присвоить ей рекордсет, на строке

 Set Forms("subCost").Recordset = rs

Акцесс вылетает. Подскажите пожалуйста, что я делаю не так?
Спасибо

http://www.sql.ru/forum/1235072/recordset-dlya-formy