Массовый перенос связанных таблиц |
http://www.sql.ru/forum/1157639/massovyy-perenos-svyazannyh-tablic
|
Убрать или изменить меню табличной формы Access 2010 |
http://www.sql.ru/forum/1157627/ubrat-ili-izmenit-menu-tablichnoy-formy-access-2010
|
Ошибка при открытие запроса в Excel |
http://www.sql.ru/forum/1157623/oshibka-pri-otkrytie-zaprosa-v-excel
|
Графы. SQL. Список дуг. |
|
Связал Access с SQl Server. Не все записи показывает в таблице! |
http://www.sql.ru/forum/1157618/svyazal-access-s-sql-server-ne-vse-zapisi-pokazyvaet-v-tablice
|
Создание и объединение двух перекрестных запросов |
TRANSFORM Sum(count_obr.[Count-UCHET_ED]) AS [Sum-Count-UCHET_ED] SELECT count_obr.CODE, count_obr.SPV01502.name, count_obr.Выражение1 FROM count_obr GROUP BY count_obr.CODE, count_obr.SPV01502.name, count_obr.Выражение1 PIVOT count_obr.ed.name;
SELECT [%$##@_Alias].UCHET_ED, Sum([%$##@_Alias].[Count-UCHET_ED]) AS SUMMA FROM (SELECT count_obr.LPU_ID, count_obr.Выражение1, count_obr.UCHET_ED, count_obr.[Count-UCHET_ED] FROM count_obr GROUP BY count_obr.LPU_ID, count_obr.Выражение1, count_obr.UCHET_ED, count_obr.[Count-UCHET_ED]) AS [%$##@_Alias] GROUP BY [%$##@_Alias].UCHET_ED, [%$##@_Alias].Выражение1, [%$##@_Alias].LPU_ID;
http://www.sql.ru/forum/1157586/sozdanie-i-obedinenie-dvuh-perekrestnyh-zaprosov
|
Автозаполняемая временная таблица |
+ Скрин1 |
![]() |
+ ЗЫ |
В запросе на выборку использовал условие Between [StartDate]-7 and [StartDate]+6, но перекрестный запрос с разными датами по каждому коду выдает растянутую таблицу из-за того что заголовком столбца стоит дата, поэтому приходится изобретать костыли в виде временной таблице через порядковый индекс каждого дня |
+ Скрин2 |
![]() |
http://www.sql.ru/forum/1157574/avtozapolnyaemaya-vremennaya-tablica
|
UPDATE (operation must use an updateable query) |
UPDATE t1 left join q1 on t1.id = q1.ID SET t1.Update_date=q1.MAX_Update_date
UPDATE t1,q1 left join q1 on t1.id = q1.ID SET t1.Update_date=q1.MAX_Update_date
http://www.sql.ru/forum/1157564/update-operation-must-use-an-updateable-query
|
Запрос из формы |
|
Access: VBA, запрос SQL на редактирование ячейки таблицы |
INSERT INTO Табл_Всего (Всего: ) SELECT Запрос_ВсегоО.Всего: FROM Запрос_ВсегоО;
http://www.sql.ru/forum/1157532/access-vba-zapros-sql-na-redaktirovanie-yacheyki-tablicy
|
Отображение данных из поля подчинённой формы в новом поле на вкладке |
|
Access: VBA, закрыть запрос SQL |
Private Sub Form_Load() stDocName = ChrW(1047) & ChrW(1072) & ChrW(1087) & ChrW(1088) & ChrW(1086) & ChrW(1089) & ChrW(95) & ChrW(1048) & ChrW(1058) & ChrW(1054) & ChrW(1043) DoCmd.OpenQuery stDocName, acNormal, acEdit End Sub
http://www.sql.ru/forum/1157528/access-vba-zakryt-zapros-sql
|
Обработка результатов запроса |
Set rst = dbs.OpenRecordset("SELECT Max(Тбл1.Дата) AS [Max-Дата], Тбл1.id, Max(Тбл1.Код) AS [Max-Код], " _ & "Тбл1.[a1], Тбл1.[a2], Тбл1.[a3], Тбл1.[a4], Тбл1.[a5], Тбл1.[a6], " _ & "Тбл1.[a8], Тбл1.[a9], Тбл1.[a10], Тбл1.[a11], Тбл1.[a12], Тбл1.[a13], " _ & "Тбл1.[a14], Тбл1.[a15], Тбл1.[a16], Тбл1.[a17], Тбл1.[a18], Тбл1.[a19], " _ & "Тбл1.[a20], Тбл1.[a21], Тбл1.[a22], Тбл1.[a23], Тбл1.[a24], Тбл1.[a25], " _ & "Тбл1.[a26], Тбл1.[a27], Тбл1.[a28], Тбл1.[a29], Тбл1.[a30], Тбл1.[a31], " _ & "Тбл1.[a32], Тбл1.[a33], Тбл1.[a34], Тбл1.[a35] " _ & "FROM Тбл1 " _ & "GROUP BY Тбл1.id, Тбл1.[a32], Тбл1.[a33], Тбл1.[a34], Тбл1.[a35] " _ & "HAVING (((Тбл1.id) =" & ab & ")) " _ & "ORDER BY Max(Тбл1.Дата);") If rst.RecordCount > 0 Then rst.MoveLast For i = 1 To 35 t = "a" & CStr(i) If rst![" & t & "] Then Select Case i Case 1
http://www.sql.ru/forum/1157526/obrabotka-rezultatov-zaprosa
|
Как сделать активным Excel |
Set xlApp = CreateObject("Excel.Application") Set xlBook = xlApp.Workbooks.Add xlApp.Visible = True Set xlSheet = xlBook.Worksheets(1)
|
Глуки A2010 |
|
Экспорт в DBF кодировка файла |
DoCmd.TransferDatabase acExport, "dBase IV", FOLDER_DBF, acTable, "VIGRUZKA_GAZ_IT", FILE_DBF_NAME
http://www.sql.ru/forum/1157305/eksport-v-dbf-kodirovka-fayla
|
Совместимость 2007 и 2010 |
|
работа с формой, действие при табуляции |
http://www.sql.ru/forum/1157233/rabota-s-formoy-deystvie-pri-tabulyacii
|
Удаление таблиц, не входящих в список |
For Each tdf In CurrentDb.TableDefs If tdf.Name Not in (*SQL-Строка*) Then Currentdb.execute "Drop table " & tdf.Name End If Next tdf
http://www.sql.ru/forum/1157195/udalenie-tablic-ne-vhodyashhih-v-spisok
|