split i access 97

Jeg ved ikke om denne fungerer i 97:

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

Den opdeler feltet navn i felterne Fornavn og Efternavn ved det første mellemrum.

evt. denne taget herfra: http://www.eksperten.dk/spm/231080:

Private Sub felt1_BeforeUpdate(Cancel As Integer)
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))
End Sub

jeg må med skam beklage at jeg kan ikke helt følge dig.
Problemet er at jeg skal hente data ind fra en kommasepereret txt fil. Men kan ikke bruge split i 97, jeg er ikke helt klar over hvilken del af dit hint der er ment som svar. Jeg er desværre ikke haj i vb, endnu :-)

sendte min sidste kommentar inden jeg havde læst din sidste kommentar! Forsøger mig lige igen

Koderne opdeler efter importen. Det er nok der vi går ferjl af hinanden.

hmm, jeg har en fil med følgende data struktur (a-nr(integer),b-nr(integer),Dato(20040315), tidspunt (ex 20.36.40),uge)
Jeg skal med en funktion fra en formular hente de, fra txtfilen, underliggende data ind i en tabel. Jeg vil gerne give 60 point ekstra hvis du kan hjælpe til en løsning.

jeg vil self. godt give dig pointene for dine første foreslag hvis du ikke ønsker at forsøge med det sidste spm.

Du skal kun give point hvis dit problem er løst. Men jeg tror du skal vente på en VBA-haj :o)

not solved, but thanks for trying.