Home Back E-mail



Nederlandse Provincies "per" postcode, voor FileMaker Pro


De Nederlandse provincies zijn in principe te "herkennen" aan de eerste drie of vier cijfers van de postcode. Hierdoor kan het invullen van de provincie in een database worden geautomatiseerd. Hieronder volgt de desbetreffende formule die ik voor FileMaker Pro heb aangemaakt. Voor andere programeeromgevingen moet u de gegevens wellicht een beetje bewerken. De cijfermatige gegevens zijn afkomstig van de PTT (januari 2000).

Toevoeging 2007: Inmiddels heet PTT "TNT". Bovendien heeft de onderstaande lijst ten gevolge van gemeentelijke herindelingen wellicht her & der wijzigingen ondergaan. Een garantie op volledige juistheid kan derhalve niet worden gegeven. Na de formule voor FileMaker Pro volgt hieronder een tweede poging (2007) die mij vriendelijkerwijs door Kees V. werd toegezonden. Desondanks blijft het opletten geblazen. Zo bevindt zich bijv. de postbus van het gemeentekantoor Vianen in de provincie Utrecht maar het straatadres in Zuid-Holland...

Succes ermee!

Case(

t_land="Nederland" and
(
Left(t_postcode;4)=7705
or
(Left(t_postcode;4)>=7740 and Left(t_postcode;4)<=7766)
or
(Left(t_postcode;4)>=7800 and Left(t_postcode;4)<=7944)
or
(Left(t_postcode;4)>=7948 and Left(t_postcode;4)<=7949)
or
(Left(t_postcode;4)>=7957 and Left(t_postcode;4)<=7991)
or
(Left(t_postcode;4)>=8350 and Left(t_postcode;4)<=8351)
or
(Left(t_postcode;4)>=8380 and Left(t_postcode;4)<=8387)
or
(Left(t_postcode;4)>=8437 and Left(t_postcode;4)<=8439)
or
(Left(t_postcode;4)>=9300 and Left(t_postcode;4)<=9343)
or
(Left(t_postcode;4)>=9400 and Left(t_postcode;4)<=9475)
or
(Left(t_postcode;4)>=9480 and Left(t_postcode;4)<=9497)
or
(Left(t_postcode;4)>=9510 and Left(t_postcode;4)<=9537)
or
Left(t_postcode;4)=9564
or
(Left(t_postcode;4)>=9570 and Left(t_postcode;4)<=9574)
or
(Left(t_postcode;4)>=9654 and Left(t_postcode;4)<=9659)
or
Left(t_postcode;4)=9749
or
(Left(t_postcode;4)>=9760 and Left(t_postcode;4)<=9766));
"Drente";

t_land="Nederland" and
(
(Left(t_postcode;4)>=1300 and Left(t_postcode;4)<=1359)
or
(Left(t_postcode;4)>=3890 and Left(t_postcode;4)<=3899)
or
(Left(t_postcode;4)>=8200 and Left(t_postcode;4)<=8256)
or
(Left(t_postcode;4)>=8300 and Left(t_postcode;4)<=8322));
"Flevoland";

t_land="Nederland" and
(
(Left(t_postcode;4)>=8388 and Left(t_postcode;4)<=8435)
or
(Left(t_postcode;4)>=8440 and Left(t_postcode;4)<=9299)
or
(Left(t_postcode;4)>=9850 and Left(t_postcode;4)<=9853)
or
(Left(t_postcode;4)>=9870 and Left(t_postcode;4)<=9873));
"Friesland";

t_land="Nederland" and
(
(Left(t_postcode;4)>=3770 and Left(t_postcode;4)<=3785)
or
(Left(t_postcode;4)>=3792 and Left(t_postcode;4)<=3794)
or
(Left(t_postcode;4)>=3840 and Left(t_postcode;4)<=3888)
or
(Left(t_postcode;4)>=3925 and Left(t_postcode;4)<=3925)
or
(Left(t_postcode;4)>=4000 and Left(t_postcode;4)<=4119)
or
(Left(t_postcode;4)>=4147 and Left(t_postcode;4)<=4161)
or
(Left(t_postcode;4)>=4170 and Left(t_postcode;4)<=4197)
or
(Left(t_postcode;4)>=4211 and Left(t_postcode;4)<=4212)
or
(Left(t_postcode;4)>=4214 and Left(t_postcode;4)<=4214)
or
(Left(t_postcode;4)>=5300 and Left(t_postcode;4)<=5335)
or
(Left(t_postcode;4)>=6500 and Left(t_postcode;4)<=6582)
or
(Left(t_postcode;4)>=6600 and Left(t_postcode;4)<=7399)
or
(Left(t_postcode;4)>=7439 and Left(t_postcode;4)<=7439)
or
(Left(t_postcode;4)>=8050 and Left(t_postcode;4)<=8052)
or
(Left(t_postcode;4)>=8070 and Left(t_postcode;4)<=8097)
or
(Left(t_postcode;4)>=8160 and Left(t_postcode;4)<=8194));
"Gelderland";

t_land="Nederland" and
(
(Left(t_postcode;4)>=9350 and Left(t_postcode;4)<=9367)
or
Left(t_postcode;4)=9479
or
(Left(t_postcode;4)>=9500 and Left(t_postcode;4)<=9503)
or
(Left(t_postcode;4)>=9540 and Left(t_postcode;4)<=9563)
or
Left(t_postcode;4)=9566
or
(Left(t_postcode;4)>=9580 and Left(t_postcode;4)<=9651)
or
(Left(t_postcode;4)>=9660 and Left(t_postcode;4)<=9747)
or
(Left(t_postcode;4)>=9750 and Left(t_postcode;4)<=9756)
or
(Left(t_postcode;4)>=9770 and Left(t_postcode;4)<=9845)
or
(Left(t_postcode;4)>=9860 and Left(t_postcode;4)<=9866)
or
(Left(t_postcode;4)>=9880 and Left(t_postcode;4)<=9999));
"Groningen";

t_land="Nederland" and
(
(Left(t_postcode;4)>=5766 and Left(t_postcode;4)<=5817)
or
(Left(t_postcode;4)>=5850 and Left(t_postcode;4)<=6019)
or
(Left(t_postcode;4)>=6030 and Left(t_postcode;4)<=6471)
or
(Left(t_postcode;4)>=6584 and Left(t_postcode;4)<=6598));
"Limburg";

t_land="Nederland" and
(
(Left(t_postcode;4)>=4250 and Left(t_postcode;4)<=4288)
or
(Left(t_postcode;4)>=4600 and Left(t_postcode;4)<=4671)
or
(Left(t_postcode;4)>=4680 and Left(t_postcode;4)<=4681)
or
(Left(t_postcode;4)>=4700 and Left(t_postcode;4)<=5298)
or
(Left(t_postcode;4)>=5340 and Left(t_postcode;4)<=5764)
or
(Left(t_postcode;4)>=5820 and Left(t_postcode;4)<=5846)
or
(Left(t_postcode;4)>=6020 and Left(t_postcode;4)<=6029));
"Noord-Brabant";

t_land="Nederland" and
(
(Left(t_postcode;4)>=1000 and Left(t_postcode;4)<=1223)
or
(Left(t_postcode;4)>=1240 and Left(t_postcode;4)<=1277)
or
(Left(t_postcode;4)>=1380 and Left(t_postcode;4)<=1383)
or
Left(t_postcode;4)=1394
or
(Left(t_postcode;4)>=1398 and Left(t_postcode;4)<=1424)
or
(Left(t_postcode;4)>=1430 and Left(t_postcode;4)<=2158)
or
Left(t_postcode;4)=2165);
"Noord-Holland";

t_land="Nederland" and
(
(Left(t_postcode;4)>=7400 and Left(t_postcode;4)<=7437)
or
(Left(t_postcode;4)>=7440 and Left(t_postcode;4)<=7702)
or
(Left(t_postcode;4)>=7707 and Left(t_postcode;4)<=7739)
or
(Left(t_postcode;4)>=7770 and Left(t_postcode;4)<=7798)
or
Left(t_postcode;4)=7946
or
(Left(t_postcode;4)>=7950 and Left(t_postcode;4)<=7955)
or
(Left(t_postcode;4)>=8000 and Left(t_postcode;4)<=8043)
or
(Left(t_postcode;4)>=8055 and Left(t_postcode;4)<=8066)
or
(Left(t_postcode;4)>=8100 and Left(t_postcode;4)<=8154)
or
(Left(t_postcode;4)>=8196 and Left(t_postcode;4)<=8198)
or
(Left(t_postcode;4)>=8260 and Left(t_postcode;4)<=8294)
or
(Left(t_postcode;4)>=8325 and Left(t_postcode;4)<=8347)
or
(Left(t_postcode;4)>=8355 and Left(t_postcode;4)<=8378));
"Overijssel";

t_land="Nederland" and
(
(Left(t_postcode;4)>=1230 and Left(t_postcode;4)<=1231)
or
(Left(t_postcode;4)>=1390 and Left(t_postcode;4)<=1393)
or
Left(t_postcode;4)=1396
or
(Left(t_postcode;4)>=1426 and Left(t_postcode;4)<=1427)
or
(Left(t_postcode;4)>=3400 and Left(t_postcode;4)<=3464)
or
(Left(t_postcode;4)>=3467 and Left(t_postcode;4)<=3648)
or
(Left(t_postcode;4)>=3700 and Left(t_postcode;4)<=3769)
or
(Left(t_postcode;4)>=3790 and Left(t_postcode;4)<=3791)
or
(Left(t_postcode;4)>=3800 and Left(t_postcode;4)<=3836)
or
(Left(t_postcode;4)>=3900 and Left(t_postcode;4)<=3922)
or
(Left(t_postcode;4)>=3927 and Left(t_postcode;4)<=3985)
or
(Left(t_postcode;4)>=3990 and Left(t_postcode;4)<=3999));
"Utrecht";

t_land="Nederland" and
(
Left(t_postcode;4)=1428
or
(Left(t_postcode;4)>=2159 and Left(t_postcode;4)<=2163)
or
(Left(t_postcode;4)>=2170 and Left(t_postcode;4)<=3381)
or
(Left(t_postcode;4)>=3465 and Left(t_postcode;4)<=3466)
or
(Left(t_postcode;4)>=3651 and Left(t_postcode;4)<=3653)
or
Left(t_postcode;4)=3989
or
(Left(t_postcode;4)>=4120 and Left(t_postcode;4)<=4145)
or
Left(t_postcode;4)=4163
or
(Left(t_postcode;4)>=4200 and Left(t_postcode;4)<=4209)
or
Left(t_postcode;4)=4213
or
(Left(t_postcode;4)>=4220 and Left(t_postcode;4)<=4247));
"Zuid-Holland";

t_land="Nederland" and
(
(Left(t_postcode;4)>=4300 and Left(t_postcode;4)<=4589)
or
Left(t_postcode;4)=4675
or
(Left(t_postcode;4)>=4690 and Left(t_postcode;4)<=4698));
"Zeeland";

""
)



