Cuestión : Tener acceso a la codificación

Hola expertos,
I que tiene un problema conmigo codificación.  la fijación es la forma de la dirección que estoy trabajando y estoy teniendo problema en ella.  el valor prefijado para el estado se fija a “M” que sea el correo.  cuando hay una dirección existente del correo e incorporo una nueva dirección, después el correo existente será cambio a anterior y el nuevo que acabo de incorporar será demostración como enviando, los trabajos de esta parte muy bien, sin embargo, cuando no hay dirección existente del correo en lugar de otro allí es una dirección alterna existente, cuando incorporo una nueva dirección, por supuesto la nueva dirección demostración automic como enviando pero la dirección alterna existente no cambió a anterior, yo necesita realizar la dirección alterna existente el cambio atuomic para demostrar anterior en el estado.  ¿puede cualquier persona ayudar?  debajo está mi código.  ¡el
del thanks

Private Form_AfterUpdate () amortigua rs2 como criterios déviles de Recordset
como rs déviles del
de String
como type_M dévil de DAO.Recordset
como type_A dévil de Integer
como
HoldAddrType = Me.ADRSTATUS
HoldAddrCntField = rs determinados selectos del
del caso “M”, “A " de HoldAddrType
del caso de Me.ADDRCNT
Me.Requery
= Me.RecordsetClone
rs.MoveLast
rs.MoveFirst
de Integer
hace hasta rs.EOF
si los rs! ¡ADRSTATUS = HoldAddrType y rs! ADDRCNT <> HoldAddrCntField Then
                rs.¡Rs de Edit
! ¡ADRSTATUS = rs del
de “P "! ¡ADRUPDT = ahora () rs del
! ADRUSR = rodean (“usuario”) rs del
. Los criterios de If
rs.MoveNext
Loop
del final de Update
= “seleccionan * del qryAddrP hasta donde ADRRIN = “” y Me.ADRRIN y “” “los rs determinados del
= el
si no rs.EOF Then
rs.MoveLast
rs.MoveFirst
de CurrentDb.OpenRecordset (Criteria, dbOpenDynaset, dbSeeChanges) lo hacen los rs de rs.RecordCount < de 4
. Rs de Edit
. Rs de If
del final de Delete
rs.MoveNext
Loop
class= " lineNumbers " >

1 del >
End Select
 Me.Requery
class= >
 de 

  
  class= " lastRow del 

    >Attachments del " nombre " del class= del 
    class= " valor " del 

del >