Уважаемые друзья!

Помогите, пожалуйста:
Всем известно, что Access хранит не более 2Гб размер памяти.
Память моей базы достигла 2х гб, и я удалила половину данных (Удалила продажи за 2013 г и оставила 2014).
Логический (теоритический) память должна уменьшиться.
У меня она осталась такой же. Причем, нет никаких запросов/ форм и тд. Только одна Таблица.
Подскажите, пожалуйста, что мне необходимо сделать, чтобы уменьшить размер?

Заранее благодарна!

http://www.sql.ru/forum/1093630/maksimalnyy-razmer

Добрый день всем.

Есть несколько табличных функций на сервере, ими могут пользоваться разные пользователи, с разными параметрами для просмотра данных. Посему, в базе создается view с "временным" названием, уникальным для пользователя, которая при выходе из аксесс удаляется.
Все бы ничего, но сразу после создания вью, аксес ее не видит в списке объектов и соответственно DoCmd.OpenView валится с ошибкой.
Пробовал:

DoCmd.SelectObject acServerView, , True
SendKeys "{F5}"
RefreshDatabaseWindow
Sleep (1000)

Ни один способ, а так же разные их комбинации, не помогают.
Проверка на наличие объекта в sql-базе бодро рапортует, что вью есть.
Т.к. процедура открытия с обработчиком ошибок, то сразу после появления сообщения об ошибке и закрытия ее пользователем, в списке объектов появляется искомая вью.
Как обновить список объектов ADP?

http://www.sql.ru/forum/1093611/adp-dinamicheskoe-sozdanie-view-i-docmd-openview

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

Public Function FieldToLine(id As Long) As Variant
    Dim Adors As Object
    Dim strSQL As String
    
    strSQL = "SELECT ÎáðàçîâàíèåÑêëååíîå.Îáðàçîâàíèå " & _
        "FROM ÎáðàçîâàíèåÑêëååíîå WHERE ÎáðàçîâàíèåÑêëååíîå.Êîä=" & id
    
    Set Adors = CreateObject("ADODB.Recordset")
    Adors.Open strSQL, CurrentProject.Connection, , , 1
    
    If Not Adors.EOF Then FieldToLine = Adors.GetString(, , , vbCrLf)
    Adors.Close
    
    If Len(FieldToLine) > 0 Then
        FieldToLine = Left$(FieldToLine, Len(FieldToLine) - 2)
    Else
        FieldToLine = Null
    End If
End Function

Но если таблица содержит хотя бы 1000 записей, то запрос начинает прилично тормозить. Посоветуйте пожалуйста, как можно исправить эту ситуацию?

http://www.sql.ru/forum/1093572/obedinenie-neskolkih-zapisey-v-odnu

Имеется таблица полученная из запроса для печати приложений к диплому
Количество дисциплин у студентов может быть разным.Со вставкой Фамилии проблем нет , а вот как вставлять Дисциплины с разным количеством записей у каждого студента в шаблон не знаю.Печать идет на бланк. Если у кого-то есть идеи помогите пожалуйста.

Иванов Информатика 5
Иванов Математика 4
Иванов Политология 3
Иванов Економетрика 5
Петров Информатика 5
Петров Математика 4
Петров Политология 3
Петров Економетрика 5
Петров Новая (такой нет у петрова)

http://www.sql.ru/forum/1093543/kak-vstavit-tablichnye-dannye-iz-access-v-shablon-word

Добрый день.

нужно реализовать в таблице "Задолженность" поле объема кВтч.
Если есть показания ПУ то рассчитать расход (кон_пок-нач_пок), если показаний нет то в поле расхода забивается значение кВт ручками. нашел только вычисляемое поле, оно только считает расход при наличии показаний, и не позволяет вводить расход руками.
пжл. подскажите выход.

http://www.sql.ru/forum/1093537/formula-i-znachenie-v-odnom-pole-tablicy

есть БД акцесс, необходимо сделать оболочку Делфи.
ни разу ничего подобного не делал.
посоветуйте как, что, какие нюансы, может какие-нибудь методички есть.

http://www.sql.ru/forum/1093443/posovetuyte

Здравствуйте, подскажите пожалуйста возможно ли сделать аналогичный ввод данных в шаблон word из access как в примере http://www.sql.ru/forum/1092582/eksport-iz-formy-acces-v-word, но при этом использовать не закладки а поиск определенного текста для его замены, например все "_ФИО_" в тексте шаблона заменить на ФИО из access (по принципу ctrl+H - заменить все)?

