Pytanie : Kasować błąd 3021 "Lub BOF lub EOF być prawdziwy, lub the aktualny rejestr kasować.


i próbować rejestr od jeden baza danych stół inny baza danych stół (Ale ten sam struktura w oba stół)

kod dołączać
 
(1):
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

'''''''''' Związek Dla Mover.MDB kartoteka dla przelewanie dane od Trant.MDb Mover.MDB
    Jeżeli RecvKKL_Cnn.State = (1) Wtedy RecvKKL_Cnn.Close
        RecvKKL_Cnn.Open "Provider=Microsoft.Jet.OLEDB.3.51; Dane Source=" & App.Path &" \ Mover.mdb; Dżetowy OLEDB: Baza danych Password=xxxxxxxx "


    Jeżeli RecvLCL.State = (1) Wtedy RecvLCL.Close
        RecvLCL.Open "wybiórka * od B_Detail DOKĄD LsNo =" & Text1 (18) .text & "i Czek = (1)", przeciw, adOpenKeyset, adLockOptimistic
        
    Jeżeli RecvKKL.State = (1) Wtedy RecvKKL.Close
        RecvKKL.Open "Wybiórka * od B_Detail", RecvKKL_Cnn, adOpenKeyset, adLockOptimistic
        
        Jeżeli RecvLCL.RecordCount > (0) Wtedy
        
            Podczas Gdy Nie RecvLCL.EOF
                
                RecvKKL! bno = RecvLCL! bno
                RecvKKL! Tryb = RecvLCL! Tryb
                RecvKKL! bdate = RecvLCL! bdate
                
                RecvLCL.MoveNext
            Wend
        Kończyć Jeżeli

Odpowiedź : Kasować błąd 3021 "Lub BOF lub EOF być prawdziwy, lub the aktualny rejestr kasować.

I myśleć ty potrzeba nowy rejestr nowy, i wtedy aktualizować ono przed the następny jeden.
(1):
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

'''''''''' Związek Dla Mover.MDB kartoteka dla przelewanie dane od Trant.MDb Mover.MDB
    Jeżeli RecvKKL_Cnn.State = (1) Wtedy RecvKKL_Cnn.Close
        RecvKKL_Cnn.Open "Provider=Microsoft.Jet.OLEDB.3.51; Dane Source=" & App.Path &" \ Mover.mdb; Dżetowy OLEDB: Baza danych Password=xxxxxxxx "


    Jeżeli RecvLCL.State = (1) Wtedy RecvLCL.Close
        RecvLCL.Open "wybiórka * od B_Detail DOKĄD LsNo =" & Text1 (18). Tekst & "i Czek = (1)", przeciw, adOpenKeyset, adLockOptimistic
        
    Jeżeli RecvKKL.State = (1) Wtedy RecvKKL.Close
        RecvKKL.Open "Wybiórka * od B_Detail", RecvKKL_Cnn, adOpenKeyset, adLockOptimistic
        
        Jeżeli RecvLCL.RecordCount > (0) Wtedy
        
            Podczas Gdy Nie RecvLCL.EOF
                RecvKKL.AddNew '<--------- RecvKKL="">
Inne rozwiązania  
 
programming4us programming4us