Fråga : Ta fram att kodifiera

Hi experter, förmiddag för
I har ett problem med mitt kodifiera.  bilagan är tilltala bildar att I-förmiddagarbetet och haproblemet på den.  standarden värderar för statusen är fastställd till ”M” som är brevskickandet.  emellertid när det inte finns någon existerande brevskickande, när det finns en existerande brevskickande tilltalar och, jag skriver in ett nytt tilltalar, då den ska existerande brevskickandet är ändring till föregående, och det ska nya ett Iet som precis skrivs in, är showen som brevskickandet, arbeten för denna del fint, tilltala i stället där är en existerande suppleant tilltalar, när jag skriver in ett nytt tilltalar, naturligtvis de nya tilltalar ska automic show som brevskickande, men den existerande suppleanten tilltalar inte ändrade till föregående, mig behöver att göra den existerande suppleanten att tilltala atuomic ändring för att visa föregående i statusen.  kan någon hjälpa?  nedanfört är mitt kodifierar.  underForm_AfterUpdate ()
dunkel rs2 för thanks

Private som Recordset
dunkla kriterier som dunkla rs för String

som dunkel type_M för DAO.Recordset
som Integer
dunkel type_A som Integer

HoldAddrType = Me.ADRSTATUS
HoldAddrCntField = Me.ADDRCNT
Me.Requery
väljer rs = Me.RecordsetClone
rs.MoveLast
rs.MoveFirst
för
för fallHoldAddrType
fall ”M”, ”A " fastställda gör till rs.EOF
om rs! ADRSTATUS = HoldAddrType och rs! ADDRCNT <> HoldAddrCntField Then
                rs.Edit
rs! ADRSTATUS = rs ”för p-"
! ADRUPDT = nu () rs för
! ADRUSR = Environ (”användaren”) rs för
. Update
avslutar If
rs.MoveNext
Loop
kriterier = ”väljer * från qryAddrP var ADRRIN = ”” & Me.ADRRIN & ”” ”fastställda rs för
=
för CurrentDb.OpenRecordset (Criteria, dbOpenDynaset, dbSeeChanges), om inte rs.EOF Then
rs.MoveLast
rs.MoveFirst
gör till rs.RecordCount- < för 4
rs. Edit
rs. Delete
rs.MoveNext
Loop
avslutar class= " lineNumbers " >

1 för >
<-/pre>
 fastställd rs- = Nothing
End Select
 Me.Requery




Attachments: 

för >