Fjerne varenummer og derefter alfabetisere varenavn

Hvor langt kan dit varenummer være? Er de altid kun 2 cifre?

Denne skulle gøre det:

Dim MaxUd, FMax, K, i, intSpace As Integer
Dim strnavn As String
Dim a As String
Dim b As String
MaxUd = DMax("[Tæller]", "Tabel1")
For K = 1 To MaxUd
strnavn = LTrim$(Me.[felt1])
FMax = Len(strnavn)
For i = 1 To FMax + 1
If Mid$(strnavn, i, 1) = " " Then Exit For
intSpace = i
Next i
a = LTrim$(Mid$(strnavn, 1, intSpace))
b = LTrim$(Mid$(strnavn, intSpace + 2, FMax))
Me.nytfelt = b & " " & a
DoCmd.GoToRecord acForm, "frm1", acNext, 1
Next K
DoCmd.GoToRecord acForm, "frm1", acPrevious, 1

hvor tæller er et numerisk felt i tabellen, og nytfelt modtager den nye tekststreng.
Den er afprøvet i en testdb som jeg kan sende, hvis du lægger din e-mail.

mugs: du må gerne sende testdb til penie@aabenraakom.dk

Sendt.

Vender lige tilbage i morgen

En rigtig god løsning!! Lige hvad jeg havde brug for!