Poolse en andere tekens

[so10070]

Hoe kan ik uit een Poolse naam de tekens (bv. ć, ł) omzetten in een c of een l. De Poolse tekens worden wel in het veld opgeslagen maar kan ik niet in de procedure opnemen.

TekstMetVreemdeTekens = Replace(TekstMetVreemdeTekens, "é", "e")

Ik kan hier geen Poolse tekens invullen.
Hoe zou ik dat moeten doen?
Bedankt voor de hulp.

 

[OctaFish]

Waarom niet?

TekstMetVreemdeTekens = Replace(TekstMetVreemdeTekens, "[FONT=Verdana]ć[/FONT][FONT=Verdana]", "[/FONT][FONT=Verdana]ł[/FONT][FONT=Verdana]")

[/FONT]

 

[alphamax]

Sorry, ik dacht dat dit het excel forum was maar dit is het access forum.
Vergeet mijn excel bestandje alhoewel er code in staat die ook in access zou moeten werken.

Kijk eens in dit bestandje.
Clou: ChrW met de unicode waarde van het karakter.

 

[so10070]

Ik snap het niet. Als ik copy/paste doe vanuit de opmerking van OctaFish krijg ik een "c" of een "l". Doe ik copy/paste vanuit de procedure van alphamax krijg ik al die speciale tekens. Maar ik slaag er niet in om een "ć" of een "ł" in mijn procedure te zetten.

 

[Pletter]

so10070,

Voer je de Poolse namen zelf in, of staan ze al in een tabel?

Groetjes

 

[so10070]

De namen komen uit een tabel.

 

[Pletter]

so10070,

Geef een screenafbeelding van de tabel in ontwerpweergave.
Geef de Poolse letters en de letters waarmee ze vervangen moeten worden.

Groetjes,

 

[so10070]

"Palikuća" vervangen door "Palikuca"
"Włodarska" vervangen door "Wlodarska"

 

[OctaFish]

Post eens een database voorbeeldje, lijkt mij veel handiger (en voor jou: vele malen sneller).

 

[so10070]

Hierbij.

Het gaat over de lijnen in de module. Hopelijk kunnen jullie mij verder helpen.

            'TekstMetVreemdeTekens = Replace(TekstMetVreemdeTekens, "Poolse l", "l")
            'TekstMetVreemdeTekens = Replace(TekstMetVreemdeTekens, "Poolse c", "c")

Bekijk bijlage VreemdeTekens.zip

 

[OctaFish]

Tja, zo komen we natuurlijk niet verder, want dit voorbeeldje had je in bericht #1 óók al gegeven. Dus nogmaals: maak een écht voorbeeldje, dus een database. geen teksten.

 

[so10070]

Iets mis gelopen. Hierbij de database.

 

[OctaFish]

Zal er zo naar kijken .

 

[Pletter]

so10070,

Kwam deze tegen en een beetje aangepast. Denk dat het hiermee wel lukt.

Open Formulier1 en klik op Knop.


Zie Zip bestand: Bekijk bijlage VerwijderTekens.zip

Groetjes,

 

[OctaFish]

Kan met een klein stukje code opgelost worden op je formulier.

Private Sub Knop0_Click()
    VreemdeTekens Me.RGebruikerNaam, Me.RGebruikerVoornaam
End Sub

Function VreemdeTekens(waardeN, waardeV As String)
    Me.RNaamZonder = StrConv(StrConv(waardeN, vbFromUnicode, 1032), vbUnicode)
    Me.RVoornaamZonder = StrConv(StrConv(waardeV, vbFromUnicode, 1032), vbUnicode)
End Function

 

[so10070]

Geweldig collega's, bedankt. En opnieuw weer veel bijgeleerd! :thumb: