Private Sub Кнопка1_Click()
    If Me.ПолеСоСписком1.Visible = True Then
        Me.ПолеСоСписком1.Visible = False
    Else
        Me.ПолеСоСписком1.Visible = True
        Me.ПолеСоСписком1.SetFocus
        Me.ПолеСоСписком1.Dropdown
    End If
End Sub

Private Sub ОбластьДанных_Click()
    On Error Resume Next
    If Screen.ActiveControl.Name = "ПолеСоСписком1" Then Me.Кнопка1.SetFocus
End Sub

Private Sub ПолеСоСписком1_AfterUpdate()
    On Error Resume Next
    Me.Кнопка1.SetFocus
    ' обработка выбора пользователя
End Sub

Private Sub ПолеСоСписком1_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyEscape Then
        On Error Resume Next
        Me.Кнопка1.SetFocus
    End If
End Sub

Private Sub ПолеСоСписком1_LostFocus()
    Me.Кнопка1.SetFocus
    Me.ПолеСоСписком1.Visible = False
End Sub

Private Sub ПолеСоСписком1_NotInList(NewData As String, Response As Integer)
    Me.ПолеСоСписком1 = Null
End Sub