Here's the code for the button:
Private Sub SubmitRatingBtn_Click()
DoCmd.OpenForm "CompanyListF", , , "CompanyID = " & Me!CompanyID, acFormAdd
End Sub
There may not be a record for the company in the rating table if it hasn't been rated yet.
Calculations would be made with a query and...