Pergunta : Alcançar a codificação

Olá! peritos,
I am que tem um problema com minha codificação.  o anexo é o formulário do endereço que eu estou trabalhando e estou tendo o problema nele.  o valor de defeito para o status é ajustado a “M” que é o enviamento.  quando há um endereço existente do enviamento e eu incorporo um endereço novo, a seguir o enviamento existente será mudança a precedente e o novo que eu apenas incorporei será mostra como enviando, trabalhos desta parte muito bem, entretanto, quando não há nenhum endereço existente do enviamento preferivelmente lá está um endereço alterno existente, quando eu incorporo um endereço novo, naturalmente o endereço novo mostra automic como enviando mas o endereço alterno existente não mudou a precedente, mim precisa de fazer ao endereço alterno existente a mudança atuomic para mostrar precedente no status.  pode qualquer um ajudar?  abaixo está meu código.  o
do thanks

Private Form_AfterUpdate () escurece rs2 como critérios não ofuscantes de Recordset
como rs não ofuscantes do
de String
como o type_M não ofuscante de DAO.Recordset
como o type_A não ofuscante de Integer
como o
HoldAddrType = Me.ADRSTATUS
HoldAddrCntField = rs ajustados seletos do
do caso “M”, “A " de HoldAddrType
do caso de Me.ADDRCNT
Me.Requery
= Me.RecordsetClone
rs.MoveLast
rs.MoveFirst
de Integer
faz até rs.EOF
se rs! ADRSTATUS = HoldAddrType e rs! ADDRCNT <> HoldAddrCntField Then
                rs.Rs de Edit
! ADRSTATUS = rs do
de “P "! ADRUPDT = agora () rs do
! ADRUSR = cercam (“usuário”) rs do
. Os critérios de If
rs.MoveNext
Loop
do fim de Update
= “selecionam * do qryAddrP onde ADRRIN = “” & Me.ADRRIN & “” “rs ajustados do
=
se não rs.EOF Then
rs.MoveLast
rs.MoveFirst
de CurrentDb.OpenRecordset (Criteria, dbOpenDynaset, dbSeeChanges) fazem até rs de rs.RecordCount < de 4
. Rs de Edit
. Rs de If
do fim de Delete
rs.MoveNext
Loop
class= " lineNumbers " >

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

class= do " lastRow do 

>Attachments do " nome " do class= do 
class= " valor " do 

>