Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Auteur Topic: Woorden scheiden in een veld  (gelezen 2780 keer)

0 leden en 1 gast bekijken dit topic.

Offline Oldy

  • Ervaren lid
  • ***
  • Berichten: 295
Woorden scheiden in een veld
« Gepost op: 20 juni 2004, 18:13:55 »
Hallo,

Ik heb 2000 records waarvan telkens een veld een titel bevat.
De meeste titels bestaan uit meerdere woorden.
Deze titels zijn zonder spatie aan elkaar geschreven.
Elk woord in deze titels beginnen wel met een hoofdletter.
Ik zou graag tussen elk woord een spatie hebben in al deze titels.
Manueel is dit een berg werk, is er geen manier om dit te automatiseren ?

Voorbeeld:

Bestaande situatie: NooitTeOudOmTeLeren

Zou moeten worden : Nooit Te Oud Om Te Leren

Nog mooier zou zijn als het eerste woord alléén met een hoofdletter begint natuurlijk, maar dat is wat veel van het goede denk ik.

( Ik ben wel maar een amateurke in ACCESS )
HP Pavillion Desktop 595 P0002NB
Intel(R) Core(TM) i7-9700F CPU @ 3.00GHz   3.00 GHz
SSD 512 GT1030
Ram 16Gb
Seagate 3,5 inch 1 Tb Sata 7200 rppm
2019
64-bits besturingssysteem, x64-processor
Windows 10 Home - Versie : 21H2

Offline powerkite

  • Volledig lid
  • **
  • Berichten: 207
  • Oplossing.be
Re:Woorden scheiden in een veld
« Reactie #1 Gepost op: 22 juni 2004, 19:35:25 »
Je zou volgende functie kunnen gebruiken:
Public Function Splitsen(Waarde As String) As String
For i = 1 To Len(Waarde)
teken = Mid(Waarde, i, 1)
Splitsen = Splitsen & IIf(Asc(teken) = Asc(UCase(teken)), " " & teken, teken)
Next

Splitsen = LTrim(Splitsen)
Splitsen = UCase(Left(Splitsen, 1)) & LCase(Right(Splitsen, Len(Splitsen) - 1))
End Function

groetjes Powerkite
Win XP (pro) - Pentium - 2400Mhz - 512Mb - Hercules 9200se - ADSL - Office 2003 Pro

Offline Oldy

  • Ervaren lid
  • ***
  • Berichten: 295
Re:Woorden scheiden in een veld
« Reactie #2 Gepost op: 23 juni 2004, 17:37:41 »
Bedankt Powerkite,

Ik dacht dat macro's in access hetzelfde werken als in excel, maar dat is blijkbaar niet zo.
Ik weet nu eigenlijk niet wat ik moet doen.
In ieder geval bedankt voor de moeite.

HP Pavillion Desktop 595 P0002NB
Intel(R) Core(TM) i7-9700F CPU @ 3.00GHz   3.00 GHz
SSD 512 GT1030
Ram 16Gb
Seagate 3,5 inch 1 Tb Sata 7200 rppm
2019
64-bits besturingssysteem, x64-processor
Windows 10 Home - Versie : 21H2

Offline powerkite

  • Volledig lid
  • **
  • Berichten: 207
  • Oplossing.be
Re:Woorden scheiden in een veld
« Reactie #3 Gepost op: 23 juni 2004, 22:24:46 »
Je maakt in access een module aan waarin je deze functie plakt.
Vervolgens kan je deze in een query gebruiken. Indien het niet lukt laat me dan iets weten en dan stuur ik je een voorbeeldje.
Win XP (pro) - Pentium - 2400Mhz - 512Mb - Hercules 9200se - ADSL - Office 2003 Pro

Offline Oldy

  • Ervaren lid
  • ***
  • Berichten: 295
Re:Woorden scheiden in een veld
« Reactie #4 Gepost op: 24 juni 2004, 08:29:47 »
Hallo Powerkit,

Er komt niets van terecht, ik ben wel maar een leek hoor.

Ik heb een gewone qwery gemaakt van de titels.
Een module met de function.
Bij Macro starten  krijg ik geen macro's te zien, type ik de naam van de function in blijft de OK knop ongeactiveerd.

Wat doe ik verkeerd ?
 
Daarom had ik toch graag een voorbeeldje gehad.
HP Pavillion Desktop 595 P0002NB
Intel(R) Core(TM) i7-9700F CPU @ 3.00GHz   3.00 GHz
SSD 512 GT1030
Ram 16Gb
Seagate 3,5 inch 1 Tb Sata 7200 rppm
2019
64-bits besturingssysteem, x64-processor
Windows 10 Home - Versie : 21H2

Offline powerkite

  • Volledig lid
  • **
  • Berichten: 207
  • Oplossing.be
Re:Woorden scheiden in een veld
« Reactie #5 Gepost op: 27 juni 2004, 01:03:43 »
Dit is een voorbeeldje
Win XP (pro) - Pentium - 2400Mhz - 512Mb - Hercules 9200se - ADSL - Office 2003 Pro

Offline Oldy

  • Ervaren lid
  • ***
  • Berichten: 295
Re:Woorden scheiden in een veld
« Reactie #6 Gepost op: 27 juni 2004, 17:38:00 »
Hallo Powerkite,

Dit werkt echt prima.
Met dit voorbeeldje ging heel wat beter.
Zodoende heb ik veel werk gespaard, en vooral bijgeleerd.

Nogmaals bedankt.



HP Pavillion Desktop 595 P0002NB
Intel(R) Core(TM) i7-9700F CPU @ 3.00GHz   3.00 GHz
SSD 512 GT1030
Ram 16Gb
Seagate 3,5 inch 1 Tb Sata 7200 rppm
2019
64-bits besturingssysteem, x64-processor
Windows 10 Home - Versie : 21H2

 


www.combell.com