Ontleden textvak?

[Demeter]

Hallo,

Ik vul een combobox met de namen van de medewerkers. Nadat er een naam gekozen is worden de gegevens van deze persoon zichtbaar in het formulier.

De combobox vul ik met namen vanuit een werkblad.
achternaam (kolom A), voornaam (C) tussenvoegsel (B) -----> Vries, Sjaak de

Nu wil op zijn naam zoeken in de database, maar deze krijg ik niet meer in stukken gehakt.
Vries, Sjaak de moet in stukken worden gehakt zodat:
If achternaam = Vries And voornaam = Sjaak And tussenvoegsel = de Then
code uitvoeren.

De code die ik hiervoor gebruikte (toen het tussenvoegsel nog onderdeel was van de achternaam):

i = InStr(zoeknaam, ", ") 'naammedewerker delen op de plaats van de komma
stZoekenLinks = Trim(Left(zoeknaam, i - 1))   'var. Zoeknaam staat links van de komma
stZoekenRechts = Trim(Right(zoeknaam, Len(zoeknaam) - i))

Ik krijg het niet voor elkaar om er een derde regel tussen te plaatsen welke doet wat ik wil (zeg maar: welke werkt)

Iemand?


Bijvooraat dank,
Ferenc

 

[Roncancio]

i = InStr(zoeknaam, ", ") 'naammedewerker delen op de plaats van de komma
stZoekenLinks = Trim(Left(zoeknaam, i - 1))   'var. Zoeknaam staat links van de komma
stZoekenRechts = InStr(i + 2, zoeknaam, " ") 'Achternaam
stTussenvoegsel = Right(zoeknaam, Len(zoeknaam) - stZoekenRechts)

stTussenvoegsel wordt dus "de"


Met vriendelijke groet,


Roncancio

 

[Demeter]

Roncancio,

Thanxs voor het vlugge antwoord maar..........
stZoekenRechts = InStr(i + 2, zoeknaam, " ") 'Achternaam geeft nu als output een getal.
Dit zou de voornaam moeten zijn.

Hoe pas ik dit aan?


Groet,
Ferenc

 

[Roncancio]

Speedy Gonzalez

i = InStr(Zoeknaam, ", ") 'naammedewerker delen op de plaats van de komma
stZoekenLinks = Trim(Left(Zoeknaam, i - 1))   'var. Zoeknaam staat links van de komma
stZoekenRechts = Mid(Zoeknaam, i + 2, InStr(i + 2, Zoeknaam, " ") - (i + 2)) 'Achternaam
stTussenvoegsel = Right(Zoeknaam, Len(Zoeknaam) - InStr(i + 2, Zoeknaam, " "))

Met vriendelijke groet,


Roncancio

 

[Demeter]

Roncancio,

Thanks :thumb:, werkt als een trein.

Groet,
Ferenc