Questione : Il BOF o il EOF di errore Run-time 3021 “è allineare, o l'annotazione corrente è stata cancellata.


sto provando a spostare le annotazioni da una tabella di base di dati verso un'altra tabella di base di dati (ma la stessa struttura in entrambi tabella)

codificare è attaccato
 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

Collegamento del '''''''''' per la lima di Mover.MDB per i dati di trasferimento da Trant.MDb a Mover.MDB
    Se RecvKKL_Cnn.State = 1 allora RecvKKL_Cnn.Close
        RecvKKL_Cnn.Open “Provider=Microsoft.Jet.OLEDB.3.51; Dati Source=„ & App.Path &„ \ Mover.mdb; Getto OLEDB: Base di dati Password=xxxxxxxx "


    Se RecvLCL.State = 1 allora RecvLCL.Close
        RecvLCL.Open “selezionano * a partire da B_Detail DOVE LsNo =„ & Text1 (18) .text & “e controllo = 1„, imbroglione, adOpenKeyset, adLockOptimistic
        
    Se RecvKKL.State = 1 allora RecvKKL.Close
        RecvKKL.Open “selezionano * a partire da B_Detail„, RecvKKL_Cnn, adOpenKeyset, adLockOptimistic
        
        Se RecvLCL.RecordCount > 0 allora
        
            Mentre non RecvLCL.EOF
                
                RecvKKL! bno = RecvLCL! bno
                RecvKKL! Modo = RecvLCL! Modo
                RecvKKL! bdate = RecvLCL! bdate
                
                RecvLCL.MoveNext
            Wend
        Concluder se

Risposta : Il BOF o il EOF di errore Run-time 3021 “è allineare, o l'annotazione corrente è stata cancellata.

Lo penso necessità di aggiungere ogni volta un nuovo record ed allora lo aggiorno prima dell'aggiunta di quello seguente.
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

Collegamento del '''''''''' per la lima di Mover.MDB per i dati di trasferimento da Trant.MDb a Mover.MDB
    Se RecvKKL_Cnn.State = 1 allora RecvKKL_Cnn.Close
        RecvKKL_Cnn.Open “Provider=Microsoft.Jet.OLEDB.3.51; Dati Source=„ & App.Path &„ \ Mover.mdb; Getto OLEDB: Base di dati Password=xxxxxxxx "


    Se RecvLCL.State = 1 allora RecvLCL.Close
        RecvLCL.Open “selezionano * a partire da B_Detail DOVE LsNo =„ & Text1 (18). Testo & “e controllo = 1„, imbroglione, adOpenKeyset, adLockOptimistic
        
    Se RecvKKL.State = 1 allora RecvKKL.Close
        RecvKKL.Open “selezionano * a partire da B_Detail„, RecvKKL_Cnn, adOpenKeyset, adLockOptimistic
        
        Se RecvLCL.RecordCount > 0 allora
        
            Mentre non RecvLCL.EOF
                RecvKKL.AddNew '<--------- RecvKKL="">
Altre soluzioni  
 
programming4us programming4us