Uppercase på første bogstav

Følgende funktion gør som du vil have det. Den kan du lægge i en include eller have den i toppen af det dokument du vil bruge det i.

Eks..

Streng="miCROsoft winDOWs"
Streng=PCase(Streng)

Nu er streng="Microsoft Windows"

<%
Function PCase(strInput)
Dim iPosition
Dim iSpace
Dim strOutput
iPosition = 1
Do While InStr(iPosition, strInput, " ", 1) <> 0
iSpace = InStr(iPosition, strInput, " ", 1)
strOutput = strOutput & UCase(Mid(strInput, iPosition, 1))
strOutput = strOutput & LCase(Mid(strInput, iPosition + 1, iSpace - iPosition))
iPosition = iSpace + 1
Loop
strOutput = strOutput & UCase(Mid(strInput, iPosition, 1))
strOutput = strOutput & LCase(Mid(strInput, iPosition + 1))
PCase = strOutput

End Function
%>

hvis nu at valideringen skal ske i "dataark-visning", når man taster værdier ind i cellerne.

hvor gør man så. Jeg havde forestillet med noget "makro-ting".

Whops sorry.. troede vi var i ASP-kategorien.

Det er rimelig let når man kender et lille tricks.

Brug funktionen StrConv!
F.eks. [felt]=StrConv([Felt],vbProperCase)

Sæt denne ind i EfterOpdaterings-hændelsen på f.eks. en tekstboks.

Eks.
Private Sub navn_AfterUpdate()
    [navn].Value = StrConv([navn].Value, vbProperCase)
End Sub

Bemærk - du SKAL bruge .value og ikke .text, da tekstboksen har fokus og er i redigeringstilstand.

/El Ranger

[Navn] = feltnavn, ik?

Jeg f.eks. en formular med et felt "Emne". Jeg går i designvisning, og vælger "egenskaber" på feltet "Emne". Går ned under fanebladet "hændelser" vælger "Efter opdatering" - trykker på generatorknappen og indsætter det som du har skrevet foroven. Gemmer og kigger igen på formularen. Men der sker ikke noget.

Hvad går jeg galt?

[Navn] = navnet på dit kontrol-element (dvs. tekstboks) som kan være forskelligt fra dit feltnavn hvis du ikke har ladet Guiden generere det for dig.

Så det letteste er at have vist dit felt i en tekstboks der hedder det samme om dit felt.

Husk at skrive ".value", og husk at det er kodegeneratoren du skal vælge, og at det "kun" er den ene linie du skal indsætte : "[navn].Value = StrConv([navn].Value, vbProperCase)"

Husk at "[navn].value" står to steder og selvfølgelig skal erstates med dit kontrolelementnavn (prøv at sige det hurtigt ti gange efter hinanden i en branderet!) begge steder.

Din felt's værdi bliver først opdateret når du forlader feltet, og VEL og MÆRKE har redigeret indholdet! Dvs, eksisterende felter ikke bliver vist på den måde du ønsker!

Hvis du også ønsker det skal du have noget tilsvarende kode på formen's OnCurrent (VedAktuel) for at være sikker på at det altid sker uanset om du redigerer eller ej.

/El Ranger

Takker for hjælpen :)
Jeg vil gerne give dig point med det samme - men det virker åbenbart ikke lige for øjeblikket. Så de kommer lidt senere.

Har du evt. en liste over hvad alle funktionerne i udtryksgeneratoren betyder? Hvor kan man finde ud af hvordan og til hvad de bruges til?????

Det var så lidt.

Nja, jeg har ikke rigtig en liste ligende, men selv plejer jeg at slå funktionerne op i hjælpen (selv om det virker af røven til inde fra udtryksgeneratoren - jo det kan lade sig gøre at markere en funktion og springe direkte ind i hjælpen til beskrivelsen af den funktion, men det kræver at man gør tingene i den rigtige 100% rækkefølge. That sucks), ellers bruger jeg en bog.

/El Ranger.