Всем большое человеческое спасибо за помощь!
aleckoCurrentDb.TableDefs(EditDBName).Fields(EditFieldName).DefaultValue = "Муж."
это Вы в форме применяли?таким костылем и убиться можно!
Безусловно, можно. Хотя при моих ограничениях и работало, но... очевидно, что надо переделывать, а кроме меня - некому. Вот и приходится выставлять свое незнание на обозрение.
aleckoпо делу -
открыли Вы форму общим запросом
изменяйте в форме фильтр кнопками
1.
2.
3.
4.
Me.filteron=true
Me.filter=EditFieldName & "=Муж."
' потом когда нужно детский ставите
Me.filter=EditFieldName & "=детский"
и т.д.-это
если в форме все это происходит, но сдается мне что если субформа, в которой оный ассортимент и вызывается, потому Me и не прикручивается.
Я думаю, оно не прикручивается из-за моей безграмотности в MS Access :) Только у меня основная проблема с записью данных (значения фильтра в конкретное поле каждой добавляемой записи), а не фильтрацией.
sdkuЯкорь,
разместите на форме combo с источником
1.
SELECT Name, Type FROM MSysObjects WHERE Name Not Like "~*" AND Type=5
и после его обновления открывайте тот запрос,который выберите,а в запросе сошлитесь на поле формы, в которое вводите критерий
Идея интересная, но пока не для моего уровня... хотя смысл я понял. Попробую в качестве "улучшайзинга" прикрутить в другое место этой базы...
