Войти

Показать полную графическую версию : VB


skulida
09-02-2003, 20:17
Помогите срочно не программисту в написании кода на бэсике под аксесс
вот:
есть некоторый запрос на выборку к таблице, в итоге получаем форму со списком результатов.
Private Sub ПолеСоСписком2_AfterUpdate()
Dim sql As String

sql = "SELECT name_org, kod_agenta, data_on, data_off, price, data_xx, kod FROM org WHERE name_org Like ""*" & Me.ПолеСоСписком2.Value & "*""ORDER BY name_org;"
Список4.RowSource = sql
Список4.Requery

End Sub

Как сделать чтобы клика по одной из строчек записи открывалась некая форма (DoCmd.OpenForm "Org" ) для редактирования конкретной записи, по которой кликаешь.

DimSher
10-02-2003, 06:59
skulida
Ну так уж и срочно....
А почему не попробовать так:
форма (DoCmd.OpenForm "Org" ) для редактирования конкретной записи, по которой кликаешь.
для нее источником данных ставишь некий запрос состоящий из необходимых полей. В качестве параметра к запросу указываешь допустим - ИмяКлиента=[forms]![MyForm].ПолеСоСписком1.Value.




© OSzone.net 2001-2012