Модераторы: Akina
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Ошибка при програмном формир запроса, Не найдена синтаксич ошибка в запросе 
:(
    Опции темы
Devourer
Дата 12.9.2008, 14:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 95
Регистрация: 23.8.2008

Репутация: нет
Всего: нет
Код


Private Sub knop_Click() ' knop--название кнопки

Dim stWhere As String
Dim strok As String  ' strok строка
strok = Me!Month
stWhere = "Select Count(Номер) From july;" 'july----имя таблици
End Sub

Найдите ошибку пожалуста.
PM MAIL ICQ   Вверх
Akina
Дата 12.9.2008, 14:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 30
Всего: 454
В тексте ошибок нет. 
Если не считать потенциальной проблемы с использованием зарезервированного слова в качестве имени поля.


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
bopoha
Дата 12.9.2008, 16:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1283
Регистрация: 10.5.2006
Где: Беларусь, Минск

Репутация: 21
Всего: 21
Цитата(Devourer @  12.9.2008,  14:16 Найти цитируемый пост)
strok = Me!Month


Ошибка может быть в коде выше, если месяц не заполнен. Пишем так:
Код

strok = nz(Me.Month,"")



--------------------
Как создавать приложения на MS Access
PM MAIL WWW ICQ Skype GTalk   Вверх
Akina
Дата 12.9.2008, 16:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 30
Всего: 454
На самом деле ошибка не в коде, а в ге... ну в общем код бессмысленный. Определяем 2 переменных, присваиваем им значения и... уничтожаем их. Нахрена бы оно?


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
bopoha
Дата 12.9.2008, 18:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1283
Регистрация: 10.5.2006
Где: Беларусь, Минск

Репутация: 21
Всего: 21
Akina, потому что учится.


--------------------
Как создавать приложения на MS Access
PM MAIL WWW ICQ Skype GTalk   Вверх
Akina
Дата 12.9.2008, 20:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 30
Всего: 454
Боюсь, что не так. Вероятно, он зачем-то попытался упростить реальный код - и немного перестарался.


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
Devourer
Дата 13.9.2008, 23:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 95
Регистрация: 23.8.2008

Репутация: нет
Всего: нет
Вот не буду голословным...
База с ошибкой... намекните если кто посмотрит...

Присоединённый файл ( Кол-во скачиваний: 6 )
Присоединённый файл  ______________.rar 13,78 Kb
PM MAIL ICQ   Вверх
Данкинг
Дата 14.9.2008, 00:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 1
Всего: 130
А какая у тебя ошибка-то? Вот на этой строке разумеется ошибка вылезает: 

Код

Me..Form.Filter = stWhere

 smile 


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
Devourer
Дата 14.9.2008, 13:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 95
Регистрация: 23.8.2008

Репутация: нет
Всего: нет
Код

Private Sub knop_Click() ' knop--название кнопки

Dim stWhere As String
Dim strok As String  ' strok строка
strok = Nz(Me.pole,"tb")
stWhere = "Select Count(Номер) From "  & strok & ";" 
Me.podch.Form.Filter = stWhere
End Sub

Вот исправил... но оно не работает всеравно... ( чего делать то? у меня там явнокакая-то логическая ошибка, тока не пойму какая...
PM MAIL ICQ   Вверх
bopoha
Дата 15.9.2008, 14:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1283
Регистрация: 10.5.2006
Где: Беларусь, Минск

Репутация: 21
Всего: 21
В stWhere содержится запрос на выборку, а не фильтр. Если необходимо поменять запрос у подчиненной формы, то это свойство RecordSource, вместо Filter.


--------------------
Как создавать приложения на MS Access
PM MAIL WWW ICQ Skype GTalk   Вверх
Devourer
  Дата 16.9.2008, 10:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 95
Регистрация: 23.8.2008

Репутация: нет
Всего: нет
Вы советуете это сдорово... спс вам всем большой за это...
Только вы можете мне сказать у кого эта фигня заработала?
Файл с внесенными изменениями, но всеравно ничего не работает ( у кого заработает отзовитесь ПЛЗ!!!!

Присоединённый файл ( Кол-во скачиваний: 2 )
Присоединённый файл  ___________.rar 15,80 Kb
PM MAIL ICQ   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "MS Access"
Akina
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] и [code=sql][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | MS Access | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0552 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.