Я работаю над кодом, который одновременно обновляет форматированное текстовое поле при наборе текста в неформатированном текстовом поле (с тем же полем БД).
Private Sub help_text_KeyUp(KeyCode As Integer, Shift As Integer)
Dim lngPos As Long
Select Case KeyCode
Case 8, 46, 32, KeyCode >= 48 And KeyCode <= 111
lngPos = Me.help_text.SelStart
DoCmd.RunCommand acCmdSaveRecord
Me.help_text_formatted.Requery
Me.help_text.SelStart = lngPos
End Select
End Sub
Все еще работаю над распознаванием ключей, и, возможно, я буду менять код при обновлении текстовых полей каждые x секунд вместо события KeyUp. Однако я заметил, что клавиша vbKeyDelete (46) срабатывает только тогда, когда в текстовом поле не выделен текст. KeyUp запускается при удалении выделения с помощью клавиши vbKeyBack (8). Кто-нибудь знает, как я могу вызвать событие KeyUp при удалении выделения с помощью клавиши vbKeyDelete?
Art.