Replacing value

  • Thread starter EMILYTAN via AccessMonster.com
  • Start date
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?
 
Top