ms-access - 访问 VBA 以修改表单中的文本输入

Question

如果用户输入 RED，将表单字段自动更改为 YELLOW 的正确程序是什么？

我会尝试一个 BeforeUpdate 事件，但文档说：

如果您尝试修改在事件过程中触发 BeforeUpdate 事件的控件中包含的数据，则会发生运行时错误。

这似乎违背了目标。

例子：

Private Sub color_BeforeUpdate(Cancel As Integer)  
    If color = "YELLOW" Then 
        color = "RED"  
    End If  
End Sub

score 0 · Accepted Answer

您应该使用该AfterUpdate()事件。

另外，我建议您使用变量。这是一种避免混淆并保持代码清晰、可重用的方法。

strColor = Me!Color.Value

score 0 · Accepted Answer

您可以使用该LostFocus事件。

Private Sub color_LostFocus()
    If color = "RED" Then
        color = "YELLOW"
    End If
End Sub

2 回答 2