Question

我是VBA代码的新手，正在开发一个项目来修改一个内置的MS Access数据库，该数据库包含一些由另一个人构建的VBA代码。有人可以解释下面的代码会做什么吗？我的最终目标是创建一个数据输入表单，当用户输入下一个新记录时，该表单将保留某些字段的先前值。非常感谢。

'Private Sub DocumentTypeCombo1_AfterUpdate()
'Me.DocumentNameCombo1 = Null
'Me.DocumentNameCombo1.Requery
'Me.OrderBy = "Errors DESC"
'Me.DocumentNameCombo1 = Me.DocumentNameCombo1.ItemData(0)
'End Sub

'Private Sub DocumentNameCombo1_AfterUpdate()
'Me.SubcategoryCombo1 = Null
'Me.SubcategoryCombo1.Requery
'Me.OrderBy = "SubCategory DESC"
'Me.SubcategoryCombo1 = Me.SubcategoryCombo1.ItemData(0)
'Me.DocumentNameCombo1.Tag = Me.DocumentNameCombo1
'End Sub

Answer 1

它被注释掉了，所以它什么也没做。即使不是，也不会错过这条线：

Me.OrderBy = "Errors DESC"
Me.OrderByOn = True

如果包含该行，它将重新排列Me的分类。

要......

当用户输入下一个新记录
时，
保留某些字段的先前值

您可以在AfterUpdate事件中设置DefaultValue（始终为字符串值）：

Me!SomeControl.DefaultValue = Chr(34) & Me!SomeControl.Value & Chr(34)

访问VBA解码

1 个答案: