向表单添加新记录时清除列表框

Question

我正在使用 Access 2007。我有一个表单（孩子的详细信息），其中包含一个列出孩子特殊需求的列表框。列表框与儿童表和具有受控特殊需求列表的表处于多对多关系。列表框的 RowSource 是

SELECT Child.ID, Need.Category 
FROM Need INNER JOIN 
    (Child INNER JOIN [Child-Need] ON Child.ID = [Child-Need].[Child FK]) 
    ON Need.ID = [Child-Need].[Need FK] 
ORDER BY [Category];

当我尝试添加新记录时，列表框内容不清除，继续锁定与现有记录相关的值。

如何清除列表框的内容，以便用户添加与新孩子相关的需求？

随后，我发现当在表单上从一个记录移动到另一个记录时，列表框的内容仍然是出现的第一条记录的内容。看起来好像我有一个严重的错误，大概在我的 SQL 中！

Answer 1

行源没有对表单中显示的当前子项的引用。

我认为你需要类似的东西

SELECT Child.ID, Need.Category 
FROM Need INNER JOIN 
    (Child INNER JOIN [Child-Need] ON Child.ID=[Child-Need].[Need FK]) 
    ON Need.ID=[Child-Need].[Need ID] 
WHERE Child.ID = Forms!frmChild!ID
ORDER BY [Category];

（将frmChild 替换为您的表单名称）。

然后您需要在表单的OnCurrent 事件中添加myListbox.Requery，以便在移动到不同记录时显示当前数据。

编辑：如果它是子表单，则类似于

WHERE Child.ID = Forms!frmFamily!frmChild.Form!ID

见Refer to Form and Subform properties and controls

Answer 2

尝试在表单加载中使用以下代码：

 Dim intItemsInList As Integer
 Dim intCounter As Integer

 intItemsInList = Me![lstTest].ListCount

 For intCounter = 0 To intItemsInList - 1
   Me![lstTest].RemoveItem 0
 Next