Приветствую жителей форума!

Прошу еще раз обратить внимание на заголовок. Насколько я понял, в Access 10 нет реализации для TEMPORARY TABLE - это абстрактное понятие. т.е. нужно создавать таблицу на диске, а потом самому ее удалять. И да, действительно существуют группа людей, которые делают ЭТО на стороне сервера да еще всем советуют *рукалицо*.

Задача:
Есть разделенная форма frmBacket (на половину форма/таблица). И эта таблица должна быть временной.
Следовательно, мне требуется создать эту таблицу на стороне клиента и подключиться к ней, при этом связь с сервером должна остаться.

Мне нужно у клиента создать новую БД у Клиента?
Если да, то как это сделать из vba, а потом подключиться к ней?

http://www.sql.ru/forum/1200364/vremennye-tablicy-na-storone-klienta

Форма опирается на локальную таблицу. Хочу проставлять чекбокс "Выбор". Соответственно, ставлю "Ввод данных = Да" и сразу пропадают все записи. Записи на месте, когда либо "Ввод данных = Нет", либо "Статический набор". Но в этих режимах не доступно изменение чекбокса. В таблице руками всё меняется.

http://www.sql.ru/forum/1200228/propadaut-vse-zapisi-formy-pri-vybore-svoystva-vvod-dannyh-da

Добрый день. Прошу помощи у сообщества!
Необходимо в Access сделать таблицу с курсами валют. Курсы валют нужно брать с сайта nbrb.by
Товарищ "mobile" с cyberforum мне здорова помог с вопросом выгрузки и выложил готовую функцию импорта курсов через xml запрос. К сожалению мои знания VBA весьма поверхностны, и никак не позволяют применить данную функцию в моем контексте. Все, что нужно это настроить функцию на обновление курсов валют в таблице "Курсы_валют". Т.е. при каком-то событии, например нажатии на кнопку, функция смотрела последнюю дату обновления и дописывала в таблицу курсы валют вплоть до сегодняшней даты. Свою БД прилагаю. Прошу помочь.

http://www.sql.ru/forum/1200198/proshhu-pomoshhi-s-vba

Пишет что "Запрос был отменён. Нажмите F9 для того, чтобы запустить его ещё раз и отобразить данные.

Что за хрень? В подчинённой форме находятся данные в виде PivotTable, в шапке всякие функциональные кнопки. Отдельно субформа отображает данные корректно, а в общей форме начало с недавних пор глючить. Что это, и как побороть?

http://www.sql.ru/forum/1200134/run-time-error-2147197461-80045deb

SELECT 'Нераспределенная прибыль' AS ПАССИВ, K-S-NV-PD AS Itogo From qdfPayments
 WHERE K=(Select Sum(IncomeAmount) From qdfPayments WHERE Year(PaymentDate)<2015 And (ManagerPayCalc='Закрыт' And TransactionType='Поступления') )
 And S=(SELECT Sum(PaymentAmount) From qdfPayments WHERE Year(PaymentDate)<2015 And (ManagerPayCalc='Закрыт' And TransactionType='Затраты по заявке'))
 And NV= (Select Sum(PaymentAmount) From qdfPayments WHERE Year(PaymentDate)<2015  And TransactionType='Расходы прочие')
 ANd PD= (SELECT Sum(PaymentAmount)From qdfPayments WHERE Year(PaymentDate)<2015    And TransactionType='Прибыль, дивиденды') 
 -SUM(qdfPayments.IncomeAmount * (Month(PaymentDate) = 1 AND qdfPayments.ManagerPayCalc = 'Закрыт' AND qdfPayments.TransactionType = 'Поступления'))
