Varför funkar inte detta? Gillar inte min split
avikatt = "10|20|30"

test= Split(avikatt, "|")
For x = 0 To UBound(test)
Str = Str & "Djur = " & test(x)
Next

Hej, du kan inte anv "str" som variabel, sätt en 1:a efter (tex) så funkar det.


EDIT: Du kan dimensionera "str" as nånting (string ex) så går det oxå
/B

Just det sa Bull Str är ett reserverat ord i VB.

Nästa gång Kalle .är det hundra om du skriver vad du fick för felmeddelande.

Varför använda Split överhuvudet taget? Du kan ju lika väl använda Replace:
<code>
Dim strAvikatt As String
Dim strResult As String

strAvikatt = "10|20|30"
If Len(strAvikatt) Then
strResult = "Djur = " & Replace(strAvikatt, "|", "Djur = ")
End If

</code>

Lysande, tack!

Om du mekar med en SQL sats. KAn du använda IN operatorn istället:
<code>
Dim strSQL As String
Dim strAvikatt As String

strAvikatt = "10|20|30"
If Len(strAvikatt) Then
strSQL = "SELECT * FROM TabellNamn WHERE Djur IN (" & Replace(strAvikatt, "|", ",") & ")"
Else
strSQL = "SELECT * FROM TabellNamn"
End If
</code>
Då kan du ju direkt använda ,-tecknet som separator:
<code>
Dim strSQL As String
Dim strAvikatt As String

strAvikatt = "10,20,30"

If Len(strAvikatt) Then
strSQL = "SELECT * FROM TabellNamn WHERE Djur IN (" & strAvikatt & ")"
Else
strSQL = "SELECT * FROM TabellNamn"
End If

</code>