Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Combo Box / 25 сообщений из 29, страница 1 из 2
  1  все
01.03.2021, 23:12
    #40049718
ВалерийЮ
ВалерийЮ
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Combo Box
Хотел сделать так что-бы в комбобоксе отображались и передавались в подчиненую форму только два типа книг „Access“ и все книги „All books“. Но неполучилось даже сделать „All books“...В Row Sourse пробовал прописать такие варианты:

SELECT DISTINCT Books.[Book type] FROM Books UNION SELECT "All books" from Books GROUP BY [Books].[Book type];

SELECT [Book type] AS Filter, [Book type] FROM [Books] UNION SELECT 'All books' AS Filter, "All" AS [Book type] FROM [Books];

SELECT Books.[Book type] FROM [Books] UNION SELECT "All books" FROM Books GROUP BY [Books].[Book type];

Пробовал и так:

Row Source Type: ValueList
Row Source: Access;All books

и добавил Event:

Private Sub BookType_AfterUpdate()
If Me.BookType = "All books" Then
strFilter = "*"
Else
strFilter = "'" & Me.BookType & "'"
End If
End Sub

Но ничего толкового неполучилось. Облазил весь интернет, тоже ничего...:(
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.03.2021, 00:07
    #40049721
sdku
sdku
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Combo Box
См.форму "books"
и не обзывайте объекты и поля используя зарезервированные слова (Type)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.03.2021, 00:51
    #40049723
sdku
sdku
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Combo Box
И еще: поле [Book type] в тбл. Books совершенно излишествующее
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.03.2021, 08:36
    #40049732
ВалерийЮ
ВалерийЮ
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Combo Box
Спасибо...:) Интересное решение...:)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.03.2021, 09:06
    #40049736
ВалерийЮ
ВалерийЮ
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Combo Box
Но мне нужно что-бы комбобох был в главной форме, а данные в подчиненной форме, как в моем примере...:) Все равно спасибо...:)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.03.2021, 11:06
    #40049764
Панург
Панург
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Combo Box
ВалерийЮ
Но мне нужно что-бы комбобох был в главной форме, а данные в подчиненной форме, как в моем примере...:)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.03.2021, 11:26
    #40049771
sdku
sdku
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Combo Box
ВалерийЮ
Но мне нужно что-бы комбобох был в главной форме, а данные в подчиненной форме, как в моем примере...:) Все равно спасибо...:)
А я хочу спросить:
а чем,в принципе, отличается предложенный вариант от того что Вы хотите?? Тем что комбо в заголовке ленточной формы (а не в области данных не нужной никому кроме Вас главной формы)и зачем аж 2 формы(главная с подчиненной),когда вполне хватит и одной:или это такой принцип-чем сложней тем "круче"
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.03.2021, 11:58
    #40049782
ВалерийЮ
ВалерийЮ
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Combo Box
sdku,
Нееее...Что-круче мне не надо... Просто в этой главной форме будут две подчиненные формы которые будут брать данные от этого комбобокса...:)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.03.2021, 12:08
    #40049785
ВалерийЮ
ВалерийЮ
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Combo Box
Панург
ВалерийЮ
Но мне нужно что-бы комбобох был в главной форме, а данные в подчиненной форме, как в моем примере...:)


СПАСИБО... :)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.03.2021, 12:09
    #40049786
ВалерийЮ
ВалерийЮ
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Combo Box
sdku
ВалерийЮ
Но мне нужно что-бы комбобох был в главной форме, а данные в подчиненной форме, как в моем примере...:) Все равно спасибо...:)
А я хочу спросить:
а чем,в принципе, отличается предложенный вариант от того что Вы хотите?? Тем что комбо в заголовке ленточной формы (а не в области данных не нужной никому кроме Вас главной формы)и зачем аж 2 формы(главная с подчиненной),когда вполне хватит и одной:или это такой принцип-чем сложней тем "круче"


Все равно большое спасибо что откликнулись и помогли... :)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.03.2021, 13:34
    #40049811
sdku
sdku
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Combo Box
ВалерийЮ
sdku,
.... Просто в этой главной форме будут две подчиненные формы которые будут брать данные от этого комбобокса...:)
Если это две разные сущности-все правильно, если же это одна сущность, то "размазывать" её по двум таблицам есть не ICE
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.03.2021, 14:23
    #40049833
