我有一个恼人的问题。当我在Access中的一个字段中,如果它被更改,我想将另一个字段设置为null。所以,我在Dirty中有以下代码块,并且命中了Exit事件。问题是它清除了另一个字段,然后“选择所有”当前字段,而不是退出。如果我再次尝试退出,那么它可以正常工作,但不是第一次。
Private Sub EWId_Dirty(Cancel As Integer)
' Clear out the EID when this is changed.
DirtyEWID = True
End Sub
Private Sub EWId_Enter()
DirtyEWID = False
End Sub
Private Sub EWId_Exit(Cancel As Integer)
If (DirtyEWID = True) Then
Me![txtEID] = ""
DirtyEWID = False
End If
End Sub
答案 0 :(得分:0)
我不知道我是否完全理解这个问题,但也许你可以在那里滑动Me.txtEID.SetFocus?这样就不会突出显示任何内容。
答案 1 :(得分:0)
我通过将更改移动到“更新后”事件来实现它。
谢谢!