Access - Recorrer un Recordset solo actualiza impares

   
Vista:

Recorrer un Recordset solo actualiza impares

Publicado por Bufix (1 intervención) el 24/02/2014 12:20:00


Buenos días,

Rompida la cabeza tengo ya, jejeje. .

Quiero recorrer un Recordset, pero solo recorre los registros impares. En los pares me deja la tabla sin completar.

Le he dado mil vueltas y no sé porqué los salta. 0,1,3,5,7...hasta el infinito:
___________________________________________________________________________________
1
2
3
4
5
6
7
8
9
10
11
Dim Reg As DAO.Recordset
Set Reg = Me.Recordset
 
 
       While Not Reg.EOF
 
                CompletarCampos
 
                Reg.MoveNext
 
       Wend
____________________________________________________________________________________
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Private Sub CompletarCampos()
 
On Error Resume Next
 
Set db = CurrentDb
Set d = db.OpenRecordset("tblArticulos", dbOpenDynaset)
 
            d.MoveLast
            n = d.AbsolutePosition
            d.MoveFirst
 
           While Not d.EOF
 
                If Me.Codigo = d.[Codigo] Then
 
                    Me.Descripcion1 = d.[Descripcion1]
                    Me.Descripcion2 = d.[Descripcion2]
                    Me.UPC = d.[UPC]
 
                End If
 
                d.MoveNext
 
            Wend
 
            Reg.Clone
            Set Reg = Nothing
 
End Sub
______________________________________________________________________________________

Gracias por cualquier consejo/ayuda.

Diego.

Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder