Question

我有一个表单，它利用查询作为RecordSource来更新后端的表。查询和表格完全相同。现在，我在查询中隐藏了一些列，因此在更新记录时，它们不会显示在拆分表单视图中的数据表上。但是，由于这些字段是隐藏的，因此无法使用足够的信息更新新记录以获取表的值，因为未设置隐藏列的值。

有没有办法为隐藏列创建的每个新记录设置默认值？例如，假设我想要一个名为“Location”的列来为创建的未在表单上显示的任何新记录提取默认值。我创建了一个临时变量，它将成为该新记录的默认值。我尝试将表默认值设置为临时变量，但它不起作用。

Answer 1

您应该使用表单的BeforeUpdate_Event。这样，在您的新记录提交到表格并弹出错误消息之前，您可以为隐藏列分配值。

dim mTempVariable as String
'* Set the value for your temporary variable. 
'* Make sure it is always set. The Form_Load Event could be a good place.

Private Sub Form_BeforeUpdate(Cancel As Integer)

  Me.txtLocation = mTempVariable

End Sub

设置新RecordSource的默认值

1 个答案: