Доброго дня.
Можно ли посмотреть, посчитать количество обращений к запросу или таблице с момента её создания, а так же дату последнего использования?

Погуглил, поискал на форуме, на обоих языках, но ничего подобного не нашел :(

Основная мысль, убрать из БД неиспользуемые таблицы и запросы.

спасибо :-)

http://www.sql.ru/forum/1197036/chastota-obrashheniy-k-zaprosu-tablice

Здравствуйте. Нужна помощь. У меня есть 3 таблицы см. рисунок.
http://yadi.sk/i/GxmytkvBneWY7
Я создал форму с таблицей, с таким запросом (три связанные таблицы):

SELECT  OBJ_APP.quantity, OBJ_APP.measure, OBJ_APP.ID_APP, OBJ_APP.ID_OBJ 
FROM buildings INNER JOIN (equipment INNER JOIN OBJ_APP ON equipment.[ID_APP] = OBJ_APP.[ID_APP]) ON buildings.ID_OBJ = OBJ_APP.ID_OBJ;

В конструкторе форм я преобразовал TextBox OBJ_APP. ID_APP в ListBox. Я знаю, как создать список из названий прибора, чтоб подставлялся его ИД. Но вот как сделать так чтоб юзер видел названия приборов, вместо его ИД в таблице?

То есть он видит - http://yadi.sk/i/0r1t5XcyneWWx. А подразумевается вот это - http://yadi.sk/i/bek9cSgeneWXf.

http://www.sql.ru/forum/1196931/kak-sdelat-chtob-uzer-videl-nazvanie-a-menyalos-id

Тема не новая, но на свой вопрос так и не нашел ответа
Делаю вставку все работает, но повторно если запустить ошибка "application-defined or object-defined error" подсвечивается строка с CopyFromRecordset. Что не так в коде?
Set db = CurrentDb()
Set rs = db.OpenRecordset(str)

Set exApp = CreateObject("Excel.Application")
Set exW = Workbooks.Add()
exApp.Visible = True
exApp.Worksheets(1).Cells(2, 1).CopyFromRecordset rs

For i = 0 To rs.Fields.Count - 1
exApp.Worksheets(1).Cells(1, 1).Value = rs.Fields(i).Name
Next
Set rs = Nothing
[/SRC]

http://www.sql.ru/forum/1196914/vstavka-v-excel

Доброго дня!
Мне необходимо в рантайме разным контролам и формам назначить идентичный обработчик события - некоторую пользовательскую функцию ОБРАБОТКА, определенную в общем модуле. Например, назначить ее событию OnMouseDown. С назначением обработчика в VBA нет вопросов: ="=ОБРАБОТКА()", но как передать параметры стандартного обработчика, которые есть в модуле формы при использовании "[event procedure]" - MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single).
Вопрос - как значения этих параметров передать в мою функцию ОБРАБОТКА(Button As Integer, Shift As Integer, X As Single, Y As Single)?

спасибо.

http://www.sql.ru/forum/1196905/obrabotchik-sobytiy-formy-kontrola

У меня к основному коду (в основном mdb-файле) присоединено несколько других моих mdb-файлов в качестве "Reference" (типа библиотек).

При прерывании ОСНОВНОГО кода переменные в "библиотечных" reference-проектах не сбрасываются (не "обнуляются").

Это баг или фича?

http://www.sql.ru/forum/1196851/peremennye-v-reference-proektah-ne-zachishhautsya-pri-preryvanii-proekta

Здравствуйте, скажите как вставить свой запрос строку "Источник данных" по нажатию кнопки?
Форма является подчиненной

http://www.sql.ru/forum/1196822/istochnik-dannyh-podchinennoy-formy

Подскажите, пожалуйста, как сделать проверку в макросе при выполнении команды "на запись (следующую)", что запись уже последняя и надо остановиться. Аксесс 2003.

http://www.sql.ru/forum/1196779/makros-dlya-izmeneniya-znacheniya-polya-vo-vseh-zapisyah-proverka-chto-zapis-uzhe-poslednyaya

