Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как вставить данные в ПолеСоСписком из списка находящегося в другой форме? / 4 сообщений из 4, страница 1 из 1
07.12.2004, 09:21:57
    #32815672
BK01
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как вставить данные в ПолеСоСписком из списка находящегося в другой форме?
Помогите, очень надо. Сам бьюсь уже целый день никак не сообразить.
...
Рейтинг: 0 / 0
07.12.2004, 09:26:58
    #32815681
Программист-Любитель
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как вставить данные в ПолеСоСписком из списка находящегося в другой форме?
Надо не биться, а кнопочки на клавиатуре давить.

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Dim cmb as ComboBox, frm as Form

Set frm = Forms("YourForm")
Set cmb = frm.Controls("YourCombo")

with cmb
   .ColumnCount= 2 
   .ColumnWidths="0;2000"
   .RowsourceType = "Table/Query"
   .Rowsource= "Select iObjectID, sObjectName FROM tblObject ORDER BY sObjectName"
end with
...
Рейтинг: 0 / 0
07.12.2004, 09:45:02
    #32815710
BK01
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как вставить данные в ПолеСоСписком из списка находящегося в другой форме?
Можно поподробнее эту строчку:
.Rowsource= "Select iObjectID, sObjectName FROM tblObject ORDER BY sObjectName"
...
Рейтинг: 0 / 0
07.12.2004, 09:51:24
    #32815731
Программист-Любитель
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как вставить данные в ПолеСоСписком из списка находящегося в другой форме?
Ну, ежели изволите можно чуть подредактировать:

Код: plaintext
1.
.Rowsource = Me!YourCombo.Rowsource 'сделать в той форме как в этой
...
Рейтинг: 0 / 0
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как вставить данные в ПолеСоСписком из списка находящегося в другой форме? / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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