ник: KrukVN
офтоп
офтоп - нужно создать отдельный сайт - взаимосвязанные_списки.com
офтоп
Private Sub Form_Load()
lstStrana.RowSource = "SELECT id, наименование FROM tab_Strana"
End Sub
Private Sub lstStrana_AfterUpdate()
lstCity.RowSource = "SELECT id, наименование FROM tab_City WHERE (id_страны=" & lstStrana & ")"
End Sub
|