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.RecordsetSet Reg = Me.Recordset
While Not Reg.EOFCompletarCampos
Reg.MoveNextWend
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 = CurrentDbSet d = db.OpenRecordset("tblArticulos", dbOpenDynaset)
d.MoveLastn = d.AbsolutePosition
d.MoveFirst While Not d.EOFIf Me.Codigo = d.[Codigo] Then
Me.Descripcion1 = d.[Descripcion1]
Me.Descripcion2 = d.[Descripcion2]
Me.UPC = d.[UPC]
End If
d.MoveNextWend
Reg.Clone Set Reg = NothingEnd Sub
Gracias por cualquier consejo/ayuda.
Diego.
Valora esta pregunta
0