Skip to main content
3 de 4
se añadieron 223 caracteres en el cuerpo
Huntzberger
  • 487
  • 3
  • 30
  • 60

Validar Array Vacio

Tengo un array el cual lleno en el formulario1 y lo envío al formulario2 al metodo Frm2.LlenarVales(array()), hasta ahí todo bien, pero cuando quiero usar el array en el método grabar parece que el array esta vacío y manda el error "valor fuera del intervalo".

Formulario 1

Frm2.LlenarVales(array())

Formulario 2

Dim array() as Integer
Dim I As Long

Public Function Grabar()    

    For I = 1 To UBound(array)
        MsgBox "Valor: " & (array(I)), vbInformation, "Mensaje"
    Next
    
End Function

Public Function LlenarVales(array() As Integer) 
    array() = array()
                 
    For I = 1 To UBound(array)
        MsgBox "Valor: " & (array(I)), vbInformation, "Mensaje"
    Next
    
End Function

Huntzberger
  • 487
  • 3
  • 30
  • 60