udskifte Å med aa

du kan gøre det onkeyup eller når felt forlades.
replace(felt,"Å","Aa",vbBinaryCompare)
og så en
replace(felt,"å","aa",vbBinaryCompare)

Er det kun å du vil have lavet om til aa, eller gælder det alle tegn som kan skrives på forskellige måder, f.eks. æ = ae, é = e, osv, se f.eks. http://en.wikipedia.org/wiki/Unicode_equivalence (der er typisk nogle funktioner der kan gøre arbejdet for dig uden du skal lave search/replace)

Og hvad er grunden til du vil have lavet teksten om, hvis man må spørge? :)

Skal den stå sådan her ?

Private Sub Tekst17_AfterUpdate()
Me.Tekst17 = Replace(Tekst17, "Å", "AA", vbBinaryCompare)
End Sub

når du har
, vbBinaryCompare
på, så er det KUN Å, der skiftes ikke å

Takker har fundet ud af det nu. Koden kom til at se sådan her ud:

Me.Tekst17 = UCase(Tekst17)

Me.Tekst17 = Replace(Tekst17, "Å", "AA")
Me.Tekst17 = Replace(Tekst17, "Æ", "AE")
Me.Tekst17 = Replace(Tekst17, "Ø", "OE")

Det virker som det skal.

claes57, kan du ikke skrive et svar så du kan få point ?

Her er point så