A family of Microsoft relational database management systems designed for ease of use.
Hi,
I try to type a macro here which is more difficult than inserting or writing some VBA example code. ;-)
Your description wasn't very clear about table and field names which of course you have to change to your real names in my example.
Open the Opportunities table in design view and create an OnInsert macro like this:
Look Up A Record In Companies
Where Condition = Companies.Company=Opportunities .Company
SetLocalVar
Name varRating
Expression = Companies.Rating
If varRating>"" Then
EditRecord
SetField
Name Opportunities.Type
Value = varRating
End EditRecord
End If
I tried to keep it simple here. You could and should do more If-checks about fields not being Null etc.