Cuestión : El BOF o el EOF del error Run-time 3021 “es verdad, o se ha suprimido el registro en curso.


estoy intentando mover expedientes a partir de una tabla de base de datos a otra tabla de base de datos (solamente a la misma estructura en ambos la tabla)

cifrar se ata
 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

Conexión del '''''''''' para el archivo de Mover.MDB para los datos de transferencia de Trant.MDb a Mover.MDB
    Si RecvKKL_Cnn.State = 1 entonces RecvKKL_Cnn.Close
        RecvKKL_Cnn.Open “Provider=Microsoft.Jet.OLEDB.3.51; Datos Source=” y App.Path y” \ Mover.mdb; Jet OLEDB: Base de datos Password=xxxxxxxx "


    Si RecvLCL.State = 1 entonces RecvLCL.Close
        RecvLCL.Open “seleccionan * de B_Detail DONDE LsNo =” y Text1 (18) .text y “y cheque = 1”, estafa, adOpenKeyset, adLockOptimistic
        
    Si RecvKKL.State = 1 entonces RecvKKL.Close
        RecvKKL.Open “seleccionan * de B_Detail”, RecvKKL_Cnn, adOpenKeyset, adLockOptimistic
        
        Si RecvLCL.RecordCount > 0 entonces
        
            Mientras que no RecvLCL.EOF
                
                ¡RecvKKL! ¡bno = RecvLCL! bno
                ¡RecvKKL! ¡Modo = RecvLCL! Modo
                ¡RecvKKL! ¡bdate = RecvLCL! bdate
                
                RecvLCL.MoveNext
            Wend
        Terminar si

Respuesta : El BOF o el EOF del error Run-time 3021 “es verdad, o se ha suprimido el registro en curso.

Le pienso necesidad de agregar un nuevo récord cada vez, y después lo pongo al día antes de agregar el siguiente.
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

Conexión del '''''''''' para el archivo de Mover.MDB para los datos de transferencia de Trant.MDb a Mover.MDB
    Si RecvKKL_Cnn.State = 1 entonces RecvKKL_Cnn.Close
        RecvKKL_Cnn.Open “Provider=Microsoft.Jet.OLEDB.3.51; Datos Source=” y App.Path y” \ Mover.mdb; Jet OLEDB: Base de datos Password=xxxxxxxx "


    Si RecvLCL.State = 1 entonces RecvLCL.Close
        RecvLCL.Open “seleccionan * de B_Detail DONDE LsNo =” y Text1 (18). Texto y “y cheque = 1”, estafa, adOpenKeyset, adLockOptimistic
        
    Si RecvKKL.State = 1 entonces RecvKKL.Close
        RecvKKL.Open “seleccionan * de B_Detail”, RecvKKL_Cnn, adOpenKeyset, adLockOptimistic
        
        Si RecvLCL.RecordCount > 0 entonces
        
            Mientras que no RecvLCL.EOF
                RecvKKL.AddNew '<--------- RecvKKL="">
Otras soluciones  
 
programming4us programming4us