Vraag : Bepalend variabelen aan vertoningswoorden die op gecodeerde waarden worden gebaseerd

Ik heb een db gebied [Tdir] dat met „N“, „S“, „E“, of „w“ wordt gecodeerd om het noorden, zuiden, het oosten, en het westen te vertegenwoordigen. Ik probeer om het te hebben het volledige die woord uitschrijven op de code in een vorm wordt gebaseerd. Hoe wijzig ik de volgende code om dit te doen? 

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

Private Functie 
formatstr
    Schemerige Tdir, T
    Tdir = getval (rst, „Tdir“)
    T = getval (rst, „T“)

    formatstr = Landstreek
    Als T > "" toen formatstr = formatstr + „, Gemeente“ + T + „„+ Tdir
               
        Uitgezocht eind
    Eind als
    
De Functie van het eind

Antwoord : Bepalend variabelen aan vertoningswoorden die op gecodeerde waarden worden gebaseerd

Schijnt eenvoudig genoeg…

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:

Privé Functie formattract (rst als dao. Recordset) als Koord
    Schemerige Landstreek, Onderzoek, BlockNum, SurveyName, Oppervlakte, formatstr
    Schemerig S, R, Rdir, T, Tdir, Provincie, Staat, TractOnly
    Landstreek = getval (rst, „Landstreek“)
    Onderzoek = getval (rst, „Onderzoek“)
    BlockNum = getval (rst, „BlockNum“)
    SurveyName = getval (rst, „SurveyName“)
    Oppervlakte = getval (rst, „Oppervlakte“)
    S = getval (rst, „S“)
    R = getval (rst, „R“)
    Rdir = getval (rst, „Rdir“)
    T = getval (rst, „T“)
    Selecteer getval Geval (rst, „Tdir“)
        Geval „N“: Tdir = het „Noorden“
        Geval „S“: Tdir = „Zuiden“
        Geval „E“: Tdir = het „Oosten“
        Geval „W“: Tdir = het „Westen“
        Geval anders: Tdir = ""
    Uitgezocht eind
    Provincie = getval (rst, „Provincie“)
    Staat = getval (rst, „Staat“)
    TractOnly = getval (rst, „TractOnly“)
    
    formatstr = Landstreek
    Als TractOnly = Vals toen
        Selecteer Geval UCase (Staat)
            Geval „TX“, „TEXAS“
                Als het Onderzoek > "" toen formatstr = formatstr + „van Sectie“ + onderzoeken
                Als BlockNum > "" toen formatstr = formatstr + „, Blok“ + BlockNum
                Als SurveyName > "" toen formatstr = formatstr + „,“ + SurveyName
                Als Provincie > "" toen formatstr = formatstr + „, in“ + Provincie + „Provincie, Texas“
                Als Oppervlakte > "" toen formatstr = formatstr + „ongeveer bevattend“ + CStr (Oppervlakte) + „acres, min of meer.“
            „O.K.“ geval, „OKLAHOMA“
                Als S > "" toen formatstr = formatstr + „van Sectie“ + S
                Als T > "" toen formatstr = formatstr + „, Gemeente“ + T + „„+ Tdir
                Als R > "" toen formatstr = formatstr + „, Waaier“ + R + „,“ + Rdir
                Als Provincie > "" toen formatstr = formatstr + „van de Meridiaan Cimarron,“ + Provincie + „Provincie, Oklahoma“
                Als Oppervlakte > "" toen formatstr = formatstr + „ongeveer bevattend“ + CStr (Oppervlakte) + „acres, min of meer.“
        Uitgezocht eind
    Eind als
    formattract = vervang (formatstr, „,“, „,“) 'van de hand doen dubbele komma's
    
Beëindig Functie
Andere oplossingen  
 
programming4us programming4us