En hier dus de lijst van Kees V. uit 2007: 
Public Function WelkeProvincie(postcode As String) As String



Dim PostcodeXX As String

Dim TrimPostcode As String

TrimPostcode = Trim(postcode)

PostcodeXX = Left(TrimPostcode, 4)

If Not IsNumeric(PostcodeXX) Then

    WelkeProvincie = "Onbekend (" & postcode & ")"

    Exit Function

End If



If (PostcodeXX >= 1011 And PostcodeXX <= 1277) Then

   WelkeProvincie = "Noord-Holland": Exit Function: End If

If (PostcodeXX >= 1309 And PostcodeXX <= 1362) Then

   WelkeProvincie = "Flevoland": Exit Function: End If

If (PostcodeXX >= 1381 And PostcodeXX <= 1383) Then

   WelkeProvincie = "Noord-Holland": Exit Function: End If

If (PostcodeXX >= 1391 And PostcodeXX <= 1393) Then

   WelkeProvincie = "Utrecht": Exit Function: End If

If (PostcodeXX = 1394) Then

   WelkeProvincie = "Noord-Holland": Exit Function: End If

If (PostcodeXX >= 1396 And PostcodeXX <= 1397) Then

   WelkeProvincie = "Utrecht": Exit Function: End If

If (PostcodeXX >= 1398 And PostcodeXX <= 1424) Then

   WelkeProvincie = "Noord-Holland": Exit Function: End If

If (PostcodeXX >= 1426 And PostcodeXX <= 1427) Then

   WelkeProvincie = "Utrecht": Exit Function: End If

If (PostcodeXX = 1428) Then

   WelkeProvincie = "Zuid-Holland": Exit Function: End If

If (PostcodeXX >= 1431 And PostcodeXX <= 2158) Then

   WelkeProvincie = "Noord-Holland": Exit Function: End If

If (PostcodeXX >= 2159 And PostcodeXX <= 2163) Then

   WelkeProvincie = "Zuid-Holland": Exit Function: End If

If (PostcodeXX = 2165) Then

   WelkeProvincie = "Noord-Holland": Exit Function: End If

If (PostcodeXX >= 2171 And PostcodeXX <= 3381) Then

   WelkeProvincie = "Zuid-Holland": Exit Function: End If

If (PostcodeXX >= 3401 And PostcodeXX <= 3464) Then

   WelkeProvincie = "Utrecht": Exit Function: End If

If (PostcodeXX >= 3465 And PostcodeXX <= 3466) Then

   WelkeProvincie = "Zuid-Holland": Exit Function: End If

If (PostcodeXX >= 3467 And PostcodeXX <= 3621) Then

   WelkeProvincie = "Utrecht": Exit Function: End If

If (PostcodeXX = 3625) Then

   WelkeProvincie = "Noord-Holland": Exit Function: End If

