ReSQL.ru
     
powered by simpleCommunicator - 2.0.51     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Группа переключателей в заголовке формы
6 сообщений из 6, страница 1 из 1
Группа переключателей в заголовке формы
    #39859317
Фотография kniga
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kniga
Участник
Здравствуйте,

Подскажите, пожалуйста, правильно ли написана процедура на Группу переключателей, находящейся в заголовке формы?
Есть форма как контейнер, в ней ленточная со списком фирм. Пытаюсь сделать фильтр списка переключателями, но выскакивает окно, с требованием ввести параметр (Поставщик/Покупатель/Партнер).

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
Private Sub Группа730_AfterUpdate()

Select Case Группа730
        Case 1
            Forms!Phonebook!objSubForm.Form.RecordSource = "Select * from Фирма where Контрагент = Поставщик"
        Case 2
            Forms!Phonebook!objSubForm.Form.RecordSource = "Select * from Фирма where Контрагент = Покупатель"
        Case 3
            Forms!Phonebook!objSubForm.Form.RecordSource = "Select * from Фирма where Контрагент = Партнер"
        Case 4
            Forms!Phonebook!objSubForm.Form.RecordSource = "Select * from Фирма order by Название"
    End Select

End Sub
...
Рейтинг: 0 / 0
09.09.2019, 13:54
| Ответить | Цитировать | Написать  
Группа переключателей в заголовке формы
    #39859328
ROI
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ROI
Участник
kniga,
"Select Фирма .* from Фирма where Контрагент = Поставщик"
может так
...
Рейтинг: 0 / 0
09.09.2019, 14:12
| Ответить | Цитировать | Написать  
Группа переключателей в заголовке формы
    #39859332
Serg197311
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Serg197311
Участник
'Поставщик'
'Покупатель' и тд
...
Рейтинг: 0 / 0
09.09.2019, 14:16
| Ответить | Цитировать | Написать  
Группа переключателей в заголовке формы
    #39859361
Agapov_stas
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Agapov_stas
Участник
kniga,

Поле " Контрагент " числовое (значение id из таблицы справочника) или текстовое?

Если первое, то необходимо указывать id из справочника, к примеру:
Код: vbnet
1.
Forms!Phonebook!objSubForm.Form.RecordSource = "Select * from Фирма where Контрагент = " & DLookup("id", "YourTableName", "[YourFieldName] = 'Поставщик'")



Если же второе (текст), то:
Код: vbnet
1.
Forms!Phonebook!objSubForm.Form.RecordSource = "Select * from Фирма where Контрагент = 'Поставщик'"
...
Рейтинг: 0 / 0
09.09.2019, 14:46
| Ответить | Цитировать | Написать  
Группа переключателей в заголовке формы
    #39859364
Кривцов Анатолий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Кривцов Анатолий
Гость
kniga, что из себя представляет поле "Контрагент" в таблице? Его тип?
Если это поле подстановки, то как выглядит его источник строк?
...
Рейтинг: 0 / 0
09.09.2019, 14:47
| Ответить | Цитировать | Написать  
Группа переключателей в заголовке формы
    #39859386
Фотография kniga
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kniga
Участник
Всем большое спасибо!

В копилку знаний добавилось то, что тип поля тоже на код влияет.
У меня тип поля [Контрагент] - Короткий текст, хотя и с подстановкой, поэтому одинарные кавычки решили вопрос ))

Я так и подозревал, что в каких то знаках "засада", пробовал двойные кавычки, скобки круглые, квадратные, амперсанд даже ставил, просто для меня как любителя все эти значки темный лес. ))

Еще раз спасибо!
...
Рейтинг: 0 / 0
09.09.2019, 15:19
| Ответить | Цитировать | Написать  
6 сообщений из 6, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Группа переключателей в заголовке формы
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=39859328&tid=1610488]:
 0ms
get settings:
 8ms
get forum list:
 11ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 41ms
get topic data:
 11ms
get forum data:
 2ms
get page messages:
 54ms
get tp. blocked users:
 2ms
others: 14ms
total:  147ms
созд. / загр.: 147ms
x
x
Закрыть


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