访问 VBA 解码答案

【问题标题】：Access VBA decode访问 VBA 解码
【发布时间】：2015-07-14 10:20:39
【问题描述】：

我是 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

【问题讨论】：

欢迎来到 SO。请访问帮助中心，了解什么是好问题。就目前而言，这个问题是“这段代码做什么？”这不是一个好问题，因为它太宽泛了。
但是，如果您只是按照原样复制粘贴代码，则解码非常简单：它完全没有任何作用。
整个代码块是一个注释，它什么也不做，对你的程序逻辑没有影响。

标签： vba ms-access

【解决方案1】：

它被注释掉了，所以它什么也不做。即使没有，也不会因为错过了这一行：

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

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

到……

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

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

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

【讨论】：