Code Associated With Event

Private Sub BillTo_AfterUpdate()

' Enable customer controls and ' update ShipTo controls

' with new customer information.

CustomerID.Enabled = True

CustomerID.Locked = True

CompanyName.Enabled = True

Address.Enabled = True

City.Enabled = True

Region.Enabled = True

PostalCode.Enabled = True

Country.Enabled = True

ContactName.Enabled = True

ContactTitle.Enabled = True

Phone.Enabled = True

Fax.Enabled = True

ShipName = CompanyName

ShipAddress = Address

ShipCity = City

ShipRegion = Region

ShipPostalCode = PostalCode

ShipCountry = Country

' Enable the subform for data input.

Me!OrdersSubform.Enabled = True

Me!OrdersSubform.Locked = False

End Sub