Добрый день. Вопросы наверное не очень мудренный, но я немогу разобраться зачем в самых обычных запросах типа
WHERE (((Apple.Colours) Not Like 'красный')) OR (((([Apple].[Colours] Like 'черный') Or ([Popularity].[MedianAge] Between 10 And 300))=False)) использовать "=false"? И как изменятся результаты запроса, если из приведенной выше строки убрать "=False"?

http://www.sql.ru/forum/1196770/ispolzovanie-false

Здравствуйте!
Хотелось бы предложить Вам поиграть на CS-BIT.RU
(Лучший Проект серверов Counter-Strike 1.6)
У нас адекватная и опытная Администрация, у которых за спиной не 1 год опыта.
Наши сервера уже показали стабильность, которой так не хватает на многих проектах!
Наш Сайт: http://cs-bit.ru/
Наша группа VK: http://vk.com/csbitru
Наша группа Steam : http://steamcommunity.com/groups/cs-bitru
Наши сервера(IP Адреса):
[JailBreak] - jail16.cs-bit.ru:27016
[Public] - pub.cs-bit.ru:27015
Будем рады видеть Вас на нашем Проекте CS-BIT.RU!
Заходите и наслаждайтесь игрой, вливайтесь в коллектив...

http://www.sql.ru/forum/1196590/cs-bit

Добрый день.
Нужно вывести отчет в файл, такой код

DoCmd.OutputTo acOutputReport, "04Î÷êè", _
acFormatRTF, CurrentProject.Path _
& "\" & Forms![Имя]![Время] _
& ".rtf", True

вместо времени в имени файла выводится внутренний формат его хранения.
Как это можно поправить?

http://www.sql.ru/forum/1196558/vyvesti-v-imya-fayla-vremya

Есть таблица:

Код Номер Заказа Наименование Код1 Код2 1 Х1 ХХХ 0 0 2 ХХХ1 0 0 3 ХХХ2 0 0 4 ХХХ3 0 0 5 ХХХ4 0 0 6 Х2 ХХХ 0 0 7 ХХХ 0 0 8 ХХХ 0 0 9 Х3 ХХХ 0 0 10 ХХХ 0 0 11 ХХХ 0 0 12 ХХХ 0 0 13 Х4 ХХХ 0 0 14 Х5 ХХХ 0 0 12 ХХХ 0 0 12 ХХХ 0 0 12 ХХХ 0 0

Нужен запрос или программа которая обработает таблицу и даст результат вида!

Код Номер Заказа Наименование Код1 Код2 1 Х1 ХХХ 0 1 2 ХХХ1 0 1 3 ХХХ2 0 1 4 ХХХ3 0 1 5 ХХХ4 0 1 6 Х2 ХХХ 0 6 7 ХХХ 0 6 8 ХХХ 0 6 9 Х3 ХХХ 0 9 10 ХХХ 0 9 11 ХХХ 0 9 12 ХХХ 0 9 13 Х4 ХХХ 0 13 14 Х5 ХХХ 0 14 12 ХХХ 0 14 12 ХХХ 0 14 12 ХХХ 0 14

Помогите пожалуйста...

http://www.sql.ru/forum/1196528/zapolnenie-tablicy-sredstvami-vba-ili-zaprosom

Предположим, есть два варианта реализации некоторой функциональность, которая "зашита" достаточно глубоко в циклы работы программы. То есть выполняется часто, но быстро. Точнее - быстро, но часто.

Есть ли возможность не затрачивая титанические усилия выяснить, какой из вариантов экономичнее по времени исполнения?

http://www.sql.ru/forum/1196414/kak-ocenit-sravnit-vremya-otrabotki-koda

Никак не пойму в чём дело. В 32 всё в порядке, а 64 - ошибка.

-------------------------------------------------------------
А ты вложил уже свой кровный рубль в 50-ти миллиардное состояние Билла Гейтса?

http://www.sql.ru/forum/1196377/v-access-2010-32bit-kompiliruetsya-normalno-a-v-64bit-jib-rf

Таблица №1 с полями : 1) ФИО
2) год рождения
3) фото (вложение)

