При попытке выполнить VBA код по нажатию кнопки, Access 2010 вылетает с ниже приведенной ошибкой
Но стоит открыть окно Microsoft Visual Basic for Application как все тут же начинает работать без ошибок

Ума не приложу как выкрутится из этой ситуации.
Очень прошу помощи





Сигнатура проблемы:
Имя события проблемы: APPCRASH
Имя приложения: MSACCESS.EXE
Версия приложения: 14.0.6024.1000
Отметка времени приложения: 4d83e520
Имя модуля с ошибкой: VBE7.DLL
Версия модуля с ошибкой: 7.0.16.19
Отметка времени модуля с ошибкой: 4d430b79
Код исключения: c0000005
Смещение исключения: 000000000023e522
Версия ОС: 6.3.9600.2.0.0.256.48
Код языка: 1049

Set rst33 = CurrentDb.OpenRecordset("SELECT НастройкиДляОценки.НормаРентабельности, НастройкиДляОценки.Трудоемкость1, НастройкиДляОценки.Трудоемкость2, НастройкиДляОценки.Трудоемкость3, НастройкиДляОценки.Трудоемкость4, НастройкиДляОценки.Налог1, НастройкиДляОценки.Налог2, НастройкиДляОценки.Налог3, НастройкиДляОценки.Риск1, НастройкиДляОценки.Риск2 FROM НастройкиДляОценки")
НормаРентабельности = rst33.Fields("НормаРентабельности").Value

Трудоемкость1 = rst33.Fields("Трудоемкость1").Value
Трудоемкость2 = rst33.Fields("Трудоемкость2").Value
Трудоемкость3 = rst33.Fields("Трудоемкость3").Value
Трудоемкость4 = rst33.Fields("Трудоемкость4").Value
Налог1 = rst33.Fields("Налог1").Value
Налог2 = rst33.Fields("Налог2").Value
Налог3 = rst33.Fields("Налог3").Value
Риск1 = rst33.Fields("Риск1").Value
Риск2 = rst33.Fields("Риск2").Value

If Me.Группа41 = 1 Then Labor = Трудоемкость1
If Me.Группа41 = 2 Then Labor = Трудоемкость2
If Me.Группа41 = 3 Then Labor = Трудоемкость3
If Me.Группа41 = 4 Then Labor = Трудоемкость4

If Me.Группа52 = 1 Then Risk = Риск1
If Me.Группа52 = 2 Then Risk = Риск1

If Me.Группа58 = 1 Then Налог = Налог1
If Me.Группа58 = 2 Then Налог = Налог2
If Me.Группа58 = 3 Then Налог = Налог3


'************************************
'************************************

' Выбор денежных потоков к заказу


If Me.ОценкаРабота = "Оценка" Then УсловияОтбора = "WHERE ((Денежные_потоки.ОценкаРабота='Оценка') AND (Денежные_потоки.ID_объекта_управления=" + CStr(Me.ID_объекта_управления) + "));"
If Me.ОценкаРабота = "Работа" Then УсловияОтбора = "WHERE ((Денежные_потоки.ОценкаРабота='Работа') AND (Денежные_потоки.ID_объекта_управления=" + CStr(Me.ID_объекта_управления) + "));"


УсловияДляДаты = "SELECT Денежные_потоки.Дата, Денежные_потоки.ОценкаРабота, Денежные_потоки.ID_объекта_управления FROM Денежные_потоки " + УсловияОтбора




и дальше в таком стиле, но похоже, что и до этой точки не доходит

__MichelleА почему конкатенацию выполняете плюсом, а не амперсандом?

Не знаю почему плюсом :-) Написалось так. Попробую с амперсандом
Спасибо за совет

__Michelle,
спасибо за подсказку
а про систему имен я и сам догадываюсь :-)

С помощью форумчан перестало падать :-)
Спасибо вам отзывчивые люди! :-)

Проблема снята!