Jak převést datové hodnoty datového typu Text do správného formátu velkých písmen v aplikaci Microsoft Access

Článek
03/13/2024
Platí pro:

Access 2007, Access 2003, Access 2002

Střední: Vyžaduje základní dovednosti v makrech, kódování a interoperabilitě.

Tento článek se týká souboru databáze Microsoft Access (MDB) nebo souboru databáze Microsoft Access (.accdb).

Souhrn

Tento článek popisuje, jak převést datové hodnoty datového typu Text do správného formátu malých a velkých písmen.

Další informace

Datové hodnoty datového typu Text lze převést do správného formátu velkých a velkých písmen pomocí jedné z následujících metod:

Metoda 1: Použití funkce převodu řetězců Built-In
Metoda 2: Použití funkce User-Defined

Poznámka Před použitím některé z těchto metod vytvořte ukázkovou tabulku s názvem MyTestTextList. Postupujte takto:

Vytvořte v Accessu novou prázdnou databázi.
Vytvořte novou tabulku s následujícími poli:
```
Field Name: testText
Data Type: Text
```
Uložte tabulku jako MyTestTextList.

Do tabulky přidejte následující ukázkový testText:

the cOw jumped Over the MOON

THE QUICK BROWN FOX jUmped over THE lazy DOG

Uložte databázi jako MyTestDatabase.

Metoda 1: Použití integrované funkce převodu řetězců

Otevřete databázi MyTestDatabase v Accessu.
V nabídce Vložit klikněte na Dotaz.

Poznámka V aplikaci Microsoft Office Access 2007 nebo novější verzi klepněte na tlačítko Návrh dotazu ve skupině Jiné na kartě Vytvořit .
V dialogovém okně Nový dotaz klikněte na Návrhové zobrazení.

Poznámka V Accessu 2007 nebo novější verzi tento krok přeskočte.
V dialogovém okně Zobrazit tabulku klikněte na Zavřít.
V nabídce View (Zobrazení) klikněte na SQL View (Zobrazení SQL).

Poznámka V Accessu 2007 nebo novější verzi klikněte na SQL ve skupině Výsledky na kartě Návrh .

Do zobrazení SQL zadejte následující kód:

SELECT testText, STRCONV(testText,3) as  TestText_in_Proper_Case FROM MyTestTextList

V nabídce Dotaz klikněte na Spustit.

Poznámka V Accessu 2007 nebo novější verzi klikněte na Spustit ve skupině Výsledky na kartě Návrh .

Výstup dotazu je následující:

TestTextTestText_in_Proper_Case
the cOw jumped Over the MOONThe Cow Jumped Over The Moon
THE QUICK BROWN FOX jUmped overTHE lazy DOG The Quick Brown Fox Jumped Over The Lazy Dog

Poznámka Metoda StrConv(<Text,3>) převede první písmeno každého slova v textu na velká písmena. K tomuto chování dochází pouze v případě, že jsou slova oddělena mezerou nebo tabulátorem. StrConv nezachází se speciálními znaky, jako je - nebo $, jako je oddělovač slov.

Metoda 2: Použití uživatelem definované funkce

Otevřete databázi MyTestDatabase v Accessu.
V nabídce Vložit klikněte na položku Modul.

Poznámka V Accessu 2007 nebo novější verzi klikněte na šipku rozevíracího seznamu v části Makro ve skupině Jiné na kartě Vytvořit .

V aktuálním modulu zadejte následující kód a uložte změny.

Function Proper(X)
Capitalize first letter of every word in a field.

Dim Temp$, C$, OldC$, i As Integer

If IsNull(X) Then

Exit Function

Else

Temp$ = CStr(LCase(X))

' Initialize OldC$ to a single space because first
        ' letter must be capitalized but has no preceding letter.

OldC$ = " "

For i = 1 To Len(Temp$)
                C$ = Mid$(Temp$, i, 1)
                If C$ >= "a" And C$ <= "z" And (OldC$ < "a" Or OldC$ > "z") Then
                      Mid$(Temp$, i, 1) = UCase$(C$)
                End If
                OldC$ = C$
         Next i

Proper = Temp$

End If

End Function

Poznámka Pokud chcete, aby funkce fungovala správně, musíte v části Deklarace tohoto modulu zadat Parametr Compare Database.

V nabídce Soubor klikněte na Zavřít a vrátit se do Aplikace Microsoft Access.

Poznámka V nabídce Soubor klikněte na Zavřítpro Access 97.
V nabídce Vložit klikněte na Dotaz.

Poznámka V Accessu 2007 nebo novější verzi klikněte na Návrh dotazu ve skupině Jiné na kartě Vytvořit .
V dialogovém okně Nový dotaz klikněte na Návrhové zobrazení.

Poznámka V Accessu 2007 nebo novější verzi tento krok přeskočte.
V dialogovém okně Zobrazit tabulku klikněte na Zavřít.
V nabídce View (Zobrazení) klikněte na SQL View (Zobrazení SQL).

Poznámka V Accessu 2007 nebo novější verzi klikněte na SQL ve skupině Výsledky na kartě Návrh .
Do zobrazení SQL zadejte následující kód:
```
SELECT testText, proper(testText) as  testText_in_Proper_Case FROM MyTestTextList
```
Všimněte si, že tento dotaz je podobný dotazu v metodě 1. To je s výjimkou volání funkce.