Com a ajuda do mestr JPaulo encontrei uma solução no tópico https://www.maximoaccess.com/t25616-resolvidode-para-em-tabela-por-vba, e resolvi um problema que tratava uma excessão por VBA.
Ou seja, em um form continuo eu seleciono alguns itens em uma caixa de seleção para realizar um De Para com o código abaixo:
Dim rs As Recordset
If Not IsNull("Me.cboGuia") Then
Set rs = CurrentDb.OpenRecordset("SELECT * FROM Comparativo where CódGuia = '" & Forms![Form_Enviado - Recebido]!cboGuia & "'") ' Like Me.txtAtivado = True '")
While (Not rs.EOF)
' On Error Resume Next
rs.Edit
rs("CódServiço") = Replace(rs("CódServiço"), Me.txtCodigoOperadora.Value, Me.txtCodigoHosp.Value)
rs.Update
rs.MoveNext
Wend
rs.Close
CurrentDb.Execute "DELETE * FROM ComparativoDetalhe WHERE CódGuia = '" & Forms![Form_Enviado - Recebido]!cboGuia & "'"
DoCmd.OpenQuery "QueryComparativoDetalheInsertGuia"
Forms![Form_Enviado - Recebido].Requery
DoCmd.Close
End If
End If
Mas só consigo alterar um registro de cada vez, e se eu selecionar mais de um na caixa de seleção txtAtiva não funfa.
Alguém tem uma dica, por exemplo, se eu selecionar três registros alterar os três?