+SUM(qdfPayments.PaymentAmount * (Month(PaymentDate)=1 AND qdfPayments.ManagerPayCalc = 'Закрыт' AND qdfPayments.TransactionType = 'Затраты по заявке'))
+SUM(qdfPayments.PaymentAmount * (Month(PaymentDate)=1 AND qdfPayments.TransactionType = 'Расходы прочие'))
+SUM(qdfPayments.PaymentAmount * (Month(PaymentDate)=1 AND qdfPayments.TransactionType = 'Прибыль, дивиденды'))+ Itogo AS Январь,
-SUM(qdfPayments.IncomeAmount * (Month(PaymentDate)=2 AND qdfPayments.ManagerPayCalc = 'Закрыт' AND qdfPayments.TransactionType = 'Поступления'))
+SUM(qdfPayments.PaymentAmount * (Month(PaymentDate)=2 AND qdfPayments.ManagerPayCalc = 'Закрыт' AND qdfPayments.TransactionType = 'Затраты по заявке'))
+SUM(qdfPayments.PaymentAmount * (Month(PaymentDate)=2 AND qdfPayments.TransactionType = 'Расходы прочие'))+SUM(qdfPayments.PaymentAmount * (Month(PaymentDate)=2 AND qdfPayments.TransactionType = 'Прибыль, дивиденды')) + Январь AS Февраль,
-SUM(qdfPayments.IncomeAmount * (Month(PaymentDate)=3 AND qdfPayments.ManagerPayCalc = 'Закрыт' AND qdfPayments.TransactionType = 'Поступления'))
+SUM(qdfPayments.PaymentAmount * (Month(PaymentDate)=3 AND qdfPayments.ManagerPayCalc = 'Закрыт' AND qdfPayments.TransactionType = 'Затраты по заявке'))
+SUM(qdfPayments.PaymentAmount * (Month(PaymentDate)=3 AND qdfPayments.TransactionType = 'Расходы прочие'))+SUM(qdfPayments.PaymentAmount * (Month(PaymentDate)=3 AND qdfPayments.TransactionType = 'Прибыль, дивиденды')) + Февраль AS Март,
-SUM(qdfPayments.IncomeAmount * (Month(PaymentDate)=4 AND qdfPayments.ManagerPayCalc = 'Закрыт' AND qdfPayments.TransactionType = 'Поступления'))
+SUM(qdfPayments.PaymentAmount * (Month(PaymentDate)=4 AND qdfPayments.ManagerPayCalc = 'Закрыт' AND qdfPayments.TransactionType = 'Затраты по заявке'))
+SUM(qdfPayments.PaymentAmount * (Month(PaymentDate)=4 AND qdfPayments.TransactionType = 'Расходы прочие'))+SUM(qdfPayments.PaymentAmount * (Month(PaymentDate)=4 AND qdfPayments.TransactionType = 'Прибыль, дивиденды')) + Март AS Апрель,
-SUM(qdfPayments.IncomeAmount * (Month(PaymentDate)=5 AND qdfPayments.ManagerPayCalc = 'Закрыт' AND qdfPayments.TransactionType = 'Поступления'))
+SUM(qdfPayments.PaymentAmount * (Month(PaymentDate)=5 AND qdfPayments.ManagerPayCalc = 'Закрыт' AND qdfPayments.TransactionType = 'Затраты по заявке'))
+SUM(qdfPayments.PaymentAmount * (Month(PaymentDate)=5 AND qdfPayments.TransactionType = 'Расходы прочие'))+SUM(qdfPayments.PaymentAmount * (Month(PaymentDate)=5 AND qdfPayments.TransactionType = 'Прибыль, дивиденды')) + Апрель AS Май,
-SUM(qdfPayments.IncomeAmount * (Month(PaymentDate)=6 AND qdfPayments.ManagerPayCalc = 'Закрыт' AND qdfPayments.TransactionType = 'Поступления'))
+SUM(qdfPayments.PaymentAmount * (Month(PaymentDate)=6 AND qdfPayments.ManagerPayCalc = 'Закрыт' AND qdfPayments.TransactionType = 'Затраты по заявке'))
+SUM(qdfPayments.PaymentAmount * (Month(PaymentDate)=6 AND qdfPayments.TransactionType = 'Расходы прочие'))+SUM(qdfPayments.PaymentAmount * (Month(PaymentDate)=6 AND qdfPayments.TransactionType = 'Прибыль, дивиденды')) + Май AS Июнь,
-SUM(qdfPayments.IncomeAmount * (Month(PaymentDate)=7 AND qdfPayments.ManagerPayCalc = 'Закрыт' AND qdfPayments.TransactionType = 'Поступления'))
+SUM(qdfPayments.PaymentAmount * (Month(PaymentDate)=7 AND qdfPayments.ManagerPayCalc = 'Закрыт' AND qdfPayments.TransactionType = 'Затраты по заявке'))
+SUM(qdfPayments.PaymentAmount * (Month(PaymentDate)=7 AND qdfPayments.TransactionType = 'Расходы прочие'))+SUM(qdfPayments.PaymentAmount * (Month(PaymentDate)=7 AND qdfPayments.TransactionType = 'Прибыль, дивиденды')) + Июнь AS Июль,
-SUM(qdfPayments.IncomeAmount * (Month(PaymentDate)=8 AND qdfPayments.ManagerPayCalc = 'Закрыт' AND qdfPayments.TransactionType = 'Поступления'))
+SUM(qdfPayments.PaymentAmount * (Month(PaymentDate)=8 AND qdfPayments.ManagerPayCalc = 'Закрыт' AND qdfPayments.TransactionType = 'Затраты по заявке'))
+SUM(qdfPayments.PaymentAmount * (Month(PaymentDate)=8 AND qdfPayments.TransactionType = 'Расходы прочие'))+SUM(qdfPayments.PaymentAmount * (Month(PaymentDate)=8 AND qdfPayments.TransactionType = 'Прибыль, дивиденды')) + Июль AS Август,
-SUM(qdfPayments.IncomeAmount * (Month(PaymentDate)=9 AND qdfPayments.ManagerPayCalc = 'Закрыт' AND qdfPayments.TransactionType = 'Поступления'))
+SUM(qdfPayments.PaymentAmount * (Month(PaymentDate)=9 AND qdfPayments.ManagerPayCalc = 'Закрыт' AND qdfPayments.TransactionType = 'Затраты по заявке'))
+SUM(qdfPayments.PaymentAmount * (Month(PaymentDate)=9 AND qdfPayments.TransactionType = 'Расходы прочие'))+SUM(qdfPayments.PaymentAmount * (Month(PaymentDate)=9 AND qdfPayments.TransactionType = 'Прибыль, дивиденды')) + Август AS Сентябрь,
-SUM(qdfPayments.IncomeAmount * (Month(PaymentDate)=10 AND qdfPayments.ManagerPayCalc = 'Закрыт' AND qdfPayments.TransactionType = 'Поступления'))
+SUM(qdfPayments.PaymentAmount * (Month(PaymentDate)=10 AND qdfPayments.ManagerPayCalc = 'Закрыт' AND qdfPayments.TransactionType = 'Затраты по заявке'))
+SUM(qdfPayments.PaymentAmount * (Month(PaymentDate)=10 AND qdfPayments.TransactionType = 'Расходы прочие'))+SUM(qdfPayments.PaymentAmount * (Month(PaymentDate)=10 AND qdfPayments.TransactionType = 'Прибыль, дивиденды')) + Сентябрь AS Октябрь,
-SUM(qdfPayments.IncomeAmount * (Month(PaymentDate)=11 AND qdfPayments.ManagerPayCalc = 'Закрыт' AND qdfPayments.TransactionType = 'Поступления'))
+SUM(qdfPayments.PaymentAmount * (Month(PaymentDate)=11 AND qdfPayments.ManagerPayCalc = 'Закрыт' AND qdfPayments.TransactionType = 'Затраты по заявке'))
+SUM(qdfPayments.PaymentAmount * (Month(PaymentDate)=11 AND qdfPayments.TransactionType = 'Расходы прочие'))+SUM(qdfPayments.PaymentAmount * (Month(PaymentDate)=11 AND qdfPayments.TransactionType = 'Прибыль, дивиденды')) + Октябрь AS Ноябрь,
-SUM(qdfPayments.IncomeAmount * (Month(PaymentDate)=12 AND qdfPayments.ManagerPayCalc = 'Закрыт' AND qdfPayments.TransactionType = 'Поступления'))
+SUM(qdfPayments.PaymentAmount * (Month(PaymentDate)=12 AND qdfPayments.ManagerPayCalc = 'Закрыт' AND qdfPayments.TransactionType = 'Затраты по заявке'))
+SUM(qdfPayments.PaymentAmount * (Month(PaymentDate)=12 AND qdfPayments.TransactionType = 'Расходы прочие'))+SUM(qdfPayments.PaymentAmount * (Month(PaymentDate)=12 AND qdfPayments.TransactionType = 'Прибыль, дивиденды')) + Ноябрь AS Декабрь
Where Year(PaymentDate)=2015

http://www.sql.ru/forum/1200110/access-sql-podzaprosy-kak-sdelat

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

Я работаю с Access 2013. Но до этих пор, никаких дел с работой через web не имел. Только десткопные приложения.
(Сама версия Access не лицензированная.)

И вот мне поступило предложение написать БД. Где для нескольких пользователей должна быть организована работа через веб-интерфейс (внесение данных в таблицу) и возможность просмотра отчёта.

Полазил здесь, и запутался... И Office 365 и SharePoint, кто-то облако рекомендует... SharePoint Foundation вроде бесплатно, а проверка лицензии Access будет? Или сейчас "SharePoint Foundation" уже нет?

Я так понял, что без лицензии ничего не выйдет? Хотелось бы получить грамотный аргументированный ответ (для чайника в web), что бы потом я мог это заказчику объяснить.

P.S. Прошу другую СУБД не предлагать.

http://www.sql.ru/forum/1200087/rabota-s-access-cherez-web

Нарастающий итог у меняя получилось.
но надо чтоб учитывался итог прошлого года каждому месяцу след года
итог 2014 + к январю 2015 года.
Как сделать??

SELECT 'прибыль' AS ПАССИВ, 
-SUM(qdfPayments.IncomeAmount * (Month(PaymentDate) = 1 AND qdfPayments.ManagerPayCalc = 'Закрыт' AND qdfPayments.TransactionType = 'Поступления'))
+SUM(qdfPayments.PaymentAmount * (Month(PaymentDate)=1 AND qdfPayments.ManagerPayCalc = 'Закрыт' AND qdfPayments.TransactionType = 'Затраты по заявке'))+SUM(qdfPayments.PaymentAmount * (Month(PaymentDate)=1 AND qdfPayments.TransactionType = 'Расходы прочие'))+SUM(qdfPayments.PaymentAmount * (Month(PaymentDate)=1 AND qdfPayments.TransactionType = 'Прибыль, дивиденды')) AS Январь,
-SUM(qdfPayments.IncomeAmount * (Month(PaymentDate)=2 AND qdfPayments.ManagerPayCalc = 'Закрыт' AND qdfPayments.TransactionType = 'Поступления'))
+SUM(qdfPayments.PaymentAmount * (Month(PaymentDate)=2 AND qdfPayments.ManagerPayCalc = 'Закрыт' AND qdfPayments.TransactionType = 'Затраты по заявке'))+SUM(qdfPayments.PaymentAmount * (Month(PaymentDate)=2 AND qdfPayments.TransactionType = 'Расходы прочие'))+SUM(qdfPayments.PaymentAmount * (Month(PaymentDate)=2 AND qdfPayments.TransactionType = 'Прибыль, дивиденды')) + Январь AS Февраль,
-SUM(qdfPayments.IncomeAmount * (Month(PaymentDate)=3 AND qdfPayments.ManagerPayCalc = 'Закрыт' AND qdfPayments.TransactionType = 'Поступления'))
+SUM(qdfPayments.PaymentAmount * (Month(PaymentDate)=3 AND qdfPayments.ManagerPayCalc = 'Закрыт' AND qdfPayments.TransactionType = 'Затраты по заявке'))+SUM(qdfPayments.PaymentAmount * (Month(PaymentDate)=3 AND qdfPayments.TransactionType = 'Расходы прочие'))+SUM(qdfPayments.PaymentAmount * (Month(PaymentDate)=3 AND qdfPayments.TransactionType = 'Прибыль, дивиденды')) + Февраль AS Март,
-SUM(qdfPayments.IncomeAmount * (Month(PaymentDate)=4 AND qdfPayments.ManagerPayCalc = 'Закрыт' AND qdfPayments.TransactionType = 'Поступления'))
+SUM(qdfPayments.PaymentAmount * (Month(PaymentDate)=4 AND qdfPayments.ManagerPayCalc = 'Закрыт' AND qdfPayments.TransactionType = 'Затраты по заявке'))+SUM(qdfPayments.PaymentAmount * (Month(PaymentDate)=4 AND qdfPayments.TransactionType = 'Расходы прочие'))+SUM(qdfPayments.PaymentAmount * (Month(PaymentDate)=4 AND qdfPayments.TransactionType = 'Прибыль, дивиденды')) + Март AS Апрель,
-SUM(qdfPayments.IncomeAmount * (Month(PaymentDate)=5 AND qdfPayments.ManagerPayCalc = 'Закрыт' AND qdfPayments.TransactionType = 'Поступления'))
+SUM(qdfPayments.PaymentAmount * (Month(PaymentDate)=5 AND qdfPayments.ManagerPayCalc = 'Закрыт' AND qdfPayments.TransactionType = 'Затраты по заявке'))+SUM(qdfPayments.PaymentAmount * (Month(PaymentDate)=5 AND qdfPayments.TransactionType = 'Расходы прочие'))+SUM(qdfPayments.PaymentAmount * (Month(PaymentDate)=5 AND qdfPayments.TransactionType = 'Прибыль, дивиденды')) + Апрель AS Май,
-SUM(qdfPayments.IncomeAmount * (Month(PaymentDate)=6 AND qdfPayments.ManagerPayCalc = 'Закрыт' AND qdfPayments.TransactionType = 'Поступления'))
+SUM(qdfPayments.PaymentAmount * (Month(PaymentDate)=6 AND qdfPayments.ManagerPayCalc = 'Закрыт' AND qdfPayments.TransactionType = 'Затраты по заявке'))+SUM(qdfPayments.PaymentAmount * (Month(PaymentDate)=6 AND qdfPayments.TransactionType = 'Расходы прочие'))+SUM(qdfPayments.PaymentAmount * (Month(PaymentDate)=6 AND qdfPayments.TransactionType = 'Прибыль, дивиденды')) + Май AS Июнь,
-SUM(qdfPayments.IncomeAmount * (Month(PaymentDate)=7 AND qdfPayments.ManagerPayCalc = 'Закрыт' AND qdfPayments.TransactionType = 'Поступления'))
+SUM(qdfPayments.PaymentAmount * (Month(PaymentDate)=7 AND qdfPayments.ManagerPayCalc = 'Закрыт' AND qdfPayments.TransactionType = 'Затраты по заявке'))+SUM(qdfPayments.PaymentAmount * (Month(PaymentDate)=7 AND qdfPayments.TransactionType = 'Расходы прочие'))+SUM(qdfPayments.PaymentAmount * (Month(PaymentDate)=7 AND qdfPayments.TransactionType = 'Прибыль, дивиденды')) + Июнь AS Июль,
-SUM(qdfPayments.IncomeAmount * (Month(PaymentDate)=8 AND qdfPayments.ManagerPayCalc = 'Закрыт' AND qdfPayments.TransactionType = 'Поступления'))
+SUM(qdfPayments.PaymentAmount * (Month(PaymentDate)=8 AND qdfPayments.ManagerPayCalc = 'Закрыт' AND qdfPayments.TransactionType = 'Затраты по заявке'))+SUM(qdfPayments.PaymentAmount * (Month(PaymentDate)=8 AND qdfPayments.TransactionType = 'Расходы прочие'))+SUM(qdfPayments.PaymentAmount * (Month(PaymentDate)=8 AND qdfPayments.TransactionType = 'Прибыль, дивиденды')) + Июль AS Август,
-SUM(qdfPayments.IncomeAmount * (Month(PaymentDate)=9 AND qdfPayments.ManagerPayCalc = 'Закрыт' AND qdfPayments.TransactionType = 'Поступления'))
+SUM(qdfPayments.PaymentAmount * (Month(PaymentDate)=9 AND qdfPayments.ManagerPayCalc = 'Закрыт' AND qdfPayments.TransactionType = 'Затраты по заявке'))+SUM(qdfPayments.PaymentAmount * (Month(PaymentDate)=9 AND qdfPayments.TransactionType = 'Расходы прочие'))+SUM(qdfPayments.PaymentAmount * (Month(PaymentDate)=9 AND qdfPayments.TransactionType = 'Прибыль, дивиденды')) + Август AS Сентябрь,
-SUM(qdfPayments.IncomeAmount * (Month(PaymentDate)=10 AND qdfPayments.ManagerPayCalc = 'Закрыт' AND qdfPayments.TransactionType = 'Поступления'))
+SUM(qdfPayments.PaymentAmount * (Month(PaymentDate)=10 AND qdfPayments.ManagerPayCalc = 'Закрыт' AND qdfPayments.TransactionType = 'Затраты по заявке'))+SUM(qdfPayments.PaymentAmount * (Month(PaymentDate)=10 AND qdfPayments.TransactionType = 'Расходы прочие'))+SUM(qdfPayments.PaymentAmount * (Month(PaymentDate)=10 AND qdfPayments.TransactionType = 'Прибыль, дивиденды')) + Сентябрь AS Октябрь,
-SUM(qdfPayments.IncomeAmount * (Month(PaymentDate)=11 AND qdfPayments.ManagerPayCalc = 'Закрыт' AND qdfPayments.TransactionType = 'Поступления'))
+SUM(qdfPayments.PaymentAmount * (Month(PaymentDate)=11 AND qdfPayments.ManagerPayCalc = 'Закрыт' AND qdfPayments.TransactionType = 'Затраты по заявке'))+SUM(qdfPayments.PaymentAmount * (Month(PaymentDate)=11 AND qdfPayments.TransactionType = 'Расходы прочие'))+SUM(qdfPayments.PaymentAmount * (Month(PaymentDate)=11 AND qdfPayments.TransactionType = 'Прибыль, дивиденды')) + Октябрь AS Ноябрь,
-SUM(qdfPayments.IncomeAmount * (Month(PaymentDate)=12 AND qdfPayments.ManagerPayCalc = 'Закрыт' AND qdfPayments.TransactionType = 'Поступления'))
+SUM(qdfPayments.PaymentAmount * (Month(PaymentDate)=12 AND qdfPayments.ManagerPayCalc = 'Закрыт' AND qdfPayments.TransactionType = 'Затраты по заявке'))+SUM(qdfPayments.PaymentAmount * (Month(PaymentDate)=12 AND qdfPayments.TransactionType = 'Расходы прочие'))+SUM(qdfPayments.PaymentAmount * (Month(PaymentDate)=12 AND qdfPayments.TransactionType = 'Прибыль, дивиденды')) + Ноябрь AS Декабрь, Декабрь AS Итого
FROM qdfPayments
WHERE qdfPayments.PaymentDate = 2015 

