Vraag & Antwoord

Anders (software)

access hoofdletters - kleine letters

6 antwoorden
  • Hoe kan ik in een tabel met een veld met nummer en een veld met tekst de tekst die nu in hoofdletters staat omzetten naar kleine letters in access 97? Is hier een bepaald commando voor om de 140 records om te zetten?
  • De volgende code doet dit voor het huidiger record en is gebaseerd op een knop. 140x clicken en klaar. Dit is een zeer slordige manier, maar doet voor jou de truc (en ik ben te lui om het nu volledig te automatiseren). Het gebruikt de VBA functie [b:6de7243b57]lcase[/b:6de7243b57]. In het voorbeeld ga ik ervanuit dat je veld waar de tekst in staat 'mytext' heet. Plaats een knop op je formulier en edit de bijbehorende (VBA) kode. [code:1:6de7243b57] Private Sub Command4_Click() On Error GoTo Err_Command4_Click mytext = LCase(mytext) DoCmd.GoToRecord , , acNext Exit_Command4_Click: Exit Sub Err_Command4_Click: MsgBox Err.Description Resume Exit_Command4_Click End Sub [/code:1:6de7243b57] Om te gebruiken ga je naar het eerste record en druk je op de knop. De tekst wordt veranderd en daarna wordt er automatisch naar het volgende record gesprongen (en dus wordt het veranderde record ook opgeslagen).
  • Is er ook zo'n script om de eerste letter in een hoofdletter te veranderen? Bedankt!
  • Dat doe je toch niet met een script? Dat doe je met een query, en dan gebruik je idd dezelfde functie Lcase (of Ucase voor hoofdletters). Hele tekstveld naar kleine letters: UPDATE Tabel SET Veld = LCase(Veld) WHERE ... Eerste letter naar hoofdletter: UPDATE Tabel SET Veld = UCase(Left(Veld, 1)) & Mid(Veld, 2) WHERE ... Met Left() en Mid() pak je gedeeltes van een tekenreeks, kijk eens in de help bij die functies...
  • Oh en Wim, met je procedure moet er alsnog 140 op een knop worden geklikt... Waarom geen oneindige lus dan? Hij stopt toch netjes bij een fout (dus als ie niet naar volgende record kan): [code:1:3d1175de3b]Private Sub Command4_Click() On Error GoTo Err_Command4_Click Do While 1 < 2 mytext = LCase(mytext) DoCmd.GoToRecord , , acNext Loop Err_Command4_Click: End Sub[/code:1:3d1175de3b]
  • [quote:7b11eee5e6="Paulus"]Oh en Wim, met je procedure moet er alsnog 140 op een knop worden geklikt... Waarom geen oneindige lus dan? Hij stopt toch netjes bij een fout (dus als ie niet naar volgende record kan): [/quote:7b11eee5e6] Ik zei al dat ik lui was :D :D Als ik het goed zou doen, zou ik ook niet op het formulier werken, maar direct op de tabel. Maar aangezien ik slechts sporadisch in VBA programmeer (misschien een (1) serieuze database per jaar), moet ik iedere keer het wiel opnieuw uitvinden :oops: Overigens stopte mijn versie niet na 140x :wink: klikken, maar begon gezellig nieuwe records aan te maken bij iedere volgende klik :D

Beantwoord deze vraag

Weet jij het antwoord op deze vraag? Registreer of meld je aan met je account

Dit is een gearchiveerde pagina. Antwoorden is niet meer mogelijk.