Ms access MS Access VBA临时高亮显示字段

当用户在子窗体上的记录之间切换时，我希望另一个字段临时高亮显示，以引起注意，提醒用户它已更改

我认为这是可行的：

Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

---

sleep函数会将程序暂停半秒钟，但我之前没有看到蓝色的变化

---

有什么想法或者更好的方法来实现这一点吗？

不要使用API，请尝试下面的代码

Private Sub Form_Current()
    Form_frm_Codes.txtCodeToAdd = Me.Code.Value
    Form_frm_Codes.txtCodeToAdd.BackColor = RGB(0, 0, 255)
    delay 5
    Form_frm_Codes.txtCodeToAdd.BackColor = RGB(255, 255, 255)
End Sub

Private Sub delay(seconds As Long)
    Dim endTime As Date
    endTime = DateAdd("s", seconds, Now())
    Do While Now() < endTime
        DoEvents
    Loop
End Sub

Private Sub Form_Current()
    Form_frm_Codes.txtCodeToAdd = Me.Code.Value
    Form_frm_Codes.txtCodeToAdd.BackColor = RGB(0, 0, 255)
    delay 5
    Form_frm_Codes.txtCodeToAdd.BackColor = RGB(255, 255, 255)
End Sub

Private Sub delay(seconds As Long)
    Dim endTime As Date
    endTime = DateAdd("s", seconds, Now())
    Do While Now() < endTime
        DoEvents
    Loop
End Sub

Private Sub Form_Current()
    Form_frm_Codes.txtCodeToAdd = Me.Code.Value
    Form_frm_Codes.txtCodeToAdd.BackColor = RGB(0, 0, 255)
    DoEvents
    Sleep (500)
    Form_frm_Codes.txtCodeToAdd.BackColor = RGB(255, 255, 255)
End Sub