First off the user selects a product by using the yellow section. This generates the information for the drop down box to the right in the results section. The user selects a specific product and Dlookups generate the values in the text boxes.
On the form below, I have a list box (not currently pictured). The list box lists information that was generated from a query using the attributes section. The problem is the listbox often shows information from the query that does not match any results in the text boxes. I need to remove that result from the list.
Using this code below which I was given, it loops through each text box control and checks if the values in each text box match the result of the query. If not then to remove from the list box. However it does not seem to be working. Any suggestions on where this code is going wrong or suggestions on how to achieve the same objective.
Private Sub Command87_Click()
'Refine Search Results based on the control attributes
Dim iCtr As Long, valFound As Boolean, frmCtl As Control
Dim selStr As String
With Me.ResList
iCtr = .ListCount
While iCtr <> 0
For Each frmCtl In Me.Controls
If frmCtl.ControlType = acTextBox Then
If .Column(0, iCtr) = frmCtl.Value Then
valFound = True
Exit For
End If
End If
Next
If Not valFound Then selStr = selStr & .Column(0, iCtr) & ","
iCtr = iCtr - 1
Wend
End With
If Len(selStr) > 0 Then
selStr = Left(selStr, Len(selStr) - 1)
Me.ResList.RowSource = ("Test_Qry")
End If
End Sub
