Private Sub cmdMakeForm1_Click()
On Error GoTo cmdMakeForm1_Click_Err
Dim db As Database
Dim rst As Recordset
Set db = CurrentDb
Set rst = db.OpenRecordset("SELECT * FROM tblContract_Records WHERE Project_ID = " & Project_number & ";", dbOpenDynaset, dbSeeChanges)
If Nz(rst.RecordCount, 0) > 0 Then
    'there is a record with the same projectId, so open the form to that project.
    DoCmd.OpenForm "frm_ContractRec_Details"
    Forms!frm_ContractRec_Details!Form.RecordSource = "SELECT * FROM tblContract_Records WHERE Project_ID = " & Project_number & ";"
Else
    'there are no matching projectids, so open the form to a new project.
    DoCmd.OpenForm "frm_ContractRec_Details", , , , acFormAdd
    
    Forms!frm_ContractRec_Details.Form.RecordSource = "SELECT * FROM tblContract_Records;"
    
End If

Set db = Nothing
Set rst = Nothing

cmdMakeForm1_Click_Exit:
    Exit Sub

cmdMakeForm1_Click_Err:
    MsgBox Error$
    Resume cmdMakeForm1_Click_Exit

End Sub

Private Sub cmdMakeForm1_Click()
On Error GoTo cmdMakeForm1_Click_Err

If DCount("*","tblContract_Records","Project_ID = " & Me.Project_number)  > 0 Then
    'there is a record with the same projectId, so open the form to that project.
    DoCmd.OpenForm "frm_ContractRec_Details", , , "Project_ID = " & Me.Project_number
Else
    'there are no matching projectids, so open the form to a new project.
    DoCmd.OpenForm "frm_ContractRec_Details", , , , acFormAdd    
End If

cmdMakeForm1_Click_Exit:
    Exit Sub

cmdMakeForm1_Click_Err:
    MsgBox "Error Number: " & Err.Number & "  Description: " & Err.Description
    Resume cmdMakeForm1_Click_Exit

End Sub