udvælge en del af en kolonne

Du kan bruge Right$-funktionen til at tage de sidste x tegn fra en \"celle\".

=Right$([kolonnens navn]; 3)
hvor 3 er antallet af tegn.

HDH
ProAccess

jeg har prøvet i access men det jeg får ud af det er ingen ting. Dvs. at felterne er tomme.

Hvordan er din tabel opbygget, og hvad er kriteriet for din xxx-xxx-xxx celle??

Skal du lave en ny tabel, eller tilrette den oprindelige??

Har du allerede data liggende i en access-tabel, eller ligger de et andet sted??

Det er en flad tabel og der er ingen kriterier for xxx-xxx-xxx cellen. Jeg skal lave en ny tabel og smide de sidste 3 tegn ind i den som en del af en sammensat nøgle f.eks H01-002-003 hvor 003 så skal bruges i de nye tabel. Det skal lige sige at tabellen(ikke den nye) er sammenkædet med en dBase database.

Så skulle du kunne lave følgende Forespørgsel:

SELECT Right$([FeltNavn], 3) AS NytFelt FROM [TabelNavn];

Felt- og TabelNavn skal erstattes med de rigtige navne...

Dette kan ændres til en tabeloprettelses-forespørgsel, når du får tilføjet dine øvrige felter med information.

Brug MID funktionen via en query.

Lav en query på baggrund af din tabel. Skriv denne streng i din query.

Mid([Felt1];9;3)

[felt1] er det felt hvor dine xxx-xxx-xxx værdier står.

såfremt felt 1 = 123-456-789, ville din MID resulterer 789 som resultat.

resultatet kunne du nu update i et nyt felt i din tabel eller en anden tabel

Til Region: Mid er ikke så god, da df9934 fortalte at xxx er på HØJEST 3 tegn. Derved kan du risikere at tallet hedder: \"12-34-56\" istedet for \"123-456-789\". Derved duer mid ikke, da Mid([Felt1];9;3) giver \"\".

Til df9934: Kan den sidste del af tallet (altså det du vil trække ud) godt være på 1 eller 2 tegn? I så fald duer det jo ikke at tage de 3 sidste tegn. Derimod skal man finde det sidste \"-\" og så tage resten!

Dene funktion skulle gøre det:

Public Function OpsplitTekst(Tekst As String)
    Dim Pos As Integer
    Pos = Len(Tekst)
    Do Until Mid(Tekst, Pos, 1) = \"-\" Or Pos = 1
        Pos = Pos - 1
    Loop
    OpsplitTekst = Mid(Tekst, Pos + 1)
End Function

Derved kunne du lave en query, med følgende SQL:

INSERT INTO [NyTabel] ( *, [NytFelt] )
SELECT *, OpsplitTekst([GlFelt])
FROM GlTabel;

Derved får du oprettet en ny tabel, som er identisk med den gamle, bortset fra at du får en ekstra kolonne med det nye felt. Derefter kan du altid fjerne og tilføje kolonner i den nye tabel som du vil.

mvh
Thomas

Ovenstående eksempel duer forøvrigt uanset antallet af tegn efter den sidste \"-\", og kan derfor bruges under alle omstændigheder.

/Thomas