访问VBA代码替换数据

Question

我正在使用带有组合框（cboPractices）的弹出窗体，当在组合框中选择练习并双击时，组合框的值将添加到另一个打开的窗体（f_Requests）并创建txtPractices字段中以逗号分隔的列表。这就是我需要它做的事情，但我发现的问题是，有时当双击一个值时，该值将替换主表中的先前值...创建重复值。我只希望选中的值在txtPractices字段中创建逗号分隔列表，而不是替换主表中的值。这可以解决吗？

我使用的代码是......

Private Sub cboPractices_DblClick(Cancel As Integer)

Dim txtP As String
txtP = Nz(Forms!f_Requests.txtPractices, "")

If Len(txtP) > 0 Then
    Forms!f_Requests.txtPractices = txtP & ", " & cboPractices
Else
    Forms!f_Requests.txtPractices = cboPractices
End If

End Sub