Здравствуйте. есть таблица ЕжедОтчет с полями: Код(число - счетчик, ключевое),ТабНомер(число),дата(дата, краткий формат), ЧасовВОтчете(число). Сделал форму, где вводится ТабНомер сотрудника(выбирается из поля со списком) и дата вводится в поле, формат которого я настроил как краткий формат даты. Задача в следующем: вывести количество часов, на которое выбранный сотрудник отчитался на введенную дату. Делал вывод часов по нажатию кнопки на форме:

Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("SELECT SUM(ЧасовВОтчете) AS ИТОГЧас FROM ЕжедОтчет Where (ТабНомер=" & Me.Сотрудники & ")AND(Дата=" & Me.Поле7 & ")")
Поле3 = rs.Fields(0).Value

Компилятор ругается при нажатии на кнопку:Run-time error '3075':Число содержит синтаксическую ошибку в выражении запроса '(ТабНомер=7348)AND(Дата=27.02.2014'


По виду ошибки, вроде бы скобку теряет в конце выражения... пытался и так:

...& ")AND(Дата=" & Me.Поле7 & "))")

. Ругается так:Run-time error '3075':Число содержит синтаксическую ошибку в выражении запроса '(ТабНомер=7348)AND(Дата=27.02.2014))'.В чем баг получается? помогите пожалуйста

http://www.sql.ru/forum/1080020/oshibka-v-stroke-sql-dlya-rekordseta

Господа, объясните пару вопросов:
Подключаю ссылку через референс на другую базу accde,accdb но возникает ошибка... что совпадают имена..
но в подключаемой база точно нет одноименных как объектов в первой.

Сама ссылка не устанавливается но обжект браузере появляется эта база(скрин)...

Причем само Database1 я пробовал менять в обоих БД в свойствах бд, в заголовке текущей БД но не пойму где заменить эту database1 на своё название?
И еще волнует вопрос из accde я смогу динамически(из кода) установить ссылку на другой mde, accde... В смысле компилированный код позволяет добавлять свои ссылки?

http://www.sql.ru/forum/1080009/podkluchenie-ssylok-na-drugie-fayly-accde

Я новичок, не могу разобраться сама.
Есть отчет report1,
использующий query1.
помогите пожалуйста, скажите, как проще создать
report2, точно такой же, только использующий другой запрос query2.

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

http://www.sql.ru/forum/1079999/sozdat-otchet-po-drugomu-zaprosu

