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:
|
Приватное formattract функции (rst как dao. Recordset) как шнур
Тусклый тракт, обзор, BlockNum, SurveyName, Acreage, formatstr
Тусклый s, r, Rdir, t, Tdir, графство, положение, TractOnly
Тракт = getval (rst, «тракт»)
Обзор = getval (rst, «обзор»)
BlockNum = getval (rst, «BlockNum»)
SurveyName = getval (rst, «SurveyName»)
Acreage = getval (rst, «Acreage»)
S = getval (rst, «s»)
R = getval (rst, «r»)
Rdir = getval (rst, «Rdir»)
T = getval (rst, «t»)
Выберите случай getval (rst, «Tdir»)
Покрывайте «n»: Tdir = «северно»
Случай «s»: Tdir = «южно»
Случай «e»: Tdir = «восточно»
Случай «w»: Tdir = «западно»
Случай еще: Tdir = ""
Конец отборный
Графство = getval (rst, «графство»)
Положение = getval (rst, «положение»)
TractOnly = getval (rst, «TractOnly»)
formatstr = тракт
Если TractOnly = ложно после этого
Выберите случай UCase (положение)
Покрывайте «TX», «ТЕХАС»
Если formatstr обзора > "" после этого = formatstr + «раздела» + обзор
Если BlockNum > formatstr "" после этого = formatstr + «, блок» + BlockNum
Если SurveyName > formatstr "" после этого = formatstr + «,» + SurveyName
Если formatstr графства > "" после этого = formatstr + «, в» + графство + «графство, Техас», то
Если formatstr Acreage > "" после этого = formatstr + «содержащ приблизительно» + CStr (Acreage) + «акры, больше или.», то
Случай «ОДОБРЕННЫЙ», «OKLAHOMA»
Если formatstr s > "" после этого = formatstr + «раздела» + s
Если formatstr t > "" после этого = formatstr + «, посёлок» + t + ««+ Tdir
Если formatstr r > "" после этого = formatstr + «, ряд» + r + «,» + Rdir
Если formatstr графства > "" после этого = formatstr + «меридиана Cimarron,» + графство + «графство, Oklahoma», то
Если formatstr Acreage > "" после этого = formatstr + «содержащ приблизительно» + CStr (Acreage) + «акры, больше или.», то
Конец отборный
Закончитесь если
formattract = заменяет ть (formatstr, «,», «, ") 'получает освобожданным двойных запятых
Функция конца
|
