Вопрос : Достигните кодирвоания

Hi специалисты,
I am имея проблему с моим кодирвоанием.  attach будет формой адреса я работаю и имею проблему на ем.  автоматически принимаемое значение для состояния установлено к «m» будет почтовая отправка.  когда будет существующий адрес почтовая отправка и я впишу новый адрес, тогда существующий почтовая отправка будет изменение к ранее и новое одно, котор я как раз вписал будет выставкой как пересылающ, работы этой части отлично, однако, когда не будет существующий адреса почтовая отправка вместо там будет существующий другого адреса, когда я вписываю новый адрес, конечно новый адрес будет automic выставка как пересылающ но существующий другому адресу не изменил к ранее, я нужно сделать существующий другим адресом atuomic изменение для того чтобы показать ранее в состоянии.  может любое помочь?  под мое Кодий.  
thanks

Private Sub Form_AfterUpdate () не затемнить rs2 как критеря по Recordset
тусклая как rs
String
тусклые как type_M DAO.Recordset
тусклое как type_A Integer
тусклое как
HoldAddrType = Me.ADRSTATUS
HoldAddrCntField = rs
случая «m», «a " HoldAddrType
случая Me.ADDRCNT
Me.Requery
отборные установленные = Me.RecordsetClone
rs.MoveLast
rs.MoveFirst
Integer
делает до rs.EOF
если rs! ADRSTATUS = HoldAddrType и rs! ADDRCNT <> HoldAddrCntField Then
                rs.Rs Edit
! ADRSTATUS = rs
«p "! ADRUPDT = теперь () rs
! ADRUSR = Environ («потребитель») rs
. Критеря по If
rs.MoveNext
Loop
конца Update
= «выбирает * от qryAddrP где ADRRIN = «» & Me.ADRRIN & «» «rs
установленные =
CurrentDb.OpenRecordset (Criteria, dbOpenDynaset, dbSeeChanges) если не rs.EOF Then
rs.MoveLast
rs.MoveFirst
не сделать до rs rs.RecordCount < 4
. Rs Edit
. Rs If
конца Delete
rs.MoveNext
Loop
class= " lineNumbers " >

1 >
End Select
 Me.Requery
class= " ясное " >
 

class= " lastRow 

>Attachments " имени " class= 
class= " значение " 

>