PARAMETERS [Forms]![frmDataSmeni]![dtpDataSmeni] DateTime;
SELECT tblObject.Object_Name, Avg(tblOpDataObject.Parametr) AS [Avg-Parametr]
FROM (tblObject INNER JOIN tblNitka ON tblObject.ID_Object = tblNitka.ID_Object) INNER JOIN tblOpDataObject ON tblNitka.ID_Nitka = tblOpDataObject.ID_Nitka
WHERE (((IIf(Nz(DateTimeFilter(Format([Forms]![frmDataSmeni]![dtpDataSmeni],"dd/mm/yyyy")))='',False,(Eval('''' & [DataSmeni]+[TimeSmeni] & ''' IN (' & DateTimeFilter(Format([Forms]![frmDataSmeni]![dtpDataSmeni],"dd/mm/yyyy")) & ')'))<>False))<>False))
GROUP BY tblObject.Object_Name, tblObject.Object_Number_Old
ORDER BY tblObject.Object_Number_Old;

В таблице tblOpDataObject 164000 записи.

http://www.sql.ru/forum/1079980/prosba-pomoshhi-po-optimizacii-zaprosa-dolgo-obrabatyvat-zaraza

Исходные данные:
1. Допустим есть пустая бд или её описание в любом виде (например txt файл) (Эталон)
2. Есть рабочая бд с данными.
Задача:
Нужно программно найти изменения структуры в рабочей бд относительно Эталона (типы полей, количество полей в таблицах, удаленные (измененные) связи в схеме данных).
Цель:
Выявить действия злоумышленников.
Решения:
- идеальное: это если просто сравнивать рабочий и эталонный mdb
- приемлемое: это получить и хранить описание эталона в каком то виде, а потом сравнивать его с рабочей бд

Заранее всем спасибо.

http://www.sql.ru/forum/1079903/kak-programmno-protestirovat-strukturu-bazy-dannyh

Приветствую, уважаемые форумчане!

Начитавшись об "отвязаном рекордсете" склепал форму. На форму положил подчиненную. На загрузку главной ставлю процедуру:

Private Sub Form_Load()
Dim S As String
Dim Sf As String
Sf = "KodDv= " & Forms!frm_Glavnaya!ID & " And ID <= " & CStr(ID)
    S = "SELECT DCount(""ID"",""tb_DannyhSub"", """ & Sf & """) AS npp, tb_DannyhSub.ID, tb_DannyhSub.KodDv, "
    S = S & "tb_DannyhSub.KodMater, tb_DannyhSub.Kolvo, tb_DannyhSub.Cena, tb_DannyhSub.Summa, tb_DannyhSub.RecAdd, tb_DannyhSub.OprAdd, "
    S = S & "tb_DannyhSub.RecEdit, tb_DannyhSub.OprEdit FROM tb_DannyhSub "
    S = S & "WHERE tb_DannyhSub.KodDv = " & [Forms]![frm_Glavnaya]![ID]
    S = S & " ORDER BY tb_DannyhSub.ID;"

    Set mrst = CreateObject("ADODB.Recordset")
    mrst.CursorLocation = adUseClient '3
    mrst.Open S, CurrentProject.AccessConnection, 3, adLockBatchOptimistic ', 4
    mrst.ActiveConnection = Nothing
    Set Forms("frm_Glavnaya")("frm_GlavnayaSub").Form.Recordset = mrst
End Sub

Форма отрабатывает нормально: запускается, отображает данные, возможно редактирование данных в форме.
Для выхода из формы без сохранения код:

Private Sub bnCancel_Click()
    mrst.Close
    Set mrst = Nothing
    DoCmd.Close
End Sub

Команда отрабатывает без проблем.
Для выхода из формы с сохранением код:

Private Sub bnSave_Click()
On Error GoTo Err_bnSave_Click
Set mrst.ActiveConnection = CurrentProject.AccessConnection 
mrst.UpdateBatch
mrst.Close
Set mrst = Nothing
Exit_bnSave_Click:
DoCmd.Close
    Exit Sub
Err_bnSave_Click:
    MsgBox Err.Description
    Resume Exit_bnSave_Click
End Sub

И вот тут варианты:
1) если в подчиненную форму никаких изменений не вносилось, то код отрабатывает нормально.
2) если в подчиненную форму внесены изменения, то получаю ошибку "Не удается найти строку для обновления. Некоторые значения могли быть изменены со времени ее последнего чтения".

Что делать ума не приложу. Помогите пожалуйста.

http://www.sql.ru/forum/1079897/otvyazanyy-rekordset

Здравствуйте, форумчане!
Подскажите, если возможность заблокировать закрытие приложение внизу на панели задач..
Нажатием крестиком (в правом верхнем углу) закрытие приложение заблокировано.

http://www.sql.ru/forum/1079844/zakrytie

Всем доброго времени суток.
У меня следующая проблема: не получается экспортировать таблицу в dbf. На маленьких табличках все работает хорошо. Но у меня в таблице 4 миллиона записей. И все это безобразие нужно конвертировать в DBF(1 раз, не программно, а как угодно). Исходный файл лежит в формате CSV. Я надеялся, что перегнав его в ACCESS таблицу (импорт), получится экспортировать в DBF. Но получаю следующую ошибку:
"Доступ к сети прерван. Для продолжения закройте базу данных, а затем откройте ее снова".
При этом в при попытке конвертации в текстовый файл (просто решил потестить экспорт в разные форматы такого большого чудовища) получаю ошибку, в которой говорится об ограничении количества экспортируемых записей в размере 65000.
Внимание вопрос: Действительно ли существует такое ограничение при экспорте данных из ACCESS. Если да, то можно ли его как-то обойти? Если обойти нельзя, то прошу помочь найти способ решить описанную проблему.

P.S. перелопатил интернет в поиске конвертера, но они либо платные (что не вариант), либо кривые. Если знаете нормальный бесплатный конвертер, буду признателен за ссылочку на его скачивание.

http://www.sql.ru/forum/1079843/eksport-v-dbf

Здравствуйте! Подскажите как реализовать на 2003 акцессе, чувствую что это должно быть весьма просто но своими силами третий день ничего не получается.
В таблице с товарами нужно заполнять три колонки: Категория, Свойство1 и Свойство2.
Примеры записи:
Стиральный порошок «Аааа» |Бытовая химия|Стиральные порошки|Для стирки
Шампунь ББББ|Косметика для волос|Шампуни|Против перхоти|

Есть 3 справочные таблицы:
-Категории(Код, Название)
-Свойства1(КодЗаписи, КодКатегории, Свойство1Название)
-Свойства2(КодЗаписи, КодКатегории, Свойство2Название)
И есть главная таблица куда все это вносится: (Артикул,Товар,КодКатегории,КодСвойства1,КодСвойства2).

Для удобства ввода нужно, чтобы после выбора значения «КодКатегории»(н-р. Косметика для волос), в двух следующих колонках (Свойство 1 и 2) выходили только те значения, которые относятся к выбранной категории, т.е. дальше уже можем выбрать только Шампуни\Бальзамы, и в следующей колонке Против перхоти\Для жирных волос и т.д.
Базу прилагаю.
Спасибо заранее!

http://www.sql.ru/forum/1079796/avtofiltraciya-pri-zapolnenii-tablicy-ili-formy

есть необходимость чтобы пользователи сами создавали свои вычисляемые функции типа dmax dmin.., и потом на эти выражения использовать в работе программы...

сейчас делаю примерно так:

Dim znachenie as long
Dim userfunction as string
userfunction =DLookup("formula", "tblUserFunctions", "[source_id]=1") ' возвращает строку DMin("[price]", "product")+100
znachenie =CurrentProject.Connection.Execute("select  " & userfunction & " as myformula from testtable").fields(0) 'возвращает 220

Хотел бы спросить совета насчет такого подхода, и может есть какие другие варианты ...

http://www.sql.ru/forum/1079746/hranenie-polzovatelskih-funkciy-v-tablice

Здравствуйте, проблема вот какая: перешла на ios и на windows возвращаться уж очень не хочется.
Для учебы понадобилось вернуться к такой программе как Microsoft Access.
Не очень понимаю в вопросах техники и всего прочего, но хотелось бы увидеть советы (хотя бы парочку) от понимающих, в отличие от меня, людей.
1) Покупать Parallels Transporter за 329р и открывать Microsoft Access в виртуальной машине или как там ее называют? (не совсем понятно только, документ уже должен быть создан в Windows и перенесен и открыт с помощью PT на Маке или можно прямо в ней создавать - но это разбираться по ходу дела надо).
2)Покупать в app store - Axxess за 169р и разбираться в нем
3)Покупать на сайте microsoft - Office 365 home premium? (10 долларов в месяц или 100 на год?)
Благодарю.

http://www.sql.ru/forum/1079612/parallels-axxess-ili-office-365-home-premium

Добрый день, товарищи!

Почитал форум, но так и не нашел ответ. Мне требуется делать перелинковку таблиц (txt и Excel) в базе (Access 2003) в зависимости от расположения папки с ними.

Нашел конструкцию, но она не работает.

p=PathSourceFolder ' путь к папке
For i = 1 To 4
    Select Case i
        Case 1
            TableName = "KD"
            PathName = "Excel 5.0;HDR=YES;IMEX=2;DATABASE=" & p & "\TP\T09.xls"
        Case 2
            TableName = "Local"
            PathName = "Excel 5.0;HDR=YES;IMEX=2;DATABASE=" & p & "\TP\T09.xls"
        Case 3
            TableName = "AN_Detailed_report"
            PathName = "Text;DSN=AN_Detailed_report Link Specification1;F3MT=Delimited;HDR=NO;IMEX=2;CharacterSet=850;DATABASE=" & p & "\AN"
        Case 4
            TableName = "Bill_Flow"
            PathName = "Text;DSN=Bill_Flow Link Specification;FMT=Delimited;HDR=NO;IMEX=2;CharacterSet=850;DATABASE=" & p & "\AN"
    End Select
    
    CurrentDb.TableDefs(TableName).Properties("Connect") = PathName
    CurrentDb.TableDefs(TableName).RefreshLink
Next i

в этой строчке CurrentDb.TableDefs(TableName).Properties("Connect") = PathName присваивание проходит без ошибок, но по факту значение не присваивается, и перелинковка не происходит.

Не подскажете в чем проблема?

http://www.sql.ru/forum/1079592/perelinkovka-faylov

Добрый день.

Просьба помочь, давно не держал в руках access.


Есть таблица t1 с полями A, B
Есть форма f1 с двумя полями со списком. Данные первого списка из t1.A, данные из второго t1.B
Нужно сделать так чтобы выбранное значение из первого поля (t1.A) проставляло автоматически соответствующее значение из таблицы во второе поле (t1.b) и прописывала выбранные значения в таблицу t1.

Делал так:

1 поле: select t1.A from t1
2 поле: select t1.B from t1 where (((t1.B)=Forms!f1!t1.A))

не получилось(


спасибо!

http://www.sql.ru/forum/1079524/dinamicheskaya-filtraciya-polya-so-spiskom

UPDATE sentences SET  text = 0 WHERE  text = 17;

Что же происходит в попытке изменить значение поля, по которому осуществляется отбор обновляемых данных?

http://www.sql.ru/forum/1079443/ms-access-update-sintaksicheskaya-oshibka

Добрый день.
Помню, что с помощью какой-то матери нажатой клавиши и мышки можно в открытой форме (не в конструкторе!)
поменять местами (перетащить влево или право) поля\колонки. Все перепробовал - и с шифтом и альтом, них не получается...
Напомните, плс.

http://www.sql.ru/forum/1079378/pomenyat-mestami-v-otkrytoy-tabl-forme-polya-stolbcy-mestami

При попытке синхронизировать реплику Access 2003 возникает ошибка:
Невозможно синхронизировать две реплики, поскольку общая точка для запуска синхронизации отсутствует. (Ошибка 3521)

Причем отказываются синхронизироваться те реплики, которые не запускались 8-9 дней назад, остальные синхронизируются нормально. Раньше все было нормально, даже если не запускалась синхронизация несколько месяцев.
Возможно ли это исправить, не создавая новые реплики?

http://www.sql.ru/forum/1079307/slomalas-sinhronizaciya-replik

Ребята, привет! Пользователь работающий с базой данных Access, походу затерла базу 2014 года базой 2013! Можно ли вернуть все назад???

http://www.sql.ru/forum/1079305/pohodu-pereterli-bazu

Простая форма, в ней два комбополя, в полях селекты.
Все работало, вчера заглючило. Список раскрывается, но выбора сделать не дает.
Перепробовал все.
Известный глюк или что-то личное поймал?

И еще вопрос - часто называю отчеты, формы, запросы одними именами - может это как-то влиять может?

http://www.sql.ru/forum/1079262/ne-vybiraetsya-pole-kombo

Товарищи, помогите создать таблицу в MS Access. Есть такая таблица: в первом столбце фамилия человека, в двух других столбцах указан период, начальная и конечная даты. Так, если указан Иванов и период с 16 по 19 число. Необходимо создать таблицу, в которой Иванов будет указан столбце дважды с указанием 17 и 18 числа:

Как сейчас
1. Иванов 16 - 19
2. Петров 1 - 5

Как надо
1. Иванов 17
1. Иванов 18
2. Петров 2
2. Петров 3
2. Петров 4

Спасибо за помощь

http://www.sql.ru/forum/1079239/sozdanie-tablicy-v-ms-access

Друзья, подскажите, возможно ли в Microsoft Access создать такую программу, что бы нажал на кнопочку и расписание составилось, или силами access это нереально сделать? Нужно составить автоматический составитель расписания. Напишите, пожалуйста, с чего начать.

http://www.sql.ru/forum/1079196/raspisanie-urokov-v-shkole