VBA访问从级联列表框传递和编辑记录并重新查询列表框

Question

我有一个特别难处理的问题。 我正在制作访问表格。这种形式包含大量的级联数据连接。 它用作数据库的过滤、选择、审查和编辑界面。

下面我已经包含了设计的基本描述； -ComboBox1 从参考表中填充其数据，并级联更新到 ComboBox2。 -ComboBox2 基于对 ComboBox1 的选择进行填充，然后将信息级联到 ListBox1，ListBox1 运行查询以生成记录列表。 - 在 Listbox1 中选择一条记录会将列表的各种隐藏列填充到匹配的文本和组合框字段中以进行显示/编辑。它还通过单击级联填充 Listbox2，使用查询从不同的表中提取与 ListBox1 中选定记录相关的记录。 - 我有许多按钮来处理添加、删除和编辑 ListBox1 从中查询其信息的表的记录。 到目前为止一切正常（部分感谢回答我其他问题的人的帮助） 我现在卡住的地方是尝试创建类似的按钮，这些按钮与 ListBox2 绘制其记录的表提供相同的功能（添加/编辑/删除） 我已经成功添加了添加按钮，但是卡在了编辑功能上。

我有一个按钮，我正在尝试为其构建“OnClick”事件。它需要从列表框中提取选定的记录，并将它打开的表单设置为该特定记录。 我知道我可以使用 listbox.selected.value 从列表框中提取选定的值，但这如何转化为 DoCmd.OpenForm 语法？

Answer 1

您要调整的 DoCmd.OpenForm 参数是可选的 WhereCondition 和 DataMode。 WhereCondition 接受不带 where 字样的 SQL Where 子句。此限制在表单打开之前应用于表单的行源。 DataMode 可以覆盖表单保存的 AllowEdits 和 DataEntry 设置。听起来您想在这种情况下使用 acFormEdit。

Private Sub CommandFoo_OnClick()
Dim strWhere As String

'Do yourself a favor and build the WhereCondition in a string variable so that you can see what you've built. 
'Surround text values in double quotes. 
'Surround dates with # and specify in m/d/yyyy or yyyy-mm-dd
'Make sure you build in spaces in as necessary.
strWhere = "NumberField1=" & ListBox1.Columns(0) & " AND TextField2=" & Chr(34) & ListBox1.Columns(1) & Chr(34)
Debug.Print strWhere

DoCmd.OpenForm FormName:="YourFormName", WhereCondition:=strWhere, DataMode=acFormEdit
End Sub