http://www.sql.ru/forum/1093310/vvod-dannyh-iz-access-v-shablon-word

Друзья, доброго времени суток!

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

http://www.sql.ru/forum/1093295/vychislit-datu-bez-makrosov

После импорта таблиц из MS SQL все таблицы с данными имеют приставку "dbo_" как программно их переименовать?
Функцию переименования нашел
DoCmd.Rename "bbb", acTable, "aaa"

Как получить список имен таблиц в VBA и пройтись по этому списку не нашел. Подскажите кто знает.

http://www.sql.ru/forum/1093268/kak-pereimenovat-vse-imena-tablic-v-ms-access-sredstvami-vba

Здравствуйте.
Подскажите, как узнать номер уровня для выбранного Node? К примеру, я мышью выбрала в дереве какой-либо Node, и мне надо знать, какой это уровень, к примеру, следующий после Рута, или второй после Рута, или третий после Рута и т.д. Не индекс этого Node, а уровень в иерархии (он у нескольких Node будет одинаковый).
Вчера весь вечер ломала голову. )

http://www.sql.ru/forum/1093242/tree-view-kak-vyyasnit-nomer-urovnya

Доброго времени, уважаемые!!
Подскажите как реализовать вывод в перекрестный отчет последней не оплаченной задолженности по номеру абонента?
Данные прилагаются, максимум на что меня хватило это вывести ВСЕ задолженности которые равны задолженности за указываемую дату.

http://www.sql.ru/forum/1093240/poslednyaya-ne-oplachennaya-zadolzhennost

Доброго времени суток!
Пожалуйста подскажите как попроще макросом сделать проверку на заполнение обязательных полей в форме при закрытии формы.
Макрос на условия написан, в свойствах формы - события- закрытие. В макросе при невыполнении условий попробовал команду Отменить событие, форма все равно закрывается. На уровне таблицы обязательные поля задать нельзя, тк они становятся обязательными в процессе ведения учета. Делать специальную кнопку с макросом проверка-закрытие нецелесообразно.
Заранее спасибо!

http://www.sql.ru/forum/1093226/proverka-na-obyazatelnoe-zapolnenie

Есть вот примерно такое поле в отчете: [Имя пользователя] & ("отмечает день рождения " + [дата рождения])
текст "отмечает день рождения " не должен отображаться в запросе есле поле [дата рождения] пустое.
Это выражение будет работать, есле поле [дата рождения] будет текстовым, но оно в формате дата/время.
Может кто нибудь знает как выйти из этого положения. Заранее спасибо.

http://www.sql.ru/forum/1093205/proshu-pomoshhi-v-reshenii-prostogo-voprosa

Друзья помогите написать запрос!!!

Есть база данных с тренерами(Код тренера, ФИО, процент), клиентами(код клиента, фио, код тренера), абонементами(код абонемента, цена) и учетом(код клиента, код абонемента, месяц)

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

PS - в табличке всего 2 месяца, если их не учитывать то у меня вышло вот так:

SELECT Тренеры.ФИО, (SUM(Абонементы.Цена)*(Тренеры.Процент/100)) as Месячная_премия,
SWITCH (Месячная_премия < AVG(Месячная_премия) , "Да") as Ниже_среднего
FROM Клиенты, Тренеры, Абонементы, Учет
WHERE Клиенты.Код_Тренера=Тренеры.Код_Тренера and Клиенты.Код_клиента=Учет.Код_клиента and Учет.
GROUP BY Тренеры.ФИО, Тренеры.Процент;

Помогите исправить чтоб выводил по всем(двум месяцам) !!! тут он берет по обоим вместе !

http://www.sql.ru/forum/1093188/zapros

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

пишу rs.movelast а что дальше правильно написать

http://www.sql.ru/forum/1093183/avtomaticheskaya-podstanovka-znacheniya-v-vypadaushhiy-spisok

Добрый день! У меня проблема, и видимо проблема с синтаксисом, но понять как она лечится не понимаю, видимо от недостатка знаний. Подскажите, где почитать, аль если знаете ответ - ответом. Проблема выделена в спойлере

+ запрос

