Imprimir página | Cerrar ventana

array con error type mismatch

Impreso de: Foro de Access y VBA
Categoría: Access y VBA
Nombre del foro: Access y VBA
Descripción del foro: Foro de programacion en Access (Con código y sin código)
URL: http://www.mvp-access.com/foro/forum_posts.asp?TID=84809
Fecha de impresión: 26/Marzo/2026 a las 15:42


Tema: array con error type mismatch
Publicado por: cpampasPT
Asunto: array con error type mismatch
Fecha de publicación: 10/Noviembre/2019 a las 14:44
hola Amigos,
A lo mejor me podeis ayudar con esta funcion que me devuelve un error de type mismatch, que tendra que ver con el tipo de variable no correcta, me imagino, pero no consigo resolverlo :

-------------------
Public Function iMax(ParamArray p()) As String
  Dim vVal As Variant, vMaxVal As Variant

  vMaxVal = Null
  For Each vVal In p
    If Not IsNull(vVal) And (IsNull(vMaxVal) Or (vVal < vMaxVal)) Then vMaxVal = vVal
  Next

  iMax = vMaxVal
End Function

---------------

Dim arr(1 To 3) As Variant
    Dim vx As String
    
arr(1) = capitalIncre
arr(2) = capDobra
arr(3) = capKelly

 vx = iMax(arr())
----------------
el error se produce el la variable vVal que es del tipo variant
alguna idea ?
Gracias


Imprimir página | Cerrar ventana