punten tussen Letters zetten

[jelleruben]

Hallo allemaal,

Ik heb heb een in een tabel een kolom met voorletter.
deze staan nu aan elkaar (b.v. ACR)

nu heb ik een nieuwe kolom, en daar in wil ik de
voorletters gescheiden hebben met punten (dus A.C.R.)

Is dit mogelijk doormiddel van een button? (VBA scrip??)

Groeten,

Jelle

 

[OctaFish]

Met deze functie bijvoorbeeld:

Function Puntjes(Veld As String) As String
On Error GoTo stoppen
Dim i As Integer
Dim st As String, stNew As String
st = ""
stNew = ""
    st = Replace(Veld, ".", "")
    st = Replace(st, " ", "")
    i = Len(st)
    For i = 1 To Len(st)
        stNew = stNew & UCase(Mid(st, i, 1)) & "."
    Next i
    Puntjes = stNew
Exit Function
stoppen:
Puntjes = ""
End Function

 

[jelleruben]

Bedankt voor het stukje code,

alleen als ik deze achter een button plaats.

Dan wordt "End Sub" automatische vervangen door:
"End Function".

Dan krijg ik de melding

"Compileerfout: Er wordt End Sub verwacht"

En de naam veld (in"st = Replace(Veld, ".", "")
dien ik te vervangen voor mijn eigen veld naam?
Of dien ik meer te vervangen?

 

[OctaFish]

De functie die ik heb gemaakt moet je in een Module zetten; die kun je zo niet gelijk achter een knop hangen. ALs je hem in een query gebruikt, roep je hem als volgt aan:
VoorlNieuw:[Puntjes([Voorletters])
Gebruik je een knop (zoals je aangeeft) dan ziet het commando er zo uit:
Me.txtVoorletters.Value=Puntjes([Voorletters])
Daarbij ga ik er voor het gemak vanuit dat je veld met oude voorletters [Voorletters] heet, en dat je op het formulier een teksttveld hebt dat [txtVoorletters] heet.
Die namen moet je uiteraard nog aanpassen.

 

[jelleruben]

OctaFish heel erg bedank, voor je uitleg. Het is me gelukt, gelukkig hoeft men nu niet duizenden records bij langs te lopen..

Bedankt.