|
|
|
| Пишу:
Set R = CurrentDb.OpenRecordset("SELECT * FROM ПеремещениеРегистр_ПереченьПеремещенияЗапрос " & _
"WHERE (((ПеремещениеРегистр_ПереченьПеремещенияЗапрос.КодШапкиПеремещения)= [Forms]![ПеремещениеГлавнаяФорма]![КодПеремещения]))")
Ругается на ошибку 3061 (слишком мало параметров, требуется 1).
Запрос в конструкторе работает)))
В чём ошибка?
Если ставлю вместо ссилки ([Forms]![ПеремещениеГлавнаяФорма]![КодПеремещения]) статическое число, ловит необходимие записи. Я так понимаю не правильно обращается к полю форми. | |
|
| |
|
|
|
| Вы не передаете в запрос параметр, проверьте местоположение кавычек | |
|
| |
|
|
|
| Set R = CurrentDb.OpenRecordset("SELECT * FROM ПеремещениеРегистр_ПереченьПеремещенияЗапрос " & _
"WHERE (((ПеремещениеРегистр_ПереченьПеремещенияЗапрос.КодШапкиПеремещения)= " & _
[Forms]![ПеремещениеГлавнаяФорма]![КодПеремещения] & _
")))"
'[Forms]![ПеремещениеГлавнаяФорма]![КодПеремещения] - передаст конкретное значение | |
|
| |
|
|
|
| Прописал:
Set R = CurrentDb.OpenRecordset("SELECT * FROM ПеремещениеРегистр_ПереченьПеремещенияЗапрос " & _
"WHERE (((ПеремещениеРегистр_ПереченьПеремещенияЗапрос.КодШапкиПеремещения) = " & _
[Forms]![ПеремещениеГлавнаяФорма]![КодПеремещения] & "))")
заработало))) спасибо | |
|
| |
|
|
|
|
WHERE (((ПеремещениеРегистр_ПереченьПеремещенияЗапрос.КодШапкиПеремещения) = " & _
[Forms]![ПеремещениеГлавнаяФорма]![КодПеремещения] & "))"
|
спокойно работает и без скобок - это Акс когда запрос делает SQL строку таки выеживается.
вполне хватает так
Set R = CurrentDb.OpenRecordset("SELECT * FROM ПеремещениеРегистр_ПереченьПеремещенияЗапрос " & _
"WHERE КодШапкиПеремещения = " & _
[Forms]![ПеремещениеГлавнаяФорма]![КодПеремещения] ) | |
|
| |
|
|
|
| чтобы не воевать с кавычками, использую замену
s1="SELECT *
s1=s1 & " FROM ПеремещениеРегистр_ПереченьПеремещенияЗапрос "
s1=s1 & " WHERE (((ПеремещениеРегистр_ПереченьПеремещенияЗапрос.КодШапкиПеремещения)=%1))"
s1=replace(s1,"%1", [Forms]![ПеремещениеГлавнаяФорма]![КодПеремещения])
debug.print s1
Set R = CurrentDb.OpenRecordset(s1)
|
| |
|
| |
|
|
|
| Действительно, " WHERE Чтототам=" & [Forms]![ПеремещениеГлавнаяФорма]![КодПеремещения]
предппочтительней
лучше запЕсать " WHERE Чтототам=" & [Forms]![ПеремещениеГлавнаяФорма].Form![КодПеремещения]
Хотя я предпочитаю " WHERE Чтототам=" & Forms("ПеремещениеГлавнаяФорма").Form("КодПеремещения") | |
|
| |