-
Запись понравилась
-
0
Процитировали
-
0
Сохранили
-
Доброе время суток!
Есть два десятка excel-файлов. Регулярно требуется часть листов с этих файлов импортировать в Access-файлы с теми же именами файлов.
Как я решал эту задачу. Импортировал каждый лист каждого файла и сохранял опции импорта в меню "Сохраненные операции импорта". В дальнейшем, запуская импорт по сохраненным параметрам, обновлял нужные таблицы.
Все это хорошо... Но обновление баз даже с применением сохранения настроек занимает довольно продолжительное время. Подскажите, пожалуйста, можно ли это автоматизировать? Есть опыт написания макросов в Excel.
http://www.sql.ru/forum/1228569/makros-dlya-bystrogo-importa-iz-excel
-
Запись понравилась
-
0
Процитировали
-
0
Сохранили
-
Добрый день, уважаемые форумчане!
Очень прошу помощи в создании запроса. Есть таблица со списком работников. Она связана с 3-мя таблицами, каждая из которых является определённым разделом по учёту активности работника - Kaizen, BOS, OPL. Одна запись по работнику в каком то разделе является 1-й активностью. Мне надо по каждому работнику вывести количество активностей по каждому разделу. Запрос, который сделал:
SELECT TblSpysokPracKaizBosOpl.ID_Spysok, TblSpysokPracKaizBosOpl.PIPTxt,
Count(Tbl_Kaizen.PracivnykKaizenLng) AS CountKaizen,
Count(Tbl_BOS.PracivnykBOSLng) AS CountBOS,
Count(Tbl_OPL.PracivnykOPLLng) AS CountOPL
FROM ((TblSpysokPracKaizBosOpl LEFT JOIN Tbl_Kaizen
ON TblSpysokPracKaizBosOpl.ID_Spysok = Tbl_Kaizen.PracivnykKaizenLng) LEFT JOIN Tbl_BOS
ON TblSpysokPracKaizBosOpl.ID_Spysok = Tbl_BOS.PracivnykBOSLng) LEFT JOIN Tbl_OPL
ON TblSpysokPracKaizBosOpl.ID_Spysok = Tbl_OPL.PracivnykOPLLng
GROUP BY TblSpysokPracKaizBosOpl.ID_Spysok, TblSpysokPracKaizBosOpl.PIPTxt;
выводит мне сумму всех трёх разделов по работнику.
Например:
Ф.И.О. Каizen BOS OPL Иванов Иван Иванович 4 4 4
Петров Пётр Петрович 6 6 6
а мне надо:
Иванов Иван Иванович 1 2 1
Петров Пётр Петрович 2 3 1
Как нужно составить для этого запрос?
Заранее благодарен!!!
P.S. В приложенном файле Дизайнер этого запроса
http://www.sql.ru/forum/1228566/zapros-podschityvaushhiy-kolichestvo-zapisey-opredelyonnogo-polya-iz-3-h-tablic
-
Запись понравилась
-
0
Процитировали
-
0
Сохранили
-
Добрый день!
Много перечитал по вопросу установки в системе 2х разных версий MS Access, но так и не добился нужного результата!
ОС Win 10 - 64bit
Необходимо установить MS Access 2003 и MS Access 2013.
Делал следующее:
1. Установил MS Access 2003
2. Перезагрузился
3. Установил Office 2013 Pro
4. Перезагрузился
Запускаю сначала файл 2003 через открыть с помощью и выбираю Аксес 2003. Все запустилось! Затем запускаю базу 2013, выполняется перерегистрация и база открывается. Затем закрываю ее и открываю базу 2003. Вроде тоже идет перерегистрация библиотек, но при работе с базой ошибки. Смотрю в окно ССЫЛОК вижу ссылку на Microsoft Acces 15.0 Object Library и поменять ее не могу так как пишет что занято процессом.
Кто подскажет рабочий вариант использования 2х версий Аксес 2003 и 2013 в одной системе?
Спасибо!
http://www.sql.ru/forum/1228536/neskolko-versiy-access-na-odnom-komputore
-
Запись понравилась
-
0
Процитировали
-
0
Сохранили
-
приветствую,
делаю форму где можно перемещать строки,сейчас столкнулся с проблемой,хотелось бы чтобы в текст бокс записывались значения больше на один,но ничего не выходит
вот код:
Private Sub List0_BeforeUpdate(Cancel As Integer)
Dim i, s
With Me.List0
s = s + 1
For i = 1 To .ListCount - 1
If .Selected(i) Then
s = s & "," & .Column(0, i)
End If
Next
End With
Me.txtkod = Mid(s, 2)
End Sub
http://www.sql.ru/forum/1228526/peremeshhenie-strok-v-spiske
-
Запись понравилась
-
0
Процитировали
-
0
Сохранили
-
Access 2003
Собственно как создать поле записи Дата/время которое будет содержать только год?
Создаю поле: Year, Тип данных: Дата/время, выбираю Формат поля: Краткий формат даты и в Маска ввода: 0000;0;_
Набираю в поле скажем 2016 и после Enter получаю окно сообщения:
Введённое значение не подходит для данного поля.Например, в числовое поле введены текст или число, превышающее предел, заданный в свойстве "Размер поля" (FieldSize).
Что не так?
http://www.sql.ru/forum/1228481/pole-tablicy-dolzhno-hranit-tolko-god
-
Запись понравилась
-
0
Процитировали
-
0
Сохранили
-
-
Запись понравилась
-
0
Процитировали
-
0
Сохранили
-
-
Запись понравилась
-
0
Процитировали
-
0
Сохранили
-
Имеется приложение которое при запуске выводит Форму 1 которая должна иметь некоторый размер, возможность передвигаться по экрану, минимизироваться на панель задач и восстанавливаться до своего фиксированного размера (вместе с окном Access потому как по другому минимизировать на панель задач не получается). Из этой формы открывается Форма 2 которая по умолчанию разворачивается на весь экран и тоже должна минимизироваться и восстанавливаться. При закрытии кнопкой закрытия Access Формы 2, она закрывается, передавая управление на Форму 1 а при её закрытии закрывается всё приложение.
Всё это удалось реализовать более-менее нормально. Но осталась одна проблема. Как сделать чтобы невозможно было развернуть или изменить размеры Формы 1 а у Формы 2 эти возможности оставались. То есть в режиме когда на экране Форма 1, была не активна кнопка разворачивания окна и мышкой невозможно было вцепится для изменения размера формы.
http://www.sql.ru/forum/1228441/upravlenie-formami
-
Запись понравилась
-
0
Процитировали
-
0
Сохранили
-
Добрый вечер!
Создал базу на основании шаблона MS Access 2013. не могу перейти в режим конструктора формы. соответствующего пункта нет и возле объектов отображается зеленый кружочек. Так понимаю какая то защита. Есть возможность как то все же перейти в конструктор формы в этом случае?
Спасибо.
http://www.sql.ru/forum/1228436/redaktirovanie-obektov-shablonnoy-bazy
-
Запись понравилась
-
0
Процитировали
-
0
Сохранили
-
Грызу access 2007.
Кнопки на формах с прямыми углами.
Грубые прямоугольники.
Подскажите как задать стиль кнопок на форме как в виндовс.
Куда запрятана галочка?
Или всё иначе чем раньше?
--------------------------------------------------------------------------
СПС
http://www.sql.ru/forum/1228427/stil-knopok-na-formah
-
Запись понравилась
-
0
Процитировали
-
0
Сохранили
-
Добрый день.
В свое время переезжал со своей программкой на Access 2003 с более ранней версии. Все прошло хорошо.
Сейчас на рабочем компе стоит офис 2010, и Access 2003, т.к. при переходе на Access 2010 источники многих форм неверно отображались (может и еще что то работало не так, просто вернулся к версии 2003 года и не стал разбираться). Но всему приходит конец, наше руководство решило что негоже одновременно иметь на компе офис разных годов (!!).
Есть ли на форуме какой нибудь фак безболезненного переезда с 2003 на 2010 Access. Поиском ничего не нашел.
Ткните пожалуйста.
Спасибо.
http://www.sql.ru/forum/1228421/nekorrektnaya-rabota-pod-access-2010
-
Запись понравилась
-
0
Процитировали
-
0
Сохранили
-
-
Запись понравилась
-
0
Процитировали
-
0
Сохранили
-
Добрый день.
В базе Access 2010, есть таблица "Соревнования" см. вложение.
В запросе необходимо подсчитать количество организаторов за определенный промежуток времени (например с 01.01.2015 по 01.01.2016)
В моем запросе количество строк организаторов выводится правильно, а вот количество считается по всей таблице d (кол = 2, а должно быть 1), как это можно поправить?
| + |
SELECT f.[Организатор соревнований], Count(d.[Организатор соревнований]) AS [Кол]
FROM Соревнования AS f LEFT JOIN Соревнования AS d ON f.[Организатор соревнований] = d.[Организатор соревнований]
GROUP BY f.[Организатор соревнований], f.[Дата окончания]
HAVING (((f.[Дата окончания]) Between [Введите дату начала] And [Введите дату окончания]));
|
| Организатор соревнований | Кол | | Mix Fighter | 2 | | Лига ВТБ | 1 |
|
Во втором варианте выводит правильно, но не суммирует, промежуток времени с 01.01.2015 по 01.01.2017
| + |
SELECT d.[Организатор соревнований], COUNT(d.[Организатор соревнований]) AS Кол
FROM Соревнования AS d
GROUP BY d.[Организатор соревнований], d.[Дата окончания]
HAVING (((d.[Дата окончания]) Between [Введите дату начала] And [Введите дату окончания]))
ORDER BY d.[Организатор соревнований];
|
| Организатор соревнований | Кол | | Mix Fighter | 1 | | Mix Fighter | 1 | | "Всероссийская федерация волейбола и ВК ""Минск""" | 1 | | Лига ВТБ | 1 |
|
http://www.sql.ru/forum/1228257/vyborka-podschet-organizatorov-za-opredelennyy-period
-
Запись понравилась
-
0
Процитировали
-
0
Сохранили
-
Здравствуйте!
Пытаюсь импортировать данные с OLAP и вставить в таблицу с помощью такого кода
Option Compare Database
Sub ИмпортИзOLAP()
Dim Cn As Object
Dim РекордсетИмпорт As Object
Dim РекордсетТаблицаAccess As Object
Set Cn = CreateObject("ADODB.Connection")
Cn.ConnectionString = "Provider=MSOLAP.3;" & _
"Integrated Security=SSPI;" & _
"Persist Security Info=True;" & _
"Initial Catalog=profit;" & _
"Data Source=.......................;" & _
"MDX Compatibility=1;" & _
"Safety Options=2;" & _
"MDX Missing Member Mode=Error"
Cn.Open
Set РекордсетИмпорт = CreateObject("ADODB.Recordset")
Set РекордсетИмпорт.activeconnection = Cn
РекордсетИмпорт.Source = "Select {} on 0, [Города].[Город].[Город] on 1 from profit"
РекордсетИмпорт.Open
Set РекордсетТаблицаAccess = CreateObject("ADODB.Recordset")
РекордсетТаблицаAccess.Open "Города", CurrentProject.Connection
If Not (РекордсетИмпорт.BOF = True And РекордсетИмпорт.EOF = True) Then
РекордсетИмпорт.MoveFirst
Do While Not РекордсетИмпорт.EOF
РекордсетТаблицаAccess.AddNew
РекордсетТаблицаAccess.Fields(0) = РекордсетИмпорт.Fields(0)
РекордсетИмпорт.MoveNext
Loop
End If
'Set РекордсетИмпорт = Nothing
'Set РекордсетТаблицаAccess = Nothing
РекордсетИмпорт.Close
РекордсетТаблицаAccess.Close
Cn.Close
End Sub
1. Данные почему то не выгружаются, то есть отсутствуют строки. А через в Microsofr SQL Managment Studio выгружаются строки при таком запросе. Почему не выгружается строки, может отсутствует какой то параметр? Не знаю, может надо тип команды указать "По умолчанию" как в Excel при создании подключения. Может вначале надо писать не как "Provider=MSOLAP.3", а как "OLEDB;Provider=MSOLAP.4"
2. Я правильно написал код вывода полученных строк на таблицу в Access?
http://www.sql.ru/forum/1228236/ne-rabotaet-import-iz-olap
-
Запись понравилась
-
0
Процитировали
-
0
Сохранили
-
-
Запись понравилась
-
0
Процитировали
-
0
Сохранили
-
Всех приветствую. Известно что при удалении записей из таблицы записи удаляются не физически, это можно заметить из объема файла. Есть ли способ их удалить сразу физически, чтобы не прибегал к сжатию/восстановлению базы для возврата объема файла в меньшее положение?
У меня есть таблица как бы временная, постоянно туда заливаю данные и стираю. Но объем файла растет из-за этой "временной" таблицы.
http://www.sql.ru/forum/1228058/fizicheskoe-udalenie-zapisey
-
Запись понравилась
-
0
Процитировали
-
0
Сохранили
-
Друзья, добрый день!
Сильно не ругайте)
Есть 2 таблицы(EXCEL), которые абсолютно одинаковые. Данные таблицы были загружены в Access и имеют постоянную связь, т.к. таблицы ежедневно обновляются. Путем запроса
SELECT * INTO TTT
FROM (SELECT * FROM Табл1
UNION ALL
SELECT * FROM Табл2) AS [%$##@_Alias];
таблицы объединяются. В новой таблице TTT, я вношу свои комментарии в отдельном столбце - "комментарии", путем обратной связи с таблицами табл1 и табл2 подтягиваются комментарии. Проблема заключается в том, что если табл1 или табл2 небыли обновлены, то и комментарии не будут доступны и следовательно при мое следующем запросе на создание таблицы TTT я не увижу своих комментариев. Как создать запрос таким образом, чтоб в таблицу TTT попадали только новые данные, а старые не изменялись?. Прошу прощение, если коряво написано.
Спасибо!
http://www.sql.ru/forum/1228057/obedinenie-tablic
-
Запись понравилась
-
0
Процитировали
-
0
Сохранили
-
Приветствую,
есть два блока фильтрации(множество флажков и блок переключателей), нужно чтобы между ними была логика"и", а вот в блоке переключателей там где я фильтрую по столбцам была логика "или"
With Me
If (.vybor_tip = 1) Then
strFilter = strFilter & " or [ES2G] = 'yes'" & " or [All] = 'yes'"
End If
If (.vybor_tip = 2) Then
strFilter = strFilter & " or [ES1] = 'yes'" & " or [ES1Premium] = 'yes'" & " or [All] = 'yes'"
End If
End With
For i = 1 To 8
s = ""
s1 = Choose(i, "Napr", "Bereg", "akum", "obes", "zazem", "nm", "tm", "pt")
s2 = Choose(i, "Tokopriemnik", "Energosnabzhenie cherez vneshnee pitanie", "Akkumulyatornaya batareya 110 V", "Aktivnaya kabina mashinista", _
"Elektropoezd zazemlen", "Pnevmosnabzhenie cherez pitatelnuyu magistral", "Pnevmaticheskij tormoz", "Stoyanochnyj pruzhinnyj tormoz")
If Not Me(s1 & "_all") And _
Not (Me(s1 & "_no") And Me(s1 & "_yes") And Me(s1 & "_case")) And _
Not (Not Me(s1 & "_no") And Not Me(s1 & "_yes") And Not Me(s1 & "_case")) Then
s = " AND (False"
If Me(s1 & "_no") Then s = s & " OR ([" & s2 & "]=""no"")"
If Me(s1 & "_yes") Then s = s & " OR ([" & s2 & "]=""yes"")"
If Me(s1 & "_case") Then s = s & " OR ([" & s2 & "]=""irrelevant"")"
s = s & ")"
End If
strFilter = strFilter & s
Next
http://www.sql.ru/forum/1228054/filtry-filtry
-
Запись понравилась
-
0
Процитировали
-
0
Сохранили
-
Здравствуйте.
Подскажите пожалуйста -
В табличной форме одно из полей - поле со списком связанное с таблицей в которой может быть несколько сотен записей. Выбирать значение из списка заманаешься. Фильтровать по вводимым символам тоже не выход, особенно если не знаешь что имеется в исходной таблице. Наилучшим выходом вижу выбор из вспомогательной формы в которой можно было бы вывести записи в виде какого-то структурированного списка. Но как это сделать представляю плохо -т.к. в базах данных вообще и программировании в частности не очень хорошо разбираюсь к сожалению. Видимо должна быть какая-то всплывающая форма с передачей значения из это формы по клику мышкой, или по кнопке в исходное поле. Может кто-нибудь показать пример подобного решения? Или предложить что-нибудь более подходящее?
http://www.sql.ru/forum/1227995/kak-realizovat-vybor-v-pole-so-spiskom-esli-spisok-bolshoy
-
Запись понравилась
-
0
Процитировали
-
0
Сохранили
-
Здравствуйте.
Задача такая: на форме0 по нажатию кнопки "создать план на следующий год" должны выполниться несколько запросов по очистке некторых таблиц, удаление данных. и т.д. НО до этого производится проверка данных уже прошедшего года. Оператору задаются несколько вопросов (форма1, форма2) после того как процедура получит эти ответы уже выполняются запросы. Форма1 и форма2 типа Msgbox но с дополнительной кнопкой по которой можно посмотреть список оборудования(табличная форма) к которым относится вопрос. Ответ Форма1 и форма2 дает через глобальные переменные, а открываются с acDialog. Проблема в том что когда идет уже обработка ответов на вопросы если оператор нажал на да или нет или отмена, то без проблем. Но если оператор просмотрел список оборудования в форме1 или в форме2 , а потом ответил, то в глобальных переменных сидят правильные ответы а главная процедура реагирует не правильно. Можно ли как то получить ответ от формы при закрытии только по определенным кнопкам? Или я не понимаю как работает acDialog?
http://www.sql.ru/forum/1227921/otvet-ot-formy
