Error "El uso de propiedad no es valido"

[Lexther]

Buenas,

Tengo una tabla creada en Access, llamada "Clientes" con un campo autonumerico llamado "ClientesID", tengo tambien un formulario creado en base a esta tabla, estoy intentando mediante ADO,SQL y VB, (De un codigo que encontre en una pagina, que supuestamente soluciona un problema identico al mio) que al eliminar un registro, los demas registros se acomoden segun su lugar numerico, por ejemplo, si de los registros 1,2,3,4,5,6 elimino el registro 3, el 4 pase a ser el 3, el 5 el 4 y el 6 el 5, es decir, conservar correlativos luego de eliminar.

Este es el codigo encontrado.

Código vb:

Dim sql$, x As Long, y As Long
Dim rst As ADODB. Recordset
 
Set rst = New ADODB. Recordset
 
Sql$ = "Select id From Tabla Order By Id"
 
With rst
. CursorLocation = adUseClient
. CursorType = adOpenKeyset
. LockType = adLockOptimistic
. Open sql$, CurrentProject. Connection, , , adCmdText
End With
 
X = rst. RecordCount
rst. MoveFirst
 
For y = 1 To x
rst. Fields! Id = y
rst. Update
rst. MoveNext
Next y
 
Set rst = Nothing
 

Sin embargo en el fragmento rst. Fields! Id = y me dice "Uso de propiedad no es valido".

[Thumper]

"Id" al parecer es una palabra reservada ponle un alias a tu campo y pruebalo de otra manera

Linea 6. Sql$ = "Select id as intId From Tabla Order By Id"
Linea 19. rst. Fields! intId = y

saludos

[flaviovich]

Aunque no es un foro de VB, prueba esto:

Código vb:

rst!Id = y
 

[Lexther]

He probado el codigo de estas 3 formas y me ha enviado error

1.

Código vb:

Private Sub Eliminar_Click()
Dim sql$, x As Long, y As Long
Dim rst As ADODB.Recordset
 
Set rst = New ADODB.Recordset
 
sql$ = "Select CodClientes From Clientes Order By CodClientes"
 
With rst
.CursorLocation = adUseClient
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.Open sql$, CurrentProject.Connection, , , adCmdText
End With
 
x = rst.RecordCount
rst.MoveFirst
 
For y = 1 To x
rst.CodClientes = y
rst.Update
rst.MoveNext
Next y
 
Set rst = Nothing
End Sub
 

2.

Código vb:

Private Sub Eliminar_Click()
Dim sql$, x As Long, y As Long
Dim rst As ADODB.Recordset
 
Set rst = New ADODB.Recordset
 
sql$ = "Select CodClientes From Clientes Order By CodClientes"
 
With rst
.CursorLocation = adUseClient
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.Open sql$, CurrentProject.Connection, , , adCmdText
End With
 
x = rst.RecordCount
rst.MoveFirst
 
For y = 1 To x
rst!CodClientes = y
rst.Update
rst.MoveNext
Next y
 
Set rst = Nothing
End Sub
 

3.

Código vb:

Private Sub Eliminar_Click()
Dim sql$, x As Long, y As Long
Dim rst As ADODB.Recordset
 
Set rst = New ADODB.Recordset
 
sql$ = "Select CodClientes From Clientes Order By CodClientes"
 
With rst
.CursorLocation = adUseClient
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.Open sql$, CurrentProject.Connection, , , adCmdText
End With
 
x = rst.RecordCount
rst.MoveFirst
 
For y = 1 To x
rst.Fields! CodClientes = y
rst.Update
rst.MoveNext
Next y
 
Set rst = Nothing
End Sub
 

[Lexther]

Modifique el nombre del campo autonumerico y con este codigo tampoco funcionó:

Código vb:

Private Sub Eliminar_Click()
Dim sql$, x As Long, y As Long
Dim rst As ADODB.Recordset
 
Set rst = New ADODB.Recordset
 
sql$ = "Select id From Clientes Order By Id"
 
With rst
.CursorLocation = adUseClient
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.Open sql$, CurrentProject.Connection, , , adCmdText
End With
 
x = rst.RecordCount
rst.MoveFirst
 
For y = 1 To x
rst.!Id = y
rst.Update
rst.MoveNext
Next y
 
Set rst = Nothing
End Sub
 

Sale error de Compilacion - Error de Sintaxis

[HackmanC]

Hola,

Posiblemente,

rst.Fields("CodClientes").Value = y

Saludos,

[Lexther]

Si la coloco tal como me dijiste, no sucede nada, y si le coloco el simbolo ! me sale este error:

http://img833.imageshack.us/img833/7591/000wt.jpg"]http://img833.imageshack.us/img833/7591/000wt.jpg

[HackmanC]

Hola,

¿Con 'no sucede nada' a que te refieres? Ese código renumera el campo Id de la tabla Clientes. ¿Revisaste los datos de la tabla Clientes antes y después? ¿Había algo que renumerar?

Solo para estar seguro hice una prueba y funcionó bien, cambiado la numeración de 1 en adelante secuencialmente a un campo numérico de una tabla. Solamente probé con 5 registros ingresados a mano con números al azar.

Saludos.

[Lexther]

El codigo funciona perfectamente, el error fue todo el tiempo mio, y tu me has dado la luz, estaba probandolo pero ciertamente no habia nada que organizar, por eso no notaba su efectividad.

Gracias a todos, por su incondicional ayuda.

[Lexther]

Este tema ya puede cerrarse, soy nuevo, no se si debo hacerlo yo o lo hace algun moderador.

Gracias.