With CodeContextObject
If .[Orig Location].TabStop = True Then
.[Orig Location].TabStop = False
.[Orig Stocktake].TabStop = True
DoCmd.GoToControl "Orig Stocktake"
End If
End With
Function LocationsOriginals_Change()
With CodeContextObject
If .[Orig Location].TabStop = True Then
.[Orig Location].TabStop = False
.[Orig Stocktake].TabStop = True
DoCmd.GoToControl "Orig Stocktake"
Exit Function
End If
If .[Orig Stocktake].TabStop = True Then
.[Orig Stocktake].TabStop = False
.[Orig Status].TabStop = True
DoCmd.GoToControl "Orig Status"
Exit Function
End If
If .[Orig Status].TabStop = True Then
.[Orig Status].TabStop = False
.[Orig Location].TabStop = True
DoCmd.GoToControl "Orig Location"
End If
End With
End Function
This is then called on a form Event as =LocationsOriginals_Change()