If (PostcodeXX >= 3626 And PostcodeXX <= 3648) Then

   WelkeProvincie = "Utrecht": Exit Function: End If

If (PostcodeXX >= 3651 And PostcodeXX <= 3653) Then

   WelkeProvincie = "Zuid-Holland": Exit Function: End If

If (PostcodeXX >= 3701 And PostcodeXX <= 3769) Then

   WelkeProvincie = "Utrecht": Exit Function: End If

If (PostcodeXX >= 3771 And PostcodeXX <= 3785) Then

   WelkeProvincie = "Gelderland": Exit Function: End If

If (PostcodeXX = 3791) Then

   WelkeProvincie = "Utrecht": Exit Function: End If

If (PostcodeXX >= 3792 And PostcodeXX <= 3794) Then

   WelkeProvincie = "Gelderland": Exit Function: End If

If (PostcodeXX >= 3811 And PostcodeXX <= 3836) Then

   WelkeProvincie = "Utrecht": Exit Function: End If

If (PostcodeXX >= 3841 And PostcodeXX <= 3888) Then

   WelkeProvincie = "Gelderland": Exit Function: End If

If (PostcodeXX >= 3891 And PostcodeXX <= 3899) Then

   WelkeProvincie = "Flevoland": Exit Function: End If

If (PostcodeXX >= 3901 And PostcodeXX <= 3922) Then

   WelkeProvincie = "Utrecht": Exit Function: End If

If (PostcodeXX = 3925) Then

   WelkeProvincie = "Gelderland": Exit Function: End If

If (PostcodeXX >= 3927 And PostcodeXX <= 3999) Then

   WelkeProvincie = "Utrecht": Exit Function: End If

If (PostcodeXX >= 4001 And PostcodeXX <= 4119) Then

   WelkeProvincie = "Gelderland": Exit Function: End If

If (PostcodeXX >= 4121 And PostcodeXX <= 4124) Then

   WelkeProvincie = "Utrecht": Exit Function: End If

If (PostcodeXX >= 4126 And PostcodeXX <= 4128) Then

   WelkeProvincie = "Zuid-Holland": Exit Function: End If

If (PostcodeXX >= 4131 And PostcodeXX <= 4133) Then

   WelkeProvincie = "Utrecht": Exit Function: End If

If (PostcodeXX >= 4141 And PostcodeXX <= 4145) Then

   WelkeProvincie = "Zuid-Holland": Exit Function: End If

If (PostcodeXX >= 4147 And PostcodeXX <= 4161) Then

   WelkeProvincie = "Gelderland": Exit Function: End If

If (PostcodeXX = 4163) Then

   WelkeProvincie = "Zuid-Holland": Exit Function: End If

If (PostcodeXX >= 4171 And PostcodeXX <= 4197) Then

   WelkeProvincie = "Gelderland": Exit Function: End If

If (PostcodeXX >= 4201 And PostcodeXX <= 4209) Then

   WelkeProvincie = "Zuid-Holland": Exit Function: End If

If (PostcodeXX >= 4211 And PostcodeXX <= 4212) Then

   WelkeProvincie = "Gelderland": Exit Function: End If

If (PostcodeXX = 4213) Then

   WelkeProvincie = "Zuid-Holland": Exit Function: End If

If (PostcodeXX = 4214) Then

   WelkeProvincie = "Gelderland": Exit Function: End If

If (PostcodeXX >= 4221 And PostcodeXX <= 4247) Then

   WelkeProvincie = "Zuid-Holland": Exit Function: End If

If (PostcodeXX >= 4251 And PostcodeXX <= 4288) Then

   WelkeProvincie = "Noord-Brabant": Exit Function: End If

If (PostcodeXX >= 4301 And PostcodeXX <= 4589) Then

   WelkeProvincie = "Zeeland": Exit Function: End If

