I did manage to get the code to work after switching the last line around. But it still isn't populating the data needed. It only returns one item. Some of our products have 2 or 3 manufacturers. Would I need to run a loop statement in AfterUpdate() function?
jxaxmxixn, I need some help using your Function. It isn't returning all the values needed. I put the.. well heres the code..
Private Sub Product_AfterUpdate()
Dim AlookupRet As Variant
'Manufacturer = DLookup("[Manufacturer]", "[Raw Print]", "[ItemNumber] = " & "'" & Product & "'")...