Genius as always, June7!
After opening the form, I did have to insert the DLookup commands again to fill in the rest.
Report:
Code:
Private Sub ProjectName_Click()
DoCmd.OpenForm "fUpdateProjectStatus", , , , , , Me.CustomerID
End Sub
Form:
Code:
Private Sub Form_Load()
Me.cmCustomer = Me.OpenArgs
Me.cmProjectName = DLookup("ProjectName", "tProject", "CustomerID= " & "cmCustomer")
Me.cmProjectPhase = DLookup("ProjectPhase", "tProject", "ProjectName= " & "cmProjectName")
Me.cmProjectCompletionRisk = DLookup("ProjectCompletionRisk", "tProject", "ProjectName= " & "cmProjectName")
Me.txProjectNotes = DLookup("ProjectNotes", "tProject", "ProjectName= " & "cmProjectName")
End Sub
Completed form: