Lösche Listenfeld beim Hinzufügen eines neuen Datensatzes

Question

Ich benutze Access 2007. Ich habe ein Formular (Details eines Kindes), das ein Listenfeld enthält, das die speziellen Bedürfnisse des Kindes auflistet. Die Listbox befindet sich in einer Viele-zu-Viele-Beziehung mit der Tabelle der Kinder und der Tabelle mit der kontrollierten Liste der speziellen Bedürfnisse. Die RowSource der listbox

ist

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]; 

Wenn ich versuche, einen neuen Datensatz hinzuzufügen, geht der listbox Inhalt nicht klar, weiterhin relevant für die bestehende Datensatz auf die Werte gesperrt werden.

Wie lösche ich den Inhalt der Listbox, damit der Benutzer die für das neue Kind relevanten Bedürfnisse hinzufügen kann?

Anschließend habe ich festgestellt, dass beim Verschieben von Datensatz zu Datensatz auf dem Formular der Inhalt der Listbox diejenigen des ersten Datensatzes bleibt, der angezeigt wird. Es sieht so aus, als hätte ich einen schwerwiegenden Fehler, vermutlich in meinem SQL!

Answer 1

Versuchen Sie sich mit dem folgenden Code in Form Last: haben

Dim intItemsInList As Integer 
Dim intCounter As Integer 

intItemsInList = Me![lstTest].ListCount 

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

Answer 2

Die rowsource keinen Hinweis auf das aktuelle Kind, das in der Form angezeigt wird.

denke ich, Sie so etwas wie

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]; 

(ersetzen frmChild durch Formularname) benötigen würde.

Und dann brauchen Sie eine myListbox.Requery in der OnCurrent Ereignis des Formulars, so dass es die aktuellen Daten beim Verschieben in einen anderen Datensatz zeigt.

Edit: wenn es eine Unterform, es ist so etwas wie

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

siehe Refer to Form and Subform properties and controls