passing multiple arrays as parameters.

[WindAndWaves]

Hi Folks

I know that this is possible:
Function tt(x as string, nv())

where NV is an array.

What I am wondering is if NV can be a multidimensional array.

I checked the help, but found no information.

TIA

- Nicolaas

[MGFoster]

WindAndWaves wrote:

Hi Folks

I know that this is possible:
Function tt(x as string, nv())

where NV is an array.

What I am wondering is if NV can be a multidimensional array.

I checked the help, but found no information.

Yes, you can pass multidimensional arrays.

--
MGFoster:::mgf00 <at> earthlink <decimal-point> net
Oakland, CA (USA)

[Trevor Best]

WindAndWaves wrote:

Hi Folks

I know that this is possible:
Function tt(x as string, nv())

where NV is an array.

What I am wondering is if NV can be a multidimensional array.

I checked the help, but found no information.

In the time it takes to get an answer here you could have tried it :-)

The answer's yes BTW.

--
This sig left intentionally blank

[rkc]

Trevor Best wrote:

In the time it takes to get an answer here you could have tried it :-)

As is the case for a majority of the questions asked.

[WindAndWaves]

"Trevor Best" <no****@besty.org.uk> wrote in message
news:41**********************@news.zen.co.uk...

WindAndWaves wrote:

Hi Folks

I know that this is possible:
Function tt(x as string, nv())

where NV is an array.

What I am wondering is if NV can be a multidimensional array.

I checked the help, but found no information.

In the time it takes to get an answer here you could have tried it :-)

The answer's yes BTW.

--
This sig left intentionally blank

Thanks for the answers guys.

I tried it:

Function yyy(x As Boolean, a())
MsgBox a(2, 1)
End Function
Function zzz()
Call yyy(True, 1, "yellow", 2, "orange", 3, "white", 4, "shit")
End Function

But it does not seem to like it ( i can not compile it)

Any hints?

- Nicolaas

[WindAndWaves]

"rkc" <rk*@rochester.yabba.dabba.do.rr.bomb> wrote in message

In the time it takes to get an answer here you could have tried it :-)

As is the case for a majority of the questions asked.

Usually writing up the question makes you think of the answer. I often
write up a question and come up with the answer while structuring my
question. However, sometimes it is nice to hear what other people think and
sometimes it is nice to share an idea and othertimes you end up with a
mental block.

All questions at newsgroups can be solved in other way, but you should never
blame people for asking stupid questions. That is what newsgroups are for.
If you have a real difficult question it is probably easier, faster and more
successful to hire someone.

well, that is just my one cent worth

- Nicolaas

[rkc]

WindAndWaves wrote:

"Trevor Best" <no****@besty.org.uk> wrote in message
news:41**********************@news.zen.co.uk...

WindAndWaves wrote:

Hi Folks

I know that this is possible:
Function tt(x as string, nv())

where NV is an array.

What I am wondering is if NV can be a multidimensional array.

I checked the help, but found no information.

In the time it takes to get an answer here you could have tried it :-)

The answer's yes BTW.

--
This sig left intentionally blank

Thanks for the answers guys.

I tried it:

Function yyy(x As Boolean, a())
MsgBox a(2, 1)
End Function
Function zzz()
Call yyy(True, 1, "yellow", 2, "orange", 3, "white", 4, "shit")
End Function

But it does not seem to like it ( i can not compile it)

Any hints?

I pretty sure shit is a reserved word. Try shucks.

[John Mishefske]

WindAndWaves wrote:

Thanks for the answers guys.

I tried it:

Function yyy(x As Boolean, a())
MsgBox a(2, 1)
End Function
Function zzz()
Call yyy(True, 1, "yellow", 2, "orange", 3, "white", 4, "shit")
End Function

But it does not seem to like it ( i can not compile it)

Any hints?

Function yyy(x As Boolean, a As Variant)
MsgBox a(2)(1)
End Function

Function zzz()
Call yyy(True, Array(Array(1, "yellow"), Array(2, "orange"), _

Array(3, "white"), Array(4, "shit")))
End Function

'---------------
' John Mishefske
'---------------

[rkc]

WindAndWaves wrote:

Thanks for the answers guys.

I tried it:

Function yyy(x As Boolean, a())
MsgBox a(2, 1)
End Function
Function zzz()
Call yyy(True, 1, "yellow", 2, "orange", 3, "white", 4, "shit")
End Function

But it does not seem to like it ( i can not compile it)

I don't know what use you're trying to make of it, but as a
proof of concept...
Sub zzz()
Dim a(1, 2) As Variant
a(0, 0) = "yellow"
a(0, 1) = "orange"
a(0, 2) = "blue"
a(1, 0) = "lemon"
a(1, 1) = "tangerine"
a(1, 2) = "smurf"

Call yyy(True, a())
End Sub
Sub yyy(x As Boolean, a())
Dim i As Integer, j As Integer
Dim s As String

If x then
For i = 0 To UBound(a, 1)
For j = 0 To UBound(a, 2)
s = s & a(i, j) & vbCrLf
Next
Next
MsgBox s
End If
End Sub

[WindAndWaves]

"rkc" <rk*@rochester.yabba.dabba.do.rr.bomb> wrote in message
news:N2******************@twister.nyroc.rr.com...

WindAndWaves wrote:

Thanks for the answers guys.

I tried it:

Function yyy(x As Boolean, a())
MsgBox a(2, 1)
End Function
Function zzz()
Call yyy(True, 1, "yellow", 2, "orange", 3, "white", 4, "shit")
End Function

But it does not seem to like it ( i can not compile it)

I don't know what use you're trying to make of it, but as a
proof of concept...
Sub zzz()
Dim a(1, 2) As Variant
a(0, 0) = "yellow"
a(0, 1) = "orange"
a(0, 2) = "blue"
a(1, 0) = "lemon"
a(1, 1) = "tangerine"
a(1, 2) = "smurf"

Call yyy(True, a())
End Sub
Sub yyy(x As Boolean, a())
Dim i As Integer, j As Integer
Dim s As String

If x then
For i = 0 To UBound(a, 1)
For j = 0 To UBound(a, 2)
s = s & a(i, j) & vbCrLf
Next
Next
MsgBox s
End If
End Sub

Thanks a lot guys, yeah, it was just the syntax that I was unsure about. I
am making a function that add strings to a recordset. Usually, I just use
docmd.runsql(update ...or insert), but when you have unpredictable strings
with funny characters then it is easier to use
rst.addnew
rst.fields(xxx) = blah
rst.update

I have made the function, so now it would be really nice to be able to pass
a whole array of field names and values. I am still kind of working it out.
I will post the final function on here so that others may use it.

Thank you

- Nicolaas

[Trevor Best]

WindAndWaves wrote:

"Trevor Best" <no****@besty.org.uk> wrote in message
news:41**********************@news.zen.co.uk...

WindAndWaves wrote:

Hi Folks

I know that this is possible:
Function tt(x as string, nv())

where NV is an array.

What I am wondering is if NV can be a multidimensional array.

I checked the help, but found no information.

In the time it takes to get an answer here you could have tried it :-)

The answer's yes BTW.

--
This sig left intentionally blank

Thanks for the answers guys.

I tried it:

Function yyy(x As Boolean, a())
MsgBox a(2, 1)
End Function
Function zzz()
Call yyy(True, 1, "yellow", 2, "orange", 3, "white", 4, "shit")
End Function

Try Split() function.

--
This sig left intentionally blank