Как присвоить полю значение запроса?

@Kostin · Регистрация: 24.01.2011

Author24 — интернет-сервис помощи студентам

Спасите не могу никак присвоить полю значение запроса....., т.е. На форме два поля в одном выбирается вид отчета, а в другом я бы ходела, чтобы выводился результат запроса, который уже написан на SQL.
В версии Access 1997 можно было написать процедуру после обновления поля:Private Sub lstDep_AfterUpdate()
lstF.RowSource = ...
End Sub
А в 2003 RowSource нету чем это можно заменить. Или как-то подругому.
Заранее Спасибо.

@Naug · 26.01.2011, 14:31

и такая таблица существует?

@Kostin · 26.01.2011, 14:54 **[ТС]**

Какая таблица?

@Naug · 26.01.2011, 15:08

сумма вида

@Kostin · 26.01.2011, 16:15 **[ТС]**

Это запрос на который считает кол-во

@Ирча · 26.01.2011, 16:20

А запрос такой существует?
Проверь название
Посмотри работает ли он...

@Naug · 26.01.2011, 16:33

запрос так посылать нельзя - если нет таблицы он воспринимает текст в кавычках как код (надо openrecordset('select blah blah')

@Kostin · 26.01.2011, 16:33 **[ТС]**

Запрос такой существует, название такое-же, он работает

@BorisL · 26.01.2011, 20:50

С такими вопросами, ИМХО, лучше на форумы, где можно присоединить контрольный пример (Mdb в Zip-архиве)
Лучше 1 раз увидеть...

@Михайло · 27.01.2011, 11:53

А если Вы вставите исполнение запроса с выводом на экран, то убедитесь в том, что он не работает:

Visual Basic

Dim table As DAO.Recordset
DoCmd.RunSQL '......вставьте сюда текст запроса 'Сумма вида'......'
Set table = CurrentDb.OpenRecordset('Сумма вида', dbOpenDynaset)
If Not table.EOF Then lstG = table.Fields(0)

@Kostin · 27.01.2011, 12:19 **[ТС]**

Я подставила запрос и на запуск он требует, что для макрокоманды ЗапуксЗапросаSQL требуется аргумент, состоящий из инструкции SQL.

Visual Basic

Private Sub btn21_Click()
If txtV.Value <> 'Все' Then
Dim table As DAO.Recordset
DoCmd.RunSQL 'SELECT [Список сделанных].Vid, Count([Список сделанных].Date4) AS [Count-Date4] FROM [Срисок сделанных] GROUP BY [Список сделанных].Vid HAVING ((([Список сделанных].Vid) = Forms!Podchet.txtV.Value))'
Set table = CurrentDb.OpenRecordset('Сумма вида', dbOpenDynaset)
If Not table.EOF Then lstG = table.Fields(0)

Если знаете как это исправить, пожалуйста, скажите

@BorisL · 27.01.2011, 12:24

Он не понимает Forms!Podchet.txtV.Value
Создайте SQL_строку = 'SELECT [Список сделанных].Vid, Count([Список сделанных].Date4) AS [Count-Date4] FROM [Срисок сделанных] GROUP BY [Список сделанных].Vid HAVING ((([Список сделанных].Vid) = '' & CStr(Forms!Podchet.txtV.Value) & ''))'
и пользуйтесь ей

@BorisL · 27.01.2011, 12:31

Интересно, почему Вы не копируете в сообщения Форума то, что есть на самом деле ? В результате все обсуждают какие-то фантомы, а не то, что у Вас в программе. Например, СРИСОК - это СПИСОК ??

@Kostin · 27.01.2011, 12:50 **[ТС]**

Это я опечаталась, извеняюсь.
Сказите, пожайлуста, когда говорите завести строчку SQL,Вы имеете ввиду, на кнопке прописать название поля.RowSource

@BorisL · 27.01.2011, 12:56

Visual Basic

Private Sub btn21_Click()
If txtV.Value <> 'Все' Then
Dim table As DAO.Recordset
Dim SQL_строку As Strung
SQL_строку = 'SELECT [Список сделанных].Vid, Count([Список сделанных].Date4) AS [Count-Date4] FROM [Срисок сделанных] GROUP BY [Список сделанных].Vid HAVING ((([Список сделанных].Vid) = '' & CStr(Forms!Podchet.txtV.Value) & ''))'
DoCmd.RunSQL SQL_строку
Set table = CurrentDb.OpenRecordset(SQL_строку, dbOpenDynaset)
If Not table.EOF Then lstG = table.Fields(0)

Для копирования - Установите Rus регистр на клавиатуре, выделите текст, Copy/Paste
Удачи

@Kostin · 27.01.2011, 13:36 **[ТС]**

Если поставить прямо так, то пишет ошибку User-defined type not defined. А если место Strung-String, то опять для макрокоманды ЗапускЗапрсаSQL и т.д. Что делать?

@BorisL · 27.01.2011, 13:42

См. мое сообщение от 18.11.2004 21:13
Рекомендую http://www.sql.ru/forum/actualtopics.aspx?bid=4 (Форум по Ассеss)

@Михайло · 27.01.2011, 14:10

К сожалению, у нас ничего не выйдет с RunSQL: по-видимому, 'Список сделанных' - это имя запроса. А этого DoCmd.RunSQL не позволяет...
Неужели у Вас работает этот запрос?
Проверьте, что у Вас работают все подчинённые этого запроса.
Или попробуйте поставить вместо строки DoCmd.RunSQL 'SELECT ...'

Exit Sub

или Exit Function (в зависимости от ситуации) и когда программа прекратит своё исполнение (как раз перед исполнением OpenRecordSet - а форма останется на экране!), перейдите в окне 'База данных' MS Access на закладку 'Запросы' и запустите запрос 'Список сделанных'.

@Kostin · 27.01.2011, 15:11 **[ТС]**

Почему вы так упорно говорите, что запрос у меня не работает?

@Михайло · 27.01.2011, 15:32

Потому что сообщение 'Слишком много параметров, требуется один' возникает только при наличии ошибки в запросе. По крайней мере, другие способы получения такой ошибки мне не известны...

@Kostin 1 / 1 / 0 Регистрация: 24.01.2011 Сообщений: 46
	26.01.2011, 14:54 [ТС]	22
	Какая таблица? 0

@Naug 0 / 0 / 0 Регистрация: 12.01.2011 Сообщений: 39
	26.01.2011, 15:08	23
	сумма вида 0

@Ирча 0 / 0 / 0 Регистрация: 08.02.2010 Сообщений: 345
	26.01.2011, 16:20	25
	А запрос такой существует? Проверь название Посмотри работает ли он... 0

@BorisL 5 / 5 / 0 Регистрация: 19.03.2009 Сообщений: 743
	26.01.2011, 20:50	28
	С такими вопросами, ИМХО, лучше на форумы, где можно присоединить контрольный пример (Mdb в Zip-архиве) Лучше 1 раз увидеть... 0

@Kostin 1 / 1 / 0 Регистрация: 24.01.2011 Сообщений: 46
	27.01.2011, 13:36 [ТС]	35
	Если поставить прямо так, то пишет ошибку User-defined type not defined. А если место Strung-String, то опять для макрокоманды ЗапускЗапрсаSQL и т.д. Что делать? 0

@Kostin 1 / 1 / 0 Регистрация: 24.01.2011 Сообщений: 46
		1
	Как присвоить полю значение запроса? 24.01.2011, 16:54. Показов 9117. Ответов 38 Метки нет (Все метки) Спасите не могу никак присвоить полю значение запроса....., т.е. На форме два поля в одном выбирается вид отчета, а в другом я бы ходела, чтобы выводился результат запроса, который уже написан на SQL. В версии Access 1997 можно было написать процедуру после обновления поля:Private Sub lstDep_AfterUpdate() lstF.RowSource = ... End Sub А в 2003 RowSource нету чем это можно заменить. Или как-то подругому. Заранее Спасибо. 0

@Naug 0 / 0 / 0 Регистрация: 12.01.2011 Сообщений: 39
	26.01.2011, 14:31	21
	и такая таблица существует? 0

@Kostin 1 / 1 / 0 Регистрация: 24.01.2011 Сообщений: 46
	26.01.2011, 16:15 [ТС]	24
	Это запрос на который считает кол-во 0

@Naug 0 / 0 / 0 Регистрация: 12.01.2011 Сообщений: 39
	26.01.2011, 16:33	26
	запрос так посылать нельзя - если нет таблицы он воспринимает текст в кавычках как код (надо openrecordset('select blah blah') 0

@Kostin 1 / 1 / 0 Регистрация: 24.01.2011 Сообщений: 46
	26.01.2011, 16:33 [ТС]	27
	Запрос такой существует, название такое-же, он работает 0

@BorisL 5 / 5 / 0 Регистрация: 19.03.2009 Сообщений: 743
	27.01.2011, 12:24	31
	Он не понимает Forms!Podchet.txtV.Value Создайте SQL_строку = 'SELECT [Список сделанных].Vid, Count([Список сделанных].Date4) AS [Count-Date4] FROM [Срисок сделанных] GROUP BY [Список сделанных].Vid HAVING ((([Список сделанных].Vid) = '' & CStr(Forms!Podchet.txtV.Value) & ''))' и пользуйтесь ей 0

@BorisL 5 / 5 / 0 Регистрация: 19.03.2009 Сообщений: 743
	27.01.2011, 12:31	32
	Интересно, почему Вы не копируете в сообщения Форума то, что есть на самом деле ? В результате все обсуждают какие-то фантомы, а не то, что у Вас в программе. Например, СРИСОК - это СПИСОК ?? 0

@Kostin 1 / 1 / 0 Регистрация: 24.01.2011 Сообщений: 46
	27.01.2011, 12:50 [ТС]	33
	Это я опечаталась, извеняюсь. Сказите, пожайлуста, когда говорите завести строчку SQL,Вы имеете ввиду, на кнопке прописать название поля.RowSource 0

@BorisL 5 / 5 / 0 Регистрация: 19.03.2009 Сообщений: 743
	27.01.2011, 13:42	36
	См. мое сообщение от 18.11.2004 21:13 Рекомендую http://www.sql.ru/forum/actualtopics.aspx?bid=4 (Форум по Ассеss) 0

@Михайло 118 / 118 / 10 Регистрация: 12.05.2010 Сообщений: 1,207
	27.01.2011, 14:10	37
	К сожалению, у нас ничего не выйдет с RunSQL: по-видимому, 'Список сделанных' - это имя запроса. А этого DoCmd.RunSQL не позволяет... Неужели у Вас работает этот запрос? Проверьте, что у Вас работают все подчинённые этого запроса. Или попробуйте поставить вместо строки DoCmd.RunSQL 'SELECT ...' Exit Sub или Exit Function (в зависимости от ситуации) и когда программа прекратит своё исполнение (как раз перед исполнением OpenRecordSet - а форма останется на экране!), перейдите в окне 'База данных' MS Access на закладку 'Запросы' и запустите запрос 'Список сделанных'. 0

@Kostin 1 / 1 / 0 Регистрация: 24.01.2011 Сообщений: 46
	27.01.2011, 15:11 [ТС]	38
	Почему вы так упорно говорите, что запрос у меня не работает? 0

@Михайло 118 / 118 / 10 Регистрация: 12.05.2010 Сообщений: 1,207
	27.01.2011, 15:32	39
	Потому что сообщение 'Слишком много параметров, требуется один' возникает только при наличии ошибки в запросе. По крайней мере, другие способы получения такой ошибки мне не известны... 0