Code:
Private Sub CustomerName_AfterUpdate()
Me![ProductID] = DLookup("ProductID", "Table1", "CustomerName = '" & Me!CustomerName & "'")
Me![CustomerAddr] = DLookup("CustomerAddr", "Table1", "CustomerName = '" & Me!CustomerName & "'")
Me![ComplaintLevel] = DLookup("ComplaintLevel", "Table1",
Leave a comment: