Formulário continuo com campos desacoplados

Boa noite mestres.
Tenho um formulário continuo que lista alguns registros após a aplicação de um filtro, até ai tudo bem, o problema é que estou tentando fazer com que um formulário continuo funcione com campos acoplados e campos desacoplados ao mesmo tempo, nos campos desacoplados (que é do tipo quadro de opções), eu teria uma determinada opção para escolher para cada registro, só que quando eu começo a realizar as alterações no primeiro registro no campo desacoplado (quadro de opções) esse valor é replicado para os demais registros e, se eu alterar o segundo os demais alteram para a opção que selecionei no segundo registro. Estou alimentando uma tabela com as informações do quadro de opções utilizando o código abaixo:

Código:


Public Function RegistrarParecer()
On Error GoTo TratarErro

   Dim db As DAO.Database
   Dim Rs As DAO.Recordset
     
       Set db = CurrentDb()
       Set Rs = db.OpenRecordset("SELECT * FROM tbAcompCoges", dbOpenDynaset)
     
       Rs.AddNew
         
           Rs("CodCoges") = Me.txtNumCoges
           Rs("CodEvento") = Me.txtCodEvento
           Rs("CodStatusCoges") = Me.txtParecer
           Rs("DataAcompCoges") = Date
         
       Rs.Update
       Rs.MoveLast
     
       Rs.Close
       Set Rs = Nothing
       db.Close
       Set db = Nothing
     
SairFunction:
Exit Function

TratarErro:
MsgBox Err.Description, vbCritical, "Erro " & Err.Number
Resume SairFunction
End Function


Teria alguma solução para esse problema?
Desde já agradeço a atenção prestada.

Messias


Veja se a ideia desse exemplo te ajuda.


[ ]'s