Access - Error al cerrar Recordset

 
Vista:
Imágen de perfil de Cm
Val: 106
Bronce
Ha disminuido 1 puesto en Access (en relación al último mes)
Gráfica de Access

Error al cerrar Recordset

Publicado por Cm (68 intervenciones) el 05/07/2018 19:45:14
Hola,

En un código VBA uso la siguiente instrucción para abrir un Recordset llamado 'Master' de una tabla llamada "Tabla".

Set Master = db.OpenRecordset("Tabla", dbOpenDynaset)

Después, le indico que se cierre, con un:

Master.Close

Sin embargo, al llegar a este punto el compilador da error.

ErrorRecordsetClose

No debería pasar esto. Se deben cerrar los Recordsets...Pero sin embargo aquí falla. ¿Alquien tiene alguna idea de por qué o de cómo resolver ésta cuestión?
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de jorge
Val: 1.031
Oro
Ha mantenido su posición en Access (en relación al último mes)
Gráfica de Access

Error al cerrar Recordset

Publicado por jorge (293 intervenciones) el 05/07/2018 20:29:20
hola mira no si te sriva esto es un fragment de codigo del master Emilio verastegui.


1
2
3
4
5
6
7
8
9
10
11
12
13
Otra forma es usar un Recordset directo a la tablas
Dim rs As DAO.Recordset 'Creamos el recordset dao
Set rs = CurrentDb.OpenRecordset("SELECT id, Nombre, Precio, Importe FROM Productos", dbOpenDynaset) 'Abrimos el recordset y con dbOpenDynaset podemos abrir cualquier consulta o tabla
rs.MoveFirst 'Nos movemos al inicio
Do While Not rs.EOF 'Verificamos que no hemos llegado al final
    rs.Edit  'Editamos los registros
    rs![Importe] = rs!Precio * Me.cantidad  'Hacemos la multiplicación
    rs.Update  'Actualizamos
    rs.MoveNext  'Nos movemos al siguiente registro
Loop  'Hacemos el bucle de nuevo
rs.Close  'Cerramos la variable
Set rs = Nothing  'Dejamos la variable sin inicializar
Me.Refresh  'Refrescamos la vista



saludos ...
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar