Recorrer una tabla con VBA y actualizar un campo
Estoy intentando actualizar un campo numérico de una tabla cuyo valor es cero y poner otro numero (p.e=44). El Código que he utilizado es:
Public Function recorrerTabla() As Long
Dim db As Database
Set db = CurrentDb
Set rst = db.OpenRecordset("fraFE", dbOpenTable)
rst.MoveFirst
Do While Not rst.EOF
rst.Edit
If fraFE!nfra = 0 Then
fraFE!nfra = 44
rst.update
End If
rs.MoveNext
Loop
End Function
Y el error que me da es "Se ha producido el error '424' en tiempo de ejecución: Se requiere un objeto"
1 Respuesta
Respuesta de Sveinbjorn El Rojo
2