varX = [Forms]![Homepage]![Count] varY = DLookup("[Project_Number]", "Homepage", "Count = [Forms]![Homepage]![Count]") With rstHomepage .AddNew !Date = Me!Date !Project_Number = Me!Project_Number !Project_Name = Me!Project_Name !Project_Type = Me!Project_Type !Project_Location = Me!Project_Location !Square_Footage = Me!Square_Footage !Inflation_Rate_Adj = Me!Inflation_Rate_Adj !Location_Rate_Adj = Me!Location_Rate_Adj !Revision = True .Update End With varZ = DLookup("[Project_Number]", "Homepage", "[Project_Number]= [Forms]![Homepage]![Project_Number]") DoCmd.Close acForm, "Homepage" DoCmd.OpenForm "Homepage" With rstHomepage .FindFirst "Count = " & varX .Edit !Project_Number = varY .Update .Bookmark = .LastModified End With DoCmd.Close acForm, "Homepage" DoCmd.OpenForm "Homepage", , , "Project_Number= '" & varZ & "'" DoCmd.Minimize