Imprimir página | Cerrar ventana

VBA: Comprobar si una matriz está vacía

Impreso de: Foro de Access y VBA
Categoría: Access y VBA
Nombre del foro: Tus Funciones Favoritas & Aportaciones & Artí­culos
Descripción del foro: Para publicar código interesante, aportaciones y artículos
URL: http://www.mvp-access.com/foro/forum_posts.asp?TID=77310
Fecha de impresión: 21/Enero/2020 a las 13:02


Tema: VBA: Comprobar si una matriz está vacía
Publicado por: admin
Asunto: VBA: Comprobar si una matriz está vacía
Fecha de publicación: 14/Agosto/2013 a las 13:58
Emilio Sancha 2004


Esto, seguro que es una tontería, pero me ha dado mucha guerra, hasta que se me ocurrío controlar el error.

El caso es que cuando intentas mirar el tamaño de una matriz, si esta está vacia, da un error y el proceso casca, en un principio al rellenar la matriz, de paso rellenaba una variable booleana para saber si la matriz estaba o no vacía, ahora uso esta función y ya no necesito más.

 

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

'* MatrizVacia

'* devuelve Verdadero/Falso según la matriz pasada como argumento esté vacía o no

'* Argumentos: vntMatriz

'* uso: If MatrizVacia(vntMatriz) then

'* ESH 21/09/04 10:57

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

 

 

Public Function MatrizVacia(vntMatriz As Variant) As Boolean

  Dim lngTamaño As Long

 

  On Error Resume Next

 

  ' compruebo el tamaño de la matriz

  lngTamaño = UBound(vntMatriz)

 

  ' si está vacía se produce un error

  If Err.Number = 9 Then

    MatrizVacia = True

  Else

    MatrizVacia = False

  End If

 

MatrizVacia_Salir:

  On Error GoTo 0

  Exit Function

 

End Function            ' MatrizVacia




Imprimir página | Cerrar ventana