Home / Questions / 107531
Accepted
Oundroni
Asked: 2020-10-06 08:51:35 +0800 CST 2020-10-06 08:51:35 +0800 CST

VBA function in acces that returns an array

  • 772

I want a function to return an array but I get a compiler error: 'Cannot assign to an array' The code is this:

Private Function función1()
Dim resultado(1) As Integer
resultado = función2(1,1) 'Se produce el error: no se puede asignar a una matriz'
End Function

Private Function función2(Referencia, Cantidad) As Integer()
Dim resultado(1) As Integer
resultado(0) = referencia * 2
resultado(1) = cantidad * 4
función2 = resultado
End Function

I am using access 2007

vba

2 Answers

  1. Test:
    Removing the trailing parentheses from the function's return type. Adds the type to the arguments.

    Private Function función2(Referencia As Integer, Cantidad As Integer) As Integer
        Dim resultado(1) As Integer
        resultado(0) = Referencia * 2
        resultado(1) = Cantidad * 4
        función2 = resultado
End Function
    • 0
  2. Best Answer

    First of all, if you define your variable in a module outside of any procedure or function, just below Option Explicit, you will have the variable defined in all your procedures, and you don't have to define it all the time. Try this: Insert a standard module, delete everything and copy and paste.

    Option Compare Database
Option Explicit

Dim Resultado(1) As Integer

Sub Actualizar_Resultado(ByVal Referencia As Integer, ByVal Cantidad As Integer)
Resultado(0) = Referencia * 2
Resultado(1) = Cantidad * 4
End Sub

    Now, every time you run the sub Actualizar_Resultado, your Result array will be updated based on the numbers you entered in Reference and Amount.

    • 0