当 Access 2013 中的文本框内容发生变化时，如何将组合框的选择更改为默认值 VBA

Question

我需要在文本框的内容发生变化时将两个组合框的 selection 更改为默认值。我有一个绑定到字段的审计跟踪，我需要用户 select 一个新的 'change reason' 和 'change initiator' （组合框 Qtr1Date1Changer 和 Qtr1Date1Initiator）当库存日期更改时（文本框 Qtr1Date1)。我有一个文本框的 AfterUpdate 事件来记录审核中的新日期 table；如果日期更改为默认值，我可以在这里添加一些内容来更改两个组合框的内容吗？

    Private Sub Qtr1Date1_AfterUpdate()
       Call LogChanges(StoreCode) 
    End Sub

Answer 1

我是这样解决的：

   Private Sub Qtr1Date1_AfterUpdate()
       Call LogChanges(StoreCode) 
       Qtr1Date1Changer = "<Select>"
       Qtr1Date1Reason = "<Select>"
   End Sub

当 Access 2013 中的文本框内容发生变化时，如何将组合框的选择更改为默认值 VBA

How do I change the selection of a combo box to a default value when text box content changes in Access 2013 VBA

ms-access

vba

combobox

mouseevent

ms-access-2013