в форме есть поля которые зависят от того что выпадет в списке. пример: назв кредита, ставка, требования.
т.е для определенного назв кред есть ставка и требования. как сделать что после выбора в списке сразу же отображались значения в этих полях
как это сделать?

Форма - свободная? тогда кодом - динамически построенным запросом получать данные и раскладывать их по полям. А если привязанная - то изменением фильтра формы.
По событию ComboBox_Change.

форма назыв кредит.договор. т.е. данные из 2 таблиц.
так как это написать. помогите. VB не владею

А может попробовать lookup поля?

Попробуй следующее. С помощью мастера форм создай форму на основе твоих двух таблиц. Поскольку таблиц две и я не знаю связей между ними, то скорее всего одна будет главная, одна подчиненная, это я думаю понятно. Все это к тому что мастер в конце спросит как делать: связанные формы или подчиненные. Советую выбрать подчиненные. Открой и посмотри что получилось. Если есть все записи, в смысле данные и они правильно отображаются переходи к следующему этапу. Перейди в режим конструктора для созданной формы и создай в заголовке формы поле со списком. Опять же с помощью мастера. Выбири нижний третий вариант "Поиск записи в форме ...и т.д." далее перенеси поля из талицы слева в правое окошко, это то что будет отображаться у тебя в поле сос списком. Обязательно перенеси туда ключевое поле, (если оно у тебя есть, конечно) и соответственно твое поле название кредита. в следующем шагенастрой ширину столбцов (ее можно будет подправить потом в случае чего)ю Ну задай соответствено имя для этого поля со списком. Если правильно составлены связи между таблицами, открывай смело форму, все должно уже работать . если будут проблемы пиши . подправим твой код созданный мастером. Да если тебе это о чем то говорит, с помощью мастера мы создали клонированый набор записей формы, внем нашли твой кредит, ну а потом синхронизировали записи. Так сказать отобразили невидимое на форме

Код

Private Sub НазванииеТвоегоПоляСоСписком_AfterUpdate()     ' Описание типа переменной.     Dim rs As Object          'создание клонированного дубликата наборазаписей формы     Set rs = Me.Recordset.Clone          rs.FindFirst "[ТвоеНазваниеПоляСКредитом] = " & Str(Nz(Me![НазванииеТвоегоПоляСоСписком], 0)) 'собственно сам поиск      'синхронизация записей     If Not rs.EOF Then Me.Bookmark = rs.Bookmark  End Sub

буду рад если помог