Vraag : De Codage van de toegang

Hallo Deskundigen,
I am een probleem met mijn codage hebben. maak is de vorm vast van het Adres dat ik werk en probleem aangaande het heb. de standaardwaarde voor de Status wordt geplaatst aan „M“ dat de post is. wanneer er een bestaand postadres is en ik een nieuw adres inga, dan zal de bestaande post verandering in vorig en nieuwe zijn ik enkel zal zijn toon zoals Postend, deze boete van de deelwerken, echter inging, wanneer er geen bestaand postadres in plaats daarvan daar is een bestaand Afwisselend adres, wanneer ik een nieuw adres inga, natuurlijk het nieuwe adres automic zal tonen zoals Postend is maar het bestaande Afwisselende adres veranderde niet in vorig, moet ik tot het bestaande Afwisselende adres atuomic verandering maken om vorig in de status te tonen. kan iedereen helpen? hieronder is mijn code. thanks

Private SubForm_AfterUpdate ()
Schemerige rs2 als/> Schemerige Criteria Recordset

als/> Schemerige type_M DAO.Recordset
Schemerige type_A Integer

HoldAddrType = Me.ADRSTATUS
HoldAddrCntField = Geval „M“ van HoldAddrType
Me.Requery
het Uitgezochte/>, „Geplaatste A "
rs = Me.RecordsetClone
rs.MoveLast
rs.MoveFirst
tot rs.EOF
als rs! ADRSTATUS = HoldAddrType en rs! ADDRCNT <> HoldAddrCntField Then
rs.Edit
rs! ADRSTATUS = „P "
rs! ADRUPDT = nu ()
rs! ADRUSR = omgeef („Gebruiker“)
rs. De Criteria van If
rs.MoveNext
Loop
/> = „selecteren * uit qryAddrP waar ADRRIN = „“ & Me.ADRRIN & „“ „
rs = CurrentDb.OpenRecordset (Criteria, dbOpenDynaset, dbSeeChanges)
plaatsen als niet rs.EOF Then
rs.MoveLast
rs.MoveFirst
tot rs.RecordCount < 4
rs doen. Edit
rs. Het Eind van Delete
rs.MoveNext
Loop
If
plaatste rs = Nothing
End Select
Me.Requery