Question : Accéder au codage

Salut experts,
I AM ayant un problème avec mon codage.  l'attache est la forme d'adresse que je travaille et ai le problème là-dessus.  la valeur par défaut pour le statut est placée à « M » qui est l'envoi.  quand il y a une adresse existante d'envoi et j'introduis une nouvelle adresse, alors l'envoi existant sera changement à précédent et le neuf que j'ai juste écrit sera exposition comme expédiant, des travaux de la présente partie très bien, cependant, quand il n'y a aucune adresse existante d'envoi à la place il y a une adresse alternative existante, quand j'introduis une nouvelle adresse, naturellement la nouvelle adresse exposition automic comme expédiant mais l'adresse alternative existante n'a pas changé en précédent, je doit apporter à l'adresse alternative existante la modification atuomic pour montrer précédent dans le statut.  est-ce que n'importe qui peut aider ?  au-dessous de est mon code.  le
du thanks

Private Form_AfterUpdate () obscurcissent rs2 comme faibles critères de Recordset
en tant que rs du
de String
faibles comme faible type_M de DAO.Recordset
comme faible type_A d'Integer
comme
HoldAddrType = Me.ADRSTATUS
HoldAddrCntField = rs réglés choisis du
du cas de HoldAddrType
de cas de Me.ADDRCNT
Me.Requery
« M », « A " = Me.RecordsetClone
rs.MoveLast
rs.MoveFirst
d'Integer
font jusqu'à rs.EOF
si des rs ! ADRSTATUS = HoldAddrType et rs ! ADDRCNT <> HoldAddrCntField Then
                rs.Rs d'Edit
! ADRSTATUS = rs du
de « P " ! ADRUPDT = maintenant () rs du
! ADRUSR = entourent (« utilisateur ») des rs du
. Les critères d'If
rs.MoveNext
Loop
de fin d'Update
= « choisissent * à partir du qryAddrP jusqu'à où ADRRIN = «  » et Me.ADRRIN et «  » « les rs réglés du
= le
sinon rs.EOF Then
rs.MoveLast
rs.MoveFirst
de CurrentDb.OpenRecordset (Criteria, dbOpenDynaset, dbSeeChanges) font des rs de rs.RecordCount < de 4
. Rs d'Edit
. Rs d'If
de fin de Delete
rs.MoveNext
Loop
class= " lineNumbers " >

1 de >
End Select
 Me.Requery
class= >

 de 

class= " lastRow de 

>Attachments de " nom " de class= de 

class= " valeur " de 

>