S: trække data ud af en celle

Function LeftSide(Teksten as String) as string
dim i as Integer
dim SpacePos as integer

SpacePos = 0

for i = 1 to len(Teksten)
  if mid(Teksten, i,1) = " " then
  SpacePos = i
  end if
Next i

if SpacePos <>0 then
  LeftSide = Left(Teksten,i)
else
  Leftside = Teksten
End if


Har ikke lige testet den, men burde virke.

den skal bare smide alt ud efter første mellemrum. Kan det så gøres enklere?

Det kommer lidt an paa hvilken version af access du har, men hvis det er en nyere, saa proev med:

Left(Teksten, (Instr(Teksten, " ")))

Jeg smider følgende ind:
Left([Hushandel110805]![ret],(Instr([Hushandel110805]![ret]," ")))
Får en syntaksfejl (ugyldig) og den hopper hen til det første kommai formlen

ok, hvilken version af access har du?

Og hvad sker der hvis du blot smider
Instr([Hushandel110805]![ret]," "))

ind til at starte med - hvis den virker skulle den retunere et nummber

Alternativt proev med
Instr([Hushandel110805]![ret],char(32)))

ingen af dem virker. Jeg har access 2003

hvis det er i en forespørgsel bruges ;

Left([Hushandel110805]![ret];(Instr([Hushandel110805]![ret];" ")))

hej den første virker nu ved at ændre formlen til:
InStr([Hushandel110805]![ret];" ")
Altså slette den sidste parantes og udskifte , til;. Men jeg skal jo have tekst og ikke et nummer

hej din sidste formel virker bortset fra, at alle dem, som er ok bliver ombytter til tomme celler.

ok jeg har testet i Access 2003 med f;g i en forespoerglsen paa et felt med navne:
Fornavn: Left([Test]![Navn],(InStr(1,[Test]![Navn]," ")))

Det virker ok, saa dine udgave maa blive:
Left([Hushandel110805]![ret],(Instr(1,[Hushandel110805]![ret]," ")))

ok dem er er ok er dem uden mellemrum i teskten eller hvordan?

Hvis det er tilfaeldet maa udtrykket blive:
iif(isnull(Instr(1;[Hushandel110805]![ret];" "));[Hushandel110805]![ret]; Left([Hushandel110805]![ret];(Instr(1;[Hushandel110805]![ret];" "))))

det virker ikke helt
Mine data ser således ud:

Odense
Odense
Århus
Århus bla bla

Det skal ændres til:
Odense
Odense
Århus
Århus

ok proev med :
iif(Instr(1;[Hushandel110805]![ret];" ")=0;[Hushandel110805]![ret]; Left([Hushandel110805]![ret];(Instr(1;[Hushandel110805]![ret];" "))))

lavede den selv i samme øjeblik :-)
Tak god weekend

Godt at det virkede!
God weekend :-)