Sub One() For i = 0 To Sheets("Создание отчета").ListBox2.ListCount - 1 Call СчитываниеДанных_ACCS(Sheets("Создание отчета").ListBox2.List(i)) Next i End Sub Sub СчитываниеДанных_ACCS(Fil_name As String) Dim cnnConnect As ADODB.Connection Dim rstRecordset As ADODB.Recordset Application.ScreenUpdating = False Application.EnableEvents = False Set cnnConnect = New ADODB.Connection Set rstRecordset = New ADODB.Recordset cnnConnect.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=F:\weekly_report.accdb;Persist Security Info=False;" rstRecordset.Open Source:="SELECT * FROM ACCS as AC WHERE [AC].[Филиал1]=" & Fil_name & "", ActiveConnection:=cnnConnect, CursorType:=adOpenDynamic, LockType:=adLockReadOnly, Options:=adCmdText With Sheets("ACCS").QueryTables.Add( _ Connection:=rstRecordset, _ Destination:=Sheets("ACCS").Range("A1")) .Name = "Активы_выгрузка" .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .BackgroundQuery = True .RefreshStyle = xlInsertDeleteCells .SavePassword = False .SaveData = True .AdjustColumnWidth = True .RefreshPeriod = 0 .PreserveColumnInfo = True .Refresh BackgroundQuery:=False End With rstRecordset.Close cnnConnect.Close Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub

http://www.sql.ru/forum/1093161/zapros-na-vyborku-iz-access

Всем привет!
У меня возникла проблема с фильтром в подчиненной форме, помогите, пожалуйста:

1) Есть таблица компаний и таблица кредитов. Соответственно, они связаны один-к-многим.
Т.е. каждый кредит висит на какой-то одной компании, но на одной компании может быть несколько кредитов или вообще ни одного.

2) Я сделал форму, в которой есть выпадающий список компаний. В этой форме есть подчиненная форма со списком кредитов (я не могу добавить все в главную форму, потому что подчиненных форм в будущем будет больше)

Подчиненная форма берет данные из запроса, сделанного на основании таблицы кредитов. Соответственно, в запросе содержатся только компании, на которых есть кредиты. Запрос - просто таблица Компания - Кредит.

К выпадающему списку привязан макрос, который при изменении значения фильтрует запрос по значению выпадающего списка.
Вот такой фильтр
[Компания]=Forms![Форма]!Имя_выпадающего_списка

Все работает нормально, пока я ввожу компании, на которых есть кредиты (и которые есть в фильтруемом запросе). Как только я ввожу компанию без кредитов, фильтр перестает работать.

Почему-то фильтр в access не воспринимает нормально пустые значения, и я не знаю, как с этим бороться.

Надеюсь, я понятно описал, просто не могу скинуть базу из-за конфиденциальности.(((

http://www.sql.ru/forum/1093063/filtr-v-podchinennoy-forme

Существует параметр блокировки свободного поля, который не дает изменить запись. (Прошу не путать с запретом добавления, изменения и удаления в форме)

Так вот, нужно что при клике на выбранное поле, блокировка снималась, ну и соответственно блокировалась допустим при двойном клике.
Как сделать?

http://www.sql.ru/forum/1093044/blokirovka-svobodnogo-polya

Привет всем,
Подскажите, есть таблица

+

id, stree_id, house, app, state 1, 2, 10, 1,0 2, 2, 10, 2,0 3, 2, 12, 1,0 4, 2, 12, 5,0 5, 3, 3, 2,0 6, 4, 6, 3,0 7, 4, 6, 4,0

Необходимо отсеять дубли, чтоб остались только уникальные адреса без квартир

+

id,stree_id, house, state 1, 2, 10, 0 3, 2, 12, 0 5, 3, 3, 0 6, 4, 6, 0

В такой запрос не получается добавить поле id

select distinct  street_id, house, state, min(id) as minid from table order by street_id

http://www.sql.ru/forum/1093008/vybrat-unikalnye-adresa

Доброго времени суток!

Братья, кто подскажет, как в Access 2013, используя конструктор для создания макроса, решить такую задачу:
1. В форме есть элемент управления, в который я хочу вставить скопированный ранее текст, затем перевести курсор на новую строку и вставить следующий скопированный текст и т.д. - какой командой можно перевести курсор на следующую строку?

http://www.sql.ru/forum/1092985/perevod-kursora-na-novuu-stroku-v-elemente-upravleniya-formy