ВалерийЮ
ВалерийЮ
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Combo Box
Панург
ВалерийЮ
Но мне нужно что-бы комбобох был в главной форме, а данные в подчиненной форме, как в моем примере...:)


Попробовал прицепить вторую подчиненную форму ML-Sub1. Когда в комбобоксе выбираю значение „Access“, то реагируют обе подчиненные формы. Все отлично. Но когда в комбобоксе опять выбираю значение „All books“, то тогда уже реагирует только первая подчиненная форма ML-Sub, а вторая подчиненная форма остается со значением „Access“...:( Не могли бы вы помочь еще раз…? :)

Это моя писанина…:\

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
Private Sub BookType_AfterUpdate()
Dim strCriteria As String
    
    If Not Me.BookType = -1 Then strCriteria = "[Type Id]=" & str(Me.BookType)
    With Me.[ML-Sub].Form
        .Filter = strCriteria
        .FilterOn = (Len(strCriteria) > 0)
    End With
    With Me.[ML-Sub1].Form
        .Filter = strCriteria
        .FilterOn = (Len(strCriteria) > 0)
    End With
    
End Sub

Private Sub BookType_AfterUpdate()
Dim strCriteria As String
    
    If Not Me.BookType = -1 Then strCriteria = "[Type Id]=" & str(Me.BookType)
    With Me.[ML-Sub].Form
        .Filter = strCriteria
        .FilterOn = (Len(strCriteria) > 0)
    End With
    
    If Not Me.BookType = -1 Then strCriteria = "[Type Id]=" & str(Me.BookType)
    With Me.[ML-Sub1].Form
        .Filter = strCriteria
        .FilterOn = (Len(strCriteria) > 0)
    End With

    End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.03.2021, 17:10
    #40049934
sdku
sdku
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Combo Box
Так именно об этом и говорится:зачем столько форм если у Вас имеется 2 таблицы-одна главная [books] и вторая справочник[type]- а форм Вы хотите создать аж 3
Если же это только пример,то в нем мало данных-хотелось бы их увидеть полностью и понять что же Вы хотите сделать(какую информацию и из каких данных надо извлечь/занести)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.03.2021, 17:31
    #40049940
ВалерийЮ
ВалерийЮ
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Combo Box
sdku
Так именно об этом и говорится:зачем столько форм если у Вас имеется 2 таблицы-одна главная [books] и вторая справочник[type]- а форм Вы хотите создать аж 3
Если же это только пример,то в нем мало данных-хотелось бы их увидеть полностью и понять что же Вы хотите сделать(какую информацию и из каких данных надо извлечь/занести)


В первой подчиненной форме будут отображаться данные из одной таблицы, а во второй подчиненной форме будут отображаться данные из другой таблицы. Данные в таблицах совсем разные, кроме одного значения. И это одно общее значение указывается в комбобоксе. В этом примере, что я прислал, только сама суть того, что нужно сделать.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.03.2021, 18:58
    #40049976
Панург
Панург
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Combo Box
ВалерийЮ,
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.03.2021, 19:50
    #40050007
sdku
sdku
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Combo Box
sdku

В первой подчиненной форме будут отображаться данные из одной таблицы, а во второй подчиненной форме будут отображаться данные из другой таблицы. Данные в таблицах совсем разные, кроме одного значения. И это одно общее значение указывается в комбобоксе. В этом примере, что я прислал, только сама суть того, что нужно сделать.
Для тех кто в танке, повторяю:одна таблица [type] источник данных ПоляСоСписком вторая источник ленточной формы-о какой такой "другой" таблице Вы говорите(в примере таковой нет)????
Если она имеет место быть то после обновления Combo смените источник у формы на этой таблице (по полной аналогии с примером)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.03.2021, 20:42
    #40050023
ВалерийЮ
ВалерийЮ
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Combo Box
sdku
sdku

В первой подчиненной форме будут отображаться данные из одной таблицы, а во второй подчиненной форме будут отображаться данные из другой таблицы. Данные в таблицах совсем разные, кроме одного значения. И это одно общее значение указывается в комбобоксе. В этом примере, что я прислал, только сама суть того, что нужно сделать.
Для тех кто в танке, повторяю:одна таблица [type] источник данных ПоляСоСписком вторая источник ленточной формы-о какой такой "другой" таблице Вы говорите(в примере таковой нет)????
Если она имеет место быть то после обновления Combo смените источник у формы на этой таблице (по полной аналогии с примером)