If (PostcodeXX >= 4611 And PostcodeXX <= 4671) Then

   WelkeProvincie = "Noord-Brabant": Exit Function: End If

If (PostcodeXX = 4675) Then

   WelkeProvincie = "Zeeland": Exit Function: End If

If (PostcodeXX = 4681) Then

   WelkeProvincie = "Noord-Brabant": Exit Function: End If

If (PostcodeXX >= 4691 And PostcodeXX <= 4698) Then

   WelkeProvincie = "Zeeland": Exit Function: End If

If (PostcodeXX >= 4701 And PostcodeXX <= 5298) Then

   WelkeProvincie = "Noord-Brabant": Exit Function: End If

If (PostcodeXX >= 5301 And PostcodeXX <= 5335) Then

   WelkeProvincie = "Gelderland": Exit Function: End If

If (PostcodeXX >= 5341 And PostcodeXX <= 5764) Then

   WelkeProvincie = "Noord-Brabant": Exit Function: End If

If (PostcodeXX >= 5766 And PostcodeXX <= 5817) Then

   WelkeProvincie = "Limburg": Exit Function: End If

If (PostcodeXX >= 5821 And PostcodeXX <= 5846) Then

   WelkeProvincie = "Noord-Brabant": Exit Function: End If

If (PostcodeXX >= 5851 And PostcodeXX <= 6019) Then

   WelkeProvincie = "Limburg": Exit Function: End If

If (PostcodeXX >= 6021 And PostcodeXX <= 6029) Then

   WelkeProvincie = "Noord-Brabant": Exit Function: End If

If (PostcodeXX >= 6031 And PostcodeXX <= 6471) Then

   WelkeProvincie = "Limburg": Exit Function: End If

If (PostcodeXX >= 6511 And PostcodeXX <= 6582) Then

   WelkeProvincie = "Gelderland": Exit Function: End If

If (PostcodeXX >= 6584 And PostcodeXX <= 6598) Then

   WelkeProvincie = "Limburg": Exit Function: End If

If (PostcodeXX >= 6601 And PostcodeXX <= 7399) Then

   WelkeProvincie = "Gelderland": Exit Function: End If

If (PostcodeXX >= 7411 And PostcodeXX <= 7437) Then

   WelkeProvincie = "Overijssel": Exit Function: End If

If (PostcodeXX = 7439) Then

   WelkeProvincie = "Gelderland": Exit Function: End If

If (PostcodeXX >= 7441 And PostcodeXX <= 7739) Then

   WelkeProvincie = "Overijssel": Exit Function: End If

If (PostcodeXX >= 7741 And PostcodeXX <= 7766) Then

   WelkeProvincie = "Drenthe": Exit Function: End If

If (PostcodeXX >= 7771 And PostcodeXX <= 7798) Then

   WelkeProvincie = "Overijssel": Exit Function: End If

If (PostcodeXX >= 7811 And PostcodeXX <= 7944) Then

   WelkeProvincie = "Drenthe": Exit Function: End If

If (PostcodeXX = 7946) Then

   WelkeProvincie = "Overijssel": Exit Function: End If

If (PostcodeXX >= 7948 And PostcodeXX <= 7949) Then

   WelkeProvincie = "Drenthe": Exit Function: End If

If (PostcodeXX >= 7951 And PostcodeXX <= 7955) Then

   WelkeProvincie = "Overijssel": Exit Function: End If

If (PostcodeXX >= 7957 And PostcodeXX <= 7991) Then

   WelkeProvincie = "Drenthe": Exit Function: End If

If (PostcodeXX >= 8011 And PostcodeXX <= 8045) Then

   WelkeProvincie = "Overijssel": Exit Function: End If

If (PostcodeXX >= 8051 And PostcodeXX <= 8052) Then

   WelkeProvincie = "Gelderland": Exit Function: End If

If (PostcodeXX >= 8055 And PostcodeXX <= 8066) Then

   WelkeProvincie = "Overijssel": Exit Function: End If

If (PostcodeXX >= 8071 And PostcodeXX <= 8097) Then

   WelkeProvincie = "Gelderland": Exit Function: End If

If (PostcodeXX >= 8101 And PostcodeXX <= 8154) Then

   WelkeProvincie = "Overijssel": Exit Function: End If

If (PostcodeXX >= 8161 And PostcodeXX <= 8194) Then

   WelkeProvincie = "Gelderland": Exit Function: End If

If (PostcodeXX >= 8196 And PostcodeXX <= 8198) Then

   WelkeProvincie = "Overijssel": Exit Function: End If

