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
0