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 privé de fonction (rst comme dao. Recordset) comme corde
Faible région, aperçu, BlockNum, SurveyName, surface cultivée, formatstr
Faible S, R, Rdir, T, Tdir, comté, état, TractOnly
Région = getval (rst, « région »)
Aperçu = getval (rst, « aperçu »)
BlockNum = getval (rst, « BlockNum »)
SurveyName = getval (rst, « SurveyName »)
Surface cultivée = getval (rst, « surface cultivée »)
S = getval (rst, « S »)
R = getval (rst, « R »)
Rdir = getval (rst, « Rdir »)
T = getval (rst, « T »)
Choisir le cas getval (rst, « Tdir »)
Enfermer « N » : Tdir = « nord »
Cas « S » : Tdir = « sud »
Cas « E » : Tdir = « est »
Cas « W » : Tdir = « occidental »
Cas autrement : Tdir = ""
Extrémité choisie
Comté = getval (rst, « comté »)
État = getval (rst, « état »)
TractOnly = getval (rst, « TractOnly »)
formatstr = région
Si TractOnly = faux puis
Choisir le cas UCase (l'état)
Enfermer « TX », le « TEXAS »
Si formatstr d'aperçu > de "" puis = formatstr + « de section » + aperçu
Si BlockNum > formatstr de "" puis = formatstr + « , bloc » + BlockNum
Si SurveyName > formatstr de "" puis = formatstr + « , » + SurveyName
Si formatstr du comté > de "" puis = formatstr + « , dans » + comté + « comté, le Texas »
Si formatstr de surface cultivée > de "" puis = formatstr + « contenant approximativement » + CStr (surface cultivée) + « acres, plus ou moins. »
Cas « CORRECT », le « OKLAHOMA »
Si formatstr de S > de "" puis = formatstr + « de section » + S
Si formatstr de T > de "" puis = formatstr + « , banlieue noire » + T + « « + Tdir
Si formatstr de R > de "" puis = formatstr + « , gamme » + r+ « , » + Rdir
Si formatstr du comté > de "" puis = formatstr + « du méridien de Cimarron, » + comté + « comté, l'Oklahoma »
Si formatstr de surface cultivée > de "" puis = formatstr + « contenant approximativement » + CStr (surface cultivée) + « acres, plus ou moins. »
Extrémité choisie
Finir si
le formattract = remplacent (formatstr, « , », « , ") 'se débarassent de doubles virgules
Fonction de fin
|
