0

我有一张访问表格，需要每天由不同的人填写。

这是记录对网站的更改，我目前为各个部分设置了一个组合框，以说明它们是修改、恢复还是无更改。

我已经设置了条件格式，然后突出显示这些部分，但我也试图让它工作，这样如果用户选择“NO CHANGE”，那么该字段的数据会从以前的记录中复制过来。

我已经在组合框的 AfterUpdate 代码中进行了设置，但没有发生任何事情，甚至没有错误……有人可以帮忙吗？

Private Sub COMBOBOX1_AfterUpdate()
If Me.COMBOBOX1 = 3 Then
Me.[FIELD_TO_CHANGE] = DLookup("[FIELD_TO_CHANGE]", "tb_TABLE", "[ID]=Forms![form_FORM]![ID]-1")
End If
End Sub

（其中 3 是组合框中 NO CHANGE 的值，FIELD_TO_CHANGE、tb_TABLE 和 form_FORM 是各种元素的名称）

谢谢！

4

1 回答 1

0

首先你应该定义你的控件COMBOBOX1，进入属性窗口，定义

COMBOBOX1.AfterUpdate = "[Event Procedure]"

那么您的 Private Sub COMBOBOX1_AfterUpdate() 将被考虑在内。可能会发生错误并弹出给您。

然后像这样更改事件处理程序以启动：

Private Sub COMBOBOX1_AfterUpdate()
  If Me.COMBOBOX1 = 3 Then
    Me.[FIELD_TO_CHANGE] = DLookup("[FIELD_TO_CHANGE]", "tb_TABLE", "[ID]=" & (Me.[ID] - 1))
  End If
End Sub

在您的表单工作之前，会有很多错误需要纠正......

于 2013-10-30T19:18:24.027 回答