Vedsendte argumenter

DFenne tildeler felt2 alle tegn til venstre for en bindestreg:

Dim SearchChar As String
Dim SearchString As String
Dim Streng As String
SearchChar = "-"
SearchString = felt1
Streng = felt1
felt2 = Left(String:=Streng, length:=(InStr(1, SearchString, SearchChar, 1) - 1))

Function Splitit()
Dim sStr

sStr = Split("hej-torben", "-") '

Docmd.runsql "INSERT into tbl1 (someField) VALUES ('" & sStr(0) & "')"

Docmd.runsql "INSERT into tbl2 (someField) VALUES ('" & sStr(1) & "')"


End Function

left(s,3)

og

right(s,6)

eller måske snarere:

pos = instr(s,"-")

og så

left(s,pos-1)

right(s, len(s) - pos)

Se evt, her, samme spørgsmål:

http://www.eksperten.dk/spm/382752

janick1111>We have a better chance of helping if you comment!

Det må vist være tid at lukke spørgsmålet nu !