У меня есть форма, которую я хочу использовать в качестве руководства для поиска записи, затем перетащите запись в верхнюю форму в виде выделенной строки с остальными записями, которым нужно следовать.Кроме того, я хочу, чтобы поисковое текстовое поле, в котором я веду поиск, автоматически переходило к следующей записи, не нажимая ввод или очистку текстового поля.Я хочу, чтобы эта часть была автоматизирована.Поэтому я буду постоянно вводить цифры для тысяч записей и искать их информацию.
Некоторая другая информация, моя форма недоступна для редактирования, но текстовое поле:
Я пытался использовать форму с некоторым кодом, но не могу ее получить, из-за ошибки, говоря, чтоprivate sub не распознается как действительное имя или выражение поля.
Private Sub Recsch_AfterUpdate()
On Error GoTo Err_ErrorHandler
Dim ItemSelected As String
ItemSelected = Forms![Inventory_Status].Recsch
Recsch = Null
Me.Filter = "[RecId] = '" & ItemSelected & "'"
Me.FilterOn = True
Err_ErrorHandler:
Exit Sub
End Sub
Я просто хочу, чтобы мой код перенес меня на следующую строкуформа без необходимости нажимать в любом месте.Таким образом, он будет вводить данные в поле, искать в моей форме, выделять строку, переносить ее наверх, затем снова выделять мой блок, чтобы я мог ввести следующий номер без нажатия клавиши ввода.