Pergunta : O BOF ou o EOF do erro Run-time 3021 “são verdadeiro, ou o registro atual foi suprimido.


eu estou tentando mover registros de uma tabela de base de dados para uma outra tabela de base de dados (mas a mesma estrutura nos ambos a tabela)

codificar é unido
 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

Conexão do '''''''''' para a lima de Mover.MDB para dados de transferência de Trant.MDb a Mover.MDB
    Se RecvKKL_Cnn.State = 1 então RecvKKL_Cnn.Close
        RecvKKL_Cnn.Open “Provider=Microsoft.Jet.OLEDB.3.51; Origem de dados =” & App.Path &” \ Mover.mdb; Jato OLEDB: Base de dados Password=xxxxxxxx "


    Se RecvLCL.State = 1 então RecvLCL.Close
        RecvLCL.Open “selecionam * de B_Detail ONDE LsNo =” & Text1 (18) .text & “e verificação = 1”, engodo, adOpenKeyset, adLockOptimistic
        
    Se RecvKKL.State = 1 então RecvKKL.Close
        RecvKKL.Open “selecionam * de B_Detail”, RecvKKL_Cnn, adOpenKeyset, adLockOptimistic
        
        Se RecvLCL.RecordCount > 0 então
        
            Quando não RecvLCL.EOF
                
                RecvKKL! bno = RecvLCL! bno
                RecvKKL! Modalidade = RecvLCL! Modalidade
                RecvKKL! bdate = RecvLCL! bdate
                
                RecvLCL.MoveNext
            Wend
        Terminar se

Resposta : O BOF ou o EOF do erro Run-time 3021 “são verdadeiro, ou o registro atual foi suprimido.

Eu penso-o necessidade de adicionar cada vez um novo recorda, e atualizo-o então antes de adicionar seguinte.
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

Conexão do '''''''''' para a lima de Mover.MDB para dados de transferência de Trant.MDb a Mover.MDB
    Se RecvKKL_Cnn.State = 1 então RecvKKL_Cnn.Close
        RecvKKL_Cnn.Open “Provider=Microsoft.Jet.OLEDB.3.51; Origem de dados =” & App.Path &” \ Mover.mdb; Jato OLEDB: Base de dados Password=xxxxxxxx "


    Se RecvLCL.State = 1 então RecvLCL.Close
        RecvLCL.Open “selecionam * de B_Detail ONDE LsNo =” & Text1 (18). Texto & “e verificação = 1”, engodo, adOpenKeyset, adLockOptimistic
        
    Se RecvKKL.State = 1 então RecvKKL.Close
        RecvKKL.Open “selecionam * de B_Detail”, RecvKKL_Cnn, adOpenKeyset, adLockOptimistic
        
        Se RecvLCL.RecordCount > 0 então
        
            Quando não RecvLCL.EOF
                RecvKKL.AddNew '<--------- RecvKKL="">
Outras soluções  
 
programming4us programming4us