Fråga : BOF eller EOF för Run-time fel 3021 ”endera är riktiga, eller strömrekordet har tagits bort.


förmiddag som i är pröva till flyttningrekord från en databas, bordlägger till en annan databas bordlägger (bara samma strukturerar i båda bordlägger),

kodifiera fästas
 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

'''''''''' Anslutning för Mover.MDB sparar för överförande data från Trant.MDb till Mover.MDB
    Om RecvKKL_Cnn.State = 1 därefter RecvKKL_Cnn.Close
        RecvKKL_Cnn.Open ”Provider=Microsoft.Jet.OLEDB.3.51; Data Source=” & App.Path &” \ Mover.mdb; Spruta ut OLEDB: Databas Password=xxxxxxxx ",


    Om RecvLCL.State = 1 därefter RecvLCL.Close
        RecvLCL.Open ”väljer * från B_Detail VAR LsNo =” & Text1 (18) .text & ”och kontroll = 1”, lurar, adOpenKeyset som är adLockOptimistic
        
    Om RecvKKL.State = 1 därefter RecvKKL.Close
        RecvKKL.Open ”väljer * från B_Detail”, RecvKKL_Cnn, adOpenKeyset som är adLockOptimistic
        
        Om RecvLCL.RecordCount > 0 därefter
        
            Stunder inte RecvLCL.EOF
                
                RecvKKL! bno = RecvLCL! bno
                RecvKKL! Funktionsläge = RecvLCL! Funktionsläge
                RecvKKL! bdate = RecvLCL! bdate
                
                RecvLCL.MoveNext
            Wend
        Avsluta om

Svar : BOF eller EOF för Run-time fel 3021 ”endera är riktiga, eller strömrekordet har tagits bort.

Funderare I som du behöver att tillfoga ett nytt rekord varje gång, och uppdaterar därefter det, innan den tillfogar det nästa.
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

'''''''''' Anslutning för Mover.MDB sparar för överförande data från Trant.MDb till Mover.MDB
    Om RecvKKL_Cnn.State = 1 därefter RecvKKL_Cnn.Close
        RecvKKL_Cnn.Open ”Provider=Microsoft.Jet.OLEDB.3.51; Data Source=” & App.Path &” \ Mover.mdb; Spruta ut OLEDB: Databas Password=xxxxxxxx ",


    Om RecvLCL.State = 1 därefter RecvLCL.Close
        RecvLCL.Open ”väljer * från B_Detail VAR LsNo =” & Text1 (18). Text & ”och kontrollen = 1”, lurar, adOpenKeyset som är adLockOptimistic
        
    Om RecvKKL.State = 1 därefter RecvKKL.Close
        RecvKKL.Open ”väljer * från B_Detail”, RecvKKL_Cnn, adOpenKeyset som är adLockOptimistic
        
        Om RecvLCL.RecordCount > 0 därefter
        
            Stunder inte RecvLCL.EOF
                RecvKKL.AddNew ',<--------- RecvKKL="">
Andra lösningar  
 
programming4us programming4us