Скажите пожалуйста, как мне сделать так чтобы после обновл.city(список) обновить me.propcodelist.RowSource и не перестать стать текeщей на своем позиции.
Private Sub City_AfterUpdate()
Dim Ls As String
Ls = Me.City.column(2)

strSQL = "exec usp_listProp " & [Forms]![F_localmain].[City].column(1) & " , " & [Forms]![F_localmain].[Organs].column(2)
Me.propcodelist.RowSource = strSQL
'Me.propcodelist.SetFocus
'Me.propcodelist.ListIndex = 0


strSQL = "exec usp_GetPropAddressByCode1 " & Me.propcodelist
Forms![F_localmain].[FS_Taxes1]!ll.RowSource = strSQL
strsql1 = "exec usp_GetFIO " & Me.propcodelist
Forms![F_localmain].[FS_Taxes1]!fio.RowSource = strsql1
[Forms]![F_localmain].[FS_Taxes1].Requery

'Me.SetFocus

'Me.City = tt(вот это у меня не получается)
End Sub