Здравствуйте

Есть вопрос:

access 2003 + Windows Xp

Есть файл client.mdb в нем есть две формы (Ф1-2) (на одной из них стоит тамер каждые 15 секунд)

Формы (Ф1-2) на основе таблиц - которые прилинкованы из server.mdb

Никаких изменений не производится - только открыты обе формы

Если форма с таймером запущена то файл client.mdb (содержащий Ф1-2) увеличивает свой размер постоянно на каждые 15 секунд + около 20 кб (УЖАС)

Файл server.mdb реально содержащий таблицы НЕ увеличивается.

Если форма отключена - то не увеличивает ... в чем дело ?
Как с этим бороться ?

СПАСИБО !

Shuhardвидимо ты не уничтожаешь какой-то ресурс
RecordSet или массив при каждом проходе таймера
поставь в обработчик debug.print date
и последи за RAM

- А как это сделать ?

- Вообще никаких рекордсетов нет ... только ОДИН запрос на UPDATE

Shuhardвиноват - debug.print не годится поставь звучок - база у меня не растёт!


А куда ставить и что это дает ?

Option Compare Database
Option Explicit

Private Sub Form_Open(Cancel As Integer)
Dim strNull As String

Me.TimerInterval = 7000

strNull = "UPDATE 17_ПланированиеЗаказов SET [17_ПланированиеЗаказов].Отпуск = 0;"
CurrentDb.Execute (strNull)

End Sub

' По этому таймеру (в форме зашито 5 секунд обновления)
' будет осуществляться обновление формы с перемещением наверх новых заказов

Private Sub Form_Timer()
DoCmd.MoveSize 0, 0
Сообщения = "Таймер запущен"
СобытиеНаТаймере
End Sub

Function СобытиеНаТаймере()
Me.OrderBy = "СтартЗаказа"
Me.OrderByOn = True

DoCmd.SetWarnings False ' Отключаю сообщения
DoCmd.OpenQuery ("ОтпущеноЗаСменуДиспетчером2")
DoCmd.OpenQuery ("ПланированияЗаказаОбновление")
DoCmd.SetWarnings True

Form.Refresh

End Function

Private Sub ЗакрытьФорму_Click()
DoCmd.Close
End Sub

Private Sub Клиент_DblClick(Cancel As Integer)
If CurrentProject.AllForms("20_ОтпускПродукции").IsLoaded Then
ПроверкаПриходаВремениОтпуска
End If
End Sub

Function ПроверкаПриходаВремениОтпуска()
Dim Msg, Style, Title, Help, Ctxt, Response, MyString
Msg = "Время отпуска для организации " & Клиент.Column(0) & " еще не подошло. Отпустить ?"
Style = vbYesNo + vbCritical + vbDefaultButton2
Title = "Внимание"
Ctxt = 1000

If (СтартЗаказа > Now()) Then
Response = MsgBox(Msg, Style, Title, Help, Ctxt)
If Response = vbYes Then
ПроверкаНенулевыхОбщихЗаказов
Else
End If
Else
ПроверкаНенулевыхОбщихЗаказов
End If

End Function

Function ПроверкаНенулевыхОбщихЗаказов()
If (Заказано <> Отпуск) And (Заказано <> 0) Then
ПроверкаЕслиФормаОтпускаНеПуста
Else
If (Заказано <> 0) And (Заказано = Отпуск) Then MsgBox ("Заказ выполнен")
If Заказано = 0 Then MsgBox ("Сформируйте объем заказа для организации " & Клиент.Column(0))
End If
End Function

Function ПроверкаЕслиФормаОтпускаНеПуста()
Dim Msg, Style, Title, Help, Ctxt, Response, MyString
Msg = "Вы действительно хотите перезаписать данные в форме?"
Style = vbYesNo + vbCritical + vbDefaultButton2
Title = "Внимание"
Ctxt = 1000

If (Forms![20_ОтпускПродукции]![Наименование] <> "Null") Or (Forms![20_ОтпускПродукции]![Товары] <> "Null") Or (Forms![20_ОтпускПродукции]![ПунктНазначения] <> "Null") Then
Response = MsgBox(Msg, Style, Title, Help, Ctxt)
If Response = vbYes Then
ЗаписьДанныхВФормуОтпуска
Else
End If
Else
ЗаписьДанныхВФормуОтпуска
End If
End Function

Function ЗаписьДанныхВФормуОтпуска()
СтартЗаказа = СтартЗаказа + ПериодОтпуска
Forms![20_ОтпускПродукции]![Наименование] = Клиент.Column(0)
Forms![20_ОтпускПродукции]![Товары] = МаркаПродукции.Column(0)
Forms![20_ОтпускПродукции]![ПунктНазначения] = ПунктНазначения.Column(0)
Forms![20_ОтпускПродукции].SetFocus
Forms![20_ОтпускПродукции]![КодВодителя].SetFocus
End Function

Private Sub ПериодОтпуска_GotFocus()
Me.TimerInterval = 0
Сообщения = "Таймер остановлен"
End Sub
Private Sub ПериодОтпуска_LostFocus()
Me.TimerInterval = 7000
Сообщения = "Таймер запущен"
End Sub

Private Sub СтартЗаказа_GotFocus()
Me.TimerInterval = 0
Сообщения = "Таймер остановлен"
End Sub

Private Sub СтартЗаказа_LostFocus()
Me.TimerInterval = 7000
Сообщения = "Таймер запущен"
End Sub

Виктоша спасибо за ценную мысль поочередно все поотключать:
Выключил "твоих" кандидатов ... но все было по-старому

НО! при отключении вызова запроса

' DoCmd.OpenQuery ("ОтпущеноЗаСменуДиспетчером2")

Тело запроса следующее:
+++++++++++++++++++++++++++++++++

SELECT [20_ОтпускПродукции].Наименование, [20_ОтпускПродукции].Товары, Sum([20_ОтпускПродукции].Количество) AS ИтогоОтпущено INTO ОтпущеноДиспечтеромЗаСмену
FROM 20_ОтпускПродукции, 992_НачалоРаботы
WHERE ((([20_ОтпускПродукции].Счетчик)>=[ОткрытаяНакладная]) AND (([20_ОтпускПродукции].ВремяЗаказа)>=[992_НачалоРаботы]![НачалоСмены] Or ([20_ОтпускПродукции].ВремяЗаказа)=[992_НачалоРаботы]![НачалоСмены]))
GROUP BY [20_ОтпускПродукции].Наименование, [20_ОтпускПродукции].Товары;


+++++++++++++++++++++++++++++++++


Увеличения обьема клиентского фала не происходит ... кто поможет ..

в чем "беда" моего запроса.

Спасибо

Причем сори я тут немного соврал ...


Таблица "ОтпущеноДиспечтеромЗаСмену" локальная ... НО! количество записей в ней из-за этого запроса не меняется ... но база все равно растет....

...то-есть если я прав она растет из-за "помеченных" на удаление ... что делать ?

А поможет ... если сделать вместо SELECT INTO
сделать UPDATE ?

В общем заменил Один запрос SELECT INTO на

Два

1. DELITE
+
2. Insert

Размер файла больше не растет

Блин все равно растет незаметно но на 500 байт на каждый Тайм интервал ... )

уже хорошо уменьшил в 40 раз ...

но все равно ) .........

Спасибо за отклики, задачу решил ... поменяв временную таблицу (с которой работает запрос: ОтпущеноЗаСменуДиспетчером2) на рекордсет.