Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Есть одна таблица с общими данными / 4 сообщений из 4, страница 1 из 1
18.11.2002, 20:11
    #32069296
SergeiSemjonov
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Есть одна таблица с общими данными
Есть одна таблица с общими данными. Требуется выборочными данными построчно заполнять другие таблицы. Было бы желательно по выбору в combobox в первом поле заполняемой таблице, получать автоматом остальные поля данной строки. Спасибо.
...
Рейтинг: 0 / 0
19.11.2002, 08:53
    #32069365
AlexJuice
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Есть одна таблица с общими данными
Запросто...
Me.MySubForm.RowSource="SELECT * FROM MyTable WHERE MyField=" & MyListBox.Value
А поточнее нельзя ли объяснить, что нужно?
...
Рейтинг: 0 / 0
19.11.2002, 10:20
    #32069403
SergeiSemjonov
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Есть одна таблица с общими данными
Ja voobze to ne spezialist v VB, a kak mozno eto sdelatj sredstvami Accessa, tipa saprosa.
Sada4a takaja: estj obzaja basa s parametrami schweinih operazij (kod operazii, naimenovanie, vremja, tarif, i t.d) Dalee sleduet v savisimosti ot modeli isdelija sdelatj novuu tablizu vibiraja is obzej basi nuznie operazii. Hotelos bi vibiraja v ComboBox lischj kod operazii, poluchatj v novuu tablizu vsu stroku dannih.
...
Рейтинг: 0 / 0
19.11.2002, 11:42
    #32069496
AlexJuice
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Есть одна таблица с общими данными
Лучше в списке сделать 2 столбца: код и имя операции (из справочника).
А на событие списка (в зависимости от типа - на Комбо - Change, на Лист - можно DblClick) повесить:
Private Sub MyListBox_DblClick()
Dim strNewTab As String
strNewTab=InputBox("Введите имя таблицы")
If strNewTab="" Then Exit Sub 'если юзер не введет имя или нажмет "Отмену"
DoCmd.RunSQL "SELECT Settings.* INTO QQ FROM Settings WHERE Settings.Key=" & Me.MyListBox
End Sub

где MyListBox - имя списка.
Соответственно текст запроса лучше сделать с помощью стандартного конструктора, задав конкретное значение операции в качестве условия. А потом вместо него написать то, что у меня в конце: & Me.MyListBox
(да и скобки в условиях убрать)
...
Рейтинг: 0 / 0
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Есть одна таблица с общими данными / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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