Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > MS Access > Ошибка при програмном формир запроса

Автор: Devourer 12.9.2008, 14:16

Код



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

Найдите ошибку пожалуста.

Автор: Akina 12.9.2008, 14:23

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

Автор: bopoha 12.9.2008, 16:20

Цитата(Devourer @ 12.9.2008, 14:16

)

strok = Me!Month

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

Код


strok = nz(Me.Month,"")

Автор: Akina 12.9.2008, 16:26

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

Автор: bopoha 12.9.2008, 18:42

Akina, потому что учится.

Автор: Akina 12.9.2008, 20:17

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

Автор: Devourer 13.9.2008, 23:49

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

Автор: Данкинг 14.9.2008, 00:13

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

Код


Me..Form.Filter = stWhere

Автор: Devourer 14.9.2008, 13:01

Код


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

Вот исправил... но оно не работает всеравно... ( чего делать то? у меня там явнокакая-то логическая ошибка, тока не пойму какая...

Автор: bopoha 15.9.2008, 14:09

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

Автор: Devourer 16.9.2008, 10:20

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