Access y VBA
Blog de Access y VBA del Buho


Inicio


Acerca de
Suscríbete al blog

Categorías
General [3] Sindicar categoría
Access con Codigo VBA [15] Sindicar categoría

Archivos
Septiembre 2005 [11]
Agosto 2005 [5]
Junio 2005 [2]

Sindicación (RSS)
Artículos
Comentarios

 


Cerrar Recordset

Por Emilio Sancha:

Aquí va la primera mía

¿Cuantas veces al fallar algo en un proceso habéis recibido un error al cerrar un recordset por que realmente no se había llegado a abrir?

Usando esta función para cerrar el recordset no habrá errores aunque no se haya abierto, está basada en una idea original del gran McPegasus

'*******************************************************************************

'* CierraRecordset

'* Cierra el recordset indicado

'* Argumentos: rst => nombre del recordset

'* uso: CierraRecordset rst

'* ESH 22/05/04 13:21

'*******************************************************************************

Public Sub CierraRecordset(rst As DAO.Recordset) 

  On Error GoTo CierraRecordset_TratamientoErrores 

  If Not rst Is Nothing Then 

    rst.Close 

    Set rst = Nothing 

  End If          ' CierraRecordset  

CierraRecordset_Salir:

  On Error GoTo 0

  Exit Sub

  CierraRecordset_TratamientoErrores:  

  MsgBox "Error " & Err.Number & " en proc. CierraRecordset de Módulo Módulo2 (" & Err.Description & ")", vbOKOnly + vbCritical

  GoTo CierraRecordset_Salir

End Sub         ' CierraRecordset

Por ErBuho - 5 de Septiembre, 2005, 1:26, Categoría: Access con Codigo VBA
Enlace Permanente | Referencias (0)




<<   Septiembre 2005    
LMMiJVSD
      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 30   

Enlaces
eGrupos
ZoomBlog

 

Blog alojado en ZoomBlog.com