** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Tus Funciones Favoritas & Aportaciones & Artí­culos
  Mensajes nuevos Mensajes nuevos RSS - VBA: Comprobar si una matriz está vacía
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoVBA: Comprobar si una matriz está vacía

 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: Comprobar si una matriz está vacía
    Enviado: 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

Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable