Topic: Array. I can not transfer from variable function
Dim x () As Variant ReDim x (LBound (y_func ("ololol"), 1) To UBound (y_func ("ololol"), 1), _ ' it was not primary this line, wrote in attempt' LBound (y_func ("ololol"), 2) To UBound (y_func ("ololol"), 2)) ' to correct, but it all the same does not work' x = y_func ("ololol") ' Writes type mismatch' End Sub Function SplitPrmCln (NamePrmtr As String) As Variant Dim y As String, x As Variant, i As Integer, j As Integer, cnt As Integer y = CurrentDb. OpenRecordset ("Select VLE from prmtr_main where Prmtr = '" BOTH NamePrmtr AND "'")! Vle ' y=1_4_3,2_4_6,3_5_-3,4_5_0' x = Split (y ",") ReDim x (LBound (x) To UBound (x), 1 To 3) For i = LBound (x, 1) To UBound (x, 1) For j = 0 To 2 x (i, j + 1) = Split (Split (y ",") (i), "_") (j) Next Next SplitPrmCln = x End Function
Help, please! How to transfer value of this function?