If (PostcodeXX >= 8211 And PostcodeXX <= 8256) Then

   WelkeProvincie = "Flevoland": Exit Function: End If

If (PostcodeXX >= 8261 And PostcodeXX <= 8294) Then

   WelkeProvincie = "Overijssel": Exit Function: End If

If (PostcodeXX >= 8301 And PostcodeXX <= 8322) Then

   WelkeProvincie = "Flevoland": Exit Function: End If

If (PostcodeXX >= 8325 And PostcodeXX <= 8347) Then

   WelkeProvincie = "Overijssel": Exit Function: End If

If (PostcodeXX = 8351) Then

   WelkeProvincie = "Drenthe": Exit Function: End If

If (PostcodeXX >= 8355 And PostcodeXX <= 8378) Then

   WelkeProvincie = "Overijssel": Exit Function: End If

If (PostcodeXX >= 8381 And PostcodeXX <= 8387) Then

   WelkeProvincie = "Drenthe": Exit Function: End If

If (PostcodeXX >= 8388 And PostcodeXX <= 9299) Then

   WelkeProvincie = "Friesland": Exit Function: End If

If (PostcodeXX >= 9301 And PostcodeXX <= 9343) Then

   WelkeProvincie = "Drenthe": Exit Function: End If

If (PostcodeXX >= 9351 And PostcodeXX <= 9367) Then

   WelkeProvincie = "Groningen": Exit Function: End If

If (PostcodeXX >= 9401 And PostcodeXX <= 9475) Then

   WelkeProvincie = "Drenthe": Exit Function: End If

If (PostcodeXX = 9479) Then

   WelkeProvincie = "Groningen": Exit Function: End If

If (PostcodeXX >= 9481 And PostcodeXX <= 9497) Then

   WelkeProvincie = "Drenthe": Exit Function: End If

If (PostcodeXX >= 9501 And PostcodeXX <= 9503) Then

   WelkeProvincie = "Groningen": Exit Function: End If

If (PostcodeXX >= 9511 And PostcodeXX <= 9537) Then

   WelkeProvincie = "Drenthe": Exit Function: End If

If (PostcodeXX >= 9541 And PostcodeXX <= 9563) Then

   WelkeProvincie = "Groningen": Exit Function: End If

If (PostcodeXX = 9564) Then

   WelkeProvincie = "Drenthe": Exit Function: End If

If (PostcodeXX = 9566) Then

   WelkeProvincie = "Groningen": Exit Function: End If

If (PostcodeXX >= 9571 And PostcodeXX <= 9574) Then

   WelkeProvincie = "Drenthe": Exit Function: End If

If (PostcodeXX >= 9581 And PostcodeXX <= 9651) Then

   WelkeProvincie = "Groningen": Exit Function: End If

If (PostcodeXX >= 9654 And PostcodeXX <= 9659) Then

   WelkeProvincie = "Drenthe": Exit Function: End If

If (PostcodeXX >= 9661 And PostcodeXX <= 9747) Then

   WelkeProvincie = "Groningen": Exit Function: End If

If (PostcodeXX = 9749) Then

   WelkeProvincie = "Drenthe": Exit Function: End If

If (PostcodeXX >= 9751 And PostcodeXX <= 9756) Then

   WelkeProvincie = "Groningen": Exit Function: End If

If (PostcodeXX >= 9761 And PostcodeXX <= 9766) Then

   WelkeProvincie = "Drenthe": Exit Function: End If

If (PostcodeXX >= 9771 And PostcodeXX <= 9845) Then

   WelkeProvincie = "Groningen": Exit Function: End If

If (PostcodeXX >= 9851 And PostcodeXX <= 9853) Then

   WelkeProvincie = "Friesland": Exit Function: End If

If (PostcodeXX >= 9861 And PostcodeXX <= 9866) Then

   WelkeProvincie = "Groningen": Exit Function: End If

If (PostcodeXX >= 9871 And PostcodeXX <= 9873) Then

   WelkeProvincie = "Friesland": Exit Function: End If

If (PostcodeXX >= 9881 And PostcodeXX <= 9999) Then

   WelkeProvincie = "Groningen": Exit Function: End If

If (PostcodeXX = 9999) Then

   WelkeProvincie = "Groningen": Exit Function: End If



WelkeProvincie = "Onbekend (" & postcode & ")"

Exit Function
Back to the list of my FileMaker Pro trouvailles

Home Back to Christoph Bouthillier Top

© 1997...