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" ) для редактирования конкретной записи, по которой кликаешь.
вот:
есть некоторый запрос на выборку к таблице, в итоге получаем форму со списком результатов.
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" ) для редактирования конкретной записи, по которой кликаешь.