Passing arrays to functions

[Eric Ellsworth]

Hi,
I'm having trouble passing an array to a function,
like this:

Dim sFieldsNotRequi red(11), sFieldsWithSpec ificValues(5) As String
Dim sCaseErrMsgs As String
Dim vFieldsSpecific Values(5) As Variant
sFieldsNotRequi red(0) = "middleName "
etc...

sFieldsWithSpec ificValues(0) = "InfoRecd"
etc...

vFieldsSpecific Values(0) = True
etc...
Dim sCaseSQL As String
sRecSQL = "SELECT * from table WHERE ID = " & iID

Dim bInfoValidates As Boolean

bInfoValidates = CheckRecordset( sSQL, sFieldsNotRequi red(),_
sFieldsWithSpec ificValues(), _
vFieldsSpecific Values(), sCaseErrMsgs)
Where
CheckRecordset is defined as:

Function CheckRecordset( sRecordsetSQL As String, sFieldsNotRequi red() As
String, _
sFieldsWithSpec ificValues() As String, _
vFieldsSpecific Values() As Variant,
sErrMessages As String) As Boolean

The trouble is I get the error:

type mismatch array or user-defined type expected

This is also true when I call the function as

bInfoValidates = CheckRecordset( sSQL, sFieldsNotRequi red,_
sFieldsWithSpec ificValues, _
vFieldsSpecific Values, sCaseErrMsgs)

can somebody give me some clues as to what's going on?

Thanks,

Eric

[MGFoster]

Eric Ellsworth wrote:

Hi,
I'm having trouble passing an array to a function,
like this:

Dim sFieldsNotRequi red(11), sFieldsWithSpec ificValues(5) As String
Dim sCaseErrMsgs As String
Dim vFieldsSpecific Values(5) As Variant < SNIP > Function CheckRecordset( sRecordsetSQL As String, sFieldsNotRequi red() As
String, _
sFieldsWithSpec ificValues() As String, _
vFieldsSpecific Values() As Variant, sErrMessages
As String) As Boolean

The trouble is I get the error:
type mismatch array or user-defined type expected
This is also true when I call the function as

< SNIP >

-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1

This Dim:

Dim sFieldsNotRequi red(11), sFieldsWithSpec ificValues(5) As String

Sets the array sFieldsNotRequi red() to a Variant array, not a String
array. This is correct declaration:

Dim sFieldsNotRequi red(11) As String, sFieldsWithSpec ificValues(5) As
String

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

-----BEGIN PGP SIGNATURE-----
Version: PGP for Personal Privacy 5.0
Charset: noconv

iQA/AwUBQHdTPIechKq OuFEgEQLmNQCg+y AyMvtiaBdRK3P7C hs4M/FKj5UAoMCp
9Xp0mvfAFz52iGp 8o/+yztiB
=ps64
-----END PGP SIGNATURE-----