Я работаю над базой данных персонала и пытаюсь уточнить некоторые улучшения QOL с помощью пользовательского интерфейса. У меня есть форма для обновления данных о персонале, и в указанной форме у меня есть поле со списком для прокрутки всего персонала, поле со списком для поиска по его идентификационному номеру и поле со списком для быстрого поиска, набрав его имя. Я хотел бы, чтобы значения, отображаемые во всех 3 полях, совпадали, т. Е. Когда вы выбираете из списка, их идентификационный номер и имя появляются в комбинированных полях, а также при поиске по их имени или идентификатору из комбинированного списка. поле их имени выделяется в списке.
Все три элемента управления работают нормально независимо друг от друга. Вот код, который я пытаюсь использовать для списка:
ScrollNames - это мой список, search_EDIPI & searchName - мои списки.
Private Sub ScrollNames_AfterUpdate()
DoCmd.SearchForRecord , "", acFirst, "[ID] = " & Str(Nz(Screen.ActiveControl, 0))
Me.search_EDIPI.Value = Me.EDIPI
Me.searchName.Value = Me.NameStr
End Sub
Прямо сейчаскод не выдает никаких ошибок, но он также ничего не отображает в отношении ожидаемого результата.