Таблица 2 с полями 1) человек 1 (подтягивает список фио с таблици №1)
2) человек 2 (подтягивает список фио с таблици №1)
3) человек 3 (подтягивает список фио с таблици №1)
4) человек 4 (подтягивает список фио с таблици №1)
5) человек 5 (подтягивает список фио с таблици №1)

Форма 1 с полями по таблице №2 1) человек 1
2) человек 2
3) человек 3
4) человек 4
5) человек 5

Вопрос: как в форму №1 добавить поля или какие то графы для отображения фото людей возле каждого поля (человек) что бы выбрал например в форме человек 1 фио и возле него отображалась фотка?

http://www.sql.ru/forum/1196349/pomogite-forma-i-vlozhenie

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

Как получить пользователя понятно - функция Application.CurrentUser. Также ясно, что перехватывать события нужно через After/Before Update формы. Как сделать все остальное не ясно...

http://www.sql.ru/forum/1196252/after-before-update

Добрый день!

Не получается организовать выгрузку данных из поля таблицы Access в Excel.

Я создала таблицу, в ней поле, формат MEMO, в свойствах поля указала формат текста RTF

Мне необходимо выгрузить это поле на лист Excel. Написала код :

Function ExportTableToExcel()
Dim sSql As String
Dim rstA As Recordset
Dim i As String
i = 1
sSql = "SELECT FieldRTF FROM Table1"
Set rstA = CurrentDb.OpenRecordset(sSql)
Set oXL = CreateObject("Excel.Application")
oXL.Workbooks.Add
Do Until rstA.EOF = True
    oXL.Cells(i, 1) = rstA.Fields(0).Value
    rstA.MoveNext
    i = i + 1
Loop
oXL.Visible = True
End Function

Но на листе я получаю текст с HTML тегами

Думала может можно как то через PastSpecial, но в свойствах этого метода нигде не указать формат данных(

Помогите, пжл, если знаете как )

http://www.sql.ru/forum/1196242/eksport-polya-v-formate-rtf-v-yacheyku-excel

Добрый день! Подскажите как изменить программно подписи на графике через vba?

Set s2 = .SeriesCollection.Add
         s2.DataLabelsCollection.Add        
         s2.DataLabelsCollection(0).HasValue = True
         s2.DataLabelsCollection(0).Font.Size = 5
         

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

http://www.sql.ru/forum/1196206/podpisi-dannyh-na-grafike

Доброго дня!
Хочу для себя попробовать сделать связку AzureSQL + клиентская часть в Access 2016. Прошу подсказать какими методами можно реализовать работу в оффлайне с дальнейшей синхронизацией изменений при появлении соединения. Может есть какие-либо другие более удачные варианты размещения БД в сети без своего сервера?

http://www.sql.ru/forum/1196128/access-2016-azuresql

Поскажите пожалуйста. Подстановка в поле со списком [Пол] работает, если убрать значение "Пол" из данных, но при этом не добавляется в запись.
Если значение "Пол" оставить, то выдаёт ошибку (см. скрин).
В таблице, поля которой вынесены на форму, всё работает.
Что не то?

http://www.sql.ru/forum/1196120/ne-rabotaet-dobavlenie-v-zapis-odnogo-iz-poley-cherez-formu

Считаю количество галочек (поля bit) в 4 колонках 4 таблиц по следующему запросу:

SELECT COUNT(VLabour) + COUNT(VMaterial) + COUNT(VLabourStor) + COUNT(VMaterialStor) FROM qdfLabour, qdfMaterial, qdfLabourStor, qdfMaterialStor WHERE LMainID = 990
 AND VLabour LIKE "-1" AND MMainID = 990 AND VMaterial LIKE "-1" AND LStorID = 990 AND VLabourStor LIKE "-1" AND MStorID = 990 AND VMaterialStor LIKE "-1";

Возможно ли упростить получившееся выражение?

http://www.sql.ru/forum/1196104/uprostit-zapros-s-count-iz-neskolkih-poley-neskolkih-tablic