http://www.sql.ru/forum/1200078/sql-access-nado-poschitat-pribyl-s-narastaushhim-itogom

Private Sub Form_Load()
  Set BD = DAO.OpenDatabase("D:\Prohect\MySite.mdb")

        CmdCommand.CommandText = "SELECT * FROM " & List5.List(f)
        Set Rec = CmdCommand.Execute()
        
        Set tdfNew = BD.CreateTableDef(s)
        
        For f3 = 0 To Rec.Fields.Count - 1
          
          If Rec.Fields(f3).Type = 3 Or Rec.Fields(f3).Type = 19 Or Rec.Fields(f3).Type = 17 Then 'Long (Длинное целое) AUTO_INCREMENT
            Set fld = tdfNew.CreateField(Rec.Fields(f3).name, dbLong)
          ElseIf Rec.Fields(f3).Type = 203 Then 'Текст
            Set fld = tdfNew.CreateField(Rec.Fields(f3).name, dbMemo)
            'fld.size = Tbl.Fields(f3).size
          ElseIf Rec.Fields(f3).Type = 16 Or Rec.Fields(f3).Type = 2 Then
            Set fld = tdfNew.CreateField(Rec.Fields(f3).name, dbInteger)
          ElseIf Rec.Fields(f3).Type = 202 Or Rec.Fields(f3).Type = 130 Then 'CHAR
            Set fld = tdfNew.CreateField(Rec.Fields(f3).name, dbText)
