Code groot telefoonnummer

[Hoornvan]

Helpers,

Ik zit met het volgende probleem;
Ik heb verschillende adressen met telefoonnummers.
Zo wel uit Nederland als Engeland en Frankrijk.
Nederland = 10 Cijfers
Engeland = 13 Cijfers ( met de 2 "00" ervoor)
Frankerijk = 12 Cijfers (met de 2 "00" ervoor)
De vraag;
Hoe kan ik dit in het Formulier met code verwezelijken?

If Telefoon.Value > 10 then Telefoon.Value = 00 + Telefoon.Value

Dit werk niet, of is dit niet mogelijk?

 

[Roncancio]

Dan kan je LEN gebruiken om de lengte van het telefoonnummer te bepalen.

Met vriendelijke groet,


Roncancio

 

[Hoornvan]

Roncancio,

Dan kan je LEN gebruiken om de lengte van het telefoonnummer te bepalen.

Dank je voor het antwoordt, ik ga in help kijken hoe het werkt.

 

[leofact]

Wanneer je de 00 voor het nummer wilt zetten, kun je dat beter als tekst doen >
"00" & telefoon.value

mvg leo

 

[Hoornvan]

leofact,

Wanneer je de 00 voor het nummer wilt zetten, kun je dat beter als tekst doen >
"00" & telefoon.value

Dank voor het antwoordt, ik ben voorlopig nog aan het puzzelen waar het moet staan en hoe het in de macro te verwerken.

 

[Hoornvan]

leofact,

"00" & telefoon.value

Dit is me gelukt, alleen zet hij bij een Ned.Tel.nummer er een 0 extra voor.
Dus inplaats van 020 maakt hij er 0020 van met de buitelandse nummers gaat het goed.

 

[Cobbe]

Kun je hier iets mee:

telefoon = Format(telefoon, "00 000 00 00 00")

Cobbe

 

[Hoornvan]

Cobbe,

Kun je hier iets mee:
telefoon = Format(telefoon, "00 000 00 00 00")

Ik heb het geprobeerd maar het geef niet het gewenste resultaat.
Toch bedankt.

 

[Roncancio]

If LEN(Telefoon.Value) > 10 then Telefoon.Value = "00" + Telefoon.Value

Je kunt MID gebruiken om een gedeelte van een telefoonnummer te bepalen.
Bijv.:

If Mid(Telefoon.Value, 2, 1) = 0 Then Telefoon.Value = "0" + Telefoon.Value

Met vriendelijke groet,


Roncancio

 

[Hoornvan]

Roncancio,

If LEN(Telefoon.Value) > 10 then Telefoon.Value = "00" + Telefoon.Value

Bedankt voor het stukje code, het werkt perfect.