Есть ли в этом смысл?

[raytek]

Проблема в том, что даже на новом домашнем компе я жду обработку около 5 секунд,

комп: АМD A8, ОЗУ 8Гб, Access 2010...

что может так тормозить?

[Андрэич]

Сообщение от raytek

комп: АМD A8, ОЗУ 8Гб, Access 2010...

Битность Аксесс? Если 32, то битность системы не имеет значения, точнее, не отличима от 32...

Как измеряли, сравнивали? В составе чего этот листинг?

[raytek]

Winda7 64bit Acceess 64bit, база создана A2007 32bit

Правда в основной форме 4 уровня подчиненых форм и несколько форм-диаграмм

[Андрэич]

Сообщение от raytek

в основной форме 4 уровня подчиненых форм и несколько форм-диаграмм

Замороченная организация (у меня никогда не доходило до 4-го уровня на одной форме...).

1. Скорей всего, алгоритмические ошибки в коде (а ещё скорее, в структуре бд).
2. Хотя, я не пробовал, как это может работать в 4-м уровне...
3. В 64 Аксессе 2010 вполне могут быть баги или "несостыковки" (слышал об этом).
4. У меня нет среды 2010-го, проверить не могу...

Проверяйте общий алгоритм, структуру...

[raytek]

Спасибо за советы, база у меня и на работе тормозит в A2007 32bit, но там грешу на слабый комп...

последний вопрос:

меня научили объявлять переменные по простому

V = Me!Вид
 K = Me!Клас

а все пишут так:

DIM V AS string
dim k as string
V = Me!Вид
K = Me!Клас

в чем принципиальная разница?

[eval]

в чем принципиальная разница?

ни в чем .

[Андрэич]

Сообщение от raytek

Спасибо за советы, база у меня и на работе тормозит в A2007 32bit, но там грешу на слабый комп...

последний вопрос:

меня научили объявлять переменные по простому

V = Me!Вид
 K = Me!Клас

а все пишут так:

DIM V AS string
dim k as string
V = Me!Вид
K = Me!Клас

в чем принципиальная разница?

В первом случае вы просто присваиваете значения произвольно вводимым вами переменным, что называется "явочным порядком", без предварительного их объявления (и регистрации в системе). Так будет работать, если у вас в начале модуля не указана инструкция Option Explicit.

Но крайне рекоммендуется так не делать, но писать в начало модуля Option Explicit. (Сделать по умолчанию для каждого модуля можно так: Alt+F11 (редактор кода) - Tools - Options - Declare varible declarations) Это указывает компилятору на то, что переменные должны быть сразу и заранее спланированы и перечислены. Когда кода будет уже много, возможны коллизии в именах переменных, и оттуда трудноуловимые ошибки...

Объявляются переменные с помощью оператора DIM: либо в конкретной процедуре (функции), если они используются только в ней, либо в модуле, если их должна видеть не только одна процедура...).

(См Видимость переменной и заодно Время жизни переменной)

[Teslenko_EA]

Здравствуйте raytek.
Ваша конструкция может выглядеть так:

Dim s$, v
v = Me!ВидОборудования & Me!КласНапряжения
Select Case v
Case "Т1": s = "ф_Т1"
Case "В2": s = "ф_Т2"
Case "Т3": s = "ф_Т3"
Case "Ф2": s = "ф_Т4"
Case "Т6": s = "ф_Т5"
Case Else: s = "ф_Т6"
End Select
Me!фЗаводские_данные.SourceObject = s

Евгений.

[Myhaylo]

В приведенном Вами фрагменте программы обработка данных отсутствует в принципе. Поэтому какие-либо преобразования данного участка текста программы ни к чему ровным счётом не приведёт...

[raytek]

Сообщение от Teslenko_EA

Здравствуйте raytek.
Ваша конструкция может выглядеть так:

Dim s$, v
v = Me!ВидОборудования & Me!КласНапряжения
Select Case v
Case "Т1": s = "ф_Т1"
Case "В2": s = "ф_Т2"
Case "Т3": s = "ф_Т3"
Case "Ф2": s = "ф_Т4"
Case "Т6": s = "ф_Т5"
Case Else: s = "ф_Т6"
End Select
Me!фЗаводские_данные.SourceObject = s

Евгений.

Всем огромное спасибо!!!

Евгений, не знаю о чем говорит Myhaylo, но все работает. Решил дальше пойти логически, управлять шириной формы:

Dim s$, t$, v
v = Me!ВидОборудования & Me!КласНапряжения
Select Case v
Case "Т1": s = "ф_Т1", t = 10
Case "В2": s = "ф_Т2", t = 50
Case "Т3": s = "ф_Т3", t = 10
Case "Ф2": s = "ф_Т4", t = 50
Case "Т6": s = "ф_Т5", t = 10
Case Else: s = "ф_Т6", t = 20
End Select
Me!фЗаводские_данные.SourceObject = s
Me!фЗаводские_данные.Width = t

я все правильно сделал???