** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Tus Funciones Favoritas & Aportaciones & Artí­culos
  Mensajes nuevos Mensajes nuevos RSS - VBA: ¿Está vacío un Recordset DAO?
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoVBA: ¿Está vacío un Recordset DAO?

 Responder Responder
Autor
Mensaje
admin Ver desplegable
Administrador
Administrador
Avatar

Unido: 14/Agosto/2013
Localización: Cualquier lugar
Estado: Sin conexión
Puntos: 790
Enlace directo a este mensaje Tema: VBA: ¿Está vacío un Recordset DAO?
    Enviado: 14/Agosto/2013 a las 13:59
Emilio Sancha 2004

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

'* RecordsetVacio

'* Comprueba la existencia o no de registros en el recordset especificado

'* Argumentos: rst => recordset a comprobar si esta vacio

'* uso: RecordsetVacio rst

'* ESH 08/08/04 09:54

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

 

Function RecordsetVacio(rst As DAO.Recordset) As Boolean

  ' si no hay registros devuelvo Falso y si no Verdadero

  On Error GoTo RecordsetVacio_TratamientoErrores

 

  If rst.EOF And rst.BOF Then

    RecordsetVacio = True

  Else

    RecordsetVacio = False

  End If

 

RecordsetVacio_Salir:

  On Error GoTo 0

  Exit Function

 

RecordsetVacio_TratamientoErrores:

 

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

  GoTo RecordsetVacio_Salir

End Function            ' RecordsetVacio

 


¿Está vacío un recordset DAO?
 


Editado por admin - 14/Agosto/2013 a las 14:00
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable