powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Программа "Проекты" (2)
4 сообщений из 4, страница 1 из 1
Программа "Проекты" (2)
    #32381372
Geenetix
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Немного разобрался в Акцессе и вот что получилось:

Уже настоящий скриншот программы:
скриншот

В пункте Computers выбран подпункт Modems и справа отображаются проекты, относящиеся к этому подпункту.

Как сделать так, чтобы при выделении пункта в 1м списке, во 2м списке отображались соответсвующие ему подпунты?
Я делал так, чтобы во 2м отображались подпукты при помощи запроса

Код: plaintext
SELECT [SubitemCaption] FROM Subitems WHERE SubitemItem =  1 ;


В результате во 2м списке высвечиваются подпункты пункта 1.

Если я вместо единицы в запросе ставлю какую-нибудь переменную, допустим param, то она становится параметром. И при запуске
формы появляется окно, в которое его нужно ввести.

Проблема в том, что я не знаю, как этот параметр связать c 1м списком, чтобы он изменялся при выделении различных пунктов в 1м списке.





P.S.
Я немного разобрался с Visual Basic...
и у меня появилась одна проблема
Как передать параметр k в запрос ?

Private Sub Кнопка17_Click()
k = 1
Список15.RowSource = "SELECT subitem FROM Subitems WHERE item = k;"
End Sub
...
Рейтинг: 0 / 0
Программа "Проекты" (2)
    #32381383
Гавриленко Сергей Алексеевич
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: plaintext
Список15.RowSource =  "SELECT subitem FROM Subitems WHERE item = "  & str(k)
...
Рейтинг: 0 / 0
Программа "Проекты" (2)
    #32381779
vlad_707
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
посмотри в ФАК_ак, тут хорошо написано..
http://www.sql.ru/faq/faq_topic.aspx?fid=157
http://www.sql.ru/faq/faq_topic.aspx?fid=156

вот пример из гетса, где он смотрит исполнителей по типу музыки

SELECT DISTINCTROW tblArtists.ArtistID, tblArtists.ArtistName, tblArtists.MusicType
FROM tblArtists
WHERE (( (tblArtists.MusicType)=[Forms]![frmAlbumBrowse]![cboMusicType]) )
ORDER BY tblArtists.ArtistName;

после на событии after update первого комбобокса вешаешь
ме!2комбобокс.requery
...
Рейтинг: 0 / 0
Программа "Проекты" (2)
    #32382743
Geenetix
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Сергей Алексеевич, vlad_707 ,
Спасибо!
...
Рейтинг: 0 / 0
4 сообщений из 4, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Программа "Проекты" (2)
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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