E
EMILYTAN via AccessMonster.com
I have a database which will lookup value from excel...
Below is my code:-
For i = LBound(varArr1, 1) To UBound(varArr1, 1)
.Filter = "PartNumber = '" & varArr1(i, 1) & "'"
If Not .EOF Then
.Fields(11).Value = varArr1(i, 16)
End If
Next
.Close: Set rs = Nothing
This code works well for if a condition is met...which mean only 1 PartNumber
exists and won't work for the second same part number exists...
How am I suppose to replace the value for those part numbers are same?
Below is my code:-
For i = LBound(varArr1, 1) To UBound(varArr1, 1)
.Filter = "PartNumber = '" & varArr1(i, 1) & "'"
If Not .EOF Then
.Fields(11).Value = varArr1(i, 16)
End If
Next
.Close: Set rs = Nothing
This code works well for if a condition is met...which mean only 1 PartNumber
exists and won't work for the second same part number exists...
How am I suppose to replace the value for those part numbers are same?