ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Изменение RecordSource формы
17 сообщений из 17, страница 1 из 1
Изменение RecordSource формы
    #32290130
Фотография Vsevolod V
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vsevolod V
Участник
В зависимости от некоторого условия хочу менять рекордсурс формы, но менять не всю строку запроса, а только добавить к ней дополнительное условие. Как это сделать?
Вот что я пробывал:
Код: plaintext
1.
2.
3.
4.
Dim a
Dim sc
a = Me.RecordSource
sc =  " AND [Orders].[Реф №] NOT LIKE "  1 *""
a = a & sc

Проблема в том, что "sc" добавляется после знака ";", что вызывает ошибку.
...
Рейтинг: 0 / 0
10.10.2003, 15:42
| Ответить | Цитировать | Написать  
Изменение RecordSource формы
    #32290132
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
Dim i As Integer
i = InStr(s, ";")
If i>0 Then s=Left(s, i-1)
...
Рейтинг: 0 / 0
10.10.2003, 15:44
| Ответить | Цитировать | Написать  
Изменение RecordSource формы
    #32290135
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
Но если в селекте есть ордер бай, то все равно работать не будет, потому что ордер бай идет после уэр.
...
Рейтинг: 0 / 0
10.10.2003, 15:45
| Ответить | Цитировать | Написать  
Изменение RecordSource формы
    #32290139
Фотография Vsevolod V
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vsevolod V
Участник
i = InStr(s, ";")
If i>0 Then s=Left(s, i-1)
Саныч, поясни, пожалуйста, что чего делает?
...
Рейтинг: 0 / 0
10.10.2003, 15:49
| Ответить | Цитировать | Написать  
Изменение RecordSource формы
    #32290146
zz
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
zz
Участник
рэжэт точку-запятую.
...
Рейтинг: 0 / 0
10.10.2003, 15:53
| Ответить | Цитировать | Написать  
Изменение RecordSource формы
    #32290149
zz
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
zz
Участник
Кстати, насколько я помню, в синтаксисе SQL ; обязательной не является, так что можно просто без нее строку писать.
...
Рейтинг: 0 / 0
10.10.2003, 15:55
| Ответить | Цитировать | Написать  
Изменение RecordSource формы
    #32290152
Фотография Vsevolod V
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vsevolod V
Участник
Кстати, насколько я помню, в синтаксисе SQL ; обязательной не является, так что можно просто без нее строку писать.
в рекордсурсе она ставится автоматически

рэжэт точку-запятую.
не рэжэт ни хрена
...
Рейтинг: 0 / 0
10.10.2003, 15:58
| Ответить | Цитировать | Написать  
Изменение RecordSource формы
    #32290162
zz
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
zz
Участник
в рекордсурсе она ставится автоматически
Логично.
не рэжэт ни хрена
Неправда.
...
Рейтинг: 0 / 0
10.10.2003, 16:01
| Ответить | Цитировать | Написать  
Изменение RecordSource формы
    #32290163
incold
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
incold
Участник
Один из вариантов:

Исходная строка хранится в Form.tag

Код: plaintext
1.
2.
3.
Dim sc
sc =  " AND [Orders].[Реф №] NOT LIKE "  1 *""
Me.RecordSource= Me.Tag & sc
...
Рейтинг: 0 / 0
10.10.2003, 16:02
| Ответить | Цитировать | Написать  
Изменение RecordSource формы
    #32290164
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
Первая команда ищет позицию, в которой стоит точка с запятой. Вторая берет из исходного стринга ту часть, которая до найденной позиции.

(Боже, насколько это длинно звучит по-русски и насколько коротко на VBA...)

Кстати, вместо s надо поставить ту переменную, в которой сидит стринг с селектом.
...
Рейтинг: 0 / 0
10.10.2003, 16:02
| Ответить | Цитировать | Написать  
Изменение RecordSource формы
    #32290166
Фотография Vsevolod V
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vsevolod V
Участник
zz
ты тут чем вообще занимаешься??? Ты помочь хочешь или по пиз..ть на пространственные темы?
...
Рейтинг: 0 / 0
10.10.2003, 16:04
| Ответить | Цитировать | Написать  
Изменение RecordSource формы
    #32290169
zz
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
zz
Участник
Помочь. Тебе дали работающую функцию, а ты кричишь, что она не работает. Что на это можно ответить? Только то, что это неправда.
...
Рейтинг: 0 / 0
10.10.2003, 16:06
| Ответить | Цитировать | Написать  
Изменение RecordSource формы
    #32290171
Фотография Vsevolod V
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vsevolod V
Участник
Саныч
Спасибо
Выручил :)
...
Рейтинг: 0 / 0
10.10.2003, 16:08
| Ответить | Цитировать | Написать  
Изменение RecordSource формы
    #32290175
Фотография Vsevolod V
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vsevolod V
Участник
zz
как у меня может заработать функция, когда я не знаю что она делает???
Буква "s" оказалась очень кстати в примере Саныча, потому что строк SQL начинается с "s" и заканчивается ";"
Так что такая фишка вводит в заблуждение:
i = InStr(s, ";")
...
Рейтинг: 0 / 0
10.10.2003, 16:10
| Ответить | Цитировать | Написать  
Изменение RecordSource формы
    #32290180
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
Буква s - это от слова Sаныч.
...
Рейтинг: 0 / 0
10.10.2003, 16:13
| Ответить | Цитировать | Написать  
Изменение RecordSource формы
    #32290188
Фотография Лох Позорный
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Лох Позорный
Участник
как у меня может заработать функция, когда я не знаю что она делает???
Вот же еп твою
А не судьба нажать Ф1 и поглядеть, что делают функции InStr и Left???
Нет блин, надо гадать с какой буквы какой оператор sql начинается.
Если бы у тебя был запрос на вставку - ты бы букву i за что-то не то наверное принял
...
Рейтинг: 0 / 0
10.10.2003, 16:18
| Ответить | Цитировать | Написать  
Изменение RecordSource формы
    #32290190
incold
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
incold
Участник
2 Vsevolod V
Я конечно постановки задачи не знаю, но если эта процедура выполянется по
нажатию кнопки, то что произойдет при повторном нажатии?

Например:
Есть поле и кнопка изменить источник
Написал поле=1 нажал кнопку
Написал поле=2 нажал кнопку
Получим источник ....поле=1 and поле=2
Если это правильно и так и должно быть, то все Ок.

А если условие должно перезаписываться то см. пост сегодня, 16:02 [372368]
...
Рейтинг: 0 / 0
10.10.2003, 16:19
| Ответить | Цитировать | Написать  
17 сообщений из 17, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Изменение RecordSource формы
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=32290188&tid=1678919]:
 0ms
get settings:
 11ms
get forum list:
 19ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 59ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 74ms
get tp. blocked users:
 2ms
others: 253ms
total:  439ms
созд. / загр.: 439ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]