Acess odstranění znaků

[Frantisek Kravar]

Zdravím, potřebuji ze znakového výrazu odstranit posledních 8 znaků, výraz je pokaždé jinak dlouhý takže funkce left(výraz;1;a něco) mi nepomůže. Děkuji

[mike007]

Pokud chceš z výrazu odstanit posledních osm znaků, tak funkce LEFT by na to měla být dostatečná.
http://www.techonthenet.com/access/functions/string/left.php

[Frantisek Kravar]

ale já mám každý výraz jinak dlouhý a funkce left vrací počet znaků zleva a ty já mám pokaždé jinak dlouhé
výraz je ve tvaru : jméno příjmení IČO
a já potřebuji jméno příjmení zvlášť a ičo zvlášt

[navstevnik]

pouzij nasledujici:

Kód: Vybrat vše

Sub Rozdelit()
Dim str As String, Vyskyt As Byte, Delka As Byte, ICO As String, JmPrij As String
str = " jmeno   prijmeni   ICO12345678"
str = Trim(str)
Delka = Len(str)
Vyskyt = InStrRev(str, " ")
JmPrij = Left(str, Vyskyt - 1)
ICO = Right(str, Delka - Vyskyt)
End Sub

[Frantisek Kravar]

díky už to funguje