Stort begyndelsesbogstav - resten med småt

Hvis du har navnene i A kolonnen fra A2 af.
Lav en tom kolonne ved siden af
skriv =STORT.FORBOGSTAV(B2)
Træk den ned af

Vælg kopier på den nye kolonne
vælg sæt ind special cærdier, så er det i orden

=STORT.FORBOGSTAV(A2)

sorry

Har jeg misforstået noget, eller er dette ikke Access :o)

[FELTNAVN].Value = StrConv([FELTNAVN].Value, vbProperCase)

Undskyld forkert katogori, jeg troede det var Excel

:o)

Hej mugs,
Virker ikke helt rigtig...SQL ser således ud:UPDATE tblSort SET [Bet].Value = StrConv([Bet].Value,vbProperCase);

Medmindre jeg har lavet en fejl. Feltet Bet er textfelt. Der spørges efter en value på Bet ?, og desuden brokker den sig over brugen af kantede paranteser.

mvh

Jeg har lavet det i VBA og ikke SQL. Er det noget du skal bruge flere gange eller kun een gang, i givet fald kan det gøres med en løkke.

kun den ene gang - tror jeg :-)

hvis du har lavet det i vba - hvor sætter du det ind henne ? på en form og en knap eller ?

Jeg bruger det i formularens VedAktuel.

Sæt denne ind i en kommandoknap:

Do Until Me.NewRecord = True
[FELTNAVN].Value = StrConv([FELTNAVN].Value, vbProperCase)
DoCmd.GoToRecord acForm, "FORMULARNAVN", acNext, 1
Loop

Hej mugs,
Endnu engang imponerer du , mig ! Det virker - næsten. Det kan godt være mig der ikke fik foklaret det hele eller ikke grundigt nok.
Hvis der står 'ETNAVN' så bliver hele ordet lavet om til små bogstaver. Hvis der står 'ETNAVN ETELLERANDET' , bliver første ord lavet om til små bogstaver, og andet ord med stort begyndelsesbogstav og resten med småt.

Forøvrigt så hedder det acDataForm istedet for acForm - det forslår Access selv.

Ikke her. Uanset hvor mange ord der er i feltet bliver hvert ord stavet med stort begyndelsesbogstav. Koden er afprøvet og jeg kan sende den.

PETER > Peter
peter > Peter

SØRINE SØRENSEN > Sørine Sørensen
sørine sørensen > Sørine Sørensen

Jeg tror du overser tegnene ' ' der omslutter NAVN

Ja - Det er korrekt

Dim Streng As String, a As String, længde As Integer, længde1 As Integer, b
Do Until Me.NewRecord = True
længde = Len(felt1)
længde1 = længde - 1
b = Right(felt1, længde1)
Me.felt1 = b
[felt1].Value = "'" & StrConv([felt1].Value, vbProperCase)
DoCmd.GoToRecord acForm, "form1", acNext, 1
Loop

eksempel er sendt

Den virker perfekt - Den gav en lille fejl, da den var nået igennem halvdelen af posterne, men det er jo ikke din fejl at der var 4 tomme poster midt i det hele. Fjernede de tomme og så kørte den det hele igennem upåklageligt.
MANGE tak for hjælpen. - Så blev det alligevel en god Søndag.

Selv tak - Og fortsat god Søndag. Skal du bruge koden mere, skal vi lige se på, om den ikke kan forenkles lidt :o)

Hvordan ændres koden


Do Until Me.NewRecord = True
[FELTNAVN].Value = StrConv([FELTNAVN].Value, vbProperCase)
DoCmd.GoToRecord acForm, "FORMULARNAVN", acNext, 1
Loop

til kun at ændre det første bogstav i et felt hvor der kan stå flere ord?

På forhånd tak

Er det kun det første ord af flere der skal starte med stort bogstav?

Ja ligesom denne sætning: Jeg har det godt

DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE TABEL SET [FELT] = UCase(Left([FELT],1)) & LCase(Mid([FELT],2))"
Me.Requery
DoCmd.SetWarnings True

idet du erstatter ordet TABEL med navnet på din tabel og ordet FELT med navnet på dit felt.

Det virked.

Tak for hjælpen.

Selv tak :o)