Я же говорил что это только маленький примерчик. Потому и таблицу в этом примерчике сделал только одну. Чтобы было проще разбираться в проблеме. А натурально, когда этот примерчик заработает, тогда к этому примеру подлючу две большие таблицы с абсолютно разными данными. Где только одно поле в обоих таблицах будет одинаковым.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.03.2021, 21:22
    #40050032
ВалерийЮ
ВалерийЮ
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Combo Box
Панург
ВалерийЮ,


Когда во второй подчиненной форме в ручную снимаешь фильтр(как в рисунке), тогда все хорошо. Но автоматически фильтр не снимается.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.03.2021, 22:02
    #40050037
sdku
sdku
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Combo Box
sdku

Если она имеет место быть то после обновления Combo смените источник у формы на этой таблице (по полной аналогии с примером)
Интересно!!А Вы читаете ответы???
Ну все-надоело
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.03.2021, 22:29
    #40050047
ВалерийЮ
ВалерийЮ
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Combo Box
sdku
sdku

Если она имеет место быть то после обновления Combo смените источник у формы на этой таблице (по полной аналогии с примером)
Интересно!!А Вы читаете ответы???
Ну все-надоело


1.Когда на Комбобоксе значение „All books“, значит фильтр для обеих подченных форм ВЫКЛЮЧЕН.

2.Когда на Комбобоксе значение „Access“, значит фильтр для обеих подченных форм ВКЛЮЧЕН.

3.Но когда на Комбобоксе опять выбираешь значение „All books“, тогда фильтр ОТКЛЮЧАЕТСЯ только на первой подченной форме. Хотя должен ОТКЛЮЧАТЬСЯ сразу на обеих подченных формах.

4.Тогда на второй подчиненной форме фильтр приходится ОТКЛЮЧАТЬ в ручную. Как показал в рисунке.

ВОТ В ЧЕМ ВСЯ СУТЬ ЭТОЙ ПРОБЛЕМЫ… :\
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.03.2021, 04:50
    #40050097
Панург
Панург
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Combo Box
ВалерийЮ
Когда во второй подчиненной форме в ручную снимаешь фильтр(как в рисунке), тогда все хорошо. Но автоматически фильтр не снимается.
что ты мне баки забиваешь?! Всё работает.
Я вижу, что ты вносил изменения.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.03.2021, 05:18
    #40050098
Панург
Панург
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Combo Box
ВалерийЮ
ОТКЛЮЧАТЬ в ручную
чтобы руки шаловливые не лезли куда не попадя и не нажимали что не надо, а так же редактировали форму как...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.03.2021, 10:17
    #40050149
ВалерийЮ
ВалерийЮ
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Combo Box
Панург
ВалерийЮ
ОТКЛЮЧАТЬ в ручную
чтобы руки шаловливые не лезли куда не попадя и не нажимали что не надо, а так же редактировали форму как...


Ураааааа...Все работает...ОГРОМНОЕ СПАСИБО за твое потраченное время...С меня бочка пива...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.03.2021, 10:45
    #40050162
ВалерийЮ
ВалерийЮ
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Combo Box
sdku
sdku

Если она имеет место быть то после обновления Combo смените источник у формы на этой таблице (по полной аналогии с примером)
Интересно!!А Вы читаете ответы???
Ну все-надоело


И Вам спасибо за потраченное время…В этом деле я еще чайник(кто-бы сомневался), но я стараюсь, учусь…Так что…Еще раз спасибо… :)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.03.2021, 12:35
    #40050244
sdku
sdku
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Combo Box
ВалерийЮ,
Мне до сих пор не ясно какие данные Вы имеете и что хотите(какую цель преследуете) и было бы намного проще если бы Вы выложили реальные данные с объяснением того что хотите получить,а может и просто четко сформулированное ТЗ
(вполне допускаю что решаемая Вами задача очень проста-может и VBA не нужен)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
  1  все
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Combo Box / 25 сообщений из 29, страница 1 из 2
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 245ms
Закрыть
start [/forum/topic.php?fid=45&mobile=1&tid=1609742]:
 0ms
get settings:
 8ms
get forum list:
 11ms
check forum access:
 13ms
check topic access:
 13ms
track hit:
 129ms
get topic data:
 12ms
get forum data:
 2ms
get page messages:
 54ms
get tp. blocked users:
 2ms
others: 1ms
total:  245ms
x
x
Закрыть


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