访问VBA解码

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

---

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

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

如果你包括行，它将重新安排我的排序

到

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

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

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

---

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