Доброго всем дня.

К МЕМО полям нельзя применять агрегатные функции (MAX, MIN и т.д)
Почитав форум, пришёл к выводу, что лучше написать свою функцию агрегирования.
Может есть другие предложения или я что-то упустил?


I Have Nine Lives You Have One Only
THINK!

http://www.sql.ru/forum/1112597/memo-polya-i-agregatnye-funkcii

Всем привет!
Народ, подскажите пожалуйста, возможно ли реализовать в Access чтобы в конкретном столбце шел учет кол-ва дней? То есть, есть первоначальная дата(столбец 1), отталкиваясь от нее, в этом столбце(столбец 2) будет увеличиваться число с каждым днем на +1(все дни, и рабочие и выходные) и прекращаться подсчет как только в другом столбце(столбец 3) появится новая дата???? Образец ниже

Дата приема Кол-во дней Дата выдачи
05.08.2014 21 26.08.2014

Раньше делал это в excel с помощью формулы: =ЕСЛИ(ЕПУСТО(O122);РАЗНДАТ(Основной!A122;СЕГОДНЯ();"d");O122-A122), как подобное реализовать в Access, не знаю, помогите, плиз))

http://www.sql.ru/forum/1112593/schetchik-dney-ot-ukazannoy-daty

В свободных полях форм использую построитель выражений для вычисления итогов:
=Sum([СуммаПлатежа]*IIf([ОплатитьДО]>#31.07.2014#;1;0))

Вот эта дата должна меняться на следующий год, когда проходится данная точка отсчета, текущую дату я так понял берем так -date(now):
до 31.07.2014 должно стоять 31.07.2013, а потом как в примере (также и 01.09.2013 должно меняться при этом на 01.09.2014).

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

http://www.sql.ru/forum/1112590/zadat-datu-po-umolchaniu-zavisyashhuu-ot-tekushhey

Здравствуйте! Нашёл пример по загрузке КЛАДР-а в таблицы, но вот беда - не происходит разделения городов и пунктов в разные таблицы. (http://kladr.ws/zagruzka-microsoft-access)
Дописал/изменил часть кода в макросе (всё в принципе интуитивно понятно), - блин, работать не хочет. Ошибок не выводит, просто "подвисает". Подвисает именно на городах ( там где я изменил).

Dim strSQL

SysCmd acSysCmdInitMeter, "Процесс обновления...", 13 'СОЗДАЕМ ПОЛОСУ СОСТОЯНИЯ

SysCmd acSysCmdUpdateMeter, 0 'ПОЛОСА СОСТОЯНИЯ

On Error GoTo err_kod

SysCmd acSysCmdUpdateMeter, 1 'ПОЛОСА СОСТОЯНИЯ

'Добавляем линовку на таблицу KLADR
DoCmd.TransferDatabase acLink, "dBase III", Application.CurrentProject.Path, , "KLADR.DBF", "KLADR"

SysCmd acSysCmdUpdateMeter, 2 'ПОЛОСА СОСТОЯНИЯ
'ОБРАБАТЫВАЕМ РЕГИОНЫ
CurrentDb.Execute "Delete * from Регионы;"

SysCmd acSysCmdUpdateMeter, 3 'ПОЛОСА СОСТОЯНИЯ

strSQL = "INSERT INTO Регионы (КодРегиона, Регион, INDEX) SELECT clng(Left([KLADR]![code],2)) AS КодРегиона,  [KLADR]![NAME] & ' ' & [KLADR]![SOCR] AS Регион, KLADR.INDEX FROM KLADR WHERE (((Right([KLADR]![code],11))='00000000000'));"
CurrentDb.Execute strSQL

SysCmd acSysCmdUpdateMeter, 4 'ПОЛОСА СОСТОЯНИЯ
'ОБРАБАТЫВАЕМ РАЙОНЫ
CurrentDb.Execute "Delete * from Районы;"

SysCmd acSysCmdUpdateMeter, 5 'ПОЛОСА СОСТОЯНИЯ

strSQL = "INSERT INTO Районы (КодРегиона, КодРайона, Район, INDEX) SELECT clng(Left([KLADR]![code],2)) AS КодРегиона,  CLng(Mid([KLADR]![code],3,3)) AS кодРайона, [KLADR]![NAME] & ' ' & [KLADR]![SOCR] AS Район, KLADR.INDEX FROM KLADR WHERE ((Mid([KLADR]![code],3,3)<>'000') AND (Right([code],8)='00000000'));"
CurrentDb.Execute strSQL

SysCmd acSysCmdUpdateMeter, 6 'ПОЛОСА СОСТОЯНИЯ

'ОБРАБАТЫВАЕМ ГОРОДА
CurrentDb.Execute "Delete * from Города;"

SysCmd acSysCmdUpdateMeter, 7 'ПОЛОСА СОСТОЯНИЯ
'===============================================================
'ИЗМЕНЁННОЕ
strSQL = "INSERT INTO Города (КодРегиона, КодРайона, КодГорода, Город, INDEX) SELECT CLng(Left([KLADR]![code],2)) AS КодРегиона, CLng(Mid([KLADR]![code],3,3)) AS КодРайона, CLng(Mid([KLADR]![code],6,3)) AS КодГорода, [KLADR]![NAME] & ' ' & [KLADR]![SOCR] AS Город, KLADR.INDEX FROM KLADR WHERE (Mid([KLADR]![code],6,3)<>'000')  AND (Right([code],5)='00000'));"
CurrentDb.Execute strSQL

SysCmd acSysCmdUpdateMeter, 8 'ПОЛОСА СОСТОЯНИЯ

'ОБРАБАТЫВАЕМ НАСЕЛЁННЫЕ ПУНКТЫ
CurrentDb.Execute "Delete * from НаселённыеПункты;"

SysCmd acSysCmdUpdateMeter, 9 'ПОЛОСА СОСТОЯНИЯ

' НОВОЕ
strSQL = "INSERT INTO Города (КодРегиона, КодРайона, КодГорода, Город, КодПункта, Пункт, INDEX) SELECT CLng(Left([KLADR]![code],2)) AS КодРегиона, CLng(Mid([KLADR]![code],3,3)) AS КодРайона, CLng(Mid([KLADR]![code],6,3)) AS КодГорода, CLng(Mid([KLADR]![code],9,3)) AS КодПункта, [KLADR]![NAME] & ' ' & [KLADR]![SOCR] AS Пункт, KLADR.INDEX FROM KLADR WHERE (Mid([KLADR]![code],9,3)<>'000');"
CurrentDb.Execute strSQL

SysCmd acSysCmdUpdateMeter, 10 'ПОЛОСА СОСТОЯНИЯ

'===============================================================

'Удаляем линовку на таблицу KLADR
DoCmd.DeleteObject acTable, "KLADR"

SysCmd acSysCmdUpdateMeter, 11 'ПОЛОСА СОСТОЯНИЯ

'Добавляем линовку на таблицу STREET
DoCmd.TransferDatabase acLink, "dBase III", Application.CurrentProject.Path, , "STREET.DBF", "STREET"

SysCmd acSysCmdUpdateMeter, 12 'ПОЛОСА СОСТОЯНИЯ

'ОБРАБАТЫВАЕМ УЛИЦЫ
CurrentDb.Execute "Delete * from Улицы;"

SysCmd acSysCmdUpdateMeter, 13 'ПОЛОСА СОСТОЯНИЯ

strSQL = "INSERT INTO Улицы (КодРегиона, КодРайона, КодГорода, КодУлицы, Улица, INDEX) SELECT CLng(Left([STREET]![code],2)) AS КодРегиона, CLng(Mid([STREET]![code],3,3)) AS КодРайона, CLng(Mid([STREET]![code],6,6)) AS КодГорода, CLng(Mid([STREET]![code],12,4)) AS КодУлицы, [STREET]![NAME] & ' ' & [STREET]![SOCR] AS Улица, STREET.INDEX FROM STREET WHERE (Mid([STREET]![code],12,4)<>'0000')"
CurrentDb.Execute strSQL

SysCmd acSysCmdUpdateMeter, 14 'ПОЛОСА СОСТОЯНИЯ

'Удаляем линовку на таблицу STREET
DoCmd.DeleteObject acTable, "STREET"

SysCmd acSysCmdUpdateMeter, 15 'ПОЛОСА СОСТОЯНИЯ

SysCmd acSysCmdRemoveMeter

exit_sub:
Exit Sub

err_kod:
Debug.Print Err.Description

http://www.sql.ru/forum/1112559/zagruzka-kladr-a-vo-vnutrennie-tablicy

Доброго времени суток!
Стоит задача выгрузить в MS Project 2010 из MS Access производственные маршруты (не важно читай табличные данные). Очень мало удалось нарыть инфы.
Код по добавлению нового задания:
Dim pjApp As Object
Set pjApp = CreateObject("MSProject.Application")
pjApp.Visible = True
zadanie = ist![Заказы_Содержимое_Детально.designation] & ":" & ist![Заказы_Содержимое_Детально.Name] & "(" & ist![ВеткаМаршрутаТекст] & ")"
pjApp.ActiveProject.Tasks.Add zadanie

Работает. Дальше по примеру Excel включаю в Project-e запись макроса вставляю колонку например, переношу код в Access и нифига не работает.
Конкретно надо:
1. Вставить несколько текстовых столбцов
2. Заполнить строки данными (по столбцам)
3. Установить связи и иерархию (уровень группировки, плюсики :-) )

В литературе в основном как ручками делать. Научите плиз! Или хотя бы направьте.

еше момент:
на оф. сайте код по раннему связыванию:
Sub ModifyProject_Early()
Dim pjApp As MSProject.Application
Set pjApp = New MSProject.Application
pjApp.Visible = True
pjApp.FileOpen "Clocks.mpp"
pjApp.ActiveProject.Tasks.Add "Wind clocks"
pjApp.FileSave
pjApp.FileClose
pjApp.Quit
End Sub
не компилируется хотя библиотеки в references вроде подключил. Позднее связывание работает.

Может кто-то уже это освоил.
Инфу черпал здесь
http://msdn.microsoft.com/en-us/library/office/office.vbapj.chm131265(v=office.15)

НУЖЕН ПИНОК! ПЛИЗ!

http://www.sql.ru/forum/1112551/interfeys-access-i-ms-project

Доброй ночи,

Не могу разобраться как присвоить переменной значение из таблицы.

Почему-то не работает вот этот код

a = DLookup("Passwords", "tblPersonal", "логин=" & Me.login.Value)

Подскажите, в чем ошибка?

http://www.sql.ru/forum/1112547/ne-rabotaet-kod

Коллеги, добрый день!

Подскажите: имеется запрос, имеется файл, расположеный по адресу: C\qwe.xlsx.

Необходимо запрос выгрузить на лист Data.

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

http://www.sql.ru/forum/1112507/vygruzka-zaprosa-v-fayl-excel

Имеется несколько таблиц в которых задан формат счётчика в виде "SOB"0000. Необходимо чтобы при экспорте в Excel сохранялся сам формат, но не как форматирование а как готовый текст. К примеру не 1,2,3... а SOB1..2..3..
Экспорт производится с помощью кнопки с внедрённым макросом ЭкспортСФорматированием.

http://www.sql.ru/forum/1112492/sohranenie-formata-kluchevogo-polya-pri-eksporte

Доброго времени суток уважаемые знатоки форума.
Собственно проблема с которой я столкнулся следующая:
- есть небольшая база в одной из таблиц которой я хочу использовать поле с вложением (так как заранее не известно что и в каком количестве в нем будет хранится: скан документа\документов или его электронная версия в хз каком формате);
- есть форма через которую планируется добавлять записи в эту таблицу. Форма построена на свободных элементах (чтобы не дать возможности пользователю нечаянно испортить данные которые уже хранятся в таблице), а добавление происходит по средствам кнопки с вызовом соответствующего запроса на insert в эту таблицу. Все было хорошо пока не дошел до поля с вложением: когда добавляю свободный элемент типа вложение нет возможности добавить нужный файл вложения, а если указываю целевое поле таблицы - при открытии формы отображается содержимое первого элемента.

Скорее всего мой вопрос тривиален для знающих людей.
Прошу помощи.
Заранее благодарен.

http://www.sql.ru/forum/1112489/vopros-po-polu-s-vlozheniem

таблица Пользователи
ID_пользователя (ключ), ФИО, Логин, Пароль

On Error Resume Next 'выключаем обработку ошибок
    Dim db As DAO.Database, s1$, s2$, s3$, rs As DAO.Recordset
    Dim a As String
    a = ""
        
    Const sQ1 = " SELECT [ID_пользователя] FROM Пользователь WHERE  Логин= '"
    Const sQ2 = " ' AND Пароль =  "
    s1 = lstLoginUser.Value
    s2 = plPassword.Value
    Set db = CurrentDb
    Set rs = db.OpenRecordset(sQ1 + s1 + sQ2 + s2)
   
    If rs(0) = Null Then
        MsgBox "Введите правильный пароль"
        Exit Sub 
    End If

Не понимаю, почему запрос не срабатывает. Данные поступают корректные.

http://www.sql.ru/forum/1112482/inicializaciya-polzovatelya

Здравствуйте.
Есть база данных госпиталя, на предыдущем компьютере ( старом ) она работала корректно и ошибок не выдавала.
Перенёс базу данных на свой ноутбук с 2013 Office-ом и win 8.1, выдаёт данную ошибку которой ранее не было.
Почитал разные форумы, в том числе ваш, нашел приблизительный ответ - " что-то с библиотеками ". Сразу скажу что я в Access-е не очень то и сильно разбираюсь, и мало понимаю ответы в тех темах.
Разжуйте пожалуйста как справиться.
Скрин ошибки прикрепляю

http://www.sql.ru/forum/1112451/proshu-pomoshhi

Не подскажете как вывести запросом через конструктор количество пятёрок, четвёрок, троек и двоек.

Пока отдельно создаю 4 запроса и пятым вывожу результаты четырёх.

http://www.sql.ru/forum/1112348/kak-vyvesti-kolichestvo-odinakovyh-ocenok

Есть модуль

+

Public Function makeID() Dim s, db As DAO.Database Set db = CurrentDb db.Execute "delete * from FamUnion" s = "INSERT INTO FamUnion (ИД_Обращения) Select DISTINCT ИД_Обращения FROM Заказанные_гены" db.Execute s makeID = True End Function

и запрос:

+

UPDATE Описание_генов INNER JOIN (Обращения INNER JOIN (Заказанные_гены INNER JOIN FamUnion ON Заказанные_гены.ИД_Обращения = FamUnion.ИД_Обращения) ON (Обращения.ИД_Обращения = Заказанные_гены.ИД_Обращения) AND (Обращения.ИД_Обращения = FamUnion.ИД_Обращения)) ON Описание_генов.ИД_Гена = Заказанные_гены.ИД_Гена SET FamUnion.Fam = (FamUnion.Fam+", ") & Описание_генов.Название_гена WHERE (((makeID())<>False) AND ((Заказанные_гены.[Считать?])=Yes));

Что происходит? В таблицу FamUnion при выполнении запроса заносятся ВСЕ Обращения.
Функция собирает все заказанные гены для обращения в строчку через запятую. Есть форма, где в списке выбирается нужное обращение. Нажимается кнопка заполнения документа данными из формы. Но перед заполнением выполняется эта функция.
Получается, что когда у меня будет 1000 обращений, то каждый раз будет формироваться по новой 1000 записей в таблице famunion. А нужно, чтобы формировалась только одна выбранная.

Я попробовал указать это в модуле:

+

Public Function makeID() Dim s, db As DAO.Database Set db = CurrentDb db.Execute "delete * from FamUnion" s = "INSERT INTO FamUnion (ИД_Обращения) Select DISTINCT ИД_Обращения FROM Заказанные_гены WHERE Заказанные_гены.ИД_Обращения=[Forms]![Address]![Поле113]" db.Execute s makeID = True End Function

[Forms]![Address]![Поле113] - это поле в котором отображается ИД_Обращения выбранного Обращения.
Но при запуске запроса выдаёт ошибку - Слишком мало параметров. Требуется 1.

Что это такое? И как это исправить? Помогите, пожалуйста.

http://www.sql.ru/forum/1112328/zapros-na-dobavlenie-i-modul

Таблица наполняется запросом на добавление. При этом поле "Описание" в таблице имеет тип МЕМО и собирается в запросе

Описание: Поле1 & Поле2 & Поле3 

Суммарно получается больше, чем 255 символов, лишнее запрос обрезает и вставляет в таблицу лишь первые 255.

Как выйти из ситуации?

http://www.sql.ru/forum/1112326/pole-memo-obrazaetsya-v-zaprose-do-255-znakov-kak-poborot

Посоветуйте, расскажите из своего опыта личного, как лучше. И как есть на самом деле.

Схема простая. Таблицы хранятся в отдельной базе (data). Формы, запросы, модули - в другом файле. Таблицы подключаю из первого файла. Получается эдакая база-клиент (конвертировать в MDE???), которую закидаю на другие компы, а data висит на одном компе.

Вот тут первая партия вопросов: где хранить запросы? И можно ли их подключать так же, как и таблицы? И влияет ли это на быстродействие? И если лучше хранить в data, если можно подключить их в другой базе-клиенте, то что будет, если с двух компьютеров запустят один запрос? Просто увидел вот эту картинку и возникли вопросы - http://officeimg.vo.msecnd.net/ru-ru/files/385/172/ZA006047848.gif

На каком этапе (степени заполненности) таблицы начинаются подвисания? Что влияет на это? И т.п. И насколько это оправдано поставить базу на MS SQL server (adp)? В чём сложности? И что это такое вообще? Как лучше организовать базу в сети?

http://www.sql.ru/forum/1112273/baza-po-seti-mde-adp-bystrodeystvie

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

http://www.sql.ru/forum/1112209/kak-sdelat-chtoby-stolbec-odnoy-tablicy-sootvetstvoval-opredelennoy-yacheyke-stolbca-drugoy

Доброго времени суток. Нужен совет профи и если это возможно помощь в реализации.
Суть вопроса в следующем:
Имеются электронно цифровые подписи на eToken, флешке или в реестре, созданные учетными центрами.
Можно ли в Access 2007 - 2010 как то "прочитать" данные с носителя или из реестра, и выполнить архивацию и подпись отправляемого файла?
Файл должен быть подписан отправителем и двумя получателями.
Интуитивно я конечно догадываюсь об ответе, но хотелось бы уточнить.

http://www.sql.ru/forum/1112204/podpis-fayla-elektronno-cifrovoy-podpisu-ecp

Здравствуйте!
Никак не могу разобраться, в чем проблема.

Есть форма "Пациент", которую хочу открыть по нажатию кнопки другой формы. В макросе, в условиях отбора указываю ID в виде произвольного числа и связываю с полем "Код" на форме "пациент". При этом форма открывается пустая. А нужно, чтобы открылась форма с пациентом, ид которого я передаю.

2=[Формы]![Пациенты]![Код]

http://www.sql.ru/forum/1112151/proshu-pomoshhi

Добрый день!
Подскажите пожалуйста как можно изменять цвет поля в поле со списком в зависимости от зачения в поле. К примеру если номер в отеле грязный при изменении статуса поле становится красным. Спасибо!

http://www.sql.ru/forum/1112105/izmenenie-cveta-v-pole-so-spiskom

Добрый день ! Извините за тривиальный вопрос но догадаться самому не получается. Есть столбец в нижней ячейке которого считается количество значений. Каким образом это значение использовать в другой таблице ?

http://www.sql.ru/forum/1112087/kolichestvo-znacheniy-v-stolbce