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 & "'")...