¿Como se pone un array como argumento de una funcion?

Lunax
11 de Mayo del 2004
Ejemplo:
Call Almacenar_datos_rs(var_array_grupoI)
Public Function Almacenar_datos_rs(array_grupoI())
donde array_grupoI tiene 33 elementos

sdemingo
11 de Mayo del 2004
Hola,


Private Sub Form_Load()

Dim ar(0 To 3) As String

Call funcion(ar)

MsgBox ar(0) & ar(1) & ar(2) & ar(3)

End Sub

Sub funcion(ar() As String)

ar(0) = "H"
ar(1) = "O"
ar(2) = "L"
ar(3) = "A"

End Sub


salu2
sdemingo

Lunax
11 de Mayo del 2004
Genial, voy a probar ahora mismo, muchísimas gracias.