Frage : Auf Kodierung zurückgreifen

Hallo Experten,
I morgens ein Problem mit meiner Kodierung habend. Befestigung ist die Adressenform, der ich Problem auf ihr bearbeite und habe. der Default-Wert für den Status eingestellt auf „M“, das die Postsendung ist. wenn es eine vorhandene Postsendungadresse gibt und ich eine neue Adresse eintrage, dann ist die vorhandene Postsendung Änderung an vorhergehendem und das Neue, das ich gerade eintrug, ist Erscheinen als Postsendung, Arbeiten dieses Teils fein, jedoch wenn ist es keine vorhandene Postsendungadresse anstatt gibt, dort eine vorhandene wechselnde Adresse, wenn ich eine neue Adresse eintrage, selbstverständlich wird die neue Adresse automic Erscheinen als Postsendung, aber die vorhandene wechselnde Adresse änderte nicht zu vorhergehendem, ich muss die vorhandene wechselnde Adresse atuomic Änderung vornehmen, um vorhergehendes im Status zu zeigen. kann jemand helfen? unter ist mein Code. thanks

Private VorForm_AfterUpdate ()
verdunkeln rs2 als Recordset
schwache Kriterien als String

schwache rs als DAO.Recordset
schwaches type_M als Integer
schwaches type_A als Integer

HoldAddrType = Me.ADRSTATUS
HoldAddrCntField = Me.ADDRCNT
Me.Requery
auserwählte Fall HoldAddrType
Fall „M“, „A "
gesetzte rs = Me.RecordsetClone
rs.MoveLast
rs.MoveFirst
tun bis rs.EOF
wenn rs! ADRSTATUS = HoldAddrType und rs! ADDRCNT <> HoldAddrCntField Then
rs.Edit
rs! ADRSTATUS = „P "
rs! ADRUPDT = jetzt ()
rs! ADRUSR = umgeben („Benutzer“)
rs. Update
Ende If
rs.MoveNext
Loop
Kriterien = „* vom qryAddrP in dem ADRRIN = „“ u. Me.ADRRIN u. „“ „
gesetzte rs = CurrentDb.OpenRecordset (Criteria, dbOpenDynaset, dbSeeChanges)
vorwählen, wenn nicht rs.EOF Then
rs.MoveLast
rs.MoveFirst
bis rs.RecordCount < 4
rs tun. Edit
rs. Delete
rs.MoveNext
Loop
Ende If
gesetzte rs = Nothing
End Select
Me.Requery