ByRef argument type mismatch when passing variable [VB6]

[Shaitan00]

Given the following code: If MatchF("Location", rArray(6)) Then Pass = False
Where: Public Function MatchF(strField As String, strValue As String)
This generates the following error “Compile Error: ByRef argument type mismatch”

Any clues as to why?
I tried the following code: If MatchF("Location", rArray(6).Value) Then Pass = False
This generates the following error: “Run-Time Error 424: Object Required”

All I want to do is pass that part of the Array into the MatchF function to determine if it is a match. The contents of Public Function MatchF should not make any difference nor should the contents @ rArray(6) itself.

[RhinoBull]

What type of array is rArray ?
You may need to use string conversion function:

If MatchF("Location", CStr(rArray(6))) Then

[Shaitan00]

All I used was : Dim rArray(15)
(should I declare it AS something? if so what?)

I thought it would have something to do with my MatchF function.
Wouldn't I change that to something like:

MatchF(strField As String, byref strValue As String)
or something?

[RhinoBull]

If type is not specified - VARIANT is assumed.
You may need to define your array as string:

Dim rArray(15) As String

[techgnome]

Originally posted by Shaitan00
All I used was : Dim rArray(15)
(should I declare it AS something? if so what?)

I thought it would have something to do with my MatchF function.
Wouldn't I change that to something like:

MatchF(strField As String, byref strValue As String)
or something?

Your MatchF function IS FINE, leave it alone. It's the array that's not right. By not setting the data type, you've declared it as a variant. 1) either dim it as an array of string or 2) CSTR the element when passing it to the MatchF function. Either way it's your choice, but the function is fine.

Tg

[Merri]

Too bad ByRef won't work to the variant. Of course you can do a CStr, but if the value will be changed, it does not change in the array. A simple example code:

Private Sub DoAChange(ByRef Something As String)
    Something = "Woot!"
End Sub
Private Sub Form_Load()
    Dim AnArray(0)
    
    DoAChange CStr(AnArray(0))
    Caption = AnArray(0)
End Sub

Caption will be just empty, because nothing got assigned to the array. All we changed was what CStr() holded, and it wasn't stored anywhere.


The only solution to the problem is to declare the array as a string array or to change ByRef datatype to Variant.