Question

I’ve been working on this for 2 days. Basically I have 2 ListBoxes and I want a command button to compare the values and show the non-matching values (those that appear in the first listbox but not in the 2nd) and list them in the 3rd listbox. I’m not sure if this is the best way to go about it but here’s my code. It errors on the line with the message:

Wrong number of arguments or invalid property assignment

My listboxes are named CompList1, CompList2 and CompList3.

Dim BoolAdd As Boolean, I As Long, j As Long
'Set initial Flag
BoolAdd = True
'If CompList2 is empty then abort operation
If CompList2.ListCount = 0 Then
MsgBox "Nothing to compare"
Exit Sub
'If CompList1 is empty then copy entire CompList2 to CompList3
ElseIf CompList1.ListCount = 0 Then
For I = 0 To CompList2.ListCount
CompList3.AddItem CompList2.Value
Next I
Else
For I = CompList2.ListCount - 1 To 0 Step -1
For j = 0 To CompList1.ListCount
If CompList2.ListCount(I) = CompList1.ListCount(j) Then
'If match found then abort
BoolAdd = False
Exit For
End If
DoEvents
Next j
'If not found then add to CompList3
If BoolAdd = True Then CompList3.AddItem CompList2.Value
DoEvents
Next I
End If

Answer 1

Some notes:

Dim tdf1 As TableDef
Dim tdf2 As TableDef
Dim db As Database

Set db = CurrentDb

Set tdf1 = db.TableDefs(Me.CompList1.RowSource)
For Each fld In tdf1.Fields
    sFields = sFields & ";" & fld.Name
Next

sFields = sFields & ";"

Set tdf2 = db.TableDefs(Me.CompList2.RowSource)
For Each fld In tdf2.Fields
    sf = ";" & fld.Name & ";"
    sFields = Replace(sFields, sf, ";")
Next

Me.CompList3.RowSource = Mid(sFields,2)

Edit: