Teken invoegen op plaats waar cursor staat

[Floor E]

Access 2007.

Ik wil via een knop een speciaal teken invoegen in een tekst op de plaats waarde de cursor zich op dat moment bevind.
Ik ben bevoorbeeld een tekst aan het typen en wil een gradenteken invoegen º door op een knop te drukken (niet iedereen kent de chrcodes uit zijn hoofd).
Hoe krijg ik dat voorelkaar in VBA?

 

[Greenery80]

Chr(186) = alt code

Hoi FloorE

Het kan echt heel simpel.

sTekst = Me![Veldnaam].Value
Me![Veldnaam].Value = sTekst & Chr(186)

Nou veel simpeler kan het bijna niet.


Als je een spatie wilt tussen tekst en gradenteken dan kan dat ook:

sTekst = Me![Producten.UnitId].Value & " "
Me![Producten.UnitId].Value = sTekst & Chr(186)

 

[Floor E]

Sorry, ik ben niet helemaal duidelijk geweest vrees ik. De door jouw beschreven manier plaatst het teken op het einde, maar ik wil ook bestaande teksten kunnen aanpassen. Het teken dient dan tussen de tekst te worden geplaatst.
Is daar een manier voor?

 

[Harry46]

Gebruik de eigenschap SelStart van het tekstvak.
Je krijgt in code dan ongeveer zoiets:

Option Compare Database
Option Explicit
Dim iPos                         As Integer

Private Sub tMijnTekst_Change()
    iPos = Me!tMijnTekst.SelStart
End Sub

Private Sub tMijnTekst_Click()
    iPos = Me!tMijnTekst.SelStart
End Sub

Private Sub cmdInvoegen_Click()
    Me!tMijnTekst = Left$(Me!tMijnTekst, iPos) & "hier het speciale teken" & Mid$(Me!tMijnTekst, iPos + 1)
End Sub

 

[Floor E]

Bedankt voor de oplossing!
Sorry voor de late reactie.