Окно после выполнения запроса

[mortal2010]

Здравствуйте,
такой вопрос: после выполнения процедуры, содержащей запрос, выскакивает окно InputBox Access с предложением ввести значение параметра (переменная MonName). В дебагере просматриваю - этой переменной присваивается нужное значение.
Как убрать это окно и с чем связано его появление. Если кто знает, растолкуйте пожалуйста.
Пример кода:

Private Sub Кнопка13_Click()
Dim DayDate, DayHour, MonName, YearName As String
Dim i, q As Integer
DayDate = ""

'Кол-во выходных дней в месяце
For i = 1 To Daycount(Me.Поле11, Me.Поле5)
    q = Weekday(CStr(i) & "." & Me.Поле11 & "." & Me.Поле5)
        If q = 1 Or q = 7 Then DayHour = DayHour & "'в',": DayDate = DayDate & "[" & CStr(i) & "],"
Next i
DayDate = Left(DayDate, Len(DayDate) - 1): DayHour = Left(DayHour, Len(DayHour) - 1)
MonName = Format("01." & Me.Поле11 & "." & Me.Поле5, "mmmm"): YearName = Format("01." & Me.Поле11 & "." & Me.Поле5, "yyyy")
DoCmd.RunSQL "Insert into tabel (id_year,id_mon,id_user,id_dep,id_doljn) Select " & YearName & " ," & MonName & ", tUser.User, tUser.Dep, tUser.Doljnost FROM tUser where tUser.id_user "
Me.Requery
Me.Refresh
End Sub

[Abrakadabra]

Он просто не понимает Ваше " & MonName & "

[Teslenko_EA]

Здравствуйте mortal2010.
в дополнение замечу, возможно SQL сборка ..." & YearName & " ," & MonName & "... не верна совсем, если оба заполняемые поля id_year,id_mon текстовые.
"..после выполнения процедуры,.." - не могли бы Вы просветить, каково назначение процедуры, очень интересно.

Евгений.

[shanemac51]

Private Sub Кнопка13_Click()
Dim DayDate, DayHour, MonName, YearName As String
Dim i, q As Integer
DayDate = ""

'Кол-во выходных дней в месяце
For i = 1 To Daycount(Me.Поле11, Me.Поле5)
 q = Weekday(CStr(i) & "." & Me.Поле11 & "." & Me.Поле5)
 If q = 1 Or q = 7 Then 
  DayHour = DayHour & "'в',"
  DayDate = DayDate & "[" & CStr(i) & "],"
 endif
Next i
DayDate = Left(DayDate, Len(DayDate) - 1)
DayHour = Left(DayHour, Len(DayHour) - 1)
MonName  = Format("01." & Me.Поле11 & "." & Me.Поле5, "mmmm")
YearName = Format("01." & Me.Поле11 & "." & Me.Поле5, "yyyy")
dim s1
'все числовое
s1="Insert into tabel (id_year,id_mon,id_user,id_dep,id_doljn)
s1=s1 & " Select " 
s1=s1 & "'" & YearName & "' ,"    'symvol
s1=s1 & "'" & MonName & "' ,"     'symvol
s1=s1 & " tUser.User, tUser.Dep, tUser.Doljnost   'symvol
s1=s1 & " FROM tUser where tUser.id_user "  'нет значения выбора
DoCmd.RunSQL s1
Me.Requery
Me.Refresh
End Sub

[mortal2010]

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

Здравствуйте mortal2010.
в дополнение замечу, возможно SQL сборка ..." & YearName & " ," & MonName & "... не верна совсем, если оба заполняемые поля id_year,id_mon текстовые.
"..после выполнения процедуры,.." - не могли бы Вы просветить, каково назначение процедуры, очень интересно.

Евгений.

Вобщем смысл такой: из файла Excel (ТАБЕЛЬ_2011_январь, и.т.д.) импортируются данные и вставляются (выборочно) в таблицу Temp. А потом запросом на добавление добавляются в общую таблицу tabel.
Проблема1:данные импрортируются с текстовым типом данных, а у меня в 1-ом варианте базы использовались поля с подстановкой (числовой тип). Теперь я хочу переделать всю базу с полями типа VARCHAR чтобы импорт был наиболее безболезненным.
Проблема2: После изменения типов полей импорт вроде бы заработал, только данные частично пропадают
Смысл процедуры, описанной выше, в добавлении данных из таблицы tUser (типо справочник сотрудников) в сводную таблицу tabel (собственно основной табель).
Скинул файлы в надежде, что поможете разобраться

[mortal2010]

shanemac51,

огромное спасибо за ответ.
По поводу моего первого поста посоветовали апострофы:

DoCmd.RunSQL "Insert into tabel (id_year,id_mon,id_user,id_dep,id_doljn) Select " & YearName & " ,'" & MonName & "', tUser.User, tUser.Dep, tUser.Doljnost FROM tUser where tUser.id_user "

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

s1=s1 & " FROM tUser where tUser.id_user "  'нет значения выбора

Тут чесно говоря, я не знаю что нужно писать после where tUser.id_user =...
Запрос работает вроде, даже в таком незаконченом виде))))

[mortal2010]

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

Тут чесно говоря, я не знаю что нужно писать после where tUser.id_user =...
Запрос работает вроде, даже в таком незаконченом виде))))

Придумал что писать после where tUser.id_user =...
Добавил в таблицу tUser (типо Справочник сотрудников) поле Disabled(логический тип), на случай увольнения сотрудника, чтобы не копировалась его запись в дальнейшие месяца и получилось:

DoCmd.RunSQL "Insert into tabel (id_year,id_mon,id_user,id_dep,id_doljn, " & DayDate & ") Select " & YearName & " ,'" & MonName & "', tUser.User, tUser.Dep, tUser.Doljnost, " & DayHour & " FROM tUser where [tUser]![Disabled]=False"