Opdeling af fornavn og efternavn i streng

Jeg fandt der her ved at søge på split.

Tager højde for forskellige strenglængder og bruger "/" som adskillelse:
Dim varStreng, varResult1, varResult2 As String
varStreng = "255/45555"
varResult1 = Left$(varStreng, InStr(varStreng, "/") - 1)
varResult2 = Mid$(varStreng, InStr(varStreng, "/") + 1)
MsgBox varResult1
MsgBox varResult2

Du kan så ændre den til:
Dim navn, fornavn, efternavn As String
navn = "Hans Myrre Hansen"
fornavn = Left$(navn, InStr(navn, " ") - 1)
efternavn = Mid$(navn, InStr(navn, " ") + 1)

Ved ikke om du skal ændre mid$ til noget andet for at sikre at den tager evt mellemnavn og efternavn rigtig med, men det er da noget at lege med.

Hvis du kan bruge det, så er det super. Jeg kan ikke hjælpe mere eller mindre i dag, da jeg lukker ned nu.

Jeg bruger denne i en fortløbende formular:

Dim MaxUd, FMax, K, i, intSpace As Integer
Dim strnavn As String
DoCmd.OpenForm "form1"
Me.Requery
MaxUd = DMax("[Tæller]", "Tabel1")
For K = 1 To MaxUd
strnavn = LTrim$(Me.[Navn])
FMax = Len(strnavn)
For i = 1 To FMax + 1
If Mid$(strnavn, i, 1) = " " Then Exit For
intSpace = i
Next i
Me.[Fornavn] = LTrim$(Mid$(strnavn, 1, intSpace))
Me.[Efternavn] = LTrim$(Mid$(strnavn, intSpace + 2, FMax))
DoCmd.GoToRecord acForm, "form1", acNext, 1
Next K
DoCmd.GoToRecord acForm, "form1", acPrevious, 1

If you are sure that the name always has a space and the first space is always used to split first and last names then you can use

FirstName =  Left(navn, InStr(1, Navn, " "))
LastName = (Navn, Len(Navn) - InStr(1, Navn, " "))

Instr() finder kun første forekomst af søgestrengen, og skiller dermed forkert - prøv følgende:

Fornavn = Left(Navn, InstrRev(Navn, " ") - 1)
Efternavn = Mid(Navn, InstrRev(Navn, " ") + 1)

Hvis det er i en forespørgsel, skal kommaerne skiftes ud med semikolon.

claesdamlund>Have I misunderstood something? Arent we only looking for the first " "?

navn = "Hans Myrre Hansen"
fornavn = "Hans"
Efternavn ="Myrre Hansen"

Sorry - you are right, Terry. My excuse is that the normal way to split names (in Denmark anyway) is firstname and middlename together, and lastname by itself.

Anyway, my suggestion can be used with the InStr function instead of the InStr function:

Fornavn = Left(Navn, InStr(Navn, " ") - 1)
Efternavn = Mid(Navn, InStr(Navn, " ") + 1)

(your suggestion takes the space into the firstname)

No need for apologies claesdamlund, I would also have expected it to be your way, but gave an answer to the question asked.

Have a good (sunny) weekend.

mvh
Terry

claesdamlund har faktisk ret. Navnene forekommer således:
navn = "Hans Myrre Hansen"
fornavn = "Hans Myrre"
Efternavn ="Hansen"

Men detter her fungere ikke:
Fornavn = Left(Navn, InstrRev(Navn, " ") - 1)
Efternavn = Mid(Navn, InstrRev(Navn, " ") + 1)