INDEXAR TABLA ACCESS
Publicado por Luis Fernando (1 intervención) el 25/07/2017 17:17:57
BEUNOS DIAS
TENGO ESTE CODIGO, PERO CUANDO LLAMO LA TABLA NO ME RESPECTA EL ORDEN QUE DEBE DE TENER, QUE ES POR PLACA Y FECHA1, ESTOS DOS CAMPOS ESTAN LA LA PROPIEDAD DE LA TABLA, DONDE DICE ORDENADO POR, PERO CUANDO ACA INVOCO LA TABLA, NO ME RESPETA EL ORDEN.
GRACIAS POR SU AYUDA
TENGO ESTE CODIGO, PERO CUANDO LLAMO LA TABLA NO ME RESPECTA EL ORDEN QUE DEBE DE TENER, QUE ES POR PLACA Y FECHA1, ESTOS DOS CAMPOS ESTAN LA LA PROPIEDAD DE LA TABLA, DONDE DICE ORDENADO POR, PERO CUANDO ACA INVOCO LA TABLA, NO ME RESPETA EL ORDEN.
GRACIAS POR SU AYUDA
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Set mibd = DBEngine.Workspaces(0).Databases(0)
Set mitabla = mibd.OpenRecordset("tabla1")
mitabla.MoveFirst 'Busca el primer registro
placa1 = mitabla("placa")
km1 = mitabla("km")
mitabla.MoveNext
placa2 = mitabla("placa")
km2 = mitabla("km")
Do Until placa1 = placa2 And mitabla.EOF ' Empieza el bucle
km = km2 - km1
mitabla.Edit
mitabla("xx") = km3 ' Cambia la fecha
mitabla.Update ' Guarda los cambios
km1 = mitabla("km")
mitabla.MoveNext
km2 = mitabla("km")
Loop
Valora esta pregunta
0