Skip to main content
se eliminaron 2 caracteres en el cuerpo
Origen Enlace
Oundroni
  • 1.3k
  • 3
  • 17
  • 31

Quiero que una función me devuelva una matriz pero me sale un error de compilación: 'No se puede asignar a una matriz' El código es este:

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
quitaStockfunción2 = resultado
End Function

Estoy utilizando access 2007

Quiero que una función me devuelva una matriz pero me sale un error de compilación: 'No se puede asignar a una matriz' El código es este:

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
quitaStock = resultado
End Function

Estoy utilizando access 2007

Quiero que una función me devuelva una matriz pero me sale un error de compilación: 'No se puede asignar a una matriz' El código es este:

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

Estoy utilizando access 2007

Origen Enlace
Oundroni
  • 1.3k
  • 3
  • 17
  • 31

Función VBA en acces que devuleve una matriz

Quiero que una función me devuelva una matriz pero me sale un error de compilación: 'No se puede asignar a una matriz' El código es este:

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
quitaStock = resultado
End Function

Estoy utilizando access 2007