Trying to search the 3 address line fields for a key word to populate the ShipToCode and the ShipVia field. Can I do this in one script or do I have to create a script for each search field? This is what I got so far.
rVal = 0 sAddress = "" sAddressa = "" sAddressb = "" searchString = "Terminal" rVal = oBusObj.GetValue("ShipToAddress1$", sAddress) rVal = oBusObj.GetValue("ShipToAddress2$", sAddressa) rVal = oBusObj.GetValue("ShipToAddress3$", sAddressb) If InStr(UCase(sAddress), UCase(searchString)) > 0 Or If InStr(UCase(sAddressa), UCase(searchString)) > 0 Or If InStr(UCase(sAddressb), UCase(searchString)) > 0 then rVal = oBusObj.SetValue(ShipToCode$, "GM") rVal = oBusObj.SetValue(ShipVia$, "SHIPHOLD") End If End If End If