hive tekst ud af en streng

Er du sikker på, at det kun er det første navn? Fornavn kan jo ofte være flere navne?

Jeg har disse 2, som finder både fornavn og efternavn. de skal begge bruges, da findfornavn bruger findefternavn:

Public Function FindEfternavn(navn As String) As String
  Dim strArray() As String
  strArray() = VBA.Split(navn)
  FindEfternavn = strArray(UBound(strArray()))
End Function

Public Function FindFornavn(navn As String) As String
    If InStr(1, navn, " ") = 0 Then
        FindFornavn = ""
    Else
        FindFornavn = Left(navn, Len(navn) - Len(FindEfternavn(navn)) - 1)
    End If
End Function

tak, men jeg er novice i sql.
Så hvordan lyder den:
Min starter sådan:

SELECT Personken.personnavn
FROM Personken;

Læg de 2 funktioner i et modul.

Herefter ser din SQL således ud:

Select FindFornavn(personnavn) As Fornavn, FindEfternavn(personnavn) As Efternavn FROM Personken;

Hej har nu følgende:
Select FindFornavn(personken.personnavn) As Fornavn, FindEfternavn(personken.personnavn) As Efternavn FROM (personken.personnavn);

men får fejl om, at den ikke kan finde jet-databasemotoren

hmm....når du prøver at køre forespørgslen? Mystisk.

Prøv evt lige at komprimer/reparer databasen....

Du brude kunne gøre det med denne SQL:

SELECT Left([Personnavn],InStrrev([Personnavn]," ")-1) AS Fornavn
FROM Personken;

Den forudsætter dog, at der ER mindst ET fornavn og ET efternavn.