'            fld.size = Tbl.Fields(f3).size
          
          ElseIf Rec.Fields(f3).Type = 11 Then
            Set fld = tdfNew.CreateField(Rec.Fields(f3).name, dbBoolean)
          
          ElseIf Rec.Fields(f3).Type = 4 Then
            Set fld = tdfNew.CreateField(Rec.Fields(f3).name, dbCurrency)
            
          ElseIf Rec.Fields(f3).Type = 5 Then
            Set fld = tdfNew.CreateField(Rec.Fields(f3).name, dbDouble)
          ElseIf Rec.Fields(f3).Type = 135 Or Rec.Fields(f3).Type = 133 Then 'Date
            Set fld = tdfNew.CreateField(Rec.Fields(f3).name, dbDate)
        
          Else
            Stop
            tdfNew.Fields.Append tdfNew.CreateField(Rec.Fields(f3).name, dbText)
          End If
          
          
          
          If Rec.Fields(f3).Properties("ISAUTOINCREMENT").value Then
            fld.Attributes = dbAutoIncrField
          End If
          
          tdfNew.Fields.Append fld
        Next

Вот такой пример повсюду. Каждая строка срабатывает без ошибок, но результата никакого. Как впустую.
Чуть переделал пример под себя для синхронизации. Уже интересуюсь SQL запросом, но еще надеюсь может быть есть объяснение по этому коду.

http://www.sql.ru/forum/1200067/vba-kak-dobavit-programmno-tablicu-i-sozdat-v-ney-polya-v-b-d-access

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

Кто знает как увеличить размер шрифта в справке Access?

Спасибо.

http://www.sql.ru/forum/1200058/f1-spravka-access-razmer-shrifta

Всем доброго дня!

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

http://www.sql.ru/forum/1200004/pochemu-ne-rabotaet-szhatie-poley

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

http://www.sql.ru/forum/1200002/udalenie

Что-то я подзабыл.

Пишу в RowSource простой формы

exec ReportForMaster.AlfaInsurance_Medical @type=?, @NoRaiseError=?

и вместо запроса параметров при открытии формы, отгребаю аварийное завершение Access.

Чего мной сделано не так?

http://www.sql.ru/forum/1200001/adp-rowsource-with-parameters

Создала 2 таблицы
1 таблице идет сумма нарастающих расходов на 12 месяц. за 2015 год

SELECT Center AS Nam2, -SUM(qdfPayments.IncomePaymentSumCalc*(Month(PaymentDate)=1)) AS Jun, -SUM(qdfPayments.IncomePaymentSumCalc*(Month(PaymentDate)=2))+Jun AS Февраль, -SUM(qdfPayments.IncomePaymentSumCalc*(Month(PaymentDate)=3))+Февраль AS Март, -SUM(qdfPayments.IncomePaymentSumCalc*(Month(PaymentDate)=4))+Март AS Апрель, -SUM(qdfPayments.IncomePaymentSumCalc*(Month(PaymentDate)=5))+Апрель AS Май, -SUM(qdfPayments.IncomePaymentSumCalc*(Month(PaymentDate)=6))+Май AS Июнь, -SUM(qdfPayments.IncomePaymentSumCalc*(Month(PaymentDate)=7))+Июнь AS Июль, -SUM(qdfPayments.IncomePaymentSumCalc*(Month(PaymentDate)=8))+Июль AS Август, -SUM(qdfPayments.IncomePaymentSumCalc*(Month(PaymentDate)=9))+Август AS Сентябрь, -SUM(qdfPayments.IncomePaymentSumCalc*(Month(PaymentDate)=10))+Сентябрь AS Октябрь, -SUM(qdfPayments.IncomePaymentSumCalc*(Month(PaymentDate)=11))+Октябрь AS Ноябрь, -SUM(qdfPayments.IncomePaymentSumCalc*(Month(PaymentDate)=12))+Ноябрь AS Декабрь
FROM qdfPayments
WHERE Year(qdfPayments.PaymentDate)=2015 And Center<>''
GROUP BY Center;

