Prevent adding duplicate values from text box to listbox

Question

Hello,

Would you please support me to find vba code to prevent adding duplicate values from textbox to listbox so after print enter if this value in the listbox to give me massage and stop the funcation and if not to add it in the listbox .

thx,

Sherif

Answer 1

I created a generic function ListboxHasValue that you can add to your toolbox. Needs more testing, but this is the basics.

Private Sub TXTWO_AfterUpdate()

    If ListboxHasValue(Me.LstWOs, Me.TXTWO) Then

        MsgBox "You Can't Add Same WO Twice", vbCritical, "Duplicate Records"

    Else

        Me.LstWOs.AddItem Me.TXTWO

        Me.TXTWO = Null

    End If

End Sub

Public Function ListboxHasValue(ByRef lst As ListBox, ByVal varValue As Variant) As Boolean

    Dim i               As Integer

    Dim blnReturn       As Boolean

    For i = 0 To lst.ListCount - 1

        If lst.ItemData(i) = varValue Then

            blnReturn = True

            Exit For

        End If

    Next i

    ListboxHasValue = blnReturn

End Function

Answer 2

as you see in this picture for the form I'm working on , I want to prevent adding duplicate values,  I add this value through entry in above text box .

thanks for your valued time

Answer 3

Sorry, but I'm not following what you need. Could you explain in more detail.

A listbox is generally based on a table. So if you don't want to add a value entered into a textbox into the listbox, then set the field to No duplicates.

Answer 4

Unfortunately, Nothing

Answer 5

What do you have so far?