¿Como se pone un array como argumento de una funcion?
Ejemplo:
Call Almacenar_datos_rs(var_array_grupoI)
Public Function Almacenar_datos_rs(array_grupoI())
donde array_grupoI tiene 33 elementos
Call Almacenar_datos_rs(var_array_grupoI)
Public Function Almacenar_datos_rs(array_grupoI())
donde array_grupoI tiene 33 elementos
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
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