А во второй таблице считается сумма расходов (до) <2015 год

 SELECT qdfPayments.Center AS Nam, Sum(qdfPayments.IncomePaymentSumCalc) AS Kum
FROM qdfPayments
WHERE (((Year(qdfPayments.PaymentDate))<2015))
GROUP BY qdfPayments.Center;

Надо что с помощью JOIN соединить ИТОГи. Итог до 2015 год + январь месяц 2015
если У Андрея до 2015 был расход 12 000 р. и за январь месяц 2015 1 000 р.
то должен показать
----------январь 2015
Андрей----13000


Как сделать??

http://www.sql.ru/forum/1199956/access-sql-inner-join-obedinit-2-tablicy-summirovat-itog-do-2015-yanvar-za-2015

Добрый день! У меня возникла проблема с запросами в Access.
Помогите, пожалуйста, создать 4 запроса.
1. По введённом названии религии показать страны с этой религией.
2. Показать страны Евразии с ВНП меньшим, чем средний по евразии
3. Показать страны с государственным языком, который в то же время является государственным языком Бельгии
4. Вычислить площадь населения для каждой страны.
Завтра сдавать и нужно что бы эти запросы были.
Вот БД "Страны мира"
Помогите, пожалуйста! 2 дня копаюсь, ничего не получается

http://www.sql.ru/forum/1199919/zaprosy-v-access

Select Center, (SELECT Center, SUM(qdfPayments.IncomePaymentSumCalc)  FROM qdfPayments
 WHERE Year(PaymentDate)<=2015 AND Center<>''  
GROUP BY Center) + SUM(qdfPayments.IncomePaymentSumCalc *( -(Month(PaymentDate) = 1))) AS Январь   FROM qdfPayments WHERE  Year(PaymentDate) <= 2015 AND Center<>'' 
GROUP BY Center

http://www.sql.ru/forum/1199916/sql-access-kak-summirovat-podzaprosy

за 2014
Center -----январь---Февраль--Итого
Машина------200------400--------400
за 2015 должен + итог 2014 год
Center -----январь---------Февраль-----------------------------Итого
Машина------400+200------400+200+400=1000
ВЫШЛА ОШИБКА!!!! КАК решить проблему??

SELECT Center, -SUM(qdfPayments.IncomePaymentSumCalc * (Month(PaymentDate) = 1)) + Итого AS Январь, 
-SUM(qdfPayments.IncomePaymentSumCalc * (Month(PaymentDate) = 2)) + Январь AS Февраль,
-SUM(qdfPayments.IncomePaymentSumCalc * (Month(PaymentDate) = 3))+ Февраль AS Март,
-SUM(qdfPayments.IncomePaymentSumCalc * (Month(PaymentDate) = 4))+ Март AS Апрель,
-SUM(qdfPayments.IncomePaymentSumCalc * (Month(PaymentDate) = 5))+ Апрель AS Май,
-SUM(qdfPayments.IncomePaymentSumCalc * (Month(PaymentDate) = 6))+ Май AS Июнь,
-SUM(qdfPayments.IncomePaymentSumCalc * (Month(PaymentDate) = 7))+ Июнь AS Июль,
-SUM(qdfPayments.IncomePaymentSumCalc * (Month(PaymentDate) = 8))+ Июль AS Август,
-SUM(qdfPayments.IncomePaymentSumCalc * (Month(PaymentDate) = 9))+ Август AS Сентябрь,
-SUM(qdfPayments.IncomePaymentSumCalc * (Month(PaymentDate) = 10))+ Сентябрь AS Октябрь,
-SUM(qdfPayments.IncomePaymentSumCalc * (Month(PaymentDate) = 11))+ Октябрь AS Ноябрь, 
-SUM(qdfPayments.IncomePaymentSumCalc * (Month(PaymentDate) = 12))+ Ноябрь AS Декабрь, Декабрь AS Итого
FROM qdfPayments WHERE Year(PaymentDate) <=2015  AND Center<>''  
GROUP BY Center

http://www.sql.ru/forum/1199887/access-nado-sdelat-narastaushhiy-itog-po-mesyacam-chtoby-uchityvalsya-za-predydushhie-goda

Access 2007.
Применяю в запросе функцию IIf для выбора коэффициентов. Коэффициенты должны быть числового формата для последующих вычислений.
Вот один пример:
Норма времени: IIf([Реестр]![Диаметр трубопроводов]="";"";IIf([Реестр]![Диаметр трубопроводов]<109;"3.7";IIf([Реестр]![Диаметр трубопроводов]<220;"4.7";IIf([Реестр]![Диаметр трубопроводов]<326;"5.8";IIf([Реестр]![Диаметр трубопроводов]<427;"7.0";IIf([Реестр]![Диаметр трубопроводов]<631;"8.4";IIf([Реестр]![Диаметр трубопроводов]<821;"10.1";IIf([Реестр]![Диаметр трубопроводов]<1021;"11.2";IIf([Реестр]![Диаметр трубопроводов]<1221;"12.5";"13.6")))))))))

Вот второй пример:
Коэффициент: IIf([Реестр]![Протяженность, м (по каналу)]<250;1;0,75)

В первом случае результат оказывается строковой величиной, во втором числовой. Как сделать в первом выражении результат числовым уже 2-й день голову ломаю.

http://www.sql.ru/forum/1199847/format-argumentov-funkcii-iif

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

'создаем объект Message это наше письмо
Set oMSG = CreateObject("CDO.Message")
'создаем объект Configuration это настройки соединения
Set oConfig = CreateObject("CDO.Configuration")
Set CFields = oConfig.Fields
Set oMSG.Configuration = oConfig
и т.д.

Короче, все отлично работает.
Постановщик задачи запросил при отправке сообщений ставить признак важности (красный восклицательный знак). Собственно вопрос - Как?

http://www.sql.ru/forum/1199830/otpravka-soobshheniy-cherez-cdo

Добрый день.
Есть небольшая программка на Access 2013.
Хочется закрыть от пользователей некоторые данные и часть алгоритмов.
Сохраняю проект как файл ACCDE.
Запускаю, в итоге никакие обработчики не работаю, кнопки никакие действия не выполняют. Есть только возможность занести данные в списке.

Что я не так сделал ?

http://www.sql.ru/forum/1199819/neverno-rabotaet-fayl-kompilyacii

Привет всем, столкнулся с небольшим неудобством при присоединении access к серверу MySQL через MySQL ODBC Driver 5.3
Создаю именованный экземпляр драйвера в списке администрирования ODBC, настраиваю его, линкую таблицы , все работает. Но ссылаться при линковке таблицы нужно обязательно на именованный экземпляр созданный на компьютере. Только если настроен DSN.

Ладно, хрен с ним, пошел дальше, решил отучить аксесс от создания именованного DSN. Снес таблицу ,зашел в конструктор запроса,
сделал тип запроса к серверу, текст запроса сделал

SELECT * FROM tbl_goods

Строку подключения сделал в свойствах запроса несвязанную с конкретным именным подключением:

ODBC;Driver=MySQL ODBC 5.3 ANSI Driver; Server=.XX.XX.XXX.XXX;Database=XX_XXXX;User=XXXX;Password=XXXX;Option=3;

Все здорово и замечательно, запрос чудесно сделал выборку с сервера.

Теперь хочу спросить, а можно ли как нибудь отучить линкованную таблицу от именованного экземпляра подключения. Именно таблицу , не привязываться через DSN , который надо отдельно создавать, а по аналогии с запросом напрямую использовать драйвер myOdbc?? Если да, то где там в свойствах можно прописать мой connection string?

http://www.sql.ru/forum/1199796/neimenovannyy-ekzemplyar-drayvera-odbc-mysql-odbc