Function to split text in a query

[Leo_Polla_Psemata]

Hi
From this thread,
http://www.access-programmers.co.uk/forums/showthread.php?t=149053
i tried to use this code

Public Function SplitFile(intField As Integer, strValue As String, strDelimiter As String) As String
Dim varSplit As Variant

varSplit = Split(strValue, strDelimiter, , vbTextCompare)

SplitFile = varSplit(intField)

End Function

But it returns this error

Could someone enlighten me about it ?
What should I do/ type ?
I want to use this function in a query and split text like this

MyField1:SplitFile(1,[YourUnSplitFieldName],",")
MyField2:SplitFile(2,[YourUnSplitFieldName],",")
MyField3:SplitFile(3,[YourUnSplitFieldName],",")

 

[CJ_London]

think it should be

Dim varSplit() As Variant

 

[Leo_Polla_Psemata]

Hi
The code is like this

Public Function SplitFile(intField As Integer, strValue As String, strDelimiter As String) As String
Dim varSplit() As Variant

varSplit = Split(strValue, strDelimiter, , vbTextCompare)

SplitFile = varSplit(intField)

End Function

And the error

 

[Gasman]

Split is an access function and you have a module called that?

 

[Leo_Polla_Psemata]

Hi
I have changed Module name to spli

 

[CJ_London]

re your last post - suggest your read the whole thread you provided, in particular post #15

 

[MarkK]

Hi
I have changed Module name to spli

Yeah, but did that solve the problem?

 

[moke123]

varSplit = Split(strValue, strDelimiter, , vbTextCompare)

you have one too many commas