Questione : Accedere alla codificazione

Ciao esperti,
I che ha un problema con la mia codificazione.  l'attaccatura è la forma di indirizzo che sto lavorando ed avendole problema.  il valore di difetto per la condizione è fissato “alla m.„ che è la spedizione.  quando ci è un indirizzo attuale della spedizione ed entro in un nuovo indirizzo, quindi la spedizione attuale sarà cambiamento a precedente ed il nuovo che ho fornito appena sarà esposizione come spedicendo, impianti di questa parte benissimo, tuttavia, quando non ci è indirizzo attuale della spedizione preferibilmente là è un indirizzo alternato attuale, quando entro in un nuovo indirizzo, naturalmente il nuovo indirizzo esposizione automic come spedicendo ma l'indirizzo alternato attuale non è cambiato a precedente, io deve rendere all'indirizzo alternato attuale il cambiamento atuomic per mostrare precedente nella condizione.  può chiunque aiutare?  sotto è il mio codice.  il
del thanks

Private Form_AfterUpdate () oscura rs2 come test di verifica fiochi di Recordset
come rs fiochi del
di String
come type_M fioco di DAO.Recordset
come type_A fioco di Integer
come
HoldAddrType = Me.ADRSTATUS
HoldAddrCntField = rs stabiliti prescelti del
di caso “m.„, “A " di HoldAddrType
di caso di Me.ADDRCNT
Me.Requery
= Me.RecordsetClone
rs.MoveLast
rs.MoveFirst
di Integer
fa fino a rs.EOF
se rs! ADRSTATUS = HoldAddrType e rs! ADDRCNT <> HoldAddrCntField Then
                rs.Rs di Edit
! ADRSTATUS = rs del
“di P "! ADRUPDT = ora () rs del
! ADRUSR = circondano (“utente„) i rs del
. I test di verifica di If
rs.MoveNext
Loop
di conclusione di Update
= “selezionano * a partire da qryAddrP a dove ADRRIN = “„ & Me.ADRRIN & “„ “rs stabiliti del
=
se non rs.EOF Then
rs.MoveLast
rs.MoveFirst
di CurrentDb.OpenRecordset (Criteria, dbOpenDynaset, dbSeeChanges) fanno fino rs di 4
. Rs di Edit
. Rs di If
di conclusione di Delete
rs.MoveNext
Loop
class= " lineNumbers " >
1 del >
End Select
Me.Requery
class= >
di
class= " lastRow del
>Attachments " di nome " del class= del class= " valore " del
il

il nome di schedario " del class= di >Address.doc " fileSize " > (126 Kb) il Javascript " del href= " " dei attachmentDetails del class= di (tipo di lima particolari)
>Address form
" di descrizione " del class= del
il class= di
del >
class= del

Risposta : Accedere alla codificazione

Non lo penso bisogno EDIT prima di CANCELLAZIONE

    Fare fino ai rs <� 4="">                di rs.RecordCount. Pubblicare '--- Non penso che questo sia necessario ----
                rs. Cancellazione
                rs.MoveNext
Scott C
Altre soluzioni  
 
programming4us programming4us