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

 


Comprobar si una matriz está vacía

Emilio Sancha.
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 si 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 

Public Function MatrizVacia(vntMatriz As Variant) As Boolean 
  Dim lngTamaño As Long 
  On Error Resume Next 

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

Por Emilio Sancha - 5 de Septiembre, 2005, 1:29, 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