ListBox Auswahldaten nach Requery beibehalten

Question

Ich arbeite gerade mit einem Listenfeld, das Werte löscht, die den ausgewählten Text aus einer Tabelle enthalten. Ich habe den folgenden Code:

Private Sub DeleteEntry_Click() 

Dim DeleteTbl As String 
Dim Msg As String 



If IsNull(Me.lstSolution) = True Then 
    MsgBox "Please Select a Entry", vbOKOnly, "No Entry Selected" 
Else 
    DeleteTbl = MsgBox(Msg, vbYesNo, "Delete Entries?") 
    Msg = "Are you sure you wish to delete all entrys containing: " 
    Msg = Msg & Me.lstSolution 
    DeleteTbl = MsgBox(Msg, vbYesNo, "Delete Entries?") 
End If 

If DeleteTbl = vbYes Then 
    DoCmd.SetWarnings False 
    DoCmd.RunSQL "Delete * FROM [Solutions] WHERE [Solutions].SolutionText = '" & Me.lstSolution & "'" 
    DoCmd.SetWarnings True 
Else 
    'Do Nothing 
End If 

    Me.lstSolution.Requery 

End Sub 

Das Problem, das ich habe, ist, dass nach dem Eintrag aus der Tabelle gelöscht, und ich auf den Button klicken Sie erneut auf (ohne eine Auswahl) der zuvor ausgewählte Wert in der MsgBox erscheint nach wie vor. Ich brauche diesen Wert zu löschen, so dass eine Fehlermeldung Feld angezeigt wird, zu sagen, dass kein Eintrag

Answer 1

ich es geschafft haben, ausgewählt wurde durch Zugabe in einer NotSelected Variable um das Problem zu lösen, wie folgt:

Private Sub DeleteEntry_Click() 

Dim DeleteTbl As String 
Dim Msg As String 
Dim NotSelected As String 

If IsNull(Me.lstSolution) = True Then 
    MsgBox "Please Select a Entry", vbOKOnly, "No Entry Selected" 
    NotSelected = True 
Else 
    Msg = "Are you sure you wish to delete all entrys containing: " 
    Msg = Msg & Me.lstSolution 
    DeleteTbl = MsgBox(Msg, vbYesNo, "Delete Entries?") 
    NotSelected = False 
End If 

If NotSelected = True Then 
    End 
ElseIf DeleteTbl = vbYes Then 
    DoCmd.SetWarnings False 
    DoCmd.RunSQL "Delete * FROM [Solutions] WHERE [Solutions].SolutionText = '" & Me.lstSolution & "'" 
    DoCmd.SetWarnings True 
End If 

    Me.lstSolution.Requery 


End Sub