Thank you GPGeorge for your suggestion which we entered as below, but we received an error when using your code.
Dim strSQL As String
strSQL =
"update Investments01_tbl" & _
"set investigate = 'No' " & _
"where Investmentl_ID in (SELECT Investmentl_ID from (" & Replace$(Me.RecordSource, ";"...