Split funktion

JournalNr: Journal([notatfelt])

ret notatfelt til navnet på dit notatfelt

i et modul

Public Function Journal(textstr)
If Len(textstr) > 0 Then
O = Split(textstr, "Journalnr ")
If UBound(O) > 0 Then
Journal = Left(O(1), 6)
Else
Journal = "Journalnr findes ikke"
End If
End If

Da der er et mellemrum mellem ordet Journalnr og de næste karakterer, skal vi have returneret 7 karakterer og derefter elimineret mellemrummet. Jeg har brygget lidt videre på kabbak's forslag:

Public Function Journal(felt1)
Dim VARa As String
If Len(felt1) > 0 Then
O = Split(felt1, "journalnr")
If UBound(O) > 0 Then
VARa = Left(O(1), 7)
Journal = Right(VARa, 6)
Else
Journal = "Journalnr findes ikke"
End If
End If
End Function

felt1 er navnet på dit notatfelt, og du kalder modulet fra en forespørgsel ved i en ny tom kolonne at indtaste:

Udtryk1: Journal([felt1])

hvilket kalder funktionen og sender variablen [felt1] til modulet (funktionen)

mugs > mellemrummet er elimeneret, det er med i teksten her

O = Split(textstr, "Journalnr ")

Det må være det med brillerne - Men du er jo også bare "en knajt".
Bøjer mig i støvet :o)

Tak kabbak. Læg lige et svar ellers kan jeg ikke give dig nogen af pointene. Også tak til Mugs. Du får også point, men vent lige til kabbak har lagt svar

Hvad vil der egentlig ske hvis der i notatfeltet står skrevet Journalnr xxxxx flere gange ? Jeg kan selvfølgelig prøve !

Så vil den finde den første forekomst og vise dette journalnr i forespørgslen.

et svar ,-))