Errrmmmm... I know this is quite messy but it works fine when I only have one copy of Access running:
Private Sub Log_Transfer_Details_Click()
On Error GoTo Err_Log_Transfer_Details_Click
Dim Next_Location As String
DoCmd.OpenForm "Personnel", , , "[Extensions]![Personnel] = [Forms]![Transfer NCR]![Personnel]"
Next_Location = [Forms]![Personnel]![Location]
DoCmd.Close acForm, "Personnel", acSaveNo
DoCmd.GoToRecord , , acLast
' The following loops through existing records to find one with user-entered NCR number
' Once found, change the location field and update the time out from old location and
' the total time spent in that location.
Do Until [Forms]![Transfer NCR]![NCR Number] = 0
If [Forms]![Transfer NCR]![NCR Number] = [Forms]![Transfer NCR]![NCR] Then
' Find the current location for timestamping the time OUT field and calculating total time in location
Select Case [Forms]![Transfer NCR]![Location]
Case "Cause/Corrective"
[Forms]![Transfer NCR]![Cause/Corrective Time Out] = Now()
[Forms]![Transfer NCR]![Cause/Corrective Total Time] = [Forms]![Transfer NCR]![Cause/Corrective Time Out] - [Forms]![Transfer NCR]![Cause/Corrective Time In] + [Forms]![Transfer NCR]![Cause/Corrective Total Time]
MsgBox ([Forms]![Transfer NCR]![Cause/Corrective Total Time])
Case "MRB Disposition"
[Forms]![Transfer NCR]![MRB Disposition Time Out] = Now()
[Forms]![Transfer NCR]![MRB Disposition Total Time] = [Forms]![Transfer NCR]![MRB Disposition Time Out] - [Forms]![Transfer NCR]![MRB Disposition Time In] + [Forms]![Transfer NCR]![MRB Disposition Total Time]
Case "MRB Office"
[Forms]![Transfer NCR]![MRB Office Time Out] = Now()
[Forms]![Transfer NCR]![MRB Office Total Time] = [Forms]![Transfer NCR]![MRB Office Time Out] - [Forms]![Transfer NCR]![MRB Office Time In] + [Forms]![Transfer NCR]![MRB Office Total Time]
Case "MRB Signatory"
[Forms]![Transfer NCR]![MRB Signatory Time Out] = Now()
[Forms]![Transfer NCR]![MRB Signatory Total Time] = [Forms]![Transfer NCR]![MRB Signatory Time Out] - [Forms]![Transfer NCR]![MRB Signatory Time In] + [Forms]![Transfer NCR]![MRB Signatory Total Time]
Case "Planning"
[Forms]![Transfer NCR]![Planning Time Out] = Now()
[Forms]![Transfer NCR]![Planning Total Time] = [Forms]![Transfer NCR]![Planning Time Out] - [Forms]![Transfer NCR]![Planning Time In] + [Forms]![Transfer NCR]![Planning Total Time]
Case "QA Signatory"
[Forms]![Transfer NCR]![QA Signatory Time Out] = Now()
[Forms]![Transfer NCR]![QA Signatory Total Time] = [Forms]![Transfer NCR]![QA Signatory Time Out] - [Forms]![Transfer NCR]![QA Signatory Time In] + [Forms]![Transfer NCR]![QA Signatory Total Time]
Case "Other"
[Forms]![Transfer NCR]![Other Time Out] = Now()
[Forms]![Transfer NCR]![Other Total Time] = [Forms]![Transfer NCR]![Other Time Out] - [Forms]![Transfer NCR]![Other Time In] + [Forms]![Transfer NCR]![Other Total Time]
Case Else ' This should never occur since location is a drop down menu...
MsgBox ("INTERNAL ERROR - Log_Transfer_Details_Click(): Current Location doesn't exist"

End Select
' Log the next NCR destination as the current location
[Forms]![Transfer NCR]![Status] = "Active"
[Forms]![Transfer NCR]![Stored Personnel] = [Forms]![Transfer NCR]![Personnel]
' Find the next location for timestamping the time IN field
Select Case Next_Location
Case "Cause/Corrective"
[Forms]![Transfer NCR]![Cause/Corrective Time In] = Now()
Case "MRB Disposition"
[Forms]![Transfer NCR]![MRB Disposition Time In] = Now()
Case "MRB Office"
[Forms]![Transfer NCR]![MRB Office Time In] = Now()
Case "MRB Signatory"
[Forms]![Transfer NCR]![MRB Signatory Time In] = Now()
Case "Planning"
[Forms]![Transfer NCR]![Planning Time In] = Now()
Case "QA Signatory"
[Forms]![Transfer NCR]![QA Signatory Time In] = Now()
Case "Other"
[Forms]![Transfer NCR]![Other Time In] = Now()
Case Else ' This should never occur since location is a drop down menu...
MsgBox ("INTERNAL ERROR - Log_Transfer_Details_Click(): Next Location doesn't exist"

End Select
DoCmd.Save acForm, "Transfer NCR"
MsgBox ("NCR transferred to " & [Forms]![Transfer NCR]![Stored Personnel] & " in " & Next_Location & " successfully"

DoCmd.Close
Exit Sub
Else
DoCmd.GoToRecord , , acPrevious
End If
Loop
MsgBox ("NCR not found"
Exit_Log_Transfer_Details_Click:
Exit Sub
Err_Log_Transfer_Details_Click:
MsgBox Err.Description
Resume Exit_Log_Transfer_Details_Click
End Sub