Frage : Laufzeitfehler 3021 „entweder BOF oder EOF ist zutreffend, oder der aktuelle Satz ist gelöscht worden.


ich versuche, Aufzeichnungen von einer Datenbanktabelle auf ein anderes Datenbanktabelle (aber die gleiche Struktur in beiden zu verschieben Tabelle)

kodieren wird angebracht
 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

'''''''''' Anschluss für Mover.MDB Akte für bringendaten von Trant.MDb zu Mover.MDB
    Wenn RecvKKL_Cnn.State = 1 dann RecvKKL_Cnn.Close
        RecvKKL_Cnn.Open „Provider=Microsoft.Jet.OLEDB.3.51; Datenquelle =“ u. App.Path u.“ \ Mover.mdb; Strahl OLEDB: Datenbank Password=xxxxxxxx "


    Wenn RecvLCL.State = 1 dann RecvLCL.Close
        RecvLCL.Open „* von B_Detail IN DEM LsNo =“ u. Text1 (18) .text u. „und Überprüfung = 1“, Betrug, das adOpenKeyset vorwählen, adLockOptimistic
        
    Wenn RecvKKL.State = 1 dann RecvKKL.Close
        RecvKKL.Open „wählen * von B_Detail“, RecvKKL_Cnn, das adOpenKeyset vor, adLockOptimistic
        
        Wenn RecvLCL.RecordCount > 0 dann
        
            Während nicht RecvLCL.EOF
                
                RecvKKL! bno = RecvLCL! bno
                RecvKKL! Modus = RecvLCL! Modus
                RecvKKL! bdate = RecvLCL! bdate
                
                RecvLCL.MoveNext
            Wend
        Beenden wenn

Antwort : Laufzeitfehler 3021 „entweder BOF oder EOF ist zutreffend, oder der aktuelle Satz ist gelöscht worden.

Ich denke Sie Notwendigkeit, einen neuen Rekord jedes Mal zu addieren und aktualisiere es dann, bevor ich das folgende addiere.
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

'''''''''' Anschluss für Mover.MDB Akte für bringendaten von Trant.MDb zu Mover.MDB
    Wenn RecvKKL_Cnn.State = 1 dann RecvKKL_Cnn.Close
        RecvKKL_Cnn.Open „Provider=Microsoft.Jet.OLEDB.3.51; Datenquelle =“ u. App.Path u.“ \ Mover.mdb; Strahl OLEDB: Datenbank Password=xxxxxxxx "


    Wenn RecvLCL.State = 1 dann RecvLCL.Close
        RecvLCL.Open „* von B_Detail IN DEM LsNo =“ u. Text1 (18) vorwählen. Text u. „und Überprüfung = 1“, Betrug, adOpenKeyset, adLockOptimistic
        
    Wenn RecvKKL.State = 1 dann RecvKKL.Close
        RecvKKL.Open „wählen * von B_Detail“, RecvKKL_Cnn, das adOpenKeyset vor, adLockOptimistic
        
        Wenn RecvLCL.RecordCount > 0 dann
        
            Während nicht RecvLCL.EOF
                RecvKKL.AddNew '<--------- RecvKKL="">
Weitere Lösungen  
 
programming4us programming4us