Vraag : Run-time fout 3021 „of BOF of EOF is waar, of het dynamische archief is geschrapt.


ik probeer om verslagen van één gegevensbestandlijst aan een andere gegevensbestandlijst (maar zelfde structuur in beide lijst) te bewegen

de code is in bijlage
 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

'''''''''' Verbinding voor Mover.MDB- dossier voor het overbrengen van gegevens van Trant.MDb aan Mover.MDB
    Als RecvKKL_Cnn.State = 1 toen RecvKKL_Cnn.Close
        RecvKKL_Cnn.Open „Provider=Microsoft.Jet.OLEDB.3.51; Gegevens Source=“ & App.Path &“ \ Mover.mdb; Straal OLEDB: Gegevensbestand Password=xxxxxxxx "


    Als RecvLCL.State = 1 toen RecvLCL.Close
        RecvLCL.Open „selecteren * uit B_Detail WAAR LsNo =“ & Text1 (18) .text & „en de Controle = 1“, adOpenKeyset bedriegt, adLockOptimistic
        
    Als RecvKKL.State = 1 toen RecvKKL.Close
        RecvKKL.Open „selecteren * uit B_Detail“, adLockOptimistic RecvKKL_Cnn, adOpenKeyset,
        
        Als RecvLCL.RecordCount > 0 toen
        
            Terwijl niet RecvLCL.EOF
                
                RecvKKL! bno = RecvLCL! bno
                RecvKKL! Wijze = RecvLCL! Wijze
                RecvKKL! bdate = RecvLCL! bdate
                
                RecvLCL.MoveNext
            Wend
        Eind als

Antwoord : Run-time fout 3021 „of BOF of EOF is waar, of het dynamische archief is geschrapt.

Ik denk u een nieuw verslag moet toevoegen elke keer, en werk het bij dan alvorens de volgende toe te voegen.
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

'''''''''' Verbinding voor Mover.MDB- dossier voor het overbrengen van gegevens van Trant.MDb aan Mover.MDB
    Als RecvKKL_Cnn.State = 1 toen RecvKKL_Cnn.Close
        RecvKKL_Cnn.Open „Provider=Microsoft.Jet.OLEDB.3.51; Gegevens Source=“ & App.Path &“ \ Mover.mdb; Straal OLEDB: Gegevensbestand Password=xxxxxxxx "


    Als RecvLCL.State = 1 toen RecvLCL.Close
        RecvLCL.Open „selecteren * uit B_Detail WAAR LsNo =“ & Text1 (18). De tekst & „en de Controle = 1“, bedriegen, adOpenKeyset, adLockOptimistic
        
    Als RecvKKL.State = 1 toen RecvKKL.Close
        RecvKKL.Open „selecteren * uit B_Detail“, adLockOptimistic RecvKKL_Cnn, adOpenKeyset,
        
        Als RecvLCL.RecordCount > 0 toen
        
            Terwijl niet RecvLCL.EOF
                RecvKKL.AddNew '<--------- RecvKKL="">
Andere oplossingen  
 
programming4us programming4us