Standard Jet DBnb` Ugr@?~1y0̝cßFNo7М(W"`{6߱3`C;3py[!|*O|X*f_Љ$g'DeFx -bT4.0dvNrvY Y DataIDA?YAOIndexeSubR@1% 7&  G&__District%%% O& & G% blMissionaries].[First]8 '% blMissionaries].[Last2]8 '% [tblMissionaries].[Last]7 '%![tblMissionaries].[ReleaseDate]> g%Expr1N@' o%![tblMissionaries].[MissonaryID]> g%tblMissionaries/// % % G$ blMissionaries].[First]8 '$ blMissionaries].[Last2]8 '$ [tblMissionaries].[Last]7 '$![tblMissionaries].[ReleaseDate]> g$Expr1N@' o$![tblMissionaries].[MissonaryID]> g$tblMissionaries/// $ $ G#([__Zone] = Zone)0 '#tblDistrictfrmZone55' #  G#__Zone O# # G"[tblDistrict].[Zone]3 g"[tblDistrict].[District]7 g"tblDistrict''' " " G!tlkMissionaryType333 !  G! ! G "([__MissonaryID] = MissionaryID)? ' tblAssignmentsfrmMissionaryGG-    G __MissonaryID+++ O    GblMissionaries].[First]8 g[tblMissionaries].[Last]7 g![tblMissionaries].[MissonaryID]> gtblM-[tblAssignments].[EndDate]9 g-[tblAssignments].[Date]6 g-[tblSector].[Phone]2 g-[tblSector].[District]5 g-[tblSector- :O@ :O@~sq_ffrmZoneSubSubDDDDDDDDDDD , :O@ :O@~sq_ffrmZoneSub>>>>>>>>>>> + :O@ :O@~sq_ffrmZone88888888888 * :O@ :O@~sq_ffrmSector<<<<<<<<<<< ) :O@ :O@~sq_ffrmMissionaryAssignSubVVVVVVVVVVV ( :O@ :O@~sq_ffrmMissionaryDDDDDDDDDDD ' :O@ :O@~sq_ffrmBaptisms@@@@@@@@@@@ & :O@ :O@~sq_cfrmZoneSub~sq_cfrmZoneSubSubbbbbbbbbbbb % :O@ :O@~sq_cfrmZone~sq_cZL2HHHHHHHHHHH $ :O@ :O@~sq_cfrmZone~sq_cZL1HHH YJS JJ Y   Y Y  Y Y  Y  Y  Y   Y u Y o Y n Y z Y 2lY  Y  z Y  pY ConnectDatabaseDateCreateDateUpdate FlagsForeignNameIdLvLvExtraLvModule LvPropName OwnerParentIdRmtInfoLongRmtInfoShortTypeni4ll4l44lYYIdParentIdName        CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCRRRR0D@    ~~~܊K\ *pzPosition      MSysAccounts7J ?뉛N@ N NH N PNP N NX N N`1X#xQNN8NpNN NN`N N8NhNNNNh NNh NNh NNh NNh NNh NNh NNh NNh NNh NNh NNh NNh NNh NNh NNh NNh NNh NNh NNh NNh NNh NNh NNh NNh NNh NNh NNh NNh NNh NNN0NN PNN`NN NN PNN NN PNN NN NN NN PNN  PNN  Nz NNN`pN0NhNNNNNNNNHNNNNNNN N(N0N`N@N0N dhN NN PNHN PN PN PN(N`NT,pNxNNNNNNNNNN0NhNNNNHNNNN(N`NNtblBaptismsN(NPrimaryKey BapID@NNv `N0NHNNNqNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN h NNNNNtblBaptismsPrimaryKeyPNN`NPN`NPNHOYQ}SIY Y Y  Y 2ACMFInheritableObjectIdSID% ܈YObjectId    ! "#$%&'()*+,-./01234 5!6"7#8$9%:&;'<(=)>*?+@,A-B.C/D0E1F2G3H4I5J6K7L8M9N:O;P<Q=R>S?T@UAVBWCXDYEZF[G\H]I^J_K`LaMbNcOdPeQfRgShTiUjVkWlXmYnZo[p\q]r^s_t`uavbwcxdyezf{g|h}i~jklmnopqrstu$$ $!0'L &  B@B'Ld 'kie + You may not want to use the acDialog flag.'N+ For example, if you want to set properties'H. of the form as it's loading, you can't really'H/ use acDialog (unless you do some ugly OpenArgsAd1 handling. This example opens the form invisibly,0 allows you to modify properties, and then loops" until you close or hide the form. This is the public entry point.- If the passed in date is missing (as it willUn+ be if someone just opens the Calendar form Res raw), start on the current day.H2 Otherwise, start with the date that is passed in.0 From Access 2000 Developer's Handbook, Volume I% by Getz, Litwin, and Gilbert (Sybex)!& Copyright 1999. All rights reserved. han* If they passed a value at all, attempt to use it as the start date.]] $ tha Z'd` $ as 'd@ OK, so they passed a value thate  wasn't a date. ) Just use today's date in that case, too. Z'kk. Open the form module (effectively, loading an* instance of the form, as well). Then, set properties of that form..*you wa *(.fy thi  *(0$ a) Call the ShowFormAndWait procedure. This* returns True if the form is still loaded,/ but invisible, or False if it's been unloaded.to *$0lags* If the form is still loaded, then get the/ final chosen date from the form. If it isn't,,  return Null.ass *!0'(4 v &  B@B'll fid'(ki &(2 Returns True if strName is open, False otherwise.. Assume the caller wants to know about a form.KT : 4 2$8'$"i] ]8]P( Take an opened form module, display the. form, and loop until the user closes or hides the( the form. Using this technique, you canal1 create popup forms without losing the capability+ of modifying properties of the form before1 ( displaying it.d  In:ll cha/ frm: An opened form class module referencend Out: II@ Return Value: True if the form was hidden, False if closed. A Yp SpY  Y ,*Y Y  Y  Y Y  Y AttributeExpressionFlagLvExtra Name1 Name2ObjectId Orderkk kY"ObjectIdAttribute6T)  !"#$%&'(*+,7./012345OA9:;<=>?@PCDEFGHIJKLMN\QRSUyVWXYZ[]c^_`abzefghijklmnopqrstuvwx{|}~Root Entrya/VBA@D/P>/VBAProject0.@D/P>/VBAE/P>/dir__SRP_0 >__SRP_1$__SRP_2 -  !"#%&'()*+,-./0123456789:;<=>?@ABCDEGHIJKLNOPRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvxyz{|}~߸0* pHdMissionManagementSystemQ4@  =  I@ J<9stdole>stdoleP h%^*\G{00020430-C 0046}#2.0#0#D:\WINDOWS"\32\e2.tlb#OLE Automatl0hADO DB> ADOBD.DE1D10-8DAA006D2EA4D1DProgram Files\Co0mmonM\a do\ms21NMicrosoft ActiveX Data Objects 2.1 LibraryH!DAO>DA[ !Y25E0Y00:-O5O,'Sh ared\\dao360.dl l# 3.6-,[X>(ZXQZ6*w[UZ6@ZC:\hZx*@" Ext.W6 for DDL and S@ecuritDZ ¬Form_frmZoneG3F@rm_fZn@@BZTWJUGTTQRSNDXGSLGD_FUTHAIC28AZTWJUG@TQRSNX@SL@DF@THр|ICB@11B,-"(+%D~ LG$AMis i%a`ycUZJYKNLVWKUYGEGTNFPMCMODCZFNcU`JYDKLVKU`YE`TFPPMMXDqZF!'kro^{qa#oDialog4C"m4on*i"aog$QPUBVXLTPSQGSDGJVXRFMGWIMUBB#QUBU`X1TS4GU4D JR`MWI`B4/=1 1basOpenXG@s iUe&p@MnHSLPSVITFJPLSDAMCEDFNEAIMSO_HLVTJLZA1E#A0ELMM O@O2%! L as!eUtilitiesGQjb"Dt`eCtNl`eOMERNWVBNUWPJXTDPX@OWBVKNGTDTMEfN@LV4NW JX@jD XlQW8RG APoFo [yk3Calendar3CaneNCXRGHCJRYMGXDUHMDALJVTXQOAFU3N_XGzCR gIXU`ZMAOMTQM?A@8l' 6; BP cGl` s 1c%BXJJJSLDXWFYAEQBBCTANEJFXMYIC BJ J"L  -YSY Y Y  Y  Y p Y  Y  Y ccolumn grbiticolumnszColumnszObject$szReferencedColumn$szReferencedObjectszRelationshipl4l4l 4ll4l4l 4ll4l4l 4lYYYszObject$szReferencedObjectszRelationship5 6t//PropDatau6 PropDataCopyDirDatasw7PropData;QbasFileOpenCommonDialog,basDatabaseUtilitiesbasCalc"basLinkedTablesPhoned Label4m 5CB0 3CB0 1CB0 0CB0 2CB0 4CB0 6CB0Label7m Regiond Label8mijl9mZCoded Label10MSysDbFormFooterd Label11h cmdClose2, 484, basCalendar=66, 887=Babcxe gReports//Scriptsx{//PropData=Databasesz|//0~}//Blob DirData>CustomGroups//DataAccessPages //Root EntryaGPVBA@D/P>/VBAProject0.@D/P>/VBAE/P>/qYv1b N  : k & W  C t/PropData791TypeInfo22<0/GPBlob ~4DataAccessPages //PropDataCopyBlobCopyTypeInfoCopyPropData;=7TypeInfo836R@0/0/Blob Il ͬ8]pC+LDetailFormHeaderFormFooterd Label0h cmdClosemMissonaryIDd Label2mFirstd Label3m Middled Label4m Lastd Labe  B 8@  @  @@ @ @ @Si`LJfmYk`kSi`MJ^MSi`MJ^QbOJiSi`MJ^QbOJimQkmSi``YkkYdbJivSi``YkkYdbJivJkkYUbkoLSi`kQMmdiSi`xdbQSi`xdbQkoLSi`xdbQkoLkoLLJkMJ^MLJkMJ^QbOJiLJkMdOQsiYmQiLJkOJmJLJkQomY^YmYQkLJkSY^QdfQbLJk^Yb\QOmJL^Qk Md``dbOYJ^dU!JO`Yb"OJmJJMMQkkfJUQkOJmJLJkQkSdi`k `dOo^Qk iQ^JmYdbkWYfkiQfdimk kMiYfmk kvkiQ^ mJL^Qk+kh+MSi`LJfmYk`k+kh+MYbmQiqYQsQOLv#+kh+MSi`LJfmYk`k+kh+M`YkkYdbJiv8$+kh+MSi`LJfmYk`k+kh+M`YkkYdbJiv:%+kh+MSi`LJfmYk`k+kh+MkQMmdi&+kh+MSi``YkkYdbJiv+kh+MMd`Ld<6'+kh+MSi``YkkYdbJiv+kh+MSi``YkkYdbJivJkkYUbkoL(+kh+MSi``YkkYdbJiv+kh+MmvfQ)+kh+MSi`kQMmdi+kh+MOYkmiYMm*+kh+MSi`xdbQ+kh+MSi`xdbQkoL+kh+MSi`xdbQ+kh+Mx^8+kh+MSi`xdbQ+kh+Mx^:+kh+MSi`xdbQkoL+kh+MSi`xdbQkoLkoL+kh+SSi`LJfmYk`k+kh+SSi``YkkYdbJiv+kh+SSi``YkkYdbJivJkkYUbkoL+kh+SSi`kQMmdi+kh+SSi`xdbQ+kh+SSi`xdbQkoL +kh+SSi`xdbQkoLkoL `kvkJMMQkkdL[QMmk `kvkJMQk`kvkdL[QMmk`kvkhoQiYQk`kvkiQ^JmYdbkWYfkmL^JkkYUb`Qbmk mL^LJfmYk`k mL^OYkmiYMmmL^QOYkmiYMmmL^`Q`LQikmL^`YkkYdbJiYQkmL^kQMmdimL^kQMmdiJkkYUbmL^obYmkmL^xdbQm^\`YkkYdbJivJkkYUb`Qbmm^\`YkkYdbJivmvfQJMMQkk^Jvdom`kvkOLko``JivYbSdokQiOQSYbQOmL^OYkmiYMmmL^kQMmdimL^QOYkmiYMmmL^obYmkmL^`YkkYdbJiYQkmL^JkkYUb`QbmkmL^kQMmdimL^JkkYUb`QbmkmL^kQMmdimL^kQMmdiJkkYUbmL^obYmkmL^kQMmdiJkkYUbmL^xdbQmL^OYkmiYMmde11$Sector InformationoSw1U`(a<b@c@cmdCloseCommand12t Procedure](basCodeWriterbasCalendarPropDataCopy1bhf//PropDatag1 PropDataCopy2i//PropDataj2 PropDataCopy3eql//PropDatam3 p  @ @ @ @ @ @ @ @ @           !"#$%&' (!)"*#$%&'()*+, - ./01234   SUTypeInfo8Xf/f/Blob  d Label0oDistrictd District_LabelmPhoned Label4mAltPhoned Label5m Streetd Label6m Cityd Label7m Regiond Label8mMailboxd Label9mZCoded Label10FormHeaderFormFooterd Label11h cmdClose2, 484, basCalendar=66, 887=Babcxe ghij"k 3:%)gHON  Ul UBC1i/􅎂@tblAssi     !"#$%&'(*+,-/89:<gnments~~~܊K\ *pl UBC1iEndDate^DgA:hEoyI4@X'h tblSectoriATVNK)^DgA:hEoySectorK ~I߆SF?^DgA:hEoyDistrict[eѴxNӶ^DgA:hEoyPhone:3.&Ol/b;9l UBC1iDate<¢:N^cUl UBC1iMissionaryID #xELSpl UBC1iSector1TN &_Vomﮁ@g tblMissionaries.< dO`f}1TN &_VoMissonaryID8#DoWO1TN &_VoLast-cBIIq(;% 1TN &_VoFirstRSELECT [tblSector].[Sector], [tblSector].[District], [tblSector].[Phone], [tblAssignments].[Date], [tblAssignments].[EndDate], [tblAssignments].[MissionaryID] FROM tblSector LEFT JOIN tblAssignments ON [tblSector].[Sector]=[tblAssignments].[Sector] WHERE ((([tblAssignments].[EndDate]) Is Null)); Ariald2 Tahomam45bci Arialo2 Tahoma`hFormHeader~8^Bd^Qd5U`<a<bcd e Lmd @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @    $% & ' ( ) * + , - . / 0 1 2 3 456789:;<=>?@ABCDEFGHIJKLMNOP !"#$%&'()*+,-. / 0 1!2!3!4"5"6"7#8#9#:$;$<$=%>%?%@&A&B&C'D'E'F(G(H(I)J))***+++,, , - - - .. . / / / 000111222333444 !"#$%&'()*+,-./0123456789:;<=>?  !"#gh Tahomai Arialo2 Tahoma`|FerOd5U`xa<bxc:de11$Sector InformationoSw1U`(a<b@c@cmdCloseCommand12t Procedure](basCodeWriterbasCalendarPropDataCopy1bhf//PropDatag1 PropDataCopy2i//PropDataj2 PropDataCopy3eql//PropDatam3 p @ @ @ @ @ @ @ @ @ @ @ @ @ @             ! " # $  !%!'!(!&")"+","-"*#.#0#1#2#3#/$4$6$7$8$9$ :$ ;$ <$5%=%?%@%A%B% C% D% E%>&F&H&I&J&&G''''(((() ) ) ) * ***++++,,,,------- -!-"-#-$-`d@W! @MSysAccessObjectsDDDDDDDDDDB zm@o'@tlkMissionaryAssignment$@\\\PPPPPPPN @noy@y@tblEDistrict@FFF:::::::8 @,[7@@~sq_ffrmZoneSub4MR2KeepLocal T@@@@@@@> @)^P@ R@~sq_ffrmMissionaryAssignSub4MR2KeepLocal TXXXXXXXV @'ŊA*O@ŊA*O@~sq_ffrmBaptisms24MR2KeepLocal TNBBBBBB@ `$&΂@&΂@~sq_cfrmZone~sq_cZL14MR2KeepLocal TJJJJJJJH @R @ @mL^OYkmiYMmmL^kQMmdimL^QOYkmiYMmmL^obYmkmL^`YkkYdbJiYQkmL^JkkYUb`QbmkmL^kQMmdimL^JkkYUb`QbmkmL^kQMmdimL^kQMmdiJkkYUbmL^obYmkmL^kQMmdiJkkYUbmL^xdbQmL^OYkmiYMm !" # $ % & '()*+,-./0123456789 :!;"<#=$>%?&@'A(B)C*D+E,F-G.H/I0J1K2L3M4N5O6P7Q8R9S:T;U<V=W>X?Y@ZA[B\C]D^F_E`GaIbHcJdKeMfLgPhNiOjRkQlSmTnVoUpWqX&B&C'D'E'F(G(H(I)J))***+++,, , - - - .. . / / / 000111222333444 !"#$%&'()*+,-./0123456789:;<=>?@A  !"#tabaseUtilitiesbasCalendarbasCalendarbasCalcbasCalcbasCodeWriterbasCodeWriterbasLinkedTablesbasLinkedTablesForm_frmCalcForm_frmCalcForm_frmCalendarForm_frmCalendarForm_frmCalendarTestForm_frmCalendarTestForm_frmSectorForm_frmSectorForm_frmBaptismsForm_frmBaptisms $ @ Xͬ᥀B<%GӘDetailFormHeadAcessVBADataForms `>P>//04P>/0/Blob 08w=Babc$e ghiFj-ku!g@M#hDbݡu Uc L2IL"g@tblZone*Bx2jc L2IL"Zone,݃RC,vQ戮c L2IL"ZL1DateZ2x4Bc| c L2IL"ZL2Date;Q@i?nc L2IL"ZL11TN &_Vomﮁ@tblMissionaries.< dO`f}1TN &_V^  mL^JkkYUb`QbmkmL^JkkYUb`QbmkmL^OYkmiYMmmL^kQMmdimL^kQMmdiJkkYUbmL^kQMmdiJkkYUbmL^obYmkT)  !"#$%&'(*+,7./012345OA9:;<=>?@PCDEFGHIJKLMN\QRSUyVWXYZ[]c^_`abzefghijklmnopqrstuvwx{|}~Root Entrya`v#VBAi""VBAProject0.i""VBAi""dir__SRP_0 >__SRP_1$__SRP_2 -  !"#%&'()*+,-./0123456789:;<=>?@ABCDEGHIJKLNOPRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvxyz{|}~߸0* pHdMissionManagementSystemQ4@  =  I@ J<9stdole>stdoleP h%^*\G{00020430-C 0046}#2.0#0#D:\WINDOWS"\32\e2.tlb#OLE Automatl0hADO DB> ADOBD.DE1D10-8DAA006D2EA4D1DProgram Files\Co0mmonM\a do\ms21NMicrosoft ActiveX Data Objects 2.1 LibraryH!DAO>DA[ !Y25E0Y00:-O5O,'Sh ared\\dao360.dl l# 3.6-,[X>(ZXQZ6*w[UZ6@ZC:\hZx*@" Ext.W6 for DDL and S@ecuritDZ ¬Form_frmZoneG3F@rm_fZn@@BZTWJUGTTQRSNDXGSLGD_FUTHAIC28AZTWJUG@TQRSNX@SL@DF@THр|ICB@11B,-"(+%D~ LG$AMis i%a`ycUZJYKNLVWKUYGEGTNFPMCMODCZFNcU`JYDKLVKU`YE`TFPPMMXDqZF!'kro^{qa#oDialog4C"m4on*i"aog$QPUBVXLTPSQGSDGJVXRFMGWIMUBB#QUBU`X1TS4GU4D JR`MWI`B4/=1 1basOpenXG@s iUe&p@MnHSLPSVITFJPLSDAMCEDFNEAIMSO_HLVTJLZA1E#A0ELMM O@O2%! L as!eUtilitiesGQjb"Dt`eCtNl`eOMERNWVBNUWPJXTDPX@OWBVKNGTDTMEfN@LV4NW JX@jD XlQW8RG APoFo [yk3Calendar3CaneNCXRGHCJRYMGXDUHMDALJVTXQOAFU3N_XGzCR gIXU`ZMAOMTQM?A@8l' 6; BP cGl` s 1c%BXJJJSLDXWFYAEQBBCTANEJFXMYIC BJ J"L   mL^OYkmiYMmmL^QOYkmiYMmmL^`YkkYdbJiYQkmL^kQMmdimL^kQMmdimL^obYmkmL^xdbQ{4 (5;  ^{j4@WlH"T%$FU]pC+Lj NGN*͝5xME @[LS S<@xx @h @X @H x(D @@ xX Xx @h @d @T @D @4 $ @ X x6xt @d @T (P @@ X0 @ x hp00  , "  )( 8@ H<P` h"p 0x !2T " &P8 $V`   "$,ZI+d Oc P  m 2 p  U QIu`FE}\XDBBb""i@i@~sq_cfr"i":@ ΂@EA ΂@~sq_cfrmSector~sq_cDistrict4MR2KeepLocal TXXXXXXXV @!S 8O@S 8O@~sq_cfrmMissionary~sq_cType4MR2KeepLocal TXXXXXXXV @$0a 8O@0a 8O@~sq_cfrmMissionary~sq_cCombo304MR2KeepLocal T^^^^^^^\ @#LA*O@LA*O@~sq_cfrmBaptisms~sq_cMissionary24MR2KeepLocal Tbbbbbbb` @ŊA*O@ŊA*O@~sq_cfrmBaptisms~sq_cMissionary14MR2KeepLocal Tbbbbbbb` @" Q`ɭ@p@Admin@ @8,,,,,,,,,*  %@%@CommonDialogl@FFF:::::::8 @WKL@ML@basLinkedTablesd@LLL@@@@@@@> @'@4'@basFileOpen䯰@DDD88888886 @*(@*(@basDatabaseUtilitiesJJJJJJJJJJH F@5@F@5@basCodeWriter<<<<<<<<<<: !*@|*@basCalcf@<<<0000000. @F΂@F΂@frmZoneSubSubJ@HHH<<<<<<<: @㯢@㯢@frmZoneSub䯤@BBB66666664 @g@g@frmZone@<<<0000000. @ ΂@ ΂@frmSector$@@@@44444442 @L@L@frmMissionaryAssignSub@ZZZNNNNNNNL @ ;9Wl@;9Wl@frmMissionaryH@HHH<<<<<<<: @  >`@ݱ@frmCalendar䯚@DDD88888886 @ E@E@frmCalc`@<<<0000000. @ *ZN@*ZN@frmBaptisms䯘@DDD88888886 @ 5~@5~@UserDefinedA@DDD88888886 @ 5~@'x @SummaryInfo@DDD88888886 @ tm@޽@AccessLayout4MR2KeepLocal T@zz:::::::8 @ ~@ ~@SysRel..........,  ~@ ~@Scripts0000000000.  ~@ ~@Reports0000000000.  ~@ ~@Modules0000000000.  ~@ ~@Forms,,,,,,,,,,*  ~@ ~@DataAccessPages@@@@@@@@@@> |~@|~@MSysRelationshipsDDDDDDDDDDB |~@|~@MSysQueries88888888886 |~@|~@MSysACEs22222222220 |~@|~@MSysObjects88888888886 |~@|~@Relationships<<<<<<<<<<: |~@|~@Databases44444444442 |~@|~@Tables.........., 7K= bD E = b D  \  j L  V8LbDM?y=s/i7x8< VBE6.DLL &frmZoneSubR@1% 7&  G&__District%%% O& & G% blMissionaries].[First]8 '% blMissionaries].[Last2]8 '% [tblMissionaries].[Last]7 '%![tblMissionaries].[ReleaseDate]> g%Expr1N@' o%![tblMissionaries].[MissonaryID]> g%tblMissionaries/// % % G$ blMissionaries].[First]8 '$ blMissionaries].[Last2]8 '$ [tblMissionaries].[Last]7 '$![tblMissionaries].[ReleaseDate]> g$Expr1N@' o$![tblMissionaries].[MissonaryID]> g$tblMissionaries/// $ $ G#([__Zone] = Zone)0 '#tblDistrictfrmZone55' #  G#__Zone O# # G"[tblDistrict].[Zone]3 g"[tblDistrict].[District]7 g"tblDistrict''' " " G!tlkMissionaryType333 !  G! ! G "([__MissonaryID] = MissionaryID)? ' tblAssignmentsfrmMissionaryGG-    G __MissonaryID+++ O    GblMissionaries].[First]8 g[tblMissionaries].[Last]7 g![tblMissionaries].[MissonaryID]> gtblMissionaries///   G[tblSector].[Sector]3 gtblSector###   G blMissionaries].[First]8 ' [tblMissionaries].[Last]7 'Expr1N@' o![tblMissionaries].[MissonaryID]> gtblMissionaries///   G blMissionaries].[First]8 ' [tblMissionaries].[Last]7 'Expr1N@' o![tblMissionaries].[MissonaryID]> gtblMissionaries///   G blMissionaries].[First]8 ' [tblMissionaries].[Last]7 'Expr1N@' o![tblMissionaries].[MissonaryID]> gtblMissionaries///   G^ LVALdz( | Dw0R}H%(}_DwR}Hu%_ DwR}H%_ Dw DS}HE%EE_ DwS}H%(~_`nDwS}H%(~Eu_oWDwTyXT}H58 ~%yDwT}H%(0~eee_@aDw)U}HEeeo1TDw*lU}HeeoppDw#U}HUeeeoTNDw$$V}Hee5oQNDw%V}HEueeeuoPiDwV}H%(~EoDw8W}H58~ BDwW}H58~ee`dDw&W}HEeeuo1TDwLX}H%(~EoHDw'X}HeeeeuopmDw(Y}HeUe%opsDw`Y}H%(EoDwY}H58eeeeee@iDwZ}H58 EEeee`lDwtZ}H%(0eeEuuuoptDw+Z}HeeeUeeUuo@eDw,[}H%(PeUeeee((([tblAssignments].[EndDate]) Is Null))[tblSector].[Sector]=[tblAssignments].[Sector]SELECT [tblSector].[Sector], [tblSector].[District], [tblSector].[Phone], [tblAssignments].[Date], [tblAssignments].[EndDate], [tblAssignments].[MissionaryID] FROM tblSector LEFT JOIN tblAssignments ON [tblSector].[Sector]=[tblAssignments].[Sector] WHERE ((([tblAssignments].[EndDate]) Is Null)); [Last] & ", " & [First] & " " & [Last2][Last] & ", " & [First] & " " & [Last2][Last] & ", " & [First] & " " & [Last2][Last] & ", " & [First] & " " & [Last2][Last] & ", " & [First] & " " & [Last2]]%KGO M8 4M  K[ 2 In  ?GLf'ЃgC 0a 8O@0a 8O@~sq_cfrmMissionary~sq_cfrmMis 0a 8O@0a 8O@~sq_cfrmMissionary~sq_cfrmMissionaryAssignSub4MR2KeepLocal T|||||||z @ŊA*O@ŊA*O@~sq_cfrmBaptisms~sq_cSector4MR2KeepLocal TXXXXXXXV @LA*O@LA*O@~sq_cfrmBaptisms~sq_cInterviewedBy4MR2KeepLocal Tfffffffd @,])@e)@basCalendarb@ DDD88888886 @ ݈@݈@frmCalendarTest䯠@LLL@@@@@@@> @|~@|~@MSysDbx@:::......., @4Qѷ@Qѷ@tblZonetblDistrictFFFFFFFFFFD 3Sŭ@Sŭ@tblUnitstblSectorAssignPPPPPPPPPPN 2ĭ@ĭ@tblSectortblSectorAssignRRRRRRRRRRP 1ֿ@ֿ@tblSectortblAssignmentsPPPPPPPPPPN 0_ֽ@_ֽ@tblMissionariestblAssignments\\\\\\\\\\Z /y@y@tblEDistricttblUnitsJJJJJJJJJJH .3@3@tblDistricttblSectorJJJJJJJJJJH .>G@i @tlkMissionaryType(@PPPDDDDDDDB @Q`@g@tblZone@<<<0000000. @͞@z@tblUnits@>>>22222220 @pW@Sŭ@tblSectorAssign]@LLL@@@@@@@> @Z6@I4@tblSector\@@@@44444442 @[Ǭ@mﮁ@tblMissionarieshg‹LLL@@@@@@@> @ֱ0@>O=N@tblMembers䯀 @BBB66666664 @ @㯢@tblDistrict"@DDD88888886 @k^@3N@tblBaptisms䯲 @DDD88888886 @ޛ5@/􅎂@tblAssignments@JJJ>>>>>>>< @`d@W! @MSysAccessObjectsDDDDDDDDDDB -Ѭς@:gς@~sq_ffrmZoneSubSub4MR2KeepLocal TFFFFFFFD @+&΂@&΂@~sq_ffrmZone4MR2KeepLocal Tzzz:::::::8 @*1>B ΂@xB ΂@~sq_ffrmSector4MR2KeepLocal T~~~>>>>>>>< @(S 8O@S 8O@~sq_ffrmMissionary4MR2KeepLocal TFFFFFFFD @&gN@gN@~sq_cfrmZoneSub~sq_cfrmZoneSubSub4MR2KeepLocal Tdddddddb @%΂@&΂@~sq_cfrmZone~sq_cZL24MR2KeepLocal TJJJJJJJH @#΂@΂@~sq_cfrmZone~sq_cfrmZoneSub4MR2KeepLocal TXXXXXXXV @P %a-y[= y [ =  e G )  = u *  @ @ @ @ @ @             ! " # $  !%!'!(!&")"+","-"*#.#0#1#2#3#/$4$6$7$8$9$ :$ ;$ <$5%=%?%@%A%B% C% D% E%>&F G!tlkMissionaryType333 !  G! ! G "([__MissonaryID] = MissionaryID)? ' tblAssignmentsfrmMissionaryGG-    G __MissonaryID+++ O    G[-P@ '-tblSectortblAssignments\@K?# -![tblAssignments].[MissionaryID]> g-[tblAssignments].[EndDate]9 g-[tblAssignments].[Date]6 g-[tblSector].[Phone]2 g-[tblSector].[District]5 g-[tblSector].[Sector]3 g-tblAssignments--- -tblSector### - - G,tblDistrict''' ,  G, , G+tblZone +  G+ + G*tblSector### *  G* * G)tblAssignments--- )  G) ) G(tblMissionaries/// (  G( ( G'tblBaptisms''' '  G' ' G&([__District] = District)8 ' Yr$z{NrrY Y DataIDYAOIndexeSubR@1% 7&  G&__District%%% O& & G% blMissionaries].[First]8 '% blMissionaries].[Last2]8 '% [tblMissionaries].[Last]7 '%![tblMissionaries].[ReleaseDate]> g%Expr1N@' o%![tblMissionaries].[MissonaryID]> g%tblMissionaries/// % % G$ blMissionaries].[First]8 '$ blMissionaries].[Last2]8 '$ [tblMissionaries].[Last]7 '$![tblMissionaries].[ReleaseDate]> g$Expr1N@' o$![tblMissionaries].[MissonaryID]> g$tblMissionaries/// $ $ G#([__Zone] = Zone)0 '#tblDistrictfrmZone55' #  G#__Zone O# # G"[tblDistrict].[Zone]3 g"[tblDistrict].[District]7 g"tblDistrict''' " " G!tlkMissionaryType333 !  G! ! G "([__MissonaryID] = MissionaryID)? ' tblAssignmentsfrmMissionaryGG-    G __MissonaryID+++ O    GblMissionaries].[First]8 g[tblMissionaries].[Last]7 g![tblMissionaries].[MissonaryID]> gtblM-[tblAssignments].[EndDate]9 g-[tblAssignments].[Date]6 g-[tblSector].[Phone]2 g-[tblSector].[District]5 g-[tblSector-V@V@~sq_ffrmZoneSubSubDDDDDDDDDDD ,V@V@~sq_ffrmZoneSub>>>>>>>>>>> +V@V@~sq_ffrmZone88888888888 *V@V@~sq_ffrmSector<<<<<<<<<<< )V@V@~sq_ffrmMissionaryAssignSubVVVVVVVVVVV (V@V@~sq_ffrmMissionaryDDDDDDDDDDD 'V@V@~sq_ffrmBaptisms@@@@@@@@@@@ &i@V@~sq_cfrmZoneSub~sq_cfrmZoneSubSubbbbbbbbbbbb %i@i@~sq_cfrmZone~sq_cZL2HHHHHHHHHHH $i@i@~sq_cfrmZone~sq_cZL1HHHHHHHHHHH #i@i@~sq_cfrmZone~sq_cfrmZoneSubVVVVVVVVVVV v1a-y[= y [ =  e G )  = u *  @ @ @ @ @ @ @ @ @ @              ! " # $  !%!'!(!&")"+","-"*#.#0#1#2#3#/$4$6$7$8$9$ :$ ;$ <$5%=%?%@%A%B% C% D% E%>&F&H&I&J&&G''''(((() ) ) ) * ***++++,-tblSectortblAssignments\@K?# -![tblAssignments].[MissionaryID]> g-[tblAssignments].[EndDate]9 g-[tblAssignments].[Date]6 g-[tblSector].[Phone]2 g-[tblSector].[District]5 g-[tblSector].[Sector]3 g-tblAssignments--- -tblSector### - - G,tblDistrict''' ,  G, , G+tblZone +  G+ + G*tblSector### *  G* * G)tblAssignments--- )  G) ) G(tblMissionaries/// (  G( ( G'K[  @ 06 wSysAccessObjectsLLLLLLLLLLJ z{ȕz2{ *JO`YbE)@x@4@ n)x)z{ z{ @JMMQkk^JvdomoLYUbkoL(H n)hklH *S@b)pc)a)a)d)0d)MSysACEsntsZFl0qK[v @ @ࡱ> \%6T)  !"#$%&'(*+,7./012345OA9:;<=>?@PCDEFGHIJKLMN\QRSUyVWXYZ[]c^_`abzefghijklmnopqrstuvwx{|}~Root Entrya`v#VBAi""VBAProject0.i""VBAi""dir__SRP_0 >__SRP_1$__SRP_2 -  !"#%&'()*+,-./0123456789:;<=>?@ABCDEGHIJKLNOPRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvxyz{|}~߸0* pHdMissionManagementSystemQ4@  =  I@ J<9stdole>stdoleP h%^*\G{00020430-C 0046}#2.0#0#D:\WINDOWS"\32\e2.tlb#OLE Automatl0hADO DB> ADOBD.DE1D10-8DAA006D2EA4D1DProgram Files\Co0mmonM\a do\ms21NMicrosoft ActiveX Data Objects 2.1 LibraryH!DAO>DA[ !Y25E0Y00:-O5O,'Sh ared\\dao360.dl l# 3.6-,[X>(ZXQZ6*w[UZ6@ZC:\hZx*@" Ext.W6 for DDL and S@ecuritDZ ¬Form_frmZoneG3F@rm_fZn@@BZTWJUGTTQRSNDXGSLGD_FUTHAIC28AZTWJUG@TQRSNX@SL@DF@THр|ICB@11B,-"(+%D~ LG$AMis i%a`ycUZJYKNLVWKUYGEGTNFPMCMODCZFNcU`JYDKLVKU`YE`TFPPMMXDqZF!'kro^{qa#oDialog4C"m4on*i"aog$QPUBVXLTPSQGSDGJVXRFMGWIMUBB#QUBU`X1TS4GU4D JR`MWI`B4/=1 1basOpenXG@s iUe&p@MnHSLPSVITFJPLSDAMCEDFNEAIMSO_HLVTJLZA1E#A0ELMM O@O2%! L as!eUtilitiesGQjb"Dt`eCtNl`eOMERNWVBNUWPJXTDPX@OWBVKNGTDTMEfN@LV4NW JX@jD XlQW8RG APoFo [yk3Calendar3CaneNCXRGHCJRYMGXDUHMDALJVTXQOAFU3N_XGzCR gIXU`ZMAOMTQM?A@8l' 6; BP cGl` s 1c%BXJJJSLDXWFYAEQBBCTANEJFXMYIC BJ J"L K[v1ddNXF AE2BCA@=EPFMI1& O K B odeWZep ojer#eJOMNYKGCTVDLETDGFVKFCGQCAMTXK=O/N K; V L TpG0V0LFG@ jC1M K s@a]Xk La LinkedTabЂG[S0L nk=daP$s4GWUSVJHVAQALDEVWNPSDJGGLFXOD3G UVHIA@ #D AXN0S JG%Qя Z?> Wd$ ogqC1u%IOOFYWJRLQUUSDFSZKVMGTLULEGM3 I-OPY J@1L0 VUP=q F ZV@!sLpG? $i? |W$ = QcI~ />qPpIQPCQTYWZUDMXXKCMNJCZSP5JPPP#dC T 'W@rUpU!%XP CP NCpS?J_ d_ QX] TestSX틝 TP(4XJSOBS_GWEETPD@VFILVZ'LXTJUqVSB0_%W0'EP,VI&V D5'TpU5:&K@\to`A S c@Ǒ) BFIVZCFTDFWIIESYXFWQHAYWTMFr VC @F)I0EYQYA$ZFWM) N {(BaptXism0s(mHa,p !mrMGRIXCHWYMKQWDQPTPPUCCRZFFVJfaeR0 XH Y0'K(Wp()UPP5CRFmJ0_(N_ 5rU~~~~~~~~~~~~~~~a  !  a  (K*m rU~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~@ \Jt]   9 Y    lAqI{~ ! )  Form_frmZoneForm_frmMissionary CommonDialog basFileOpenbasDatabaseUtilities basCalendarbasCalc basCodeWriterbasLinkedTables Form_frmCalcForm_frmCalendarForm_frmCalendarTestMissionManagementSystem  frmCalendar frmCalc PrimaryKey d m yyyy wwF /D:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA ) Q J_N? ,D:\Program Files\OfficeXP\Office10\msacc.olbAccess ! I00FD:\WINDOWS\System32\stdole2.tlbstdole !I@m.4D:\Program Files\Common Files\System\ado\msado21.tlbADODB FormFooterPC7? )P^F=D:\Program Files\Common Files\Microsoft Shared\DAO\dao360.dllDAO a `m. 3C:\Program Files\Common Files\System\ado\msadox.dllADOX y   p垃2L**!=H4r:k᥀B<%G-+KwK$ @C7?ZoneSC7?DetailZL1Date FormHeaderZL2DatelblDay6 frmZoneSubAC7?frmZoneSub_LabelLabel12LC7?ZL1ZL2EC7?cmdClose31?FormcmdClose_Click pɤs K[v1 @h)aN? `GXGPfĤIx8< VBE6.DLL   S {lXI࢞xMɑ/(K \{]pC+LuFƍA(텍HEmailu;|? pgConfNotes ReleaseDateDOB Certified VisaExpirNotespgAssign ConfNotesCombo30frmMissionaryAssignSubLabel0 MissonaryIDTypeFirstPicFileMiddleDC7?ImgPicLastLast2Genderr;|?TabCtl11pgMain pgContactHAddrHCityHRegionHCodeHCountryHPhone+=h8+3qCombo30_AfterUpdate Form_Current Form_Load 4]协N? Clone "[MissonaryID] = ' Combo30tpY? 'FindFirstBookmark pix\F;|?N;|? 0    tblMissionaries CheckLinkadhVerifyLinksSeekLocalOrLinkedDAOSeekLocalOrLinkedADO ADOGetBackEnd BackEndPath qy>`}Am.Um.m.Pm. Y X Verify Links \ &The required file ' *' could not be found.   @ You can use the next dialog box F to locate the file on your system. @ If you cannot find this file or H are unsure what to do choose CANCEL @ at the next screen and call the 0 database administrator. Access (*.mdb) *.mdbadhCommonFileOpenSaveadhAddFilterItem adhTrimNullA|/߼aEq$*=h8+3q!qC`!=h8+3qClassPgv3+3o VBInternal   << $$,  ,,LL, $,0<H <<,$,GetDC USER32 GetDC Y"y" ReleaseDC ReleaseDC Y")# GetDeviceCaps gdi32 GetDeviceCaps #$MulDiv kernel32 MulDiv $$CommDlgExtendedError comdlg32.dll CommDlgExtendedError %%  ChooseFont ChooseFontA %&@ ChooseColor ChooseColorA %q'`GetOpenFileName GetOpenFileNameA %9(GetSaveFileName GetSaveFileNameA % )FileList FileOffset FileExtOffset CustomColorsFontType ShowColorShowFontShowOpenShowSaveSetOpenPropertiesGetOpenPropertiesSetColorPropertiesGetColorPropertiesSetFontPropertiesGetFontPropertiesDayCalcHeightFromPointsClass_InitializeadhSetFaceName bb 8<@DHP`sot VCmo 2Locate Data database file 8You can't use this database $until you locate ' '.m.m../m. ReK[v1 @ @ @linking tablesm. LINK 2Jet OLEDB:Link Datasourcem.m. BackEnd UPdatefieldsIsLoadedGetDatabasePropqm.SetDatabaseProp LastInStrDoHelp ,,< ,04 DATABASE=Km.Im. ;!m.;m.9m.1m. =Qm. :   &No match was found.  x m.m.Q5 BProvider=Microsoft.Jet.OLEDB.4.0; Data Source=5m.61Lm.  Unexpected Error  lblDay4lblDay5 h 7R(aN?k>N?@e&N?ControlTypeControlSource k (aN? UserDefined Databasesm.m.m. m.)m.'m. {F1}W  (Cancel was selected.  ( hFilename buffer is too small for the selected files. "Unexpected error.  | _ H ^ h  Detail0lblDay1lblDay2lblDay3   w       (  4User cancelled the dialog. Error:   ( ) P H *.* cmdCancel i h adhDoCalendaradhDoCalendarLoopIsOpenShowFormAndWait Value b  -  L}i@[KB=*@oHۼaD 'H9)dp!Iτplbl55lbl56lbl57lbl61lbl62lbl63lbl64lbl65lbl66lbl67txtMonthtxtYearcmdOKlbl54lblDay7cmdPreviousYear cmdNextYearcmdPreviousMonth cmdNextMonthlbl11lbl12lbl13lbl14lbl15lbl16lbl17lbl21lbl22lbl24lbl25lbl26lbl27lbl31lbl32lbl33lbl34lbl23lbl35lbl36lbl37lbl41lbl42lbl43lbl44lbl45lbl46lbl47lbl51lbl52lbl53 ShowOKCancelYearMonthBase7 ChangeDatecmdCancel_ClickcmdNextMonth_ClickcmdNextMonth_KeyDowncmdNextYear_ClickcmdNextYear_KeyDown cmdOK_ClickcmdPreviousMonth_ClickcmdPreviousMonth_KeyDowncmdPreviousYear_ClickcmdPreviousYear_KeyDown Day2Button DaysInMonth DisplayCalFillInStartValues SetUpPublicsFirstDOMFixDaysInMonth FixUpDisplay Form_KeyDown Form_Open HandleIndent HandleKeyscmd4HandleSelected MoveToTodayShowDateSetDisplayDateLoadedAsSubFormRedisplayCalendar SelectDate CloseFormFirstDayValueTodayNextDay NextMonthNextYearNextWeek PreviousDay PreK[v1_ Z g  ~K c  4 0Iz]<EtviousMonth PreviousYear PreviousWeek @@tDdt V P;|? lblcmd2cmd3      @ w lbl1VisibleCaption lblDayForeColor  `SpecialEffect  Name  adhDoCalcMakeSub MakeFunction HEnter the name for the new procedure Dummy1 Please enter the name of the module where to put the code or leave blank to use current module Sub  () :'Created by David Bennett on &On Error Goto Arrgh T  0 'Add your code here TheEnd:  Exit Sub Arrgh: 2 Msgbox Err.Number &  "  -  < & Err.Description,vbCritical, $ Resume TheEnd End SubfFvFnF`FbFdFcmd0 FEnter the name for the new function Function $ Exit Function End Function3eejGF1< 6vNhǔ`Q MP][Ke cmdMultiplycmdBack cmdClearEntry cmdDecimal cmdSubtractBC7?Box28Box27 cmdDividecmd1 cmdEqualscmdAddcmdClearcmd7cmd8cmd9cmd5cmd6 lblReadOut cmd0_Click cmd0_KeyDown cmd1_Click cmd1_KeyDown cmd2_Click cmd2_KeyDown cmd3_Click cmd3_KeyDown cmd4_Click cmd4_KeyDown cmd5_Click cmd5_KeyDown cmd6_Click cmd6_KeyDown cmd7_Click cmd7_KeyDown cmd8_Click cmd8_keydown cmd9_Click cmd9_KeyDown cmdAdd_ClickcmdAdd_KeyDown cmdBack_ClickcmdBack_KeyDowncmdCancel_KeyDowncmdClear_ClickcmdClear_KeyDowncmdClearEntry_ClickcmdClearEntry_KeyDowncmdDecimal_ClickcmdDecimal_KeyDowncmdDivide_ClickcmdDivide_KeyDowncmdEquals_ClickcmdEquals_KeyDowncmdMultiply_ClickcmdMultiply_KeyDown cmdOK_KeyDowncmdSubtract_ClickcmdSubtract_KeyDown Form_ActivateHandleBackspaceHandleClearClickHandleClearEntryHandleDecimalClickHandleNumberClickHandleNumberPressHandleOperatorClickInitCalc L 0 1 2 3 4 5 6 7 8 9 + / * -H;|? . 0. cmdSetFocus     (Can't Divide by Zero Calculator E  4 (  HRu I$SEqLV<^njܥlDRg'JA=|yLabel17Label18Label19Label20CalendarcboMonthcboYearLabel26Label27 cmdPrevDay cmdNextDay cmdPrevWeek cmdNextWeek cmdPrevMonth cmdPrevYearcmdTodaycboMonth_AfterUpdateK[N  YcboMonth_EntercboYear_AfterUpdate cboYear_EntercmdNextDay_ClickcmdNextWeek_ClickcmdPrevDay_ClickcmdPrevMonth_ClickcmdPrevWeek_ClickcmdPrevYear_Click ListMonths ListYearscmdToday_Click d;|?\;|? ) h   ! NextDayNextMonthNextWeekNextYearPreviousDayPreviousMonthPreviousWeekPreviousYear mmmm     "   Today Form_Form1Form_frmSectorFnB!)^ K C_{)4ծ_H>z1~@L8aStreetCityRegionZCodeLabel11MailboxDistrictSectorPhoneAltPhone xܥF Y Hj4@WlH"T%$FUj NGN*͝5^DF %-x%e@I{HSƲ HYXqۚϐM\y +s?C?`lKz|x (MwG87UText14Text16Form_frmBaptisms~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ) 8  H  X ) h Ix A strTablestrDataDatabasestrSampleTable strComparestrIndex varCompareLnkTableFullPathFlagsFilter FilterIndex DefaultExtFileName DialogTitleInitDir hWndOwnerOpenFile strFilterstrDescriptionvarItemstrItem ! FileNameBufferSize FileTitleColor FontScript FontStyleMinMax FontColor FontFlags ColorFlags OpenFlagsCallBackFontName CancelError FontItalicFontBold FontWeightFontSizeFontStrikeThrough FontUnderlinehWndhdcnIndexnNumber nNumerator nDenominator pChoosefont pChoosecolor pOpenfilenameValueofncccflfstrStylestrValstrValueReportSearchReplace strFrmName ! 1 dbDatabasestrPropertyNamevarValue strSearched strSought varStartDatestrName intObjectType frmwValue strMoveUnitdtKeyCodeShiftwDay intStartDayvarMonthNumberintMonthintYearCancel strNewSelectUseCurrentYearHideItctlintNewStartDay dtmNewDate bstrNumstrOp 8varIDlngRowlngColintCode\RowlngColintCode\rU (`0,`rU~| I)QyA 1qYqi1  )Ii I!!"Y"1K[v1 @iy12a2223)3 35)54Q56i5555 6!6I6i6667 88999:K+hl$ l Plh=t)lh4gXl4RgHl4Rl M$@4g8l4R4 4Zl'%t ll=pl5p Pkpz p  c=p c=t|, tp"lh4AKCHl h h7pz+ $  Hl *1d/ 'ld *F # ?/ 5ld *FPW *# *#*#*# *#!*#"*##*#$*1`2 )''HM@0`M@ 6':%N&C  D ' 1D/ 51ld(lD Y )$FP P *!+,*# *#-*1`2 )''HM@`M@ 6pzP .FP/ +$  Pl=,) (l,o%( $"(  /lpL)kLD%:0%$ |hpN( Q[$ y $ ( l 12/ @ kNpNK1P:%$ 4  (  )$   l>pz*'%kND%$ |h $ :$ P2C  Q 30/ pzK$'%'%$ |h c= $ c=( c=,   lq     $   ,   4 |  < l|i\>Fl>F> Fl XX D ) X6l\  $T < $hD0,H`P(dT Xl\l CxlCtlCpT$ QTl7<@lxFD%Tl D4T 05@ (6><1`)T@C\l`JOl`7pZkZ7Jl`8pX kXl`JpX3kXkZDkZ7J`MD@ 9 `1\6 U'%'%',%l\(D%@T$ T <:@ 0; X<Ql)T@'T'%',%D%lxl 4QTh lph D=D'T%'d%'t%'%'%'%'%'%'%'%'%',%ltFD%>h =Rh \=kRHTh =QT[LdH?E=<d ,?d D?l<@*F 8 A /<6 8 dH?W B C  c=?d h = c==hl\J l X4 c=4lDL 4 LHtpx`hld\,<T@ 88l Cxhl Cd+HL$ L PlH=`)LH \l`o8%\ $[ :$%4HlxF8%L\ L (H 4 4 (   `1P)LH4 5lPJ D`6EF*# lP*#8*#` P2  GX(l`o$%lxF8%X  ldX HhX DX PkLX TQL[TH= T ,HT 4Hl @*F A / 6 TH B C  c=HT X  c=X c=\lPJ' ` < c=`8L 4 `hdx\XTP4 LH4 PK+dh$ h Pld=t)hd pltoT%p $(d FT%hp h (Qdlh:Dd:T%hl 4 h ( d  D`1x)hd5D c= l c=p c=tt@ hh  8 dd , '':TN$$l@#<*#4l8*FD 2<48)hd6D$ P4 xltp0 <84hdD$L ^pv kv<kv K[ @ 1xF CxL( x RV P;|? lblcmd2cmd3 __SRP_3F__SRP_4 8__SRP_5M__SRP_6B000` 1 PrimaryKey0` Q1 PrimaryKey(!`q0(I`0n T  rU $` $A`$`$` rU 1!Ii i )A)1qAa 9i# i @8 a1 @<  @@ a @D a @H a @L a9 @P aY @T q @X a @\  I@` @dA i ppp@hA  rrr@lA  ttt@p  vvv@ t !) xxx @x aI zzz@| i @ a ~~~@ a @ a @ A @ a @ a!@9aa@ ayK[v1 @ @ @ @ @ @ @@ @ @ @ a@ a)@ aA@ aY@ aq@ aWxK3)'h%x $ ` x , x<''$'Dd xx ,>dFT x6TD$ 0xx$  $dxTD$!t tWd4xt5dT:@P:T%t Lt $Pad0: %x)tP6d0xWd% 5d|( x tPd0X x `Qxoh 5hP4*FXhx `x hH #D?/Dx6XhHV4*FXhx `x hHD@ T@ d /D)x@6XhHx Tx d x x Tx d x<$  $Dx@hXHp4,Cxx t #p42xtp 4$ xtpt\@  n rU (&p,&p, (<p0(`p 1Q$)|p,*py4,i+p4, ,prU # %i+a;1 <%*1% ,)y<a=,:=A>>=!??i @y@@& ((YA###Y#@ $91$Q L/i7q!?y7q!?y)G1O7q! ? y    ) G     7 w   _    _   __T x/ 0x H qx/ $ H qx/ $ XYtx/ 0x tDK8zcv5kz kz zdv +D$ H qx/ $  X,2 K[v1 @ @ @ @ @ @ @X44^q0<4X l04K X0 9'':N'  D6\D4i0Xi   % %\d `15@42@^q<@ lm @8 9'@'`:N' << D<6`@@hi0 @i  <`@%%H 0$20 ^ q<0 l K 0(B^ q0#< #8*#4T@ 2<840 L@ lxT@ lxJ@ ltT@$ ltJ@( <T@0xlř@4 8T@< PT@,0:dNTT(D  D`#,HDl0;2H0,5LH@DlH@/H qlP4px  H0,L8x $ X  T @^ tlř  Rs | x$ D T$ K < J5lHl^ X  `T ,t<lt\     h f 8d 4lpqxlxlxR`lxqxlx@ř  R | $ lKH@&dY\ML`< 4<`8Dl42845< hP 0   PP\8 ,Dl8`/8 0 HP8dh1 84<K qx^qlD1xcXK c=`\ @@ l\q<@l<9'':N  ', @@ D@6, /~'''  D @@ ,lD*# *#\  l\#*# *F, 2 D)@6,  5(<D,xX`tlpdh8 D@, T l  :h 06 *#d*FThD:4$`1x/d6TD$XT(xdTD$`l Ctltpr krQ#krtM`@P  P`1x5P[ltCx,`,xtPa!Ii irU P`$!Aay* 0`  00(`!n @rU~|  )AAA BABiBBCACC3CC;77 D1DYDD+< P%`$ X` $Q<d` P1t P1p0l8`d ,` (l8`c4/P 8 oT4P \ (lP= 00 p>l0= Pk>04P ` o4 l+: %0$ `0 ,0 d l\0lP\0@|@8<FL%i\% $ |<(,]>l5<`@(l<lH X >l1p H  ltR $YhpX  XH5XjpxFH  kFpx qtltqt# kxpz8(plXH\ PT@,0:dNTT(D rU ( ` ( ` , `  0, `Y =9 n l8 lCp&(Llp rU~| )BaE$<'(%'8%'H%:X%h$ `h `h)Y C$$  /$54 :X%h$ Th $ Wl)h +:X%h$ `h ,h dXl p(l$h |@8<FL%i\% $ |<(,]>l5<`@(l<f D TrU $`,`  0nrU $` ,A`0  &&$` ,__SRP_f__SRP_10dr(__SRP_11 __SRP_123rU 5)qmbmmmmmnn1nInan) K[v1 @ @ @ @ @ @ @yn 6nn!bniin)o?yTqo!oAo p!qqpypqrIbqbb!b@ P !b Q @ T !b@ X !bQ@ \ !!c@ ` !Ac Q @dA Hppp@hacQ crrr@lacQ cttt@ p !YHQ@ t !c Q @ x !cxxx@ | ![  @  !cQ@  ! d@  !)d@  !AdQ@  !Yd@  !qd I@  !dzzz I@  !d|||@  !d~~~ I@  !d@  !dQ@ evvv@  !AH  @9aa  5WWW_____ _    _    _    _    _   LCxx`/x$ xD ll d $ LCxx`/x$ xD ll d $ LCxx`/x$ xD ll d $ LCxx`/x$ xD ll d $ LCxx`/x$ xD ll d $ K[v1 @ @ @ @ @ @ @ LCxx`/x$ xD ll d $ LCxx`/x$ xD ll d $ LCxx`/x$ xD ll d $ L Cxx`/x$ xD ll d $ L Cxx`/x$ xD ll d $ L Cxxh/x$ xD ll d $ < P $ D ll d $ d0)'h%x $ `x ,x0$ xD ll d $ < T $ D ll d $ < X $ D ll d $ < \ $ D ll d $ LCxxh/x$ xD ll d $ LCxxh/x$ xD ll d $ LCxxh/x$ xD ll d $ D  $ D ll d $ LCxxh/x$ xD ll d $ < l $ < l $ \#dh! h >dFTlhl q>lT(D4"ld #0h! h 2d0h  @*dh! h >dFT h5T4 6 4:dh! h ld6/dhL(l d0hT4\(x! x xl($ xl8x! x x 648$ x40x! x x{ 6{?tx! x lt*#lp! p 2tl)xp 64$ tlxpp47X! X X 6#TX! X >TFDlX lD\?TX! X lT *#<@! @ 2T<)X@g\(,]rDlT #<2' l:(]1'2T<6ZKTX! X 'DlT  #<@! @ 2T<)X@5D4Bp,l\0 T<X@D P pv ptkt09kvl< pr kr8K[v1 @ @ @gl! Tl lChhh/h 1x6Tlx*FX%l Ll $ T!)lT5X x`H ktl! xl lPH kt.l! ll lXHkt`i ` " 1x6Tlx*FX%l Ll $ T!)lT5X x`Hktnktl! l l\Hktmktl! <l lChhh/hH ktj/l! Tl lChhh/hH ktkfl! 0l l Chhh/hHkto{ktl! Hl lChhh/hHktkt  kvl! 0l l Chhh/hl! $l lChhh/hH ktCHl! `l lT (P(DxhlTX;04%888b*tx! x lt #</tx8*tx! x lt #D/txLCp lp 2<D< lp2@P<M`@ $P0DM@@ $0 B<6P0 lp2?<D< lp2D3'' :@%N000:`&NPP '6P0 <D< lp2D<<'P<M`@ (#tx! x /tx5P 84 L0(Lp$txP0 .t@x! x x4 6 8@$ xp0.#dh! h >dFTlh/ (0(ldhTxx     TTppXX\\ t!t"|#|$P%P&'(`)`*+,-./012347xW$ltFPUpn6$ knxW$xWkn$ # lp*FxWltJiPknD@(" |`1h2 6$|4lhF@%?@ABCDEFGHIJKLMNOQSTUVWXYZ[\]^_`abcdefghijklmnopqrstuwxz{|}~`0  &&$` ,A`0  &&$` ,`0  &&$ ` ,A `0  &&$ ` , `0  &&$  ` ,I`0  &&$` ,`0  &&$ ` ,I`0  &&$` ,`0  &&$ ` ,I`0  &&$` K[v1,`0  &&$ ` ,I`0  &&$` ,` 0  &&$ ` ,I`0  &&$` , `0  &&$ !`  ,I "`$0  &&$ #`( , $`,0  &&$ %`0 ,I &`40  &&$ '`8 , (`<0  &&$ )`@ ,I *`D0  &&$ +`H@$ ,`L $ -`P$I .`T$ /`X$ 0`\( 1``q 0,I 2`d  &&( 3`h 0$ 4`l( h/ nrU ( y )Q!{{ |q{@4! a1|rU x$` nUTEEV)VQVyVVV1WiqW XyX1)A;FFFaF@ G@ G@ 1G@ IG@ aG@ yG@ G@ G@ G@ G@ a H@ a)H@  !AH@  !YH@ yH@A Hppp@ Hrrr@9aaQ@ HtttK[ N   @ Hvvv@ Hxxx@  Izzz@ !I|||@ 9I~~~@  !QI@  !yIQ@  !IQ@  !I@ I@  J@ !J@ 9J@ QJ@ iJ@ J@  J@ J@ J@ J@ J@  K@$ )K@( AK@, YK@0 qK@4 K@8 K@< K@@ K@D K@H G@L ;@P 3@T '@X  @\  L@` !L@d 9L@h QL5WW _    _    _   W_____ _    _   H xpz/ O$ |H  xxx! x xxx! (x xH$ xH zpz/ $ P   z $ H |pz/ $ P   | $ H ~pz/ R$ P   ~ $ p4* #t #p*#lpz2tpl/ 4$ tplK[v1K` <k`px` Dk`pz` Lk`pvXpbapbkvkzkxP POtd5P%dM@@kb9 P POtl5Polod)lM@@P PUpz5P)lM@@P PUpx5P)lM@@P PUpv5P*` Dk`kz> <k>kx3:@ P\vP,`(/(6P, kv~ kz| kxz  T$ (P,D +z $ < l $ D ll  $ < p $ D ll H $ D +z $ < | $ D ll  $ <  $ D ll  $ h4.'h +jkhDXl/$4(l  X(h]A1 dHUpz5HTF <kFH H(h4$$ Upz6H$/0 h$ H4$| _l _l5z Dx <rkx+tkz+vkr\ \  @ _l  |$ hl  l 5l?l  lN46llYl lO45lHh$ l/4Ml@\ \U|5\/4Ml@\ \Uz5\/4Ml@\ \U~5\  $ \|D: h <h X XUpz6hX/$D$ hX$Jn DknDLkJpv5Ln LknkvH kv~ptzcFxcBkzkx Af\%4kx#<*FL%8 L 8 $4/<)845L ktpt& kz#<*# kx#*1p2< (4lpF\%8 L 8 $Q48 ktkveWL5LP c\%ktD\%WL5Lf\%c xdBo zdF`t,p(< 84LD<ptzchAkzktpvkvR ql^ ql7Lkz#d*FP%` L ` $QLH/d`5PkvDF8%Hlli8%HcHxc$7Vlli8%L kx#d*# kz#*FP%` L ` $L2d )`L5P xd$ zdh`D,Hp$d `LPD ll  $  x t(dltR(TltR(DltR(4ltR($ltR(ltR(ltR(ltR(ltR( ltR( ltR( ltR( ltRt tZd5zcL<kz  1># #kzD;2 zd3 t tUb6t3 t tU^6t3 t tU`6t<5;p! p pp! (p puxp! p pxp! (p p $ K[ @ @ @.ptt(tJ_t ?]9T%dtFh%x L x $d)xd t6(T%dtFh%x L x $d)xd;dtFh%x L x $dW4U~)xd54  @ H$ xd4pz px kx2 +v  kx L +v  kx$kzn +v| +v kx!kz| kx"kzpl kx'kzph kx%-kz(x kx&XkzJ|S kx(kzul~t  $0 pL. l / (l |L`+z H +^zb~L$ P l 5v L:T dl kv+tdD`1x6dD x8P(xdDxD%z Dkz Fh%! 5hz <kzDX%! $D$ hl.Kd  dWT`1hd5T)P dd lP@ld ddHd/ <l,lhdTL$ X$. l  +j / $(l dll\5l_ 2   ])'H%X$ `X ,X4d$ Xl\H <pz/ $ d4     <4$ H 4$ L?r <p Dn Lknkpkr\ \Ott5\/  L$ \D +z$ T YtCxx/x $ xT YtCxx/x $ xT YtCxx/x $ xT Yt Cxx/x $ xT YtCxx/x $ xT YtCxx/x $ xT YtCxx/x $ xT Yt Cxx/x $ x      !"#$%&'()*+,-./012347  &&$ __SRP_13 __SRP_14z__SRP_15+__SRP_16#K[v1 @ @ @ @ @ @ @7@8! aI|@<! aa|@@) !Q @D! ay|@H) |@L! a|@Pa  ppp@Ta  @Xa @\ |vvv@`! a|rrr@d! a|zzz@h! a}~~~@ l   xK3)'h%x$ `x ,x<''$'Dd xx ,>dFT x6TD$ 0xx$  $dxTD$lX #( hU&(I hY &( h]1 ,( ha,$ &`e$I '`i$ (`m$ )`q$ *`u$I +`y$ ,`}$ -`$ .`n;rU $`T$A`X$`\$``$`d $A`h $`l $rU HqrwaEaw9w xTyxxyAyqyyyzYzzz1{ |y|rrrqr@4 s@8A i ppp@< )s@ @ !yI@D As@ H !I~~~I@L Ys@Pqsrrr@T s I@X s@\ s@` s@d9aa@ h !otK[vl8 @ @  @tt @ l !kvvv @ p ! txxx@ t !)tzzz@ x !It|||I@ | !qt@  !tWWW_lp! |p xQlhphWXOtt5XctMH@X p! p tM8@( (UUXU hp6X(ch dH%! (h$plX(HK>tx! |x xtWdT T! )xt6dT(H$ xtdTlp! |p xQlhphWXOtt5Xcp! $p tMH@X tM8@( (UXUU hp6X(ch dH%! ,(h$plX(HK>tx! |x xtWdT T! ,)xt6dT(H$ xtdTp8&tx! |x xt)xt  @ 8$ xtp8&tx! |x xt )xt  @ k8$ xtp8&tx! |x xt )xt  @ 8$ xtp8&tx! |x xt )xt  @ 8$ xtp8&tx! |x xt )xt  @ 8$ xtp8&tx! |x xt)xt  @ 8$ xtp8&tx! |x xt)xt  @ 8$ xtp8&tx! |x xt)xt  @ 8$ xt4.pj kj# cXl kj@ jXl kjY (X l kjqTlTGD :XN44D$ $l6D4lTiXl/ X(lD4$.pj kjK(X XH HU_6XH c8l kjh j8l kj (8l kj_di8l/ D(lXHd,&tx! |x xt)xt,$ xtTTXXlHt@h x p |  g t(dltR(TltR(DltR(4ltR($ltR(ltR(ltR(ltR(ltR( ltR( ltR( ltR( ltRt tZd5zcL<kz  1># #kzD;2 zd3 t tUb6t3 `p $`t $A `x $ `| $ ` H  `     = /((&/HK[ddNI `     = /((&/$` n)xd t6(rU x)1q a@4 avvv@8A i ppp@< a@@A  rrr@D a1@HA  ttt@LI@P i@T @X @\ @ ` !)  @d9aaxK3)'h%x$ `x ,x<''$'Dd xx ,>dFT x6TD$ 0xx$ $dxTD$`X)'H%X$ `X ,X__SRP_17Pg__SRP_18R__SRP_19v_VBA_PROJECT!RrU p$`T nxT rU~| &Y1`)YYy[[ \E\\i]]]^^^^qQ__)_[WWS `1q`AayaaKCl3''''''<lM\@ 1p6 < lp2WCpCl3''''''<lM\@ 1t6 <!lp*#*#*1x23lx*F< <:\`1x6<lx *#*1x/!lx *#*#*1x2*lx *#*# *#*1x2lx*#*1x/Wlx*#*#*#*#*#*#*#*#|*1x2|!lx*#*#*1x2 lt2/3ptx$ x Ht <Qpl)xt lxl ,clTdhltF\%ptx$ x 4t \p h ,Qd`)xtph lx` ,c`t\ xx   tt , '':\Nl\#*#l*F< !2)xt6<  <$l`ltxpX|xtphd<K"Cl3''''''<lM\@ 1p6 < lp2WCpCl3''''''<lM\@ 1t6 <!#lp*#*#*1x23lx*F< <:\`1x6<lx *#K[v1 @ @ @ @ @ @ @*1x/!lx *#*#*1x2*lx *#*#$*#*1x2lx*#*1x/Wlx*#*#*#*#*#*#*#*#|*1x2|!lx*#*#%*1x2 lt2/3ptx$ x Ht <Qpl)xt lxl ,clTdhltF\%ptx$ x 4t \p h ,Qd`)xtph lx` ,c`t\ xx   tt , '':\Nl\#*#l*F< !2)xt6<  <$l`ltxpX|xtphd<f'`rU $`$`n  &&$ +`H@,# N-x%e@I{H4ծ_H>zSƲ HYXqxME SLS S<$<(am  *\G{000204EF-0000-0000-C000-000000000046}#4.0#9#D:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*\G{4AFFC9A0-5F99-101B-AF4E-00AA003F0F07}#9.0#0#D:\Program Files\OfficeXP\Office10\msacc.olb#Microsoft Access 10.0 Object Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#D:\WINDOWS\System32\stdole2.tlb#OLE Automation*\G{00000201-0000-0010-8000-00AA006D2EA4}#2.1#0#D:\Program Files\Common Files\System\ado\msado21.tlb#Microsoft ActiveX Data Objects 2.1 Library*\G{00025E01-0000-0000-C000-000000000046}#5.0#0#D:\Program Files\Common Files\Microsoft Shared\DAO\dao360.dll#Microsoft DAO 3.6 Object Library*\G{00000600-0000-0010-8000-00AA006D2EA4}#2.6#0#C:\Program Files\Common Files\System\ado\msadox.dll#Microsoft ADO Ext. 2.6 for DDL and Security I@    8BZTWJUGTTQRSNDXGSLGD_FUTHAIC0<40ebdb49Form_frmZone18UZJYKNLVWKUYGEGTNFPMCMODCZFN0>40ebdb49'$Form_frmMissionary^{8QPUBVXLTPSQGSDGJVXRFMGWIMUBB0?40ebdb49ICommonDialog=08HSLPSVITFJPLSDAMCEDFNEAIMSO_0@40ebdb49basFileOpenH%8ERNWVBNUWPJXTDPXJYKWBVKNGDTN0A40ebdb49(basDatabaseUtilities[y`F8NCXRGHCJRYMGXDUHMDALJVTXQOAF0B40ebdb49basCalendar ;K[c2^(  @ xl'8BXJJJSLDXWFYAEQBBCTANEJFXMYI0C40ebdb49FbasCalc& 8OMNYKGCTVDLETDGFVKFCGQCAMXKB0D40ebdb49LbasCodeWriter8GWUSVJHVAQALDEVWNPSDJGGLFXOD0F40ebdb49pbasLinkedTables>Z8IOOFYWJRLQUUSDFSZKVMGTLULEGM0G40ebdb49Form_frmCalc|i8PDPXQPCQTYWZUDMXXKCMNJCZSPTN0H40ebdb49- Form_frmCalendar8XJSOBS_GWEETPDVFILVZDJGLTJUC0I40ebdb49(Form_frmCalendarTest:&8BFIVZCFTDFWIIESYXFWQHAHMDWTI0K40ebdb49e Form_frmSectorN()8MGRIXCHWYMKQWDQPTPPUCCRZFFJF0:40ebdb49k Form_frmBaptismsHhx0HH(`Mz8I [3DkI$*~uFW.vށ4n@|0Q,@E9 Gte/Jf⎝& .ΚsCr3=J*OK-jϠrLHH6lfn00IE M%ֶC JOwBv?IFD NHdвU49JNK%A?9(AccessName TypeVBAWin16~Win32MacVBA6#MissionManagementSystem[stdole`ADODBsDAOADOX Form_frmZone' _EvaluatecmdClose_Click!PErr_cmdClose_ClickDoCmdƧExit_cmdClose_ClickMsgBoxRErro Description Form_frmMissionaryBackPathCombo30_AfterUpdatevrs_ RecordsetClone FindFirstM=Combo300&BookmarkC Form_CurrentIsNullPicFilePImgPicXPicture* Form_Load{ BackEndPathW ADOGetBackEnd CommonDialogo HWND_DESKTOP^ LF_FACESIZEFNERR_BUFFERTOOSMALLcWM_USERJ CDM_FIRST\CDM_SETCONTROLTEXTECDM_HIDECONTROLr adhCDFontTypeRASTER_FONTTYPEDEVICE_FONTTYPETRUETYPE_FONTTYPEOn BOLD_FONTTYPE-ITALIC_FONTTYPEREGULAR_FONTTYPEPSCREEN_FONTTYPEܝPRINTER_FONTTYPE,SIMULATED_FONTTYPEPOPENTYPE_FONTTYPETYPE1_FONTTYPEu DSIG_FONTTYPEk:adhFontFaceAPI ANSI_CHARSET@DEFAULT_CHARSET SYMBOL_CHARSETQSHIFTJIS_CHARSETHANGEUL_CHARSETGB2312_CHARSETRCHINESEBIG5_CHARSETB OEM_CHARSETi' JOHAB_CHARSETnHEBREW_CHARSETFARABIC_CHARSETr GREEK_CHARSETdTURKISH_CHARSETWVIETNAMESE_CHARSET THAI_CHARSETaEASTEUROPE_CHARSET"RUSSIAN_CHARSET MAC_CHARSETTBALTIC_CHARSETadhColorConstants cdlCCFullOpencdlCCHelpButton5vcdlCCPreventFullOpen cdlCCRGBInit/U cdlCCAnyColorQcdlCCEnableHookWecdlCCSolidColoradhErrorConstantscdlAlloccdlBufferTooSmall) cdlCancelcdlCreateICFailurecdlDialogFailure4cdlDndmMismatchJcdlFindResFailure9cdlGetDevModeFail[cdlGetNotSupported@cdlHelp cdlInitFailurencdlInitialization[cdlInvalidFileNameYcdlInvalidPropertyValuecdlInvalidSafeModeProcCall˲cdlLoadDrvFailurescdlLoadResFailure:-cdlLoadStrFailuK[v1 @ @ @ @ @re%cdlLockResFailureM|cdlMemAllocFailureB.cdlMemLockFailurecdlNoDefaultPrn cdlNoDevicesm cdlNoFonts. cdlNoInstancez cdlNoTemplatecdlParseFailure)cdlPrinterCodesi7cdlPrinterNotFound*cdlRetDefFailure*cdlSetNotSupported{+cdlSetupFailurecdlSubclassFailurejadhFileOpenConstantscdlOFNAllowMultiselect$cdlOFNCreatePrompt͚cdlOFNEnableHookVcdlOFNEnableSizingcdlOFNExplorercdlOFNExtensionDifferent[cdlOFNFileMustExisttcdlOFNHelpButtonvcdlOFNHideReadOnlycdlOFNLongNamesPcdlOFNNoChangeDirX|cdlOFNNoDereferenceLinkscdlOFNNoLongNamescdlOFNNoNetworkButton*cdlOFNNoReadOnlyReturn cdlOFNNoValidateXcdlOFNOverwritePromptF4cdlOFNPathMustExist@cdlOFNReadOnlycdlOFNShareAware&KadhFontsConstants cdlCFANSIOnly  cdlCFApplyR cdlCFBoth_ cdlCFEffectscdlCFEnableHookcdlCFFixedPitchOnlyacdlCFForceFontExist& cdlCFInitToLogFontStruct=cdlCFLimitSize^cdlCFNoFaceSelacdlCFNoSimulationsPcdlCFNoSizeSelbcdlCFNoStyleSel7cdlCFNoVectorFonts)(cdlCFNoVertFontsVcdlCFPrinterFontsʠcdlCFScalableOnly>?cdlCFScreenFonts cdlCFShowHelp cdlCFTTOnlyb cdlCFUseStyleA7 cdlCFWYSIWYGcmdDecimal_Click:HandleDecimalClickC]cmdDecimal_KeyDown cmdDivide_ClickcmdDivide_KeyDowncmdEquals_ClickcmdEquals_KeyDown K[v1 @ @ @cmdMultiply_ClickHcmdMultiply_KeyDown[` cmdOK_Click cmdOK_KeyDowncmdSubtract_ClickcmdSubtract_KeyDown] Form_Activaten InitCalc varCaption lblReadOutCaptionxRepaintstrNum+varLenώstrChar$ intShiftDownW acShiftMaskѯ cmdMultiplySetFocusChrK~ vbKeyBack2cmdBackV vbKeyDeleteP cmdClearEntryȣ vbKeyNumpad0 vbKeyNumpad9Asc!u vbKeyDecimal< cmdDecimalqD vbKeySubtractV cmdSubtract8 vbKeyMultiply+vbKeyAddHcmdAddK vbKeyDivideAd cmdDivide vbKeyReturn cmdEquals}wvbKeyCcmdClearcostrOp4aValadhcShowOKCancel;adhcFirstDayOfWeekvbSunday&adhcColorWeekendvbRedG/adhcColorWeekdayxvbBlackacSunkenB adhcFebruaryD adhcMarch. adhcDayStr| adhcMonthStrk adhcYearStrt adhcWeekStr} DirectionType dtMoveForward9dtMoveBackward mdtmStartDateo mintFirstDay mastrDaysL mintStartDOW mintYearTodaymintMonthToday mintDayTodayW mvarMonthLen mstrSelectedmfShowOKCancelmintYear mintMonth:mintDayKcmdOK' cmdCancelYear6nSetDisplayDateLJ DisplayCal6MonthDayBase7wValueh ChangeDate strMoveUnitYdt\intMonth=intYearintDay0dtmDate$ dtmOldDateintInc3MChangeDateError-T DateSerialUDateAdd/6DatePart HandleIndent Day2Button"ChangeDateExit`E CloseForm:HideItPcmdNextMonth_Click NextMonthcmdNextMonth_KeyDownP HandleKeys1cmdNextYear_ClickNextYearcmdNextYear_KeyDown0cmdPreviousMonth_ClickY PreviousMonthHcmdPreviousMonth_KeyDowncmdPreviousYear_Click PreviousYearcmdPreviousYear_KeyDown wDay~. intStartDay DaysInMonth׮varMonthNumber%fInHere4hFirstDOM;ShowDate±FillInStartValuesz. SetUpPublicsK!FixDaysInMonthintRow}intColK- intNumDayspVintCountPstrTempM FixUpDisplayL intLogicalDayj;intDiffctl lngForeColorg ForeColor Form_KeyDown4 Form_Open-Cancel WeekdayName?FirstDayOfWeekLoadedAsSubForm strNewSelect SpecialEffectNacNormal ShiftDownv SHIFT_MASK vbKeyEscape=Y vbKeyHome0! MoveToToday vbKeyPageUp;= vbKeyPageDown vbKeyRight@NextDay vbKeyLefty PreviousDayvbKeyUp PreviousWeek vbKeyDown NextWeekHandleSelectedpUseCurrentYear( newSelectedtxtMonth MonthNameHtxtYearParentClearRedisplayCalendar  SelectDateFirstDay=intNewStartDay W dtmNewDate*tToday Form_frmCalendarTestlcboMonth_AfterUpdateCdtmValuefaCalendarIcboMonthucboMonth_Enter;cboYear_AfterUpdate7cboYear cboYear_Enter cmdNextDay_ClickcmdNextWeek_Click cmdPrevDay_Click"cmdPrevMonth_ClickcmdPrevWeek_ClickcmdPrevYear_Click ListMonthsvarID=jlngRowlngColgintCodeSacLBInitializeacLBOpen TimerXacLBGetRowCount acLBGetValue ListYears'Now%cmdToday_ClickDetail2 FormHeader  FormFooterTLabel0,cmdClosej MissonaryIDgLabel2,FirstzLabel3,MiddleXLabel4,LastbhLabel5,Last2Label6,Gender@Label7,Label8,Label10@TabCtl11pgMain[ pgContactHAddr#Label14DHCityLabel15EHRegionLabel16FHCode7Label17GHCountryLabel18HHPhoneK6Label19IHEmail:Label20e pgConfNotesR ReleaseDate6Label23hDOBLabel24i Certified8Label25j VisaExpirLabel26kNotesLabel27lpgAssignKBUnitPos# ConfNotes' Find_Missionary_LabelmfrmMissiK[GO M, (M KO & Ib 3{G@Z~ă[7onaryAssignSub}Click AfterUpdateCurrenteItemz _B_str_LeftVZoneف Zone_Labelی ZL1_Label ZL2_Label|ZL1DateH ZL1Date_Label)ZL2Dateg ZL2Date_Label frmZoneSubH frmZoneSub_Label7FLabel12BZL1ZL2Class InitializeNDetail0,Box28EBox27Dcmd14cmd25cmd36cmd47cmd58cmd69cmd7:cmd8;cmd9<cmd03KeyDown.aActivate|lblDay1lblDay2lblDay3lblDay4lblDay5lblDay6lblDay7cmdPreviousYear cmdNextYearcmdPreviousMonthV cmdNextMonth-lbl112Ylbl123Ylbl134Ylbl145Ylbl156Ylbl167Ylbl178Ylbl21WYlbl22XYlbl23YYlbl24ZYlbl25[Ylbl26\Ylbl27]Ylbl31|Ylbl32}Ylbl33~Ylbl34Ylbl35Ylbl36Ylbl37Ylbl41Ylbl42Ylbl43Ylbl44Ylbl45Ylbl46Ylbl47Ylbl51Ylbl52Ylbl53Ylbl54Ylbl55Ylbl56Ylbl57Ylbl61Ylbl62Ylbl63Ylbl64Ylbl65Ylbl66Ylbl67YLine7186 cmdPrevDay~V cmdNextDay# cmdPrevWeek~ cmdNextWeekh cmdPrevMonth+ cmdPrevYearcmdTodaykEnter _B_var_Midp _B_var_LeftQ _B_var_Space _B_var_Stringӊ _B_str_String _B_str_Trim _B_str_MidX_B_var_StrConv{ _B_var_Right9 _B_var_Datev _B_str_Chrm# _B_str_Format" _B_var_Format Form_Form16Sectorc)District}-District_LabelPhone+WAltPhoneStreetCityDRegionMailboxLabel9,ZCodel,Label11AForm_frmSectorText14rText16rForm_frmBaptisms(BapID{ BapID_LabelB Name_Label Gender_LabelOAgegs Age_LabelK Sector_Label<%FamHead@ FamHead_Label`IMissionary1_LabelaMissionary2_LabelΙInterviewedBy_LabelBapDateʫ BapDate_Label>ConfDate7ConfDate_Label Missionary1 Missionary2 InterviewedByLabel22gGM   & 'q(e k !-   I* LF_FACESIZEFNERR_BUFFERTOOSMALLcWM_USERJ CDM_FIRST\CDM_SETCONTROLTEXTECDM_HIDECONTROLr adhCDFontTypeRASTER_FONTTYPEDEVICE_FONTTYPETRUETYPE_FONTTYPEOn BOLD_FONTTYPE-ITALIC_FONTTYPEREGULAR_FONTTYPEPSCREEN_FONTTYPEܝPRINTER_FONTTYPE,BFIVZCFTDFWIIESYXFWQHAHMDWTI:yBXJJJSLDXWFYAEQBBCTANEJFXMYI: "MBZTWJUGTTQRSNDXGSLGD_FUTHAIC:ERNWVBNUWPJXTDPXJYKWBVKNGDTN:'#<<<<< <,K[v1 @ @ @ @ @ @ @<0<4<8<<<N0{D5CC9734-A1AE-485F-8DC9-3EE77AFD9900} (% `@0 %d  %xx rnxx @h @0@d @T @D @4 `$ @ x Hp00x "  ) 08 @<HX `pxp0` B@BH|@8 "!$A@ \  ofAttribute VB_Name = "Form_frmSec@tor" Bas0{D5CC9734-A1AE-485F-8DC9-3EE77AFD9900} |GlobaBlSpacFalse dCre atablTru PredecdlaId"E`xpose_TemplateDerivCus`tomizD$Option Codmp@ DT   0 M&lorg ForeColor Form_KeyDown4 Form_Open-Cancel WeekdayName?FirstDayOfWeekLoadedAsSubForm strNewSelect SpecialEffectNacNormal ShiftDownv SHIFT_MASK vbKeyEscape=Y vbKeyHome0! MoveToToday vbKeyPageUp;= vbKeyPageDown vbKeyRight@NextDay vbKeyLefty PreviousDayvbKeyUp PreviousWeek vbKeyDown NextWeekHandleSelectedp SLS S<$<(<<<<< <,<0<4<8<<<N0{A5E1F11A-8D80-42C7-BC3C-1E94254711D3}  `@h@% % % x @h @0@d @T @D @4 `$ @  Hpx@@x "  ) 08K[v1 @ @ @ @ @ @ @ @<HX `pxp` B@BrtoH|@8 "!$A@ \ odAttribute VB_Name = "Form_frmZone" Bas0{A5E1F11A-8D80-42C7-BC3C-1E94254711D3} |GlobalSpacFalse dCreatablTru PredeclaId"Expose_TemplateDerivCustomizD$Option Comp@ DT  ?@ABDEFGHIJKLMNOPQRSTUVWXYZ[^_`abcdefghijklmnopqrstuvwxyz{|}~@ xME@hQ '0= Left$( b;!) &j_! aRight3 Len),Aac+R! 'Cs'MsgA.newczaK5sc:"; EIfK umN? E# b ASubAcFunc¹IsLo aded(`Frmb)ahBooleaI ' @Determs if aml .*@_cmDesign0Cint|False!l$l 2keb().aT.YCurrentView <~>A $aTrueExit 0 ' Quf2oncec*has been +BIBA=Ga ?GetvProp(db ,qlerty" |\wE2/a`#rs!s i?.Docums("UserDxned").$Ј* ).ValT. ^0, varTcRr_eY fp ] &Last]-Àex F?T @`Љ2>7'R eturnclo,caBl  charac@(ni) a S>14q,t Pos0;k 8 kdo UnЫADG3`=#T?eCt Loop#Sqb1DoHelp(SendKeys ("{F1}"-?xME$ <<<<< <(<0<8<@<<<(<,<0<4<8<<<@P            @   $K[v1 @ @ @ @ @ @ @  ( ,@p   @ 4  +( '0 0P 8HLW)  &8 .`2' 0h1  0 @ R!` )     6@H P`p$x  ".)  . , P@X` 4x    , ,( X ` $p     ,@  X h 4p & ( 41 $0 $Xhp x * : $@  ( 08@ H P`:h ""  6 2  &X  8 , ,   ( "8 <` <  : $0 X`hpx    ,7  : 4@ x$ ,3  "8U`  8'  D   , *@ ,p =      (0 @P X` "" h 6 2 & ( 80 ,h ,  " .! <8! x! :! $! !!""" $" (" 8"  4H" 4" $"6[" # 2(# `#X6p##  # 8#&($ @$ P$  0h$ $ ,$ *$ ,%8% =P% p%x% %%  % % % %% %% %& B & D& &X&&&&& $& & &(&,:& ' ' (' 0'8'@'8tH''' B '' F'   *'(  ,0( `( (((((((xp1 From Access 2000 Developer's Handbook, Volume II% by Litwin, Getz, and Gilbert (Sybex)& Copyright 1999. All rights reserved.2 =================================================2 The code in this module is dependent on two o%K[v1 @ @ @ @ @ @ @ther- modules: the standard module basFileOpen andX the class module CommonDialog.2 =================================================2 =================================================( The procedures in this module have beena' coded to work using either ADO or DAO.+ By default, they use ADO (USEDAO = False).430% To change to use DAO, set the USEDAO00 compiler constant to True.NDO% To use DAO, you must set a referenceb# to the DAO typelib.n' To use ADO, you must set references to0 both the ADO and ADOX typelibs.-r2 =================================================% Checks the Link for the named table.do+ (Actually, CheckLink also returns False ifted by table doesn't exist.) f1 From Access 2000 Developer's Handbook, Volume II% by Litwin, Getz, and Gilbert (Sybex)& Copyright 1999. All rights reserved.nter In:odule  strTable - table to check to  Out:modu6 Return Value - True if successful; False otherwiseRx r]`2 Check for failure. If can't determine the name of0 the first field in the table, link must be bad. v z%|%~!'x "!'td'tk]x] !.4 Use OpenSchema to fill a recordset with information & Err3 about the columns in strTable. If the recordset is"5 empty then Jet couldn't connect so link must be bad.ncti   v D %.C@d !'t B@B T ..XiP r. Return just the path of the current database,!" including the trailing backslash.1 From Access 2000 Developer's Handbook, Volume II% by Litwin, Getz, and Gilbert (Sybex)$& Copyright 1999. All rights reserved.'/ NOTE: This is only useful if you're using DAO. w1 If you're using ADO, use the CurrentProject.Path property instead.4]] z!'(eff$ Find the last "\" in the file name. the f \$'l set% Given the position of the final "\",u wa pull of the path portion. l the  l$ 'ocedurd 'k8z4 "!/ bS "! "! "!$ "! "! "B@D* InH8@i80( f4 Check status of Links and attempt to fix if broken.urn Nu5 If broken, first try the current database directory.(3 If that fails, present user with file open dialog.e if s5 Assumption: all links are to same back-end MDB file.ts t1 From Access 2000 Developer's Handbook, Volume II& by Litwin, Getz, and Gilbert. (Sybex)( T% Copyright 1999. All Rights Reserved.. f Modified by Dave Bennett 2003or h In: form.4 strDataDatabase - Name of backend data databasewithou6 strSampleTable - Name of a linked table to checke fo Out:1 (7 Return Value - True if successful; False otherwiseneh]]]]]] ]8]P]h] r]]]]] Verify Links' I % Verify Links using one sample table.- $t'ht 'hk` r. Get name of folder where application database0 c is located. you'v$'ust ha !\'al (  $ ~ M* Data database found in current directory.  'lidh1 Let user find data database using common dialog.       The required file ' ' could not be found. \ You can use the next dialog box# to locate the file on your system. If you cannot find this file or&K[v1$ are unsure what to do choose CANCEL at the next screen and call the database administrator.'e    A@  Display Open File dialog usingٶ( adhCommonFileOpenSave from basFileOpen. Access (*.mdb)*.mdb$'         Locate Data database file$' $:  User pressed Cancel.0 You can't use this database until you locate ' '.'   l A@ ' d $p'7k k 0Rebuild Links. Check for number of tables first. r z.|? !|!' !..  ( !!'@  Relinking tables $8'1( Loop through all tables. Reattach those% with nonzero-length Connect strings.' r  !|UݕH. If connect is blank, its not an Linked table. ! ,|  ' ;DATABASE=  (O5 & The RefreshLink might fail if the new & path isn't OK. So trap errors inline.7 B@f= If one link bad, return False.Oy "!'H k@ k8   $8'   !ߪyH& If Type = "LINK, it's a linked table. !lLINKM  ' - This next line recreates and refreshes link._5 This might fail if the new path ! isn't OK. So trap errors inline. Jet OLEDB:Link Datasource , If one link bad, return False. "!'kkx   $8' 1 zBackEnd $'(' $8'6 r.....z "!"@S "! "! "!$ "! "! "B@DnPHi@  PrimaryKey8/ Performs DAO Seek on table using the specified+ index and search criteria. Works with bothu local and linked Access tables.E1 From Access 2000 Developer's Handbook, Volume II& by Litwin, Getz, and Gilbert. (Sybex)A% Copyright 1999. All Rights Reserved.Oס In: strTable: Name of table6 strCompare: Comma delimited list of search values5 strIndex: Name of index. Default is "PrimaryKey"9- Out:4 Prints to the debug window list of field valuesZ9 or 'No match was found'.]]] ]@]X]p]] DATABASE= z.% Grab connection string from tabledefD v %|!'34 If connection string is "" then it's a local table.- Otherwise, need to parse database portion of& connection string.1xK'  8  'N   ;' G  'j      $'5B Open the external database.Iѻ%M  %%.kx1 Need to open a table-type recordset to use Seek. v  %.  (=  B@FRX !& This example is just printing out the3$ values of each of the fields of the& found record, but you get the idea...dN  !~F[ !:  !0 d[No match was found.Dk. B@B.   B@Bk.o  PrimaryKey9aSB/ Performs ADO Seek on table using the specified+ index and search criteria. Works with both local and linked Access tables.1 From Access 2'K[IHE000 Developer's Handbook, Volume II& by Litwin, Getz, and Gilbert. (Sybex)E% Copyright 1999. All Rights Reserved.C In: strTable: Name of table' varCompare: Array of search values5 strIndex: Name of index. Default is "PrimaryKey" Out:F4 Prints to the debug window list of field values or 'No match was found'.]`]]]] !..  (. If this is a linked table, strDB will containC. the name of the source database, otherwise it will contain an empty string.Jet OLEDB:Link Datasource v %%'  , Open a connection to the external database..C !Provider=Microsoft.Jet.OLEDB.4.0; Data Source= ; B@k0.1 Need to open a table-type recordset to use Seek.  v     B@  (   B@F) If no match was found, EOF will be True. !J& This example is just printing out theC$ values of each of the fields of the& found record, but you get the idea...  !~C[ !:  !0d[No match was found.kX. B@B K..  B@BCk.o=Function returns the filename and path of the current backend Written by Dave Bennett 5/8/2002]X]x]P` !..  (  %.Jet OLEDB:Link Datasource %'Fj...zP "!  "!$ lUnexpected ErrorA@ jxip]@Returns only the path from a string containing path and filename$ Find the last "\" in the file name.xM \$'l% Given the position of the final "\", pull of the path portion. l M  l$ 'DdP 'Dk@i80GAttribute VB_Name = "basLinkedTables" Option Compare Datae`Explicit ' From Access 2000 Developer's Handbook, VoluqII3by Litwin, Getz, & Gilbert (S ybex)'Copyright 1999. All s reserved.  *=-The code in this moduls dependent two othLers:e st]ardFileOjÁ cla.monDialog^' ]' have` beenA.Fd to work using eiA ADO o r DAOB0ByLfault,E y e(USE @False)B To chan$geusAO, setTC mpSrhnZo TrueEyou mustaferen:c'`A!ty`pelib2, res!>b~B&=AX Es#Co' :A0h PrivaFuncCheck(str As Sng)Boolteal @'< CA 0 fk n:}@@ ' (Actually,5o )turns Ѣ7 if edoesn't exist.`v _M߃c_BIn:Em*-^c'eO$utReA" Value -Q# subful;c%"wisPC O n Err0Re"sNex 8#IfGs8Di`m var A o7@firefield BX, lib`a!= Cur!ktDb.QDeDfs&S).F! s(0).AC.Num <>| 0a "N='E@#djep3B`c/ das,Einclufd1r!tr 9backshVQ{' Q Ql NOTE:9 onl|PM1Npr' uݴ'aGP5,2D3EP,iteFRGoyleS0SInxtegq@*FullA M;K0i0 pt "\"SP>e UC= InRevQ,D2 '@vee pHosi~ofr&final&pp U()por@VU/Left~$  Wr 99xitHPsE :3#9tSel V CaU7cAzaayRavvfpIrr.SourceLDescri(K[NHelpctbz2`   t| @GJE VerifynrsE'* )Samplevk$!tus""attbix "")hO!'. u #in c dirxory2fq= ynD-UL*us`)fi@ 'Fcommon@~a U@`PA requd fiL'"#_# "' could not b e.avbCrLf You can [he next$ box"!@ c`your system )"`n  #thJ "or are unsuwh|%d!oo@CANCELtB"screen a 1callE\!Wmini0atxor.`Q"-2B oxa. , vbOKOnly +@Exclama}A,!%|aPisplay OpK+BB:'hD#Sav8rom `F!"p(AddI0( ClFC, "A" (*.mdb)"{ ""&+aC.+ A e:=, :=,C/!:=cdlOFNHideRead-CNoC`hange0AIxnitpBDBiq7Titl0 "LLmB 7 "HIsNull(G]G1' UA@prped CancelX10$]"7't8@1V) +"until4T8BN1qvP>"'y,,!-Crit`l-q5^jqjsj1'Trim~gIcd'RebuiPR}.cy@Qr numbZplesLrstp` S]db enbJ= db.R~Ќs.CoAvbQAShep͍`O= New '`x.Ave o qats /H Q$R= SysCmd(afcA5Me F4"Relq DipDA' LoopWrough X. =ttach@]withknzero-leng41VPs40I 0_"FEI@wkQ 'icblank, itstan`<Á@Len(`p) > 0\t b+ 1 ";DATABASE=?0SV'`fFh- might faBynewM"isn GOK. So trap Be1s ineQ &ResupN0kq Re<!a#ld, CP.9?! rsG?H 0 0Then kadhVerifysM'GoTo DF Endx If nRZ= SysCmd(acUpdateMeter,tI + 1)Next ADummyUSetbase(CurrentDb, "Back?", &#I#~Tru Et:=On Uor Resume &CX6RemovC6A fUSED AOd2 tdf5NothingdbI#E{GD catnnBExit Functio@@=@Select C@]BĘ$F(X.Raise ,S,JA Descrip! HelpGContAt%gfp 8Sub SeekL@ocalOred@f(ByVal strTable As Str2Compa:rOIndex0"PrimaryKey"BC' Performs CAI`~ tus the specifiedi aosearch (hia. Works witXh b@K%l! !ed AccessC s$'From%2000 DevelA's Hboo@k, VolbIIby Litwin, GetDz,Gilt. (SybexD' Copyright 1999. All RsmervedInR'A5: ofa@:6:mma delimita@ listd(values9 /.!fault0 is :eOut@?nt`-ɠ9 debug 4ndowc;ld`M@'No matn!aDb [iBStartIvgerr` C|ycDBAfDATABASE="' Grab coCAhffYbjde='.~Defs( ).%\a ":n irt2a 625, OR,,-#- .bM 6@h"=T9b NoMI'`1exampuju=p@ut19ouh('OYeaN\RQsQ)K[v1 @ @ @ @ @ @73#'P, byou g idea..5FTEq1OInߢ 2O_A1DY# .e& ": " &Q'"/\.;g aA = Clos4ZT4'?@NHSub `ADO S$$AaVariant9)6ga` ` ?qq -' %AjaW: Array18DV﯒ޚcѰ% #DB~1 qX.Catalog Dim rst As ADODB.Rec@ordset|fld|FieldA6strDb:S0trin 0 Theb' Open Fao tooexternalj( i^g [ .".vider=MicrosPoft.0.0.4.0;" & &_-A "4 S U=F& ";" EndoC%= %L'1xo o>z-t`ype r@unSeekD=C2c,A, ad7(Key,0adLockOpti@mistic CmdqDiĄAIndex 4! varC omparadɁFiEQI ²no match was found, EOFbe True4Not.AMTAexampl@s ju ~putU outD!6'luesAbeaDcfA@bG., b you g[ Ea..$ For E InŠs Debug!`eint @.N3tF: H!VaN ]Else "N*.Pw `:+h%c 9CloE Uy!m ic" "ASub !F$unonaGe tBack(L,nkUǴ)G 'returnBsfileaspathc$ b en@'Writt`by ve Bett 5/8/2002&!`!#͌Cltbl X. On Err`JGoTo Arrgh&С5En Aje/d 3 ҇{::c Tb#.RGq6Exit E MsgBox.Number]"7 .DescriQon, vbCp ical, "Unexp0~Z6Resuv# p x Public& ,P'(Full J,!pBPops Integer3'Rd-only-,fromrZ;UQ/%0caY' Fi`1MlaT"\" inov3OD =0 ` R,ev `\;~' G@sposit e7fi|,8' p2 po onpFς@(Left$h c?+T5 If]kslash.1 From Access 2000 Developer's Handbook, Volume II% by Litwin, Getz, and Gilbert (Sybex)$& Copyright 1999. All rights reserved.'/ NOTE: This is only useful if you're using DAO. w1 If you're using ADO, use the CurrentProject.Path property instead.4]] z!'(eff$ Find the last "\" in the file name. the f \$'l set% Given ( % xME <@  8 , ,   ( 8 BH  2  B 8 4P 6  <  60 h "  2  , 8 6H > :    ( 0  (@ .h 0 4 . $0  X  h x           $ * *( X   ` h   p x 6 : 4 :0 p &            .9 (  6~0 h p x B . B : 8H  8 , ,   ( ,8 4h   * ,6  P B X <`  8 , , @ H :X  >   #(08 @ Pxp1 From Access 2000 Developer's Handbook, Volume II& by Litwin, Getz, and Gilbert. (Sybex)% Copyright 1999. All rights reserved.- This module provides a simple "front end" toChoo/ the File Open/Save common dialogs. You needn't/ use this, unless you want to -- you can always- use the CommonDialog class directly. But the0 previous version of the book had some code that. used this entry point, so we've duplicated it* here, using the CommonDialog class rather than using the API direc+K[ N   tly. Requires: CommonDialog$ $,4<D, This is a simple entry point for displaying' the Windows File Open/Save dialog box.7 The parameters are listed below, and all are optional.1 From Access 2000 Developer's Handbook, Volume II& by Litwin, Getz, and Gilbert. (Sybex)% Copyright 1999. All Rights Reserved. In: Flags:; One or more of the cdlOFN* constants, OR'd together.ned InitialDir:====+ The directory in which to first look Filter:; A set of file filters, in pairs, separated with "|". FilterIndex:. 1-based integer indicating which filter'0 set to use, by default (1 if unspecified) DefaultExt:6 Extension to use if the user doesn't enter one.' FileName:'0 Default value for the file name text box. DialogTitle: Title for the dialog. OpenFile:, Boolean(True=Open File/False=Save As)' Out:& Return Value: The selected filename Notes:/ This function raises an error (cdlCancel) if8 the user presses the Cancel button on the dialog box.3 The caller of this code can handle that error in' in an error handler.4].! We're assuming that no one wants' the screen (that's the window that has* an hWnd of 0) as the owner for the dialog- so assume that means the caller wants Access( to be the owner. But you generally want to make a form be the owner. 8 !'k 9 9 9 9 9 9 9 9 9 If you want to modify this to$ accept other parameters (a callback $ function, for example), do it here. CTdC^k0 You might care to check the Flags member of the4 structure to get information about the chosen file.. In this example, if you bothered to pass in a4 value for Flags, we'll fill it in with the outgoing Flags value. $G5'j5'qH8@8.z(4  "! KT User cancelled the dialog. "B@DSError: "!$ ( "!)A@ n8i' Tack a new chunk onto the file filter.< That is, take the old value, stick onto it the description,3 (like "Databases"), a null character, the skeleton1 (like "*.mdb;*.mda") and a final null character.1 From Access 2000 Developer's Handbook, Volume II& by Litwin, Getz, and Gilbert. (Sybex)% Copyright 1999. All Rights Reserved.  In:@& strFilter: existing file filter- strDescription: new filter description varItem: new filter Out:$ Return value: new file filter $G*.*'j    d  d'ip5 Trims the Null from a string returned by an API call1 From Access 2000 Developer's Handbook, Volume II& by Litwin, Getz, and Gilbert. (Sybex)% Copyright 1999. All Rights Reserved. In:4 strItem: string that contains null terminator Out:8 Return value: same string without null terminator]  d'l l  l $'pd 'pkiAttribute VB_Name = "basFileOpen" Option Compar@e Datae`Explicit ' From Access 2000 Developer's Handbook, Vo$luI,K[R L L J O T a0Pt!HyĀI3by Litwin, Getz, & Gilbert. (Sybex)(Copyright 1999@. All s reserved.This module provides @a simp"front en d" to,the y z/Save comm{dialogs. You needn'u' use t2, unJlvywa+t o -- can always[1e,D+ cladirectly. But+'[evious vers)of h ad socojdDaJd}entry point, we' iduated ' here@0sing@y&raGrI3u 0API .]Requ2s: J:A@ Pub FuncadhCśA^( _ bAal ByRef Flags$ Aqdh Co(nst@\s0,M V@ ter .S8@"X InHdex Lo 1 DefaultExtdeB/]!1Tit InitDi7hWndOwnCD7L!`!,aBoole>= True)= ' "mNk!(O for@Dspxlay L:BmWindowsnmm@\xy  @xar`@9?`lisAXbwa oalEߒ͒__BѓRs RǓbIn@e c\One2 (mocd`lOFN*_, OR'~ogeAu&' D`D Tcwoin which first l!eil`/LA set `f`As, ` pa`ebwith x"|"(#sm 1-ntegUEicat! ?$A@, `6d#t (1 ifspecified'x zen# AAV Yoes `` onek"}  valueBb E&nZ tebo'^ 而 cjeHwx(x=an/Fals$e=nAsOutReturn Tue:>e`>lj d!  No\te_Af^raisAxn er r -(p,Cancxel)q p0} t0y AB-c@#o2I"rxhUthaBin+7N rOn EGoTo yqle}SDxim P aRtS2= Newq'' We'>PLum1/ no& 'zscreen (AA`U0ha !`A:0) asowa$ '12Å m``C52>b Kӌgeg@y" makfep m 3If k= 0'!Ap.q3PEnd IzfWH.%#niL@S=17@C;=yAqw=b`b'Baдifyp#5Aq1' a&p`'r 1_meAps (a "bXackyA,Pexa1), do@M 5MC0% .ShowAGEpMNx!q'rmQ{ 80-check3Smemɡ4030trucR00o xp-kKabo chosP;Sn$tfboWp@91vaye ,Ѿ^l!MxP 0g}@gS B] IsMis1(b)R= .Bq@Q8Q8aExitH`4gV !NqCTQ# ZSeak Ca>.NuQ"PA@wRk], , "U@`"Allhe>.1)Ms@gBox "or: " & a4De@]ib" ( 1)QS  ֡hAddFilterItem(strh As String, _ `Description tO"al va6Variant)N ' Tack a new chunk onto the fil.-hat is, take%oldjlue,MiK?itdE,B(li:"Databases"),ullarac7/@skeleton*.mdb;a") andfinyn "ZFrom Access 2000 Develop@er's H#book, Vol@ume IIby Litwin, GetzV9Gilbert. (Sybex)Copyright 1999. AkRs ReservedKxIn:ȀF}: exist@} c H:r@nQ H_ OutL#ReturnxF  CIf IsPMiss+()0 Theâ= "*.*" adK =Ļ&CA& vbNyChar G @! ElFu\ncA Trim(ByV@AG sBi fAaA/jrQLed aP@I callC#' Q QQ$"*:tAc|aiXns BnMmptorHsa@l %withoutS  Dim intPos3Int8eged = Inᦡ8,hE$tTd> 0S!MèA`QLeft - 1 ElseUD&OIfcOQe ,S,JA Descrip! HelpGContAt%gfp 8Sub SeekL@ocalOred@f(ByVal strTable As Str2Compa:rOIndex0"PrimaryKey"BC' Performs CAI`~ tus the specH(;NHi |< 6vNhǔ`Q MP][KexME @[LS S< -K[v1 @ @ @ @ @ @ @ `x@ K @H`|@ Oi$ ( i&ft B`x@S D`|@Wi$ i& FH`x@[ H`|@_i$ ECi& A J`x@c L`|@Hgi$ htwini&$ N`x@k RH `|@ oi$ ( athi& T `|@s X `|@ wi$   pi& ZH `h@{ \ `|@ i$  B@Di&8 ^ `|@ b `|@H i$ h 3 Ii&ith d `|@ hH `|@ i$ ( & bi& (Sy j `|@ n `|@ i$   baci&6 pH !`x@   r "`|@ $!i$  i&  t#`x@(" v$`.K[ @ @ @ @ @ @|@H,#i$ h tabi& x%`x@0$ zH&`|@4%i$ (al (i& |'`|@8& ~(`|@<'i$ i& H)`x@@( *`|@D)i$ e ori& cho +`|@H* BH,`|@L+ V-`0@P,`l  `.`x@T- f /`x@X. l`0`l@\/   1`@`0i  `l `\  (2`T@0d1IIi$ Pri&'`Px`v  P3`@h2Li thro @4`x@l3k,!0hT 4ri  an L%( b4@b6@b(<@bxCbCbCbCBBBBBB H(H H P H H H  @HH@H Hx   HP`(H bXCbCbCbCbCb CbHCbCbCbCbCbC+(H H p H H H  @HH@H H   HP`(H `)Hx H8H(Hx hH/K[v1 @ @ @ @ @ @ @HH(Hx (HH H(Hx !H!H(Hx "HX#H(Hx hH($H$H(Hx (%Hh&H(Hx 8'H'H(Hx (Hx)H(Hx hHH*H`*+H(+Hx (  +H,H @-H0K[v1c {=+ @ -  } j C 0  m Z G -H@H(x @h  .H/Hh H P0H1H(  1H1x2H2 03H3H(Hx 4Hp5H(Hx hH@6HX66H(7Hx (7H78H889HP99H(:Hx :Hx;H0<Hx<1K[v1 @ @ @ @ @ @ @HHh x=d @T @D H(4 H0 0>H(>THx ?H(@Hx (?HpHXx 0@t (@p Hl @HHH0X `AT @D H(@ H< @, @ A @ B @ H( @ p0CHP V0C(t @r  Hl Hh @X HT BfH@H(HED E E@x XHt @@p  E  @E55@p$gu28 6@ ,x ,   (0 28 p    "  "   "  "  ( "0 8H " P Xh "p x "   "  "   "  "  ( "0 8H " P Xh "p x "   "  "   "  "  ( "0 8H " P Xh "px "   " ) "   " "   "2K[v1 @ @ @ @ @ @ @ (0 " 8 @P "X`h " p x "  "   "  "   " ( " 0 8H "P Xh " p x "  "   " " "  # >0P X*hx : "  "   "  (8H?Ph px "       # ?@g KH h p x "                 0  8 @ 6P  p                  "  60  P `                     (  8  H X  h  p                  "        *0  H *X  p  x    @        83@HX `px<   "    B # )Use database order for string comparisonss Hand@0 From Access 2000 Developer's Handbook, Volume I% by Getz, Litwin, and Gilbert (Sybex)& Copyright 1999. All rights reserved.]@]@]@]@(]@(]@P '''', These constants just aren't there for us...]D]D]D]D@0A@ o0H $ &A@(o1A@ o $ &A@(o2A@ o $ &A@(oH3A@ op $ &A@(oP4A@  o0H $ &A@(o5A@ 4o $ &A@( o6A@ o $ &A@(oH7A@  op $ &A@(oP8A@ o0H $ &A@( o9A@ o $ &A@(o+A@P o $ &A@(oH A@Vox $ &A@(3K[v1 @ @ @ @ @ @ @oX B@B o8H $ &A@(o A@`o $ &A@(o A@fo $ &A@(oH A@lo $ &A@(op /A@PoPH $ &A@( o0 =A@Px o $ &A@(o*A@P o $ &A@(oH (D 6o $ &A@( op-A@PoPH $ &A@(o0A@oA@oH] !'p $:   $  (k B@` !$: ''dp ' !. 'k@o8 (A@o (' 'o   0. ( e !. (k' 'ox`]]   ('k0 !' ' !  (   $ 0 . !$  (k 'o]p] & ' $ 0 - 909LT  $ Handle Shift-8 ("*")0 KT B@*A@Pnd $$ 'cmd $B@ A@ kx Backspace KT B@&A@V KT B@^ A@f Numpad 0 - Numpad 9  LT $  0$ $ 'cmd $B@$ A@ h  Period and Decimal K KT B@A@l K KT B@-A@P KT B@*A@P KT B@+A@P& b K KT B@ (Sy/A@P K KT  B@+A@P dh B@=A@Pk@ KT B@A@`no  6  'k  !$' e !$' +KT   '-KT $4 $4 ' *KT  '/KT Can't Divide by Zero  CalculatorA@ d  'k=KT& 'n $  ('kX ' ' o@ ( '''o@ !'0mƴAttribute VB_Name = "Form_frmCalc" Bas0{1B511860-C504-4D20-A350-8CF712EFFAA6} |GlobalSpacFalse dCreatablTru PredeclaId"Expose_TemplateDerivCustomizD$Option Comp@ DT ' Udorder for sng ciso0ns "Slicit ' From Access 2000 Developer's Handbook, PVoluIby Getz, Litwin,  Gilbert (Sybex)Copyright 1999. All s reserA.A!P@D@F LastInput As Integer EDecimalFlagNumOpsOp1DouwGOp2SBQA(Enum S"t@, csQNon0 u4ms@1 )= 2Clear@ 3 End a' ThJrnstants j@ @n't there{us..RJC|t vbKeyEqual&HBB>Minu(DZP@o@ERSPlashFIKSub cmd0_rC@k(@KAle5F "0`vDown(Code6C, Shif)F w[$,111_` DB222Wh.333s _B DaX444555 6 \B6 {ac6 Vd_B?,r_Bf@roI%!7 7  7   o P_B8 8  8_keyd?Xqz   iv9 9 X?    Ad"d/ leOatorn+O H 1o ?o o o o j Back leqs1_%W%   d77!Cancel+ DoCmd.Cl0     ሤ$_X/lerr!? ? ? ? ? ubod Entry  3 @¯ l ؒ_e% ivide ~D/DxDDc s  lick "=" End Sub Privatep cmdEquals_KeyDown(Code As4K[v1 Integer, Shift") HandleNumberPress xbMultipPly_C( QOperatorx "*H{iOK ]Me.Visible = F=eWtract \-\?0gForm_ActBEInitCalcZB Loadf Backspace Dim varCaptionAVari8antӁ= lblReadOut.D If Not IsNull( ) Th 0 HCle@7Ɍ/ "^AJ EntryD 6%p#Z @; <> E6@-?L= "0.D 7 UTP_ &6C=R = TruE! `Ezj{?+Aa@If vC% =MCROSd`6 A@ G1)20" _3bC;4O:= 0'QMid$?n, 2>1?"Q?"U#3o3"__rx#Char7%s1#U?DS*= &(䔠acMaskSelect CaseՔCq'- 9b48 To 57gpz;1gh[Eq' C-8 (p4 yU x+ 8; .SetFocurRB2 iu= Ch r$U!o Me(" "2 )_ v &2I <  ?9' vb+0 As_ҌDPthrnOHg%' @padr++ Bo /-)0 +P8c("0")|??a .0 ' Period @ T]P3,S 3wP/ s4 I'Sub2Min=5E6 ey< =: x I'`@tin, `2p`B8C9. xH((x l `\   `\ P  $P D @ @0 @ @ @  @ P  0(P`\ @0l @ `\ P 0&P p@ @> @4 P (0 @ hP l  P @P p\ @L 0< @, P  h P8 h pz  @h 8l  @h  `  28 6@ ,x ,  B  & 40 2h & 8  6 ,8 ,h   0     (0 &8 ` 0x 6K[v1 @ @ @ @ @ @ @.@   0 6H  )4+  B  2 2H 4 6 8 6( (`  & 4 2 &  8H  6 , ,  0  P px      &  0  0 8 @  4H 0       0 00 6`  ( 0 6   ( +8 P  X ` h Bp 8 4 &8  B ( 0 8 @  .H 4x . 8 2 P  h 6x F  6 ,@ ,p  0 6 6 H  2h 2 0  , 28 2p 2 2 4 P  ` p     $  * (0 8  @HP` hx)Use database order for string comparisons@0 From Access 2000 Developer's Handbook, Volume I% by Getz, Litwin, and Gilbert (Sybex)f te& Copyright 1999. All rights reserved.name]D frmCalendar This is the public entry point.d - If the passed in date is missing (as it will10/1+ be if someone just opens the Calendar form raw), start on the current day.2 Otherwise, start with the date that is passed in.0 From Access 2000 Developer's Handbook, Volume I'% by Getz, Litwin, and Gilbert (Sybex)& Copyright 1999. All rights reserved. ]x* If they passed a value at all, attempt to use it as the start date. $ Z'd $ 'd OK, so they passed a value that  wasn't a date. ) Just use today's date in that case, too. Z'kHk@    " B@rm Stop here and wait.`* If the form is still loaded, then get the/ final chosen date from the form. If it isn't,te return Null.ew f $$ $!0'L &  B@B'Ld 'kie + You may not want to use the acDialog flag.'N+ For example, if you want to set properties'H. of the form as it's loading, you can't really'H/ use acDialog (unless you do some ugly OpenArgsAd1 handling. This example opens the form invisibly,0 allows you to modify properties, and then loops" until you close or hide the form. This is the public entry point.- If the passed in date is missing (as it willUn+ be if someone just opens the Calendar form Res raw), start on the current day.H2 Otherwise, start with the date that is passed in.0 From Access 2000 Developer's Handbook, Volume I% by Getz, Litwin, and Gilbert (Sybex)!& Copyright 1999. All rights reserved. han* If they passed a value at all, attempt to use it as the start date.]] $ tha Z'd` $ as 'd@ OK,7K[ so they passed a value thate  wasn't a date. ) Just use today's date in that case, too. Z'kk. Open the form module (effectively, loading an* instance of the form, as well). Then, set properties of that form..*you wa *(.fy thi  *(0$ a) Call the ShowFormAndWait procedure. This* returns True if the form is still loaded,/ but invisible, or False if it's been unloaded.to *$0lags* If the form is still loaded, then get the/ final chosen date from the form. If it isn't,,  return Null.ass *!0'(4 v &  B@B'll fid'(ki &(2 Returns True if strName is open, False otherwise.. Assume the caller wants to know about a form.KT : 4 2$8'$"i] ]8]P( Take an opened form module, display the. form, and loop until the user closes or hides the( the form. Using this technique, you canal1 create popup forms without losing the capability+ of modifying properties of the form before1 ( displaying it.d  In:ll cha/ frm: An opened form class module referencend Out: II@ Return Value: True if the form was hidden, False if closed. A0 From Access 2000 Developer's Handbook, Volume I % by Getz, Litwin, and Gilbert (Sybex)- & Copyright 1999. All rights reserved.* Note: In order for this procedure to work0 correctly, the form you've opened must have its/ Popup and MOdal (OK, Popup isn't required, but Modal is) set to True. T+ Note: Because this procedure relies on thel+ form's Name property, it will not work forok, Vo) forms that have multiple instances open.% Check for the form closing or hiding+ every adhcInterval times through the loop. 8, We've found 1000 to work fine, as a balance+ between responsiveness and not sucking the+ life out of your application. You may want X- to change this value to suit your own needs. ]h2 *!'2 *(D_x @ B A@  Is the form still open? 2$$'>x k $ OK, it's still open. Is it visible?p *!D '>x k '@k @ '@ >'0Hi x +Attribute VB_Name = "basCalendar" Option Compar@e Datae 'Use dorder for sng cbisonsExplicit ' From Access 2000 Developer's Handbook, VoluI2by Getz, Li@twin, % Gilbert (Sybex)'Copyright 1999. All s reserved.PrivaCSt adhc}ForNs S#gfrm Pubf Fun&cDo( _ al ByVvarStarte As Variano= 8tha e' wasn' JRa$todayH[A caALxtoo%!ETu IsRcV Objp.HTypAc=ǔ! ' Rr P`, oP"kc'@Os!#cwq@o know abouAE! PsCmd(acSysCmdGetObjectState, _ inTypXstrName) <> 0) End Function @Public$ ShowFormAndWait(frm As $)Boolea:kDim blnCancelled lngLoopLong9Stri ' Take an openZf moduldisplay the,d l6until user closes or hides . Us@is techniqu3you cv' cre popups without: epab ility3of\ify1prhhrtiGfP@ $ j97Fun2on¿ ¿q!Ł;f͟g!e OaOa$-@L!K@aU aa87Pa8QDao& "ahgH aePLLx:jaar @&wa 0aaY0AAQ daFo1W: abq!Y'?b.Z?bG?bГW?b?bV?bnt?bL/ / X!A 8b tbb b,bdb 4x . 8 2 P  h 6x F  6 ,@ ,p  0 6 6 H  2h 2 0  , 28 2p 2       !"#$'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~X(\X  lKB=*@oHۼaD 'H9)dp!IτpxME @[LS S<<<\<<<`< <$<(<,<0<4<8<<<@ `|@  B `|@ i$ i& FP `|@  J `|@i$ i& | `z@ LP `|@ P `|@ i$  i& R `|@ V `|@P i$ p i& 60 `X@ iX  iZ ( i  ,\ `@p  i^  i   `r@` ( fH `l@  h `\@ ,b( `X@ i 6  Hi" i  j`@h ))iZ `lz`nx`pv`r t`tp. v`@<`nz`lxX`xv``zt }p%`~l X`|@[i$ 80i& `p@.._i  `2z 40`4@ i  D`v@pQQi$ i&`z H`l@  i2@C (i  `z@!i  d  `D@" iZ `x `!`X@#  "`@D $ i  `2h #`|@% $`j@X & i2 xi  :%`H@ ' %i< ,!Xhz8T(/i h Ah<K[v1|@X) 3i 4!5 A0h|@\*>i ,!0xh\@X`+Ci &`z@d,G '`t@h-K @8(`t@l.O Hx)`t@p/S *`t@t0W +`t@x1[ N8,`t@|2_ Tx-`t@3c .`t@4g%BKBCB(CbxBbHbCbCb04 @b < @b\@b^@bb@bx  @b(| @xPx( 08 @HXh8Xx  8P H xxP xXP`X (  (0  0,XbXCbCbCbCbCbC(7Px( 08 @HXh8Xx  8P H xxP xXP`X (  (0  0@5pV` Vz V` V( ` Vx H!H!!`!V` Vzp!V8"Vz##@# #V` Vz0#V#V=K[v1 @ @ @ @ @ @ @z$$%$V` Vz$VX%V&&&VVz(& V@t @p @l Xh(V.0V` 8((P @@ '64VX> V(, V( ( )V(Vz )V*V`+V,V,V(Vz -V X.V@j/Vp P /VX 0 000V Vl 0VXV@j @h pVX p 11 22VVz2V .2ZVh @X 2H @F V@4 @$ @ 3VbdV>K[v1pz @x @v @t (4@r 4V(Zh Vl 5VX2V@l V\ 55F 666VVz(6V@2V(h @X h 7H8VX8pn 8(\ 8L @J @H pp88F 8 8D 88B x9@9< @8 @4 @$ 9(  @ @ `9V 9%&p@X`::V:j ::h @;P;pd @` @P ;L @H `;;@8 @( @& ; ;$ <V(  @ < 8<V =?(?V8?t` @d @T @D @4 @$ @ @ @ @ @ @ @ @ `? p@ P?`? ??@ ?@ @ VX2V@t ? fvVp @VVx @h HAd @T @D V4 ppB0BV:T@Bx V@v BH@V64@CxCXCV`?K[v1 @ @ @ @ @ @ @ Vl hCV0DV(Vz EV64Vpv @t V@d @T VD 0FVX V@z V(h @X HGHGG`GV Vl pGVpVXd @T @P V@ HVhIXhIIIVx Vl IV(Vj pJVpVXl @\ VX @H KKKKV` VzK.VXrLVHMVNNPN0NV Vt@NVp.VXr @p @n V\ hOV(OVz 8PV@V(x @t  QV@V(x @t RV@V(x @t @K[v1RV@V(x @t SV@V(x @t  Tx h PT55xxPt 4TyKl  6 ,H ,x 0 * 2 *@ ,p & (  : .@ p   , ,   0 4H     6 0 8Xhx    8 4  @X  2 &(PX "`  B  "     B  "   (0 B8 @H " P X`hp Bx  "   B  8* "   H(px  ,         ( 8 @ %X  p 8 < 8 <@   ) ) ) 8 4  *H 3h  D           ( "0  8 H "P X ` " h  p  "   "    "   "   "    "  ( " 0  8 H B P &'X  B  6 8    N( Rx*T " &@ <H   @5 , 0 @ PX "` *h 2 " B /h//  B  8&:( " 0 @8xAK[v1 @ @ @ @ @ @ @ $ > 40 @H PXp A  &(  (08@HPX` h p  " : 2  (08@ H X$p    7   "V0 X hx "   "     .> 8H B : : 2H B.<  J 3p33   0     0@  <H $ F  "   0 9@X` h6p;  "     & ( $H p &  "  "  H `  4      0 8 @ ` h $p          0 8@ HP X `           ( 0  8 @ .H x  B    "  2 &  ! !(!0!8! @! &H!p!x! " !! &! ! F! 5" 0"@" "H" 6P" "%" "" B """ *" 4#P#)`# x## "##### B # # ## " # #$ $$ ) $0$8$@$ BH$ P$X$ "`$ &p$  $ $$$ $$$ " % %%% B %*?(%X% "`% h%x% "%%% "%%% "%%% "%%& "&& & "(&0&@& "H&P&`& BK[v"h&p&& &xp0 From Access 2000 Developer's Handbook, Volume I F% by Getz, Litwin, and Gilbert (Sybex) I& Copyright 1999. All rights reserved.* =========================================# Constants you're likely to change:+ Some folks like the buttons, others don't., T$ If you don't like the OK and Cancel& buttons, then set this constant to be False. The form disregards this" value if it's shown as a subform.]D3 Assume that the week starts on Sunday, unless told2A@' otherwise. Change this to another day, if you like.]D % Color to show weekend and week days. & Change either one to suit your needs.]D 4]D @* =========================================. They didn't seem to make this one a constant.7A@]D(p Interesting monthsP]DP8A@]Dh00 Constants used to control movement on the form.* These constants match the interval values needed by DateAdd().]Ddx]Dm]Dyyyy]Dww& ''B@B@ Module-Public variables.]@1 Set the first displayed day of the week. In the- US, this is Sunday (1). In other countries,9 use the appropriate number (1 == Sunday, 7 == Saturday).]@0]@ ]@X Store away today's date.]@]@]@, An array to hold the lengths of the months, all stored in a single variant.]@]@ Show OK and Cancel buttons?( ]@]@]@]@(x '.m@ 0'  (D  (Dm8 ' m 0'AAm 'mX 0'AAm 'mp 0'AAmHx1 Convert a number, up to 48 decimal, into base 7.   'iA Called from Click event of the next/previous month/year buttons.]]]]]],X& Get the current values from the form. ! '" !'  !'$  '*d'*k "  $$.'(  * ($0'&   & ( 2 This should only happen when you go backward from5 1/1/100 to 12/31/1999. Just a quirk of Access' date2 handling! Actually, I can't make it happen at all5 in Access 2000, but it never hurts to leave it in...|xkp  &$2'   &$2'"  &$2'$1 If the month and year haven't changed, then just. move to the selected day. It's a lot faster. !  !  "lbl $ $6A@4dp> Set the values on the form and then display the new calendar. $' ' "'AAk8|,8o<A@:oPA@o $ &A@DoxAHo`P $ &A@Do@<A@:o  ANoP $ &A@Do ATo $ &A@Do X Z   $ '6ix0 / Get the number of days in the passed-in month.1 If the month isn't February, we know its length. ^  ^$'\dG Since Access knows the leap year stuff, let's let IT do the work here!L Get the last day of the month of February for the currently displayed year.  !  $. $2'\ki  Actually display the calendar.] 5 CK[Let's make sure we don't end up in here recursively! `G|j'`9 Figure out the starting day of week for the given month. ! ! $b'& Finally, really display the calendar. A@durned B@olor c'`o # Given a value in OpenArgs, or not,the fu, set the initial value of the calendar form. exten !"$ !"X'd Z'kAhoH < Store away the start date values (mdtmStartDate is Public).s arra  $2') o  $2'single  $2'Ao@ 2 Calculate the first day of the month in question.w " $. $2'bpai ( : Turn on and off buttons in the currently displayed month.] ] ] ] ] !$\'p'7 If the chosen date is past the last day in this month, n- then just select the last day of this month. ! p p'k 'r le n porti l n Z lbl1 n$(D custod0 r 'r$lbl l n't t$ay r pust 5D9Dk r9d 5D9Dk k q k nrom th l ioh 3 Set the labels for the days of the week correctly,QM, and set up the colors for the weekend days.,]@]X]p]]]  'z C ns n z    'x1 F x  Hand '~d8 '~k( lblDay n$x) x$9ht ~9q l ~lbl l n$(ontrol lialog no  $ &A@Do` X] Initialize properties.ts '' Initialize the array of month lengths.owD '2 Initialize the array of day names. No matter what; the first day is set to, fill these in with Sunday throughx)4 Saturday. Code later on fixes up the display, given3 D4 the first day of the week. If you don't want to use`, the first two letters of the day name, thencters< you'll need to fill in mastrDays with some other technique." 2 2 $$  2+@ 2D Get today's date stored away, so we can get back here if necessary.it now  Z$2'  Z$2'ted.  Z$2' ') If this is a subform, hide those buttons$ (D& b (DGetz, d  (D  (Dightk5 Fill in the start values (as passed in from caller).alogA@f Fix up the calendar display.A@v? Display the Calendar (which gets its month/year from the form)A@o  na   too  $(ected kk '  $( wants $!' for t B@BaoH0 Key Mappings: Leftarrow = Previous Day Shift-Leftarrow = Previous Year Rightarrow = Next Dayp Shift-Rightarrow = Next Yearlope Uparrow = Previous week b Shift-Uparrow = Previous Month Dnarrow = Next Week right Shift-Dnarrow = Next Monthplays  PgUp = Previous Monthave  Shift-PgUp = Previous YearLAP PgDn = Next Month Shift-PgDn = Next Year Home = Move to TodayKT- Shift-Home = Move to today in selected year.ted ] &  ' $ KT<A@: err KT<A@:za KT  Use the selected year.elA@d Use the actual current year.expeA@kX KT ATd8ANk( KT DK[]<N,,AHdA@k KT  Move to next yearAHdAk KT  Move to previous yearobjeATdpAk` KT  Move to previous monthANd Ak KT  Move to next monthA@dAkn( Tell Access to disregard the key press.'$ox 2A@4iXH, Month and year get filled in from the form. Go to the stored current date.  (  'k 'A@ Actually display the calendar.A@o] Fix up the visible day buttons. ZA@j` ? Set the right button as depressed when the month is displayed.lbl ! Z$6' A@4o 0 Set the display values, based on the properties of the form. !$' ! '%!o0`]# This action will trigger a runtime- error if the form isn't loaded as a subform. !!'2 "!' "B@ipAhAvAoH 2A@4<A@:i$ < (Dd B@Bkko 'mX Set the first day of the week. Fix up errant values.   'k 'A@m 'A@m !  ! !$.'0mxAo  A@o`  A@o88  A@ox  A@o  A@o  A@o8  A@ox  A@oxpAttribute VB_Name = "Form_frmCalendar"  Bas0{BF480E6F-BCDB-4461-9909-EC27488EBB39} |GlobalSpacAIFalse dCreatablTru PredeclaId"Expose_Templat@eDerivCustomizD$Option Comp@ DT  > Then;'is should only happen w yo@u go b+fHrom 1/00 to 12/3999. Just a quirk of Access' dhandling!tually, I can't makPe itGa(ll in+ 2000, butnever hurtsKleavA#in...Ex-SubErPart(adhcBpStsVDc Ay S /  "' tPhe m L y@EveIcPged,n j;^ mA@se@lected@`y!gIt'sglot fasterFMe.9'A_A8E;KHreIndent "lbl" & 52ButtonA‘@, mSt@TDOWO' SetB u_E mLen<T(diPe/! 0t@pctstuff,@ ql IT dowohere!clpstvy krcurr@qDk`x!|$ak!b{6SADx,!MarcP1) - 1UԌ?#b;wj5b'pCucau)tic fInH$Boo3@%Lesure do"z up%a resively$7х K= cQFigaosх@week gn 0&FirstDOM(P4, n`p.reqSho=pyspRepaB y9~FillIZnrBV"G a OArgs, or noDt,' sT?iƐ+!5amstIsQ(e):m C{:]At,A2UpPubsl`AFSto(awUf"0"0({pу)""! !  8l]1=O b?=@/ U=@cPl/p( j' 7/d' @cul1f!47Q} dqsY"w",ute~,`NcNNFix`q`*ypurn 2on and off buttons in the currently displayed month. DimtRow As Integer 4Col4NumDaysruntstrTempStri0ng intV= ]InM(Me.)' Ifhosen date is past lday {,n juseleco-7AI >aRThen*_m[_=EIfsCo= 01For= 1 To 6 +w7'(D) A@A <Start@&) ,Me("lbl1" & ).Visible = FalseKEN 5+ 1 |= D/ With )@BF Not =IIGTruG ~.Capti+OO? \ ;u5NextMA SubaAfPriv| @FixUpD(C@#' Sexbels fi!@s bweek tco@c@fas upcolorei @ kaYTLog0ical4Di/@qC@rolglng`eLo8c@b b = !Firs -As#Z= (e+7" @ ) Mod 7)> *~Rf6) 00s= adhcbW 81CObY`8H:!a`3(gumur`s!L.G3= ke1H$P)r!6`7u7orm_KeyDown(pCode(t, Shif)H6leP s Mto, PfillsnD wtSunt@hroughSaturp. "lWr jfixes tR, gtiv5' e 1T.you don't waato ut|wo [Q Q,S' '0 n~epv9Cs ome o`r technique!b6@HH=1JLeft$ _-2(H0 N(i&,Pi#UOf:=vb)+6w*JGko0'sstorp away, soP can gpback herf necessarycE-]ayT D5PО(QSIStdr,tet`Yeardhcnt-)Czfs6eg3cS6@a sub{m, hiFt0eLoade@dAsSub0m(cmdOK(,3@/ke[D# QOvfEy.'$p,Ts vHalu6(aRsC!fromP!l0ler)%,P=InV"'&:sarהw<CapNd(which(tss/y$ R bGbd&4qϜ  a(Ind@(NewS@S! `m@ed) > ̓`) <> joptJ.SpeccEffq+cNP aԖ!}=c`CkT14<0=$c5Me.Repaint End Sub P@rivatep HandleKeys(Code As Integer, ShiTft")~ ' \ Mappings: ( Leftarrow = Previous DayV-%YeaBr&RighGN8extC" @UpaBweek CMonthDn"AW  PgU>p   `Pg|Dn< HomeMove to Tod^LtA in selected ya.E{DimDownBoopleanFK[v1 @ @ @ @ @ @ @2=H ((B AHIFT_MASK) > 0FSB CaseC[ABvbEscapeGBloseForm HideIt:=Fa ls Retu.r( CTrNuRAHIfAThe' U4xtheR fToBf L0E4 actual currentEk?  !AIfg''PageUp Call}Qsh\HNe Baj#ZWb' 6vne pk? @pX1 _ዿB1Ydm)1Dry 2_^Z% r2 1_ ;!  C_!%' TeBAccess.disregard Skey #sshoQ`1b m0Functioned(strNap StrhSIndSD_myZ( ^CsWa+p# Y get fi ll`u vfrom RfPl&v' Gocctor]dm`?}j kj12 =  5tx#SetDisp0layD ' Aily calendard #Show(`S@tǧnewFix upRvisible А button&@sIn8RriP as de*w0"5 i ed = "l bl" &Q2B(,tU:+x (d ' u valu es, bRd @4!(properties;of D+Q4txt= k/6 B0'  ;LoadedAsSub1E a< On Er Resu>sK% Th Aw7 0@gp a @runtim'4 e"i'n't lQa sube.PzaQ.| `4(P .Number!AC 7GSRe3r4lUpPub8licb0-Up6S b7J35"8oTnmTq owO6(UMNot N" [N`{ P(VT@=}nDoCmd. !1 q0+B#`4y G_FirsL()A ߥ@!1Wc2PS8pPwLy _ PKNPRٱ Integer) ' Set the first day of@week.Fix up errant valuesDIf intNewStartD< 1 Or _x :> 7 Then >= 1End If m$F`= S"RedisplayCalendar AProperty Public   LVf(dtmaDate As m l = :G:)6%E =?Serial(Me.@Year, MonthSs@Sub To(eFl MoveToUseCu rrent:=TrueHLNexwhangeBLadhc@"$St'dtForwardC`12({+W@'Previous@IOBackPQO c?(,`<? # (: ]@(x '.m@ 0'  (D  (Dm8 ' m 0'AAm 'mX 0'AAm 'mp 0'AAmHx1 Convert a number, up to 48 decimal, into base 7.   'i  <Hz d3]Zz =<CtGetDC0ReleaseDCXPGetDeviceCapst<MulDiv`CommDlgExtendedError|ChooseFontAChooseColorAGetOpenFileNameA(GetSaveFileNameAF A|/߼aEq$*=h8+3q!qC`xME8 $ (,04@SS SX  X +<p< ii+ `p( ` iH ih 8 i+ |p| +0 p  )(  A4%+~ pp  ) A,%+ p  ) A0%+p@ tt )` A0%j`.<, @j D< @j.HD @j.PT@j0 Xd @*.\lp  @   e`%j(/f @j l@*P/p @ ` %0 x` `%H`%j/ @j @j0 @j@0 "@"@$@" h0x%@` %xHe`"&( @S 0c(M,!(phxH@ ()h  (,!*hx i ,!,0hx i ,!.hHK[ @ @ @ @ @ @ @t p)  p A.Phv  )0 0 !+ `2z,!:hx` %) a % < `@ >X@,% F`<@ H@x@4% J@(%`L T0`T@ V0@0%`X, ^`T@  V0 !1@0%`X, Z@ `0@$::>)V A0%``x`bt \0 `,@(00x)V A0% jx`lv4``p @ `|@p, )> A,% B `|0 )> A,% P `tD@4CC)H `hA4%)JA(%iL`tx RX`4D8)H (0A4%)JPA(%,x`l@<.i `t`~p (`|@K ,p`t@hDPiy i ``lv v`L@H##d)J (A(%i`z`x t%BJBBL BBP(BBV-iBj\Cj^Cj`Cjb(CjdPCjfx Cjh@CjjCjlCjnCjpCjthCjvCjxCjzCj|Cj~0CjXCjCjCjCjCj CjHCjpCjCjCjCjMCjCj`CjCjCjCj CIK[hj( CjCjx Cj OCj Cj oCj!Cj@!oCjh!Cj!oCj!Cj!Cj"oCj0"CjX"OCj"|Cj"Cj"oCj"Cj #CjH#Cjp#Cj#Cj#oCj#oCj$_Cj8$Cj`$Cj$oCj$oCj$oCj%oCj(%CjP%oCjOCj%Cj% Cj% Cj&Cj@&Cjh&Cj&Cj&Cj&Cj' Cj0'CjX'Cj'Cj 'Cj 'Cj'Cj (CjH(Cjp(Cj@Cj(Cj(Cj)Cj 8)Cj"`)Cj$)@Cj&)Cj()@Cj** Cj,(*Cj.P*Cj0x* Cj2*Cj4*Cj6*Cj8+Cj:@+Cj<h+Cj>+Cj@+CjB+CjDCjH0,qCjJX,CCjL,`CjN,@CjP,CjR,BCjT -pCjVH-ACjXp-CjZ-Cj\-Cj^CB.ZBj8.4@jh 8$ @j @4 @j LL@j T\@j/`t @jx d| @j h@*x/t( @* /JK[v1xH @j /|@jP @jx @j !@j #@b"0&@b$'@ P%`)-( p(pp-!*!&'"$ h! h+*'&8 H#+ @0(( P*!#P x x%+x* -, P$,-" 8) P),(/`.P/(*/h0+'$.%(x &p#P0hP) `$ @8.hX)) @//(%8X"`@!@++.#x "" #0x0#p' p'* H-"Xh 0,x/0"/x -P $%0*8$0  0H%8@& (`,00 (X, %h&(!,X'(..H(&0'jZ5Cj\6Cj^06Cj`X6Cjb6Cjd6Cjf6Cjh6Cjj 7CjlH7Cjnp7CjpCjt7Cjv7Cjx8Cjz88Cj|`8Cj~8Cj8Cj8Cj9Cj(9CjP9Cjx9Cj9Cj9Cj9Cj:Cj@:Cjh:CjCj:Cj:Cj;Cj0;CjX;Cj;CjCj;Cj;Cj <CjH<Cjp<Cj<Cj<Cj<Cj=Cj8=Cj`=Cj=Cj=Cj=Cj>Cj(>CjP>Cjx>Cj>Cj>Cj>Cj?CKK[v1N j@?Cjh?Cj?Cj?Cj?Cj@Cj0@CjX@Cj@Cj@CjCj@Cj ACjHACjpACjACjACjACjBCj8BCj`BCjBCjBCjBCj CCj (CCjPCCjxCCjCCjCCjCjDCj@DCjhDCj DCj"DCj$DCj&ECj(0ECj*XECj,ECj.ECj0ECj2ECj4 FCj6HFCj8pFCj:FCj<FCj>FCj@GCjB8GCjDCjHGCjJGCjLGCjNHCjP(HCjRPHCjTxHCjVHCjXHCjZHCj\ICj^CjZhICj\ICj^ICj`ICjbJCjd0JCjfXJ CjhJ@CjjJCjlJCjnJCjpCjtHKCjvpKCjxKCjzKCj|KCj~LCj8LCj`LCjLCjLCjLCjMCj(MCjPMCjxMCjMCjMCjMMCjCj@NCjhNCjNCjNCLK[jNCjOCjCjXOCjOOCjOCjOoCjOCj PoCjHPCjpPoCjPCjPCjPoCjQCj8QOCj`Q|CjQCjQoCjQCjRCj(RCjPRCjxRCjRoCjRoCjR_CjSCj@SCjhSoCjSoCjSoCjToCxpj(TCjPToCjOCjTCjT CjT CjUCj@UCjhUCjUCjUCjUCjV Cj0VCjXVCjVCj VCj VCjVCj WCjHWCjpWCj@CjWCjWCjXCj 8XCj"`XCj$X@Cj&XCj(X@Cj*Y Cj,(YCj.PYCj0xY Cj2YCj4YCj6YCj8ZCj:@ZCj<hZCj>ZCj@ZCjBZCjDCjH0[qCjJX[CCjL[`CjN[@CjP[CjR[BCjT \pCjVH\ACjXp\CjZ\Cj\\Cj^CKjZ]Cj\@]Cj^h]Cj`]Cjb]Cjd]Cjf^Cjh0^CjjX^CMK[ @ @ @jl^Cjn^CjpCjt^Cjv _CjxH_Cjzp_Cj|_Cj~_Cj_Cj`Cj8`Cj``Cj`Cj`Cj`CjaCj(aCjPaCjxaCjaCjCjaCjbCj@bCjhbCjbCjbCjCjcCj0cCjXcCjcCjcCjcCjcCj dCjHdCjpdCjdCjdCjdCjeCj8eCj`eCjeCjeCjeCjfCj(fCjPfCjxfCjfCjfCjfCjgCj@gCjhgCjgCjgCjgCjCj0hCjXhCjhCjhCjhCjhCj iCjHiCjpiCjiCjiCjiCjjCj 8jCj `jCjjCjjCjjCjkCjCjPkCjxkCjkCj kCj"kCj$lCj&@lCj(hlCj*lCj,lCj.lCj0mCj20mCj4XmCj6mCj8mCj:mCj<mCNK[v\+Z(Nj> nCj@HnCjBpnCjDCjHnCjJnCjLoCjN8oCjP`oCjRoCjToCjVoCjXpCjZ(pCj\PpCj^Cgk-](k kpppd`Xm@]Hdh`jdhg cXcm0mjh] i8 0^e``mH_^0c@0Pk_bl d(fbc^b hpnmoo p_PfoPp@b`e`k ]k8o(/`.P/l/h0 nj@ga.Xh(cHifP0hP^hl f @ _8.^_l@l ^Pa//gadacmHn.`xfx e8ee0\_Pfpibxaa8jl oeXh nx/d/x (pP gh0mf0  0]`0h8hj`n8`00 ](an hbgh(c`oixk..jpiX^iD}p5L6 8 ,@ ,p  , & * 00 ,`  ( * * ,( &X *       (( P`x  ( * , ,H x     ( 08@HPX`hpx   (08@ HX`hpx (08 @HPX ` p       (08@HPX `OK[v1px       B X &` ( ( $ ( ( H P X ` h p x                 ( 0 8 @ H P X ` h x                      ( 0 8 @ H P X ` h p x    & &  4  ( $H (p & $ , &,@ &p4 , * &P x   H H  H( H$@ HX Hh H H H  $  .  2P  6 $ FX D` > XP XX H 08 (@h *p & 0 (( 00` 6h .  (( 80h 2p ( TH XP ( 2 . HX :` " `0 .8h *p 6 , ,@ *H .x 4 6(0 *8 &h * 0 B $ (( ,P $ ( $  B 4 H hp Bx 4   B * ( " 08  0@ .p , ( 0 @H PX` Bh px   "  8 , ,@ p <x   2   :! @! X! (9`!!!! "!  8! ,! PK[v1 @ @ @ @ @ @ @," @" :H" """  (" """2# &(# P#`# :h# # # (9###$ "$  8$ ,H$ ,x$ $ <$ $$  %2% (%8% @%P% X%P9`% % :% % &(9&@& H&&7P&x&&& "&  8& ,& ,' 0' >8' x''  '2' '' '' 'H9' 0( :8( x( ((9(( (&7(()) " )  8) ,P) ,) )  ,) () **  $ * 6H*)*** * * * 6* 0+$JH+ p+ x+  + + + +  (+ *+ 0, &8, 2`, 0, 6,- - - ((- (P- x- *- -0- .  .  .(. 0.8. " @.  8H. ,. ,. .  2. , / P/X/`/ h/p/ x/ // /// (/ /  / &/ 40 @0"X0 p00080 0 0 $0 (0 ,1 H1`1(x1$F11 11 11 " 1  81 ,02 ,`2 2  ,2 (2  2 3 3 3  (83 *`3 03 &33  (4 &(4 $P4 (x4 $4 44 445 " 5 85 ,H5 ,x5 5  25 ,5  6(6 "06 8@6 ,x6 ,6 6  ,6 (7 87@7  H7X7h7x77 7 7 7 7 7 7 7  8 8 808 88H8P8 X8h8  p8 8 8  (8 *8 08 &(9 .P9 ,9  09 89 ,:H:(X::::  (: &: $; ((; $P; x;; ;;; " ;  8; ,; ,(< X< 2`< ,< <H< < == 0=@= X= h= x== == B=  8= ,= ,(> X>`>QK[v1h> p>  ,x> >  0> >? ? ?('8?`? h?p? x??? "? ? ?? B ? 8? ,@ ,8@  6h@ @ @@@ @ @A AA  A A(A " 0A  88A ,pA ,A A <A ,B HBPBXB `B .hBB  ,B BBBB!C 0C @C`C xCC CCC Cx1 From Access 2000 Developer's Handbook, Volume II& by Litwin, Getz, and Gilbert. (Sybex)% Copyright 1999. All rights reserved.& Provide access to the File Open/Save, Color and Font common dialogs.$ Works similarly to the CommonDialog) ActiveX control, but adds more features,& and doesn't implement Printer or Help support.! NOTE: This class module contains# some redundant code (that is, codeInterv# copied from other modules) so that% it can be imported and used in other applications without needing to$ also import any subsidiary modules.x ================= API Constants =================]D]D ]D0! Modify the Open/Save dialog box.]D8]D Pd (]D R P]D R ` =================" API Enums (values defined by API,# Enums defined here). These are set% up to match the CommonDialog ActiveX % control's constants, but we've added some extras.ned ================= 'Z'\'^'`'b'd 'f@'h'j'ltring'n p'p'd  't'v'x'z'|'~'''''''''''M''( ''''''' 'O''o''ile o''o'''o''O'|''o''''''o'o'_'''o'o'o'o''o'O' ' ' ''rror (' if'''' 'n '''1.0'  Li' or i''''@' '''' '"@'$'&@'( '*','. '0'2'4'6'8':'<'>'@'B'D 4 must also have cdlCFScreenFonts & cdlCFPrinterFonts You can use these values in the! File Open/Save callback function! to modify the text or visibility of any of the controls on the! dialog. See the example callback function for a demo. 8q'HC'J`'L@'N'PB'Rp'TA'V'X'Z'\'^H ================= API Types =================P^h^^^^^^^^(^@^X^p^^ Lp^^^ ^8^P^hRK[v @ @ @ @ @ @ @^^^p(^^^^0^H^`^x^^^^^^^ ^@^X^p^^^px^^ caller's window handle^ printer DC/IC or NULL^0^H& 10 * size in points of selected font^`" enum. type flags^ returned text color^ data passed to hook fn.^ ptr. to hook function^ custom template name^ instance handle of.EXE that contains cust. dlg. template^ return the style field here must be LF_FACESIZE or bigger^& same value reported to the EnumFonts& call back with the extra FONTTYPE_ bits added^(^@ minimum pt size allowed &^X max pt size allowed if# CF_LIMITSIZE is usedp` ================= API Declarations =================p<`]DZ-h z! nS a  0  ' ` ================= Storage for property values. =================' Returns/sets the size of the file namea+ buffer to use for the FileOpen dialog box. The default size is 1000.] ./ Returns/sets the custom file open/save filter. Public CustomFilter As StringBa@ Returns/sets the default filename extension for the dialog box. C] 8.> Sets the string displayed in the title bar of the dialog box. ] h 7 Returns/sets the path and filename of a selected file."] `.R Returns/sets the name (without the path) of the file to open or save at run time.]  R Returns/sets the filters that are displayed in the Type list box of a dialog box.]  A Returns/sets a default filter for an Open or Save As dialog box.] .) Returns/sets the initial file directory.]  ! Returns/sets the selected color.] .# Sets the hWnd of the dialog owner. ]  Sets/Returns the character set.) Although interesting, doesn't correspond! to any property in the host app.] 0 ) Text describing the selected font style.] .0 Set/Returns the minimum and maximum font sizes,' if you've set the cdlCFLimitSize flag. Disregarded otherwise.] /] x ! Returns the selected font color.] (/1 Flag settings (for backwards compatability only)]  + Flags specific to the specific dialog box.]  ] P/] x/" Address of the callback function.] /M Specifies the name of the font that appears in each row for the given level.] /Q Indicates whether an error is generated when the user chooses the Cancel button.] P ! Returns/sets italic font styles.] /, Returns/sets bold font styles. Included for( backwards compatability. Use FontWeight$ instead.] x 3 Font weight, from 100 to 900 (in multiples of 100)"Ta 700 is bold, 400 is normal.]  Y Specifies the size (in points) of the font that appears in each row for the given level.] 0( Returns/sets strikethrough font styles.]  $ Returns/sets underline font styles.Vi] @0/ Retrieve the font type, from the adhCDFontType& list of options. Can be any number of4j% items from the group, OR'd together.]@ $ Retrieve the 16 user-defined colors( returned from the color chooser dialog.]@. Retrieve the offset within the full file name/ to the file portion, or the extension portion.]@h0]@0$ Retrieve the liSK[tHEJst of files selected if cdlOFNAllowMultiSelect flag$ is set. If not, this array contains  ) only the path, and single file selected.]@ Get the parsed list of files.! If there are items in this list,% the 0th element is the path, and the rest are the selected files.Ta! Even if you only select a single file, we populate this array. &'(mp- Returns the offset within the full file name to the file portion.He "'*m- Returns the offset within the full file name' to the file portion.m $',m0# Return the array of custom colors. '.m]8) The array passed in must be indexed from( 0 to 15. If not, weird things are going% to happen -- we just copy from those indexes directly over.4 2gu 2$0 2+ 6 28{46mP ':m ================= CommonDialog Methods =================1 From Access 2000 Developer's Handbook, Volume II& by Litwin, Getz, and Gilbert. (Sybex)P % Copyright 1999. All rights reserved.6 Displays the CommonDialog control's Color dialog box.] >A@ >$~ >ABd3 If the user wants to raise an error for the Escape do it now. 1  Cancel was selected. "B@Dkpkho` 1 From Access 2000 Developer's Handbook, Volume II& by Litwin, Getz, and Gilbert. (Sybex)% Copyright 1999. All rights reserved.3 Display the CommonDialog control's Font dialog box]`]]! Arbitrarily allow 100 characters for the style string.d$N'L H J LAP(# H$ The user pressed the OK buttona H JARd3 If the user wants to raise an error for the Escape do it now.C  Cancel was selected. "B@Dkko1 From Access 2000 Developer's Handbook, Volume II& by Litwin, Getz, and Gilbert. (Sybex)8% Copyright 1999. All rights reserved.5 Displays the CommonDialog control's Open dialog box.]] VAZ V$ VA\d$'X X NKT 4Filename buffer is too small for the selected files. "B@DKT3 If the user wants to raise an error for the Escape do it now.  Cancel was selected. "B@DkS XUnexpected error. "B@Dnkxop01 From Access 2000 Developer's Handbook, Volume II& by Litwin, Getz, and Gilbert. (Sybex)8% Copyright 1999. All rights reserved.8 Displays the CommonDialog control's Save As dialog box.]p] VAZ V$ VA\d8$'X` X NKT 4Filename buffer is too small for the selected files. "B@DKT3 If the user wants to raise an error for the Escape do it now.  Cancel was selected. "B@Dk8S0 XUnexpected error. "B@Dnko1 From Access 2000 Developer's Handbook, Volume II& by Litwin, Getz, and Gilbert. (Sybex)8% Copyright 1999. All rights reserved.% Copy object properties into the data" structure before calling the API.]]( Show the Open common dialog.0 Allocate string space for the returned strings.  d$\'`Ty  d ` d$ \'b V V9 90TK[ The API doesn't want those "|" things, it wants* vbNullChar, with an extra one on the end. $ h| d$f d9 9 `9 `9 b9 b9 9! You can set either the OpenFlags# or general Flags properties. We'll) OR them together. If you use both, you'd better know what you're doing!, In addition, we're going to assume that you* always want the explorer-style interface./ Can't imagine why you wouldn't, at this point.u   9 9 9" We don't support the CustomFilter" property, but you could add it in if you like. This buffer$ must contain at least 40 characters to make WinNT happy.( d$\959 5 ft 9kqo@1 From Access 2000 Developer's Handbook, Volume II& by Litwin, Getz, and Gilbert. (Sybex)@% Copyright 1999. All rights reserved.+ Retrieve properties from the API structure% back into properties of this object.]]] V5'5' 5'5'5'5'$5'"" CustomFilter = .lpstrCustomFilter5 5'` ` "$  d. Look for trailing double null chars, and trim( the string there. ` d d'l l ` l $ '`k` ` d$n'j j'&d8 Only a single file selected," so break it up into path and file% portion, as if the user had selectedbr multiple files.@&( ` " $ +& ` " $ $p+&8 $p'k(k qo01 From Access 2000 Developer's Handbook, Volume II& by Litwin, Getz, and Gilbert. (Sybex)% Copyright 1999. All rights reserved.% Copy object properties into the data" structure before calling the API. > >(  >(  >($ $r >(" You can set either the ColorFlags# or general Flags properties. We'll) OR them together. If you use both, you'd better know what you're doing!a   >(" This had better be the address of a public function in a standard module, or you're going down!4! Use the adhFnPtrToLong procedure to convert from AddressOf to long. >!   >(k o 1 From Access 2000 Developer's Handbook, Volume II& by Litwin, Getz, and Gilbert. (Sybex)5% Copyright 1999. All rights reserved.s + Retrieve properties from the API structure@6% back into properties of this object.ft >!'86o 1 From Access 2000 Developer's Handbook, Volume II& by Litwin, Getz, and Gilbert. (Sybex) L% Copyright 1999. All rights reserved.% Copy object properties into the data7" structure before calling the API.] H H(  J Avk J$r H(   H(ic  H($x J(b  J(p  J(n  J(l   J(rM   J(jd J(jkd  J(jick  H(  H(8  H(! You can set either the FontFlags# or general Flags properties. We'll ) OR them together. If you use both, you'd better know what you're doing!( We also OR in cdlCFInitToLogFontStruct,& 'cause you generally want to do that.9* In addition, if the user hasn't specified2 either/both cdlCFPrinterFonts or cdlCFScreenFonts& we're going to assume they want both.  't t 8 t <UK[vN t 'tkh t ( H(P" This had better be the address of a public function in a standardp module, or you're going down!t ! Use the adhFnPtrToLong procedure to convert from AddressOf toic long. O H! "  H(1.kPoH1 From Access 2000 Developer's Handbook, Volume II& by Litwin, Getz, and Gilbert. (Sybex)ib% Copyright 1999. All rights reserved.We+ Retrieve properties from the API structureMi% back into properties of this object.po0 J!| |$z$p'os H!'fi J!l' D H! `'en J!j' L H! 'cro J!p'LA J!n'gn J!r've H!$p'Mic H!' OoHX1 From Access 2000 Developer's Handbook, Volume II& by Litwin, Getz, and Gilbert. (Sybex)or% Copyright 1999. All rights reserved.io]]4% Assume an invalid value for failure. O'x) Convert from points back to the internal device units value.oft J$' e  $'~ 1.  X ~H$'xk8z48xip Assume the default size. N'o8(1 From Access 2000 Developer's Handbook, Volume II& by Litwin, Getz, and Gilbert. (Sybex)% Copyright 1999. All rights reserved.0 Trim the end of a string, stopping at the first null character.]  d'l lMT  l $ 'pKT 'pKT 'pn>i>1 From Access 2000 Developer's Handbook, Volume II& by Litwin, Getz, and Gilbert. (Sybex)% Copyright 1999. All rights reserved.5 Given a string, get it back into the ANSI byte array& contained within a LOGFONT structure.]H]`]x4=  $z'  '% Make sure the string isn't too long.  L L 'k=    $  J,|  Tack on a final Chr$(0).  J,|8<|x<4p<8h<o`<X<ǸAttribute VB_Name = "CommonDialog" Bas0{FCFB3D2A-A0FA-1068-A738-08002B3371B5} |GlobalSpacFalse dCreatablPredeclaIdCExposeTemplate DerivCu@stomiz EO@ption 0licit ' From Access 2000 Developer's Handbook, VoluIIby Litwin, Getz,  Gilbert. (Sybex)Copyright 1999. All s reser`.Pro@vide aEto the FiOpen/Save,Color8Font c)| d}sA Works simi@Zly CHQActPX@n@trol, adds more fru@)8doesn't "i@`emePr@inter #Helpsuppo@AWNOTE: This @}@XPmodu@4c@.ahinsB oUunda3A(thRas,'d'pi{fAko@Fr)s) sJ"as' iCanx be)!@ A.u1in ap pas without ne`edingKl:@[y subsi@YryEZ  = API Const4B9P @Ov@ HWND_DESKTO"P@0 LF_FACESIZE32FNERR_BUFFERTOOSMALL&H30031ModifAJFJG boxKWM_USER40.CDM_FPIRST(e+p 100`_+ ASETCONTRO0LTEXb+ &H4HIDE7 K5@Z0Enums (values defi~n@Bw3Zh`ere).U`s seJupahmatchr)i`hZ i c?jwe'v@{dde dsA^extrNavC;ub`T #!rhCD}Ty pa RASTER_F@*TYPAaB&H1 ADEVICEKEATRUE4pBOLD `9CITALICREGULAlFASCREENNIPRIN`SIM@ TE OPEN7U 1DSIGaEndB/!gP+10F``HANSI_CHAR@\TE EFAULT3SYM -d3SHIFTHJIS)28C H@ANGEULJ9GB23123CHINESEBIG56OEMh255c`JOHAB H EBREW77a#ARAB!'17t GK)6DTURKISHtVIETNAMO @LHA22TE0UR X23tRUSSIAN0TMACCh% BALT+ 8?`_!9ay(_ cdlCCFullV! bsButt= T 0vuh RGBIn`n= RAnyc=TF;EnA>H@ BSolid8`Error0oBc3275BufferToo(Sma@=47'ancelT'aVK[eICFail286%#W-@6DndmMisZ  FindRe~sG re NotSӍ0d= 39w 5q "2763 kidџ204)pIn0ptyVm'$0SafeA cC6XLoadDrvk T=p>$qStr!Lhock5TKMem#5 NoDefaultPrn$Bvi@No[sq457yI⚲q UPáWPars#*0Cod(7!@%Fo*Ret  ѷSet(8 up7Sub%??(1L?OFNAwMiselect \51W be (mp819*J$,SizpR`38860gxp@= 52428tens@ߜDiH1ˀS02  MExisq 409w?Z1ideRead$On`= jLo ng;&0971QPNoChangeDirZ +reSe@RLin#Q 485TlOFNNoLongNames = 262144H cdNetworkButton131072 ReadOnlyReturH32768 FValidate 56 6OverwritePrompt PathMustExirs04 Z|71 7ShareAw#638End Enum Public adhFontsConsta$CFANSIn"&H400 Ppply 2 B(oth 3Effect&H1 EnableHooknCFFixedPitch AAForce^./Init TgStrucf'LimitSizh&H3 NoFaceS4el(0NoSimulatiOB7'qtylVY@Nor/O8rtG Prin teCFScf10 * sQPp`}f selnznt:pt"ep. tpb f_>cpB@ 0redscXJjpa pass fnЄQptr@ 5v[OEg cpMom sG n0#~A3piShaA@.EXEa_"aP . dlptO1z=3ҝsRfield her'nbeygq'big: AW':4s reportC47/pc3 wiGra TYPE_rbi`addedMISSING_ALIGNMENTx n3M 2D>minim8um 4`owP&aF\\if , CF_LIMITSIFZE is used End Type ' = PAPI Declara tionsPr ivateTe Func^ GetDC _ Lib "USER32"(By@Val hWAs Long) SRelea$se(W, kdca5 5Cqt LOGPIXELSY = 90 oevic eCapssgdir<FnInd exG7MulDiv4kernel5nNumber,7 eoHfFnDenom0inatcCommDlgExte4dErr@F|comdlg32.dll" (hooseFont: Alias "C ApfiCol0B cBc@OpenFileName?L kF!fn!OPENFILENAME!Save0tSA@Qage f`1property values.Returns/sets the size o6fb" #!buffdto A( dialog box T@ defaultC !1000Public %B >S/#.cu`stom n/s.terb= C zString e ! e!ssF*d DCx- S)"splayed in*titlep bar, )TB"Zpath af7a san YtQ+:i&a2initc+dPirec:yIDiRf_y9SSa 3&(҂ p)hen#a)b odElsP1'Qyaguьwant o rais nn e1f@0AEscapAdo it`}w1 ancel5@ p.RC, , " wa." )Ifq%j%-%@%%e %%rp%y%&% ' %R]%% %S%f% lLOGFONTgpSty;`SD' ArbitrariR)ow 18chararQ' !sP0Z &= Space>(D(. .f,| l0/(xcf)/ygb,pP<g!+OK butto/2t$o_2_2_2 _2_2 q7._2q ai_2_2q_2c_2 LXOt;_2_2e?X?X?Xd ?X ?X?X?X?Xtg7X /Xq2ofn2OPENFILENAMEoG**'*@WѵName(* 'D =PkmmDlgedb#1TCa[C 1FNERR_BUFFERTOOSMALLk'BufferToToS lZ_ >"q6oo| sAWBᑟpsi+ 0OjOjr671' o88Hu Err.Raise cdlCancel, , "( was selected." E nd If .CaaElse\l ngzjUnexpa error{ g_SLoub Public Sub ShowSave ()-' From Access 2000 Developer's Handbook, Vol@ume IIby Litwin, Getz,  Gilbert. (Sybex5' Copyright 1999. All s reserv,/Displays themmonDialog controlOg As d box.Dim ofnOPENFILENAME0Long CCa@(SetOpenPrACties(3@4If= Fi@leName <> 0 ThenH˃%==DlgExt endedorEo~  FNERR_BUFFERTOOSMALL GBufferTpooSm@A8nI8 b ieoo s fori f@DsMĂ)0'Ȃu$nt ranEscap' do it now5kPg ACC?~?~ 7B ?~!(1~rivateC~WaY ߁߁߁ [߁ obj pr intBobHdataestructure8 be@TYingAPINey$Str !Title%A !}ad '!oc4 spa$ce[renetd s&= (%uSize, vbNullChar:L` F&C C $(1024p cWith[.l @/A = LenhWndOwnerf5'!t @4zesXn't‚ +o"L|" @'s,~waIG , waaxtra one`e D+Jp#t"Regce(Trim$a`)`|"J NI0[x g .leT1dnMaxPߡD: etf(>R` w' You cset e{0FlaLgs cge a l <. WeH'llORQm toge r. 1cy0c botHh, 'd9b$etP ka what@do#!In additiowe' @gA assatialw(3%xplore`r-styB0Ie\rf=&a,i@maginep ya would@tupt)*S=  Or{O~W s&D ef@!efauLlt-InalDi!9%1'@8 supporq pust,om#.''y,P qA;iؑ' ifBlike.?S m!0ntait least 40 cNar%`make WinNT happy;7C TU40NB.a813_3 .A nableHе@pfnppkBacku1X StX?ET #_OO ' OOq OOdD' ReyʈC f!GcOb XK[ @ @ @ @ @ @ @of631@&reInfo()_mPosIntegerXq]Cs= %1?$%%\7l\@(k.)lmPCOffQ^nensSgP k8# 5Q4DAi vwQ Mid$(, mClngFileOffset, 1) = vbNullChar T@hen ' Look for trailing doublHe nr cts , and>imthe str#r re.$intPosInS`tr(1,0NPame, & )HIf K> 0ҁpG/:Left$( ,"-2EvIf a!Info+Spl\it +^mL8ist ' 6Else?' Onl`y a sf selected,so break it up=o paths portion}s if wuser h adF multip%sPReDim JA(qo`׌ qm sadhTrima(Mid L+(sL ͔With ASub Private  SetColo@rPrope@ges(cc As Choose#3' From Access 2000 DeveBl's Hyb~, Volume IIby Litwi?GetzCGilb. (SybexD ' Copyright 1999. All s re`Fved@'  obrj@W pTNdataenuct@ure bee0 calAPI$ cc.lStrSizelpLenB%Dh@WndOwnZ= frgbRes Y@* pCus0!VarP@ ma Ps(0) c' Younft e;`aFlagsge@al h". We'll%ORrm toge` r. @y @t both, 'dbettknow whLat@)do`!w"=:LO.rcc'@is" beaddQ>s o'pic funcቀ;At@Oarmodul@ M g!`wn' Us hFn.0ToLoGcedCto codnv U f_Ooel $F 'FA@cdlCCEtnaH+@l8pfn"%`PBack vwib>w wdw;;;;t;%Re~D;-9};b=>oe$c@Z<809QQF&oQ _cf#R, lLO GFONT"StyjpT C0;?SS S`%SrSSDSyS!SSR;SOn Err8!PPaNext#{vAKa7ScfoW`Wf6pX(a) ߛC5 ptnFacea(lf, 66!ApLog!"}YlE^@V psz =bœl fHeBnb?cuPJts(D$keOuq Throug}qrUnderPl!jqXItalT ArcripC0W BolFd2.lf7|00C ϩ 40K y@AwnMaxPlinaizz?Bpu 1y`fiensy 8y y'+ y'y' al qjFIn|itqp/P&W$' 'cau d `want`u?atV' In7 di[sn't specifie{/!  .nprCSc0reen2we S~{ass@y "  G 0G11ontP,No8t (I') }Qa, )1bB@ IR P';OOrLʶtion in a standa rd ' module, or you're going down!Use the adhFnPtrToLoFprocedureNto convert from AddressOf t*o#l9. If cf.Flags And cdlCFEnableHook Then)*lpfn= CallPBackE=If Sub Private  GetFontPropMies(cf As Choos"e , lLOGFONT)+H' Ffcce 2000 Devel&'s HbW, Volu me IIby Litwin,Az,  GilbB. (Sybex5' Copyright 1999. Al$l s er(ved'/RetriE ĄlAPIrucztbLj oghis objectOn ErrRes60NextCAMNa;=TrimNull(StrC(lf.lfFace, vbUnicode);Col@=(rgbBsItalic =@fCCGBold( @r.nTypeABBOLD_qTYPE) <> 0WeXDCG0Size@iPt\ 10\keThrough :@=ikeOuFUnderxlincriptCharSeStylρWBsz5mlngF@BSDR0Func`hcH!\s()c{_`d_`p_`_`Dim hdcK@"LogPixelsY1[GoTobxle"]$PAs^anfvRd ue f Wfail`kf)@;DG ctp9aLs r@rvin@ternaldevice unitsC =DC(HWND_DESKTOPB`!_K#C Caps(, PIXELSY _#! -1 * MulDiv(CInt(R%ah)ng'2, 72D E@UxitHere:# E eU!4dA!]iClas(s_I )i9ze:($'C< 1GT9Left$(,Qq! - 1$<1?Ko\`vb R$ ,,bUu0v%$I &oo ' o ooon0Give%get itcQo%0ANSIarray5 taPvd with"Ǐ'ntLp' )IQabytTemprBytTdd 5@ r#uvbQxec = UB ound() +-' Makxe sh`9isn'9oo kt> LF_FACESIZE /bl3Q+AqFpI 1 us+) ~(+Q8Ta a fiqr$(0)T;5eQ oe oe/Ss* In addition, if the user hasn't specified2 either/both cdlCFPrinterFonts or cdlCFScreenFonts& we're going to assume they want both.  't t 8 t <YK[v t 'tkh t ( HUZJYKNLVWKUYGEGTNFPMCMODCZFN:-XJSOBS_GWEETPDVFILVZDJGLTJUC:w+PROJECT/PROJECTwm{4 (5;  ^{j4@WlH"T%$FU]pC+Lj NGN*͝5xME @[LS S<@xx @h @X @H x(D @@ xX Xx @h @d @T @D @4 $ @ X x6xt @d @T (P @@ X0 @ x hp00  , "  )( 8@ H<P` h"p 0x !2T " &P8 $V`   "$,ZK[v @ @ @ @ @ @ @ xp]hX B@BZCY@|80 "!$A@ oX* Find the record that matches the control.] !.!0.,>[MissonaryID] = ' "4' ,B@2 ,!6 (6o !<$: (pix\ !<$ ~ (pix\ !< !>(@dp !>(@kXdP !>(@k8o0otblMissionaries$F$D'(0Attribute VB_Name = "Form_frmMissionary"D Bas0{BF07705D-1CCA-43E3-96A9-D82B96E@D064C} |G lobalSpacIFalse dCreatab"lTru Pr@edeclaId"Expose_TemplateDerivCustomiFzD$Opt Comp@ DT  ""D+Img q turgEߢpe ""a>If#9(Load'&=ij(ADOGet ("tblies")ih a  f a demo.v wt 3fosCurrenClde2rb*47DLab[44vA sL# f65''^Ved*= =$S `Vg7' GIghe1OK$ancel'[i 0EJ= !7API Types70Tv!a L@OGFONTlfHeight As ӥWid Escapem4OriS. ItcaBHyteUnFline `ike,Ou)C`Se Prec`d@`#JlipQutyAndFami, A!(1 To  4& qLV<^njܥlDRg'JA=|yxME [LS S<<0<4<<<< <$<(<,<8<<<N0{DC81BD6A-6CA5-44A1-B4DF-521BBA67E1F2}  X`@T `ttz, `TDX `@\ `t9 0`TD` p`t@d# >`t@h( `t@l/ F0`t@p4 p`t@t9  `t@x >  `t@| C 0 `t@ H 8 `$@p  M)}  %i iii i  8 X `8@x  a)}   %i  i i i i  h "xp `t@r%08pXXp000X%[K[%pXXp000@` .Pp @l `h``X Z@H H@8 `@( @ @ @ X `p `Xx @t @d @T p `. Hp @l h ` %`X @H p@8 %`@( @ @ @ 0 `p `Xx @t @d @T H `@`(x @t 0`@`(x @t `@`(x @t `@`(x @t `@`(x @t `@`(x @t `@`(x @t `@@`(x @t ` vC`l  j H@X@.X(X @T  `@D @4 @$ X\K[v1 @ @ @ @ @ @ @Xp` `l  j 8`X `@X @H @8 Hhx @t @H83(x @t X`0Tu 6 ,H ,x " "c  "> 8 "@H P`"ch  "> "&  " ( &8&` p "&  "&  "&  "&  0@ "H&P `p "x&  B         * 0*GP  B  <  (  ( 08  @H Ph p "x&xp0 From Access 2000 Developer's Handbook, Volume Ie% by Getz, Litwin, and Gilbert (Sybex)l& Copyright 1999. All rights reserved.]@ !<50' $   $$.90q'oX !<!0$''to] !<50'  $ $$.90qh'oXH !<!0$ ' vo(0 !<B@ B@op! Make sure the screen repaints so the user sees the cursor move.ce !<B@@ B@0ox !<B@. B@oH !<B@H  B@o0 !<B@ B@op !<B@N B@Xo !<B@ B@'o !<B@T B@HoX0  KT' KT ' KT ' KT KT$ The year in the expression below is. completely arbitrary.9  $.mmmm$'KT  ' Fn`nXiP86 Display 100 years on either side of the current year.P ]@  KT $ '"rv' KT ' KT' KT "d  'niX !<B@jeoh`9Attribute VB_Name = "Form_frmCalendarTest" Bas0{DC81BD6A-6CA5-44A1-B4DF-521BBA67E1F2} |GlobalSpacIFalse dCreatablTru PredeclaId"Expose_TemplateDerivCustomizD$Option Comp@ DT  E12,jqo1B 0' TCym inQAexpxsqba~w iscpletely arbitrar>yD9:Axat(u+ 1, 1u"m"4 1o 1$VB"s*y:,//,/,/,!-/,' Disy 1s eЌer si`/of\rent 1Statictq 41101 R= ap(Nows33uJ3  3$S 3]Ps e -+_G!"e3mdTodaypA .@[LS ID="{179AF88F-908C-454C-ACF5-7DC0B5EC8D31}" DocClass=Form_frmZone/&H00000000 DocClass=Form_frmMissionary/&H00000000 Class=CommonDialog Module=basFileOpen Module=basDatabaseUtilities Module=basCalendar Module=basCalc Module=basCodeWriter Module=basLinkedTables DocClass=Form_frmCalc/&H00000000 DocClass=Form_frmCalendar/&H00000000 DocClass=Form_frmCalendarTest/&H00000000 DocClass=Form_frmSector/&H00000000 DocClass=Form_frmBaptisms/&H00000000 Name="MissionManagementSystem" HelpContextID="0" VersionCompatible32="393222000" CMG="DFDDC5287BD85EDC5EDC5EDC5EDC" DPB="BEBCA4095C373A383A383A" GC="9D9F8766B944BA44BABB" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] Form_frmZone=0, 0, 0, 0, C Form_frmMissionary=22, 29, 622, 377, CommonDialog=0, 0, 0, 0, C basFileOpen=0, 0, 0, 0, C basDatabaseUtilities=44, 58, 672, 484, basCalendar=66, 87, 694, 513, basCalc=0, 0, 0, 0, C basCodeWriter=0, 0, 0, 0, C basLinkedTables=22, 29, 650, 455, Z Form_frmCalc=0, 0, 0, 0, C Form_frmCalendar=0, 0, 0, 0, C Form_frmCalendarTest=0, 0, 0, 0, C Form_frmSector=0, 0, 0, 0, C Form_frmBaptisms=0, 0, 0, 0, C @p x@Form_frmZoneForm_frmZoneForm_frmMissionaryForm_frmMissionaryCommonDialogCommonDialogbasFileOpenbasFileOpenbasDatabaseUtilitiesbasDatabaseUtilitiesbasCalendarbasCalendarbasCalcbasCalcbasCodeWriterbasCodeWriterbasLinkedTablesbasLinkedTablesForm_frmCalcForm_frmCalcForm_frmCalendarForm_frmCalendarForm_frmCalendarTestForm_frmCalendarTestForm_frmSectorForm_frmSectorForm_frmBaptismsForm_frmBaptisms $ @ Xͬ᥀B<%GӘDetailFormHeadAcessVBADataForms `>"`v#04""Blob 08w=Babc$e ghiFj-ku!g@M#hDbݡu Uc L2IL"g@tblZone*Bx2jc L2IL"Zone,݃RC,vQ戮c L2IL"ZL1DateZ2x4Bc| c L2IL"ZL2Date;Q@i?nc L2IL"ZL11TN &_Vomﮁ@tblMissionaries.< dO`f}1TN &_V^K[v1 @ @ @ @ @ @ @oMissonaryID8#DoWO1TN &_VoLast-cBIIq(;% 1TN &_VoFirstĮ+G$1TN &_VoLast2(v'N&5c1TN &_VoReleaseDate3F;뙖loc L2IL"ZL2fjyM2 ,M#hDbݡuZL1k^iVL%,M#hDbݡuZL2mՉZO@⭙UZq?iN@ob0frmZoneSub,(JGv㯢@PmtblDistrictyuJlmA,(JGvZonetblZone Zone Information Ariald2e12f5g237hghMS Sans Serifi1ghj1ghk1l23:m4n2o2p5r35zijMS Sans Serif{5`FormHeaderw70Hb;od5UbcgdeLabel12"Zone Information Arialh^G˜_Ih1U`\b@c@cmdCloseCommand13"[Event Procedure](ڭ0ڭ030 ڠ30 3 ڠ30 D30 DD30 DDD30 DD3 D0 ڠ ڭHClose FormTfBjovA`8 Detail<ʤisH[qvm7U`aKbcYe i ZoneZone Arialۑ L8gId5U`<aKbcd eZone_LabelZone Arial.~=4AGt[m7U`ab8c,e9i kZL1DateZL1Dateddmmmyyyy.Date zone leader called Arial'Ma3d5U`qabFcd ZL1Date_LabelDate Assigned Arialy,JøM5b-qm7U`aHb8c,e9i kZL2DateZL2Dateddmmmyyyy.Date zone leader called ArialbUhhLPhd5U`qaHbFcd ZL2Date_LabelDate Assigned Arial9O6p3W`<ab(#cl dfrmZoneSubForm.frmZoneSubZoneZonevZ2vI"<Շd5]`<abcYd e frmZoneSub_LabelDistricts Arial5Lfo5U`bcde f,h l nL"";"";"";"";"";"";"";"";"";"";"10";"0"fjyM2 ,ZL1ZL1Table/QuerySELECT [tblMissionaries].[MissonaryID], [Last] & ", " & [First] & " " & [Last2] AS Expr1, [tblMissionaries].[ReleaseDate] FROM tblMissionaries ORDER BY [tblMissionaries].[Last], [tblMissionaries].[Last2], [tblMissionaries].[First]; 0;2880;720;0;0 Ariald5U`<abcd eZL1_LabelZL1 Arial IVLiHo5U`bcdHe f,h l nL"";"";"";"";"";"";"";"";"";"";"10";"0"k^iVL%,ZL2ZL2Table/QuerySELECT [tblMissionaries].[MissonaryID], [Last] & ", " & [First] & " " & [Last2] AS Expr1, [tblMissionaries].[ReleaseDate] FROM tblMissionaries ORDER BY [tblMissionaries].[Last], [tblMissionaries].[Last2], [tblMissi_K[vQ+hQ58Esonaries].[First]; 0;2880;720;0;0 Ariald5U`<aHbcd eZL2_LabelZL2 Arialc|H7hxm7W`abk Text14 =[ZL1].column(2)ddmmmyyyy^VAKQsd5]`abcLabel15RelDate:^ܿDHmm7W`afbk Text16 =[ZL2].column(2)ddmmmyyyy UGN{ud5]`afbcLabel17RelDate:KH,`FormFooterj@=DJQZ@ PropData35TypeInfo12:8"pJ"Blob  erFormFootermZoned Zone_Labeld ZL1_Labeld ZL2_Labelm ZL1Dated ZL1Date_Labelm ZL2Dated ZL2Date_Labelp frmZoneSubd frmZoneSub_Labeld Label12oZL1oZL2h cmdClosemText14d Label15mText16d Label17t @d 08w=Babc e ghj(k(㯢@mՉZO@⭙UZqT U,(JGv㯢@tb      !"#$%&'()*+,-./034569:;<=>?@ABCDEFGHJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz}~lDistrict$OxOPH,(JGvDistrict{1\CLy,(JGvDLDatea7 oG/ѹG,(JGvDLID1TN &_Vomﮁ@H"ttblMissionaries.< dO`f}1TN &_VoMissonaryID8#DoWO1TN &_VoLast-cBIIq(;% 1TN &_VoFirstĮ+G$1TN &_VoLast23:%)gHON {'Nς@ob0frmZoneSubSubl UBC1i/􅎂@tblAssignments~~~܊K\ *pl UBC1iEndDate^DgA:hEoyI4@"4tblSectoriATVNK)^DgA:hEoySectorK ~I߆SF?^DgA:hEoyDistrict[eѴxNӶ^DgA:hEoyPhone:3.&Ol/b;9l UBC1iDate<¢:N^cUl UBC1iMissionaryID #xELSpl UBC1iSectortblDistrictfrmZoneSub Ariald2e12f5g237hghMS Sans Serifi1ghj1ghk1l23:m4n2o2p5r35zijMS Sans Serif{5`FormHeaderO^A^y\`1  Detailv.7@c&7m7U`<a;b ce i DistrictDistrict Arial 5F#2- 6m7U`a;b9ce9i k DLDate DLDate>Date District leader was called ArialvZ@+GQB+ o5U`cl d;e fh l nL"";"";"";"";"";"";"";"";"";"";"10";"0"YtB˭D`K[v1LIDDLIDTable/Query.SELECT [tblMissionaries].[MissonaryID], [Last] & ", " & [First] & " " & [Last2] AS Expr1, [tblMissionaries].[First], [tblMissionaries].[Last], [tblMissionaries].[Last2] FROM tblMissionaries ORDER BY [tblMissionaries].[Last], [tblMissionaries].[Last2], [tblMissionaries].[First]; 0;2880;0;0;0 Ariald5U7b cd eDistrict_LabelDistrict ArialDetachedLabeliO_vd5U7`0 b cd eDLID_LabelDLID ArialDetachedLabel߅RMGJd5U7``b9cd eDLDate_Label DLDate ArialDetachedLabel@2F1I p3W`<ab cdfrmZoneSubSub$Form.frmZoneSubSubDistrictDistrict9>pKT:-$7d5]`<ab cd e&frmZoneSubSub LabelSectors Arial&frmZoneSubSub_Label*+o1Nvťj``FormFooterM"PpL(^BSι"&  0ͬ :G(k3`FormHeaderDetailmDistrictmDLDateoDLIDd District_Labeld DLID_Labeld DLDate_LabelpfrmZoneSubSubd frmZoneSubSub_LabelfrmZoneSubSub Label FormFooter Zone0*GP B PropData791TypeInfo22<pJ"pJ"Blob 408w=Babc!*e g"hij-kP;9Wl@ sdMissionary church membership ID TahomapG4lÃ,d5U`bc Label2MissonaryID:9<BB>ք"7m7_`<ahk First FirsthBఛd5]`<a<b c Label3 First::V@ vMm7_`ahk Middle Middle"Hނ/--ud5_`a<bc Label4Middle:W8DL紖t/m7W`| ahbkLastLast]תReF1C*ҥd5_`| a<bc Label5 Last:8 PDoRs 6m7W`ahbk Last2 Last23 B `Sd5]`a<bgc Label6 Last2:cG` K:em7U`,ahb,k Gender Gender>"M"q̀A@cN)*bDԂd5U`ahbc Label7Gender:*Jt GIC7o35Wc#dhf,l n"";"";"10";"24"@~BTypeTypeTable/Query"tlkMissionaryType?@AKDEFGHIJLTNOPQRSbaVWXYZ[\]^_`dcefkghijlmnͬ8]pC+LDetailFormHeaderFormFooterd Label0h cmdClosemMissonaryIDd Label2mFirstd Label3m Middled Label4m Lastd Label5m Last2d Label6mGenderd Label7oTyped Label8mPicFiled Label10{ TabCtl11|!pgMain|!pgContactmHAddrd Label14mHCityd Label15mHRegiond Label16mHCoded Label17m!HCountryd "Label18m#HPhoned $Label19m%HEmaild &Label20|!'pgConfNotesm(ReleaseDated )Label23m*DOBd +Label24m,Certifiedd -Label25m.VisaExpird /Label26m0Notesd 1Label27|!2pgAssign3UnitPosm4ConfNoteso5Combo30d 6Find_Missionary_LabelFind MissiocK[v1nary_Labelp7frmMissionaryAssignSubgImgPic0;0 Ariald5U`<aHbcd eZL2_Label8=Babc<e g hi j !kEndDate DESCp^M@v\8{pE[ Ul UBC1i/􅎂@tblAssignments:3.&Ol/b;9l UBC1iDate~~~܊K\ *pl UBC1iEndDate #xELSpl UBC1iSector^DgA:hEoyI4@g XtblSectoriATVNK)^DgA:hEoySectorK ~I߆SF?^DgA:hEoyDistrict o{G&o2{N^DgA:hEoyCity{b_:J|RYl UBC1iCompanionID1TN &_Vomﮁ@g XtblMissionaries.< dO`f}1TN &_VoMissonaryID8#DoWO1TN &_VoLast-cBIIq(;% 1TN &_VoFirst7J ?l UBC1iPositionq+y@@, o'@tlkMissionaryAssignmenttblAssignments,frmMissionaryAssignSub Ariald2e12f5g237hghMS Sans Serifi1ghj1ghk1l23:m4n2o2p5r35zijMS Sans Serif{5`hFormHeader'ǯN!sPd5U7`<a<bcDate_LabelDateDetachedLabelKrٟGjeηd5U7`ta<b4cSector_Label SectorDetachedLabelBI'˞Ad5U7` a<bc"CompanionID_LabelCompanionIDDetachedLabelwf$Drid5U7`a<bcEndDate_LabelEndDateDetachedLabelp^&LWB^QINd5U7`$a<bcPosition_LabelPositionDetachedLabel#yDqGCY`w Detail>EO^Ǽim7U`<a<bce9DateDateddmmmyyyy(Date Assignment Made@JzM^./oAm7U`a<bce9kEndDateEndDateddmmmyyyyУYFho5U`bctd<e4h n6"";"";"";"";"";"";"10";"80"̄ȪH]ڮ Sector SectorTable/QuerySELECT [tblSector].[Sector], [tblSector].[District], [tblSector].[City] FROM tblSector ORDER BY [tblSector].[Sector]; 1440;1440;1440o5U`c d<eh n("";"";"";"";"10";"0"E1T0KW4wWCompanionIDCompanionIDTable/Query߼SELECT [tblMissionaries].[MissonaryID], [Last] & ", " & [First] AS Name FROM tblMissionaries; 0;2880o5Uc$d<ehn"";"";"10";"40"\ĽUCY=mPositionPositionTable/Query.tlkMissionaryAssignment`FormFooter6 HF? hSub Arialf5g237hghMS Sans ͬeWK0.K&^FormHeaderd Date_Labeld Sector_Labeld CompanionID_Labeld EndDate_Labeld Position_LabelDetailmDatemEndDateo Sectoro CompanionIDoPropData?A{TypeInfoB|JPropDataCopydK[v1 @ @ @ @ @ @ @4Ep"p" Position FormFooter AssignIDMissionaryIDͬ`Q MPDetail0eBox28eBox27d lblReadOuth cmd1h cmd2h cmd3h cmd4h cmd5h  cmd6h  cmd7h  cmd8h  cmd9h  cmd0h cmdDecimaBlob WPropDataDFTypeInfoGBlobDelta 029abcgh> ijE$k=@Calculator"[Event Procedure]"[Event Procedure]h53` Detail01`M7 Ce15]`babcb Box28PwyyIypN,ie15]`Zabcb Box27v65xJM+=d5U7`ZaZb chd e3lblReadOut TahomaiGbH[Ly h15"`abhcmd11"[Event Procedure] Tahoma"[Event Procedure] 厞pHRSRh15"`abhicmd22"[Event Procedure] Tahoma"[Event Procedure]rrZUzLQWh15"`abhicmd33"[Event Procedure] Tahoma"[Event Procedure]"[Event Procedure]!L&Oӓh15"`a8bhicmd44"[Event Procedure] Tahoma"[Event Procedure]^wlC?? h15"`a8bhicmd55"[Event Procedure] Tahoma"[Event Procedure]/(E9Lh15"`a8bhicmd66"[Event Procedure] Tahoma"[Event Procedure]#S&L-_h15"`avbhicmd77"[Event Procedure] Tahoma"[Event Procedure]b&o)G[h15"`avbhicmd88"[Event Procedure] Tahoma"[Event Procedure]bNbx=h15"`avbhicmd99"[Event Procedure] Tahoma"[Event Procedure]Ҩ_UB~@h15"`abhi cmd00"[Event Procedure] Tahoma"[Event Procedure]InLK>^h15"`abhi cmdDecimal."[Event Procedure] Tahoma"[Event Procedure],RTG}&Łjh15"`abhi cmdEquals="[Event Procedure] Tahoma"[Event Procedure]eE:6E{"h15"`a8bhi  cmdAdd+"[Event Procedure] TahomeK[v1 @ @ @ @ @ @ @a"[Event Procedure]ljODh15"`abhi cmdSubtract-"[Event Procedure] Tahoma"[Event Procedure]N/ FAFmh15"` abhicmdDivide/"[Event Procedure] Tahoma"[Event Procedure]BҟKHtyh15"` a8bhicmdMultiply*"[Event Procedure] Tahoma"[Event Procedure]_GIv#/h15"`avbhicmdClearC"[Event Procedure] Tahoma"[Event Procedure]㳫;!nFK)h15"` avbhicmdClearEntryCE"[Event Procedure] Tahoma"[Event Procedure]MD2[Oh1`abckicmdBackPrevious"[Event Procedure]@( Ȥ"[Event Procedure]fK[ j SC05vLD}WKh1U5"`N aZbBghi cmdOKOK"[Event Procedure] Tahoma"[Event Procedure]`ǧgL;vh1U5"`N abBghicmdCancel Cancel"[Event Procedure] Tahoma"[Event Procedure]:Y v#M/ZRegion:E*D4AF@{^m7`$a HCode HCode7]@Ed5`abIcLabel17 Code:0kt6EolԶm7`8a` bDHCountryHCountry"U.S.A."dOCKTR(6d5`a` b*cLabel18Country:7vHfD`m7`a` b HPhone HPhoneЀOBѠy.d5` a` bcLabel19 Phone:د~Olh cmdEqualsh cmdAddh cmdSubtracth cmdDivideh cmdMultiplyh cmdClearh cmdClearEntryh cmdBackh cmdOKh cmdCancelheedhhhhhhhhhhhhhhhhhhhhhAssignAs |EI\H3#hp3`<ab c0 ,frmMͬ;oHۼaD 'H9Detail0d lblDay15CMJp"p,"Blob B(PropDataIKTypeInfoL 0129a b c ghyiVj@kkʡx@@擷LfMϕY  UCalendar"[Event Procedure]"[Event Procedure]h5m45z5`$ Detail02D 7/I;|o:d5]7`abtcelblDay1Su TahomaH _F(d5_7`UabtcelblDay2Mo Tahoma<\}7B|^&d5_7`abtcelblDay3Tu Tahoma XeHfDd5_7`=abtcelblDay4We TahomaaIB 2Xd5_7`abtcelblDay5Th Tahoma s4AOed5_7`%abtcelblDay6Fr TahomaƧ;>F޴#Td5W7` abtcelblDay7Sa Tahomac\UlLRV)y*h1U`abcicmdPreviousYear << Yr"[Event Procedure]( ʦ"[Event Procedure]X`uuHa,gh1U`h abcicmdNextYear Yr >>"[Event Procedure]( Xwwwww{wpwwwswpww{wpww{wpwwpwwpwwpwwwwpwwwpwwwwwwwww"[Event Procedure]HСAdDmh1U`Zabc cmdPreviousMonth<< Mnth"[Event Procedure]( ʦgK["[Event Procedure]XogdLy*Mh1U`abcicmdNextMonthMnth >>"[Event Procedure]( Xwwwww{wpwwwswpww{wpww{wpwwpwwpwwpwwwwpwwwpwwwwwwwww"[Event Procedure]H{SyIzcd5]7`a*bhc lbl111 Tahoma0=HandleSelected("lbl11")(=SelectDate("lbl11")p_ohȜC2wz8\d5]7`Ua*bhc lbl122 Tahoma0=HandleSelected("lbl12")(=SelectDate("lbl12")PNViIPfd5]7`a*bhc lbl131 Tahoma0=HandleSelected("lbl13")(=SelectDate("lbl13")ۧ@MHcH;d5_7`=a*bhc lbl142 Tahoma0=HandleSelected("lbl14")(=SelectDate("lbl14")3%k;J6ǃ (d5]7`a*bhc lbl153 Tahoma0=HandleSelected("lbl15")(=SelectDate("lbl15")Ioh9N2C:5bd5]7`%a*bhc lbl164 Tahoma0=HandleSelected("lbl16")(=SelectDate("lbl16")w֖-CLDAd5]7` a*bhc lbl175 Tahoma0=HandleSelected("lbl17")(=SelectDate("lbl17")ECZ'ߊBs d5_7`a bhc lbl216 Tahoma0=HandleSelected("lbl21")(=SelectDate("lbl21")$Imor@7Fd5_7`Ua bhc lbl227 Tahoma0=HandleSelected("lbl22")(=SelectDate("lbl22")bwJ/NLid5_7`a bhc lbl238 Tahoma0=HandleSelected("lbl23")(=SelectDate("lbl23")FrC|Rd5_7`=a bhc lbl249 Tahoma0=HandleSelected("lbl24")(=SelectDate("lbl24")I>"[Event Procedure]0(2&@b@6f33" eeeHjK[vD N$5!h1U`Ta8bGc,g icmdPrevWeek<<"[Event Procedure]0(2&@b@6f33" eeeHȞLeDeh1U`a8bGc,g icmdNextWeek>>"[Event Procedure]0(2&@b@6f33" eeeHliD륄?h1U`TabGc,g icmdPrevMonth<<"[Event Procedure]0(2&@b@6f33" eeeH6]QO}Htr~h1U`abGc,g icmdNextMonth>>"[Event Procedure]0(2&@b@6f33" eeeH(l1.6aIکxd5U` abcLabel17Day TahomaNlOd5U` a8bcLabel18Week Tahoma`A2 )d5U` abcLabel19 Month TahomaKB+~ZKW;d5U` abcLabel20Year TahomaYEe`Eh1U`TabGc,g icmdPrevYear<<"[Event Procedure]0(2&@b@6f33" eeeH$yAf:oo$h1U`abGc,g icmdNextYear>>"[Event Procedure]0(2&@b@6f33" eeeHЕ'GVo05]`a cdhen BtEXWކcboMonthListMonths;0"[Event Procedure]"[Event Procedure] Tahomao05]cdhen ((I1<cboYearListYears"[Event Procedure]"[Event Procedure] Tahomad5`axbcLabel26 Month: Tahoma< FCuդ}d5`axbcLabel27 Year: Tahomag+j A'"'5h1U`Zapbi cmdToday Today"[Event Procedure] Tahoma++"AEKSOc3jd5_7`%abhc lbl3618 Tahoma0=HandleSelectkK[ed("lbl36")(=SelectDate("lbl36")MW.LW]q*d5_7` abhc lbl3719 Tahoma0=HandleSelected("lbl37")(=SelectDate("lbl37") E+K(Uu!d5_7`abhc lbl4120 Tahoma0=HandleSelected("lbl41")(=SeleTypeInfoQBlobDelta7HZTp,"p,"Blob  h cmdPrevDayh cmdNextDayh cmdPrevWeekh cmdNextWeekh cmdPrevMonthh cmdNextMonthd Label17d Label18d Label19d Label20h cmdPrevYearh cmdNextYearocboMonthocboYeard Label26d Label27h cmdTodayate("lbl46")T]~;Mݜ2Ӻd5_7` abhcdhkopphhhhhhddddhhooddhabhc lbl5087=Babc4e g hXiJjq%k ΂@3#7Eo7u" U^DgA:hEoyI4@tblSectoriATVNK)^DgA:hEoySectorK ~I߆SF?^DgA:hEoyDistrict,(JGv㯢@TT tblDistrict$OxOPH,(JGvDistrictyuJlmA,(JGvZone[eѴxNӶ^DgA:hEoyPhone-}LP׃^DgA:hEoyAltPhone:@HIt p?u^DgA:hEoyStreet o{G&o2{N^DgA:hEoyCity#V>eEW86^DgA:hEoyRegionkԚ@>dA^DgA:hEoyMailboxd4*N"p^DgA:hEoyZCodetblSector&Sector Inforamation Ariald2d Arialhgh Tahomam45c,gi Arialo2 Tahoma`|FormHeaderOd5U`xa<bxc:deLabel11$Sector InformationoSwHI"L\h1U`(a<b@c@cmdCloseCommand12"[Event Procedure](ڭ0ڭ030 ڠ30 3 ڠ30 D30 DD30 DDD30 DD3 D0 ڠ ڭHClose FormYC @LZ`@  DetailU-D_w m7U`taxbci Sector Sector(bѪHj!0d5Uaxbcd Label0Sector:zbumFRao5U`bz ctdXel f,l n*"";"";"";"";"10";"80"15tAN6}<DistrictDistrictTable/QueryߐSELECT [tblDistrict].[District], [tblDistrict].[Zone] FROM tblDistrict; 1635;1815 Ariald5UaXbcDistrict_LabelDistrictREmv#T8m7U`ta8bk Phone Phonel(!C g`d5Ua8bc Label4 Phone:c|K΄!lK[2m7U`<a8bDkAltPhoneAltPhone=3iuCӈܱ[|d5U`| a8bc Label5AltPhone:tH[T^m7U`tab k Street Street13GʤRd5Uabc Label6Street:j+6uO"bd5UaDbc Label7 City:5,`E; m7U`aDk Region Region*~FNjd5U` aDbc Label8Region:׊W@}4dKm7U`tabkMailboxMailboxK& B3P{d5Uab*c Label9Mailbox:А. L,0$m7U`ak ZCode ZCode 3*~BGJA{yd5U` abcLabel10 ZCode:8, @0] `FormFooter-ű:5Nf$#BѠy.d5` a` bcLabel19 PhoncmdEqualsh cmdAddh cmͬ4ծ_H>zDetailmSectorPropDataSUTypeInfo8Xp,"p,"Blob  d Label0oDistrictd District_LabelmPhoned Label4mAltPhoned Label5m Streetd Label6m Cityd Label7m Regiond Label8mMailboxd Label9mZCoded Label10FormHeaderFormFooterd Label11h cmdClose2, 484, basCalendar=66, 887=Babcxe ghij"k 3:%)gHON  Ul UBC1i/􅎂@tblAssi     !"#$%&'(*+,-/89:<gnments~~~܊K\ *pl UBC1iEndDate^DgA:hEoyI4@X'h tblSectoriATVNK)^DgA:hEoySectorK ~I߆SF?^DgA:hEoyDistrict[eѴxNӶ^DgA:hEoyPhone:3.&Ol/b;9l UBC1iDate<¢:N^cUl UBC1iMissionaryID #xELSpl UBC1iSector1TN &_Vomﮁ@g tblMissionaries.< dO`f}1TN &_VoMissonaryID8#DoWO1TN &_VoLast-cBIIq(;% 1TN &_VoFirstRSELECT [tblSector].[Sector], [tblSector].[District], [tblSector].[Phone], [tblAssignments].[Date], [tblAssignments].[EndDate], [tblAssignments].[MissionaryID] FROM tblSector LEFT JOIN tblAssignments ON [tblSector].[Sector]=[tblAssignments].[Sector] WHERE ((([tblAssignments].[EndDate]) Is Null)); Ariald2 Tahomam45bci Arialo2 Tahoma`hFormHeader~8^Bd^Qd5U`<a<bcd e LmK[abel1 Sector ArialUgI !(lHd5U`$ a<b8cd e Label2Missionary Arial0D&S+d5U`Xa<bcd e Label3Date Assigned Arial#u+Y:F,Mygd5U`a<bcd e Label4 Phone ArialȖ-Z:F3`, DetailHͦ`Ctzam7U Sector Sector$]3~DIl,@"m7U`bkDateDateddmmmyyyy(Date Assignment MadeӗGBt>m7U`bDk Phone Phone$erN*>,o35U`b@ cefl n("";"";"";"";"10";"0"<,TMPmÏSNameMissionaryIDTable/Query<SELECT [tblMissionaries].[MissonaryID], [Last] & ", " & [First] & " " & [Last] AS Expr1 FROM tblMissionaries ORDER BY [Last] & ", " & [First] & " " & [Last]; 0;2880 Arial`FormFooterp@΅BCx"8ERͬO_}Ni oNameFormHeaderd Label1d Label2d Label3d Label4DetailmSectormDatem Phone FormFooter District EndDate MissionaryID6]QO}Htr~h1U`abGc,g ic>>"[Event Procedure]PropDataWYTypeInfo 9V^\p,"`v#Blob U 08=Babc`e ghXiJjhkK*ZN@ZcwK=kMH UwM!`M3N@tblBaptismsTn,HWT=iwM!`MBapIDd=0C!`"wM!`MNameIq(3 Bc8wM!`MGenderMw(m6GK]BwM!`MAgeX+EjA, 5pwM!`MFamHeadL ۙwM!`MBapDate7ßvJwM!`MConfDate3{1G>wM!`MSector^DgA:hEoyI4@4 (tblSectoriATVNK)^DgA:hEoySectorL԰JLy9X1OywM!`MMissionary11TN &_Vomﮁ@4 (tblMissionaries.< dO`f}1TN &_VoMissonaryID8#DoWO1TN &_VoLast-cBIIq(;% 1TN &_VoFirstĮ+G$1TN &_VoLast21B.!bJ9MwM!`MMissionary2P`IN!˜wM!`MInterviewedBytblBaptismsfrmBaptisms Ariald2e12f5g237hghMS Sans Serifi1ghj1ghk1l23:m4n2o2p5r35zijMS Sans Serif{5`XFormHeader Gbw)}d5U`xa<b cdeLabel22>Baptism Statistical Information ArialО1WI h1U`b@c@cmdCloseCommand23"[Event Procedure](ڭ0ڭ030nK[ ڠ30 3 ڠ30 D30 DD30 DDD30 DD3 D0 ڠ ڭHClose Formsl!TElnP`0  DetailŻOWBs2 m 7U`daxcei BapID BapID ArialL1Ni d5U`<axbIcd BapID_Label BapID ArialsJB8um7U`dab ce i kNameName Arial~ESbd5U`<abIcd Name_LabelName Arialgi3JZwBNm7]`daHbcei k Gender Gender ArialC6Bzƹ`Vd5U`<aHbcd Gender_Label Gender Arial@$BD >m7U`aHbcei kAgeAge Arial8K#)%DZŮd5W`EaHbcd Age_LabelAge Arial:pLNj2U`haHiFamHeadFamHeadʝBE@"#!d5U` aHbVcd FamHead_LabelFamily Head Arial^3Q(EIm7U`da2 b)ce9i k BapDateBapDate Arial+Ko@[`NuƜd5U`<a2 bcd BapDate_LabelBaptism Date ArialJ.IIjm7U`a2 b)ce9i k ConfDateConfDate Ariale">K~Fd5U` a2 b'cd ConfDate_Label"Confirmation Date Arial҇/4InterviewedByInterviewedByTable/QueryXSELECT [tblMissionaries].[MissonaryID], [Last] & ", " & [First] & " " & [Last2] AS Expr1 FROM tblMissionaries ORDER BY [tblMissionaries].[Last], [tblMissionaries].[First]; 0;2880 Ariald5U`<abcd &InterviewedBy_LabelInterviewed By Arial)]H@f_oK[R`FormFooterwJ#wO=136")MW.LW]q*d5_7` abhc lbl3719 Tahoma0=HandleSelected("lbl37")(=SelectDate("lbl37") E+K(Uu!d5_7`abhcPropData[]TypeInfo ;DirData_),PropData.rͬ~ )KE\̘DetailFormHeaderFormFootermBapIDd BapID_LabelmNamed Name_LabelmGenderd Gender_Labelm Aged Age_Labeld Sector_Labelj FamHeadd FamHead_Labeld Missionary1_Labeld Missionary2_Labeld InterviewedBy_LabelmBapDated BapDate_LabelmConfDated ConfDate_LabeloSectoroMissionary1oMissionary2oInterviewedByd Label22h cmdClosefrmZoneSubSubfrmSectorfrmCalendar0frmMissionaryAssignSubfrmZonefrmZoneSubfrmMissionaryfrmCalc"frmCalendarTestfrmBaptisms K ~I߆SF? 8CB0 7CB0 5CB0 3CB0 0CB0 1CB0 2CB0 4CB0 6CB0 9CB0H,(Cmdbars`v#`v#Modules1yk`v#`v#0c`v#`v#PropDatad0 ld2d Arialhgh Tahomai Arialo2 Tahoma`|FerOd5U`xa<bxc:de11$Sector InformationoSw1U`(a<b@c@cmdCloseCommand12t Procedure](basCodeWriterbasCalendarPropDataCopy1bhf`v#`v#PropDatag1 PropDataCopy2i`v#`v#PropDataj2 PropDataCopy3eql`v#`v#PropDatam3 pK[PropDataCopy4o`v#`v#PropDatap4 PropDataCopy5nvr`v#`v#PropData5 6t`v#`v#PropDatau6 PropDataCopyDirDatasw7PropData;QbasFileOpenCommonDialog,basDatabaseUtilitiesbasCalc"basLinkedTablesPhoned Label4m 5CB0 3CB0 1CB0 0CB0 2CB0 4CB0 6CB0Label7m Regiond Label8mijl9mZCoded Label10MSysDbFormFooterd Label11h cmdClose2, 484, basCalendar=66, 887=Babcxe gReports`v#`v#Scriptsx{`v#`v#PropData=Databasesz|`v#`v#0~}`v#`v#Blob DirData>CustomGroups`v#`v#DataAccessPages `v#`v#ents].[EndDate], [tblAssignments].[MissionaryID] FROM tblSector LEFT JOIN tblAssignments ON [tblSector].[Sector]=[tblAssignments].[Sector] WHERE ((([tblAssignments].[EndDate]) Is Null)); Ariald2 Tahomam45bci Arialo2 Tahoma`hFormHeader~8^Bd^Qd5U`<a<bcd e Lq @@@@6668:8>DFF>D#666::B@>@BF#666>@B>DFFFJ#666>@B@>@B>#666@B>BDFHDJ#666DFH>>@>@#666FF>@DFH>#666HH@B>@>B:#668>>@BDFFH#668DFDH>>@B# H  @ @ @ @ @ @ @ @ @ @ @ @ @ @    ! "#$%&'()*+,-./01234 5!6"7#8$9%:&;'<(=)>*?+@,A-B.C/D0E1F2G3H4I5J6K7L8M9N:O;P<Q=R>S?T@UAVBWCXDYEZF[G\H]I^J_K`LaMbNcOdPeQfRgShTiUjVkWlXmYnZo[p\q]r^s_t`uavbwcxdyezf{g|h}i~jklmnopqH Y].[EndNY  Y PY  Y P Y PY   Y (AssignIDMissionaryIDDate SectorCompanionIDEndDatePositionoZdSEYYYYYYAssignIDCompanionIDMissionaryIDPrimaryKey:tblMissionariestblAssignments.tblSectortblAssignmentsv1b@ $]<  @  @@ @ Si`LJfmYk`kSi`MJ^MSi`MJ^QbOJiSi`MJ^QbOJimQkmSi``YkkYdbJivSi``YkkYdbJivJkkYUbkoLSi`kQMmdiSi`xdbQSi`xdbQkoLSi`xdbQkoLkoLLJkMJ^MLJkMJ^QbOJiLJkMdOQsiYmQiLJkOJmJLJkQomY^YmYQkLJkSY^QdfQbLJk^Yb\QOmJL^Qk Md``dbOYJ^dU!JO`Yb"OJmJJMMQkkfJUQkOJmJLJkQkSdi`k `dOo^Qk iQ^JmYdbkWYfkiQfdimk kMiYfmk kvkiQ^ mJL^Qk+kh+MSi`LJfmYk`k+kh+MYbmQiqYQsQOLv#+kh+MSi`LJfmYk`k+kh+M`YkkYdbJiv8$+kh+MSi`LJfmYk`k+kh+M`YkkYdbJiv:%+kh+MSi`LJfmYk`k+kh+MkQMmdi&+kh+MSi``YkkYdbJiv+kh+MMd`Ld<6'+kh+MSi``YkkYdbJiv+kh+MSi``YkkYdbJivJkkYUbkoL(+kh+MSi``YkkYdbJiv+kh+MmvfQ)+kh+MSi`kQMmdi+kh+MOYkmiYMm*+kh+MSi`xdbQ+kh+MSi`xdbQkoL+kh+MSi`xdbQ+kh+Mx^8+kh+MSi`xdbQ+kh+Mx^:+kh+MSi`xdbQkoL+kh+MSi`xdbQkoLkoL+kh+SSi`LJfmYk`k+kh+SSi``YkkYdbJiv+kh+SSi``YkkYdbJivJkkYUbkoL+kh+SSi`kQMmdi+kh+SSi`xdbQ+kh+SSi`xdbQkoL +kh+SSi`xdbQkoLkoL `kvkJMMQkkdL[QMmk `kvkJMQk`kvkdL[QMmk`kvkhoQiYQk`kvkiQ^JmYdbkWYfkJMMQkk^Jvdom`kvkOLko``JivYbSdokQiOQSYbQOn@000-5646-7897ACamino Loco000-4564-7888AZone LeaderPC3&_P@n@000-5646-7897AEscondido Uno000-4565-4564Branch PresidentVD5&@I@P@000-5646-7897APlaya Ancha000-7894-4545Senior CompanionTB3&@A@@I@000-5646-7897AMosca NegraSenior CompanionE33&o6@@A@000-5646-7897ALomo ChicoJunior CompanionD22&o    666>@B>DFFFJ#666>@B@>@B>#666DFH>>@>@#Update FlagsForeignNameIdLvLvExtraLvModule LvPropName OwnerParentIdRmtInfoLongRmtInfoShortTypeni4ll4l44lYYIdParentIdName         @@666@B>BDFHDJ#666@B>BDFHDJ#666@B>BDFHDJ#666@B>BDFHDJ#666@B>BDFHDJ#   YN  Y  Y d Y Y  Y DePY  Y kP Y DP Y DePY  Y   BapIDName GenderAge SectorFamHeadMissionary1Missionary2InterviewedByBapDateConfDatekeDkeDDekkeDkeDDekYY BapIDPrimaryKeyv1            !"#$%&' (!)"*#$%&'()*+, -     WY].[EndN Y P Y PY  Y PDistrictDLID DLDateZonerPmyYYYY.rCDLIDPrimaryKey$tblZonetblDistrictv1@@l8  @  @@ @ @ Si`LJfmYk`kSi`MJ^MSi`MJ^QbOJiSi`MJ^QbOJimQkmSi``YkkYdbJivSi``YkkYdbJivJkkYUbkoLSi`kQMmdiSi`xdbQSi`xdbQkoLSi`xdbQkoLkoLLJkMJ^MLJkMJ^QbOJiLJkMdOQsiYmQiLJkOJmJLJkQomY^YmYQkLJkSY^QdfQbLJk^Yb\QOmJL^Qk Md``dbOYJ^dU!JO`Yb"OJmJJMMQkkfJUQkOJmJLJkQkSdi`k `dOo^Qk iQ^JmYdbkWYfkiQfdimk kMiYfmk kvkiQ^ mJL^Qk+kh+MSi`LJfmYk`k+kh+MYbmQiqYQsQOLv#+kh+MSi`LJfmYk`k+kh+M`YkkYdbJiv8$+kh+MSi`LJfmYk`k+kh+M`YkkYdbJiv:%+kh+MSi`LJfmYk`k+kh+MkQMmdi&+kh+MSi``YkkYdbJiv+kh+MMd`Ld<6'+kh+MSi``YkkYdbJiv+kh+MSi``YkkYdbJivJkkYUbkoL(+kh+MSi``YkkYdbJiv+kh+MmvfQ)+kh+MSi`kQMmdi+kh+MOYkmiYMm*+kh+MSi`xdbQ+kh+MSi`xdbQkoL+kh+MSi`xdbQ+kh+Mx^8+kh+MSi`xdbQ+kh+Mx^:+kh+MSi`xdbQkoL+kh+MSi`xdbQkoLkoL+kh+SSi`LJfmYk`k+kh+SSi``YkkYdbJiv+kh+SSi``YkkYdbJivJkkYUbkoL+kh+SSi`kQMmdi+kh+SSi`xdbQ+kh+SSi`xdbQkoL +kh+SSi`xdbQkoLkoL `kvkJMMQkkdL[QMmk `kvkJMQk`kvkdL[QMmk`kvkhoQiYQk`kvkiQ^JmYdbkWYfkmL^JkkYUb`Qbmk mL^LJfmYk`k JMMQkk^Jvdom`kvkOLko``JivYbSdokQiOQSYbQOktktValle SurValles Profundos'  ktktValle NorteValles Profundos)  ktktCerro UnoGrande Cerros$  ktktCerro DosGrande Cerros$  ktktCamino ConejoCaminos Perdidos+   ConnectDatabaseDateCreateDateUpdate FlagsForeignNameIdLvLvExtraLvModule LvPropName OwnerParentIdRmtInfoLongRmtInfoShortTypeni4ll4l44lYYIdParentIdName         @@MJ`YbdMdbQ[dMQiidOdkMQiidobdqJ^^QbdimQqJ^^QkoiC Y].[EndN Y P Y P Y P Y tP Y DP Y PDistrictIDDistrictPresident1stCoun2ndCoun Clerkt eteoMlxdeYYYY.rDDistrictDistrictIDPrimaryKeyv1             !"#$%&' (!)"*#$%&'()*+, -      . YN Y  P Y < Y k< Y DP Y DeP Y ek Y k Y Dd Y Ded Y ek( Y k< Y D< Y De< Y  ekd Y kMemberID First MiddleLast Last2 Suffix StreetCity Region ZCode HPhone WPhoneAltPhone email GendereDkeDkekDeeDkeDkekDe eDkeDkekDeYYYMemberIDPrimaryKey ZCodev1            !"#$%&' (!)"*#$%&'()*+, -       7Y N  Y P Y < Y 2 Y < Y P Y  Y $Y Y Y   Y   Y  d Y d Y  ( Y  P Y  P Y  d Y PY  Y  Y x Y MissonaryID First MiddleLast Last2 GenderTypeDOBReleaseDateCertified HAddr HCityHRegion HCodeHCountry HPhone HEmailUnitPosVisaExpir NotesPicFileConfNotes l|mYYYY.rD HCodeMissonaryIDPrimaryKeys v1b @  zj !    @  @@ @ Si`LJfmYk`kSi`MJ^MSi`MJ^QbOJiSi`MJ^QbOJimQkmSi``YkkYdbJivSi``YkkYdbJivJkkYUbkoLSi`kQMmdiSi`xdbQSi`xdbQkoLSi`xdbQkoLkoLLJkMJ^MLJkMJ^QbOJiLJkMdOQsiYmQiLJkOJmJLJkQomY^YmYQkLJkSY^QdfQbLJk^Yb\QOmJL^Qk Md``dbOYJ^dU!JO`Yb"OJmJJMMQkkfJUQkOJmJLJkQkSdi`k `dOo^Qk iQ^JmYdbkWYfkiQfdimk kMiYfmk kvkiQ^ mJL^Qk+kh+MSi`LJfmYk`k+kh+MYbmQiqYQsQOLv#+kh+MSi`LJfmYk`k+kh+M`YkkYdbJiv8$+kh+MSi`LJfmYk`k+kh+M`YkkYdbJiv:%+kh+MSi`LJfmYk`k+kh+MkQMmdi&+kh+MSi``YkkYdbJiv+kh+MMd`Ld<6'+kh+MSi``YkkYdbJiv+kh+MSi``YkkYdbJivJkkYUbkoL(+kh+MSi``YkkYdbJiv+kh+MmvfQ)+kh+MSi`kQMmdi+kh+MOYkmiYMm*+kh+MSi`xdbQ+kh+MSi`xdbQkoL+kh+MSi`xdbQ+kh+Mx^8+kh+MSi`xdbQ+kh+Mx^:+kh+MSi`xdbQkoL+kh+MSi`xdbQkoLkoL+kh+SSi`LJfmYk`k+kh+SSi``YkkYdbJiv+kh+SSi``YkkYdbJivJkkYUbkoL+kh+SSi`kQMmdi+kh+SSi`xdbQ+kh+SSi`xdbQkoL +kh+SSi`xdbQkoLkoL `kvkJMMQkkdL[QMmk `kvkJMQk`kvkdL[QMmk`kvkhoQiYQk`kvkiQ^JmYdbkWYfkmL^JkkYUb`Qbmk mL^LJfmYk`k mL^OYkmiYMmmL^QOYkmiYMmmL^`Q`LQikJMMQkk^Jvdom`kvkOLko``JivYbSdokQiOQSYbQO&@@ 001-7879-4456EmelioMarcoGonzalezSmithMElderU.S.A.bbbbbbbZZZZZSQJ@91"AR@@ 001-4456-7889JorgeCarlosMachucaCaldonadoMElder34 Calle San LucasCiudad De MexicoCiudad De Mexico34333-A7U.S.A.34-44566Jcarlosmc@hotmail.comq]VTI@81"@@ 000-9956-45462JamesAlanArmstrongMElderU.S.A.[[[[[[[SSSSSLJJ?92"A@ @P@000-8845-7894ToddAlanJonesMElderU.S.A.UUUUUUUMMMMMFDD=71"CC@@ 000-7894-4545PedroEstebenRanchoRamirezMElderU.S.A.ccccccc[[[[[TRIA81"A@@@@@@000-5646-7897AFrederickLonnyHartsmanMElderU.S.A._______WWWWWPNND=2"C=@ @ 000-4565-4564DavidArnoldPalmerMElder1817 W. Grover St.Walnut GroveCA91626U.S.A.213-788-4564~wseQJHH@81"@@ 000-4564-7888AJuanCalosCebedaRinconMElderU.S.A.```````XXXXXQOG?82"A@@p@000-2265-4568EricAnatolyBennethMElderU.S.A.ZZZZZZZRRRRRKII@71"C@@y@000-1214-78847JasonKeithPulasterMElderU.S.A.[[[[[[[SSSSSLJJ@92"C B  <><<DFF>D#666::B@>@BF#666>@B>DFFFJ#666>@B@>@B>#666@B>BDFHDJ#666DFH>>@>@#666FF>@DFH>#666HH@B>@>B:#668>>@BDFFH#668DFDH>>@B#  JY ].[EndN    Y P Y P Y P< Y < Y P Y Pd Y P Y ( Y P SectorDistrict PhoneAltPhone StreetCity RegionMailbox ZCodeSEYYYYY.rD.rEPrimaryKey(tblDistricttblSector ZCodeHv1@ c2^(  @  @@ @ @ Si`LJfmYk`kSi`MJ^MSi`MJ^QbOJiSi`MJ^QbOJimQkmSi``YkkYdbJivSi``YkkYdbJivJkkYUbkoLSi`kQMmdiSi`xdbQSi`xdbQkoLSi`xdbQkoLkoLLJkMJ^MLJkMJ^QbOJiLJkMdOQsiYmQiLJkOJmJLJkQomY^YmYQkLJkSY^QdfQbLJk^Yb\QOmJL^Qk Md``dbOYJ^dU!JO`Yb"OJmJJMMQkkfJUQkOJmJLJkQkSdi`k `dOo^Qk iQ^JmYdbkWYfkiQfdimk kMiYfmk kvkiQ^ mJL^Qk+kh+MSi`LJfmYk`k+kh+MYbmQiqYQsQOLv#+kh+MSi`LJfmYk`k+kh+M`YkkYdbJiv8$+kh+MSi`LJfmYk`k+kh+M`YkkYdbJiv:%+kh+MSi`LJfmYk`k+kh+MkQMmdi&+kh+MSi``YkkYdbJiv+kh+MMd`Ld<6'+kh+MSi``YkkYdbJiv+kh+MSi``YkkYdbJivJkkYUbkoL(+kh+MSi``YkkYdbJiv+kh+MmvfQ)+kh+MSi`kQMmdi+kh+MOYkmiYMm*+kh+MSi`xdbQ+kh+MSi`xdbQkoL+kh+MSi`xdbQ+kh+Mx^8+kh+MSi`xdbQ+kh+Mx^:+kh+MSi`xdbQkoL+kh+MSi`xdbQkoLkoL+kh+SSi`LJfmYk`k+kh+SSi``YkkYdbJiv+kh+SSi``YkkYdbJivJkkYUbkoL+kh+SSi`kQMmdi+kh+SSi`xdbQ+kh+SSi`xdbQkoL +kh+SSi`xdbQkoLkoL `kvkJMMQkkdL[QMmk `kvkJMQk`kvkdL[QMmk`kvkhoQiYQk`kvkiQ^JmYdbkWYfkmL^JkkYUb`Qbmk mL^LJfmYk`k mL^OYkmiYMmmL^QOYkmiYMmmL^`Q`LQikmL^`YkkYdbJiYQkJMMQkk^Jvdom`kvkOLko``JivYbSdokQiOQSYbQO Puerco GrandeValle Norte  Playa AnchaCerro Uno  Pequeno ConejoCamino Conejo!!!!!!!!  Pasa Los AndesValle Norte  Mosca NegraValle Sur  Lomo ChicoCerro Dos  Escondido UnoCamino Conejo   Careja AribaCerro Dos  Camino LocoCerro Uno t  @MJ`Ybd^dMdMJiQ[JJiYLJQkMdbOYOdobd^d`dMWYMd`dkMJbQUiJfJkJ^dkJbOQkfQhoQbdMdbQ[df^JvJJbMWJfoQiMdUiJbOQaLvModule LvPropName OwnerParentIdRmtInfoLongRmtInfoShortTypeni4ll4l44lYYIdParentIdName         B! Y].[EndNY  Y P Y PY ID SectorUnitDate PY  iDnDiIBhunYYYYYYIDPrimaryKey Sector0tblSectortblSectorAssign.tblUnitstblSectorAssignUnitHv1b            !"#$%&' (!)"*#$%&'()*+, -        Y].[EndN  Y P Y P Y  Y P Y UP Y P Y P Y P Y P Y P UnitIDUnitTypeDistOrStakeID Bishop1stCoun2ndCoun Clerk RSPres EQPresDyeottorsnnYYYYYY.rFDistOrStakeIDPrimaryKey(tblEDistricttblUnitsUnit UnitIDHv1b@             !"#$%&' (!)"*#$%&'()*+, -       jY].[EndN Y P Y  P Y  PY Y ZoneZL1ZL2ZL1DateZL2DateYY.rBPrimaryKeyv1Rf  @  @@ @ Si`LJfmYk`kSi`MJ^MSi`MJ^QbOJiSi`MJ^QbOJimQkmSi``YkkYdbJivSi``YkkYdbJivJkkYUbkoLSi`kQMmdiSi`xdbQSi`xdbQkoLSi`xdbQkoLkoLLJkMJ^MLJkMJ^QbOJiLJkMdOQsiYmQiLJkOJmJLJkQomY^YmYQkLJkSY^QdfQbLJk^Yb\QOmJL^Qk Md``dbOYJ^dU!JO`Yb"OJmJJMMQkkfJUQkOJmJLJkQkSdi`k `dOo^Qk iQ^JmYdbkWYfkiQfdimk kMiYfmk kvkiQ^ mJL^Qk+kh+MSi`LJfmYk`k+kh+MYbmQiqYQsQOLv#+kh+MSi`LJfmYk`k+kh+M`YkkYdbJiv8$+kh+MSi`LJfmYk`k+kh+M`YkkYdbJiv:%+kh+MSi`LJfmYk`k+kh+MkQMmdi&+kh+MSi``YkkYdbJiv+kh+MMd`Ld<6'+kh+MSi``YkkYdbJiv+kh+MSi``YkkYdbJivJkkYUbkoL(+kh+MSi``YkkYdbJiv+kh+MmvfQ)+kh+MSi`kQMmdi+kh+MOYkmiYMm*+kh+MSi`xdbQ+kh+MSi`xdbQkoL+kh+MSi`xdbQ+kh+Mx^8+kh+MSi`xdbQ+kh+Mx^:+kh+MSi`xdbQkoL+kh+MSi`xdbQkoLkoL+kh+SSi`LJfmYk`k+kh+SSi``YkkYdbJiv+kh+SSi``YkkYdbJivJkkYUbkoL+kh+SSi`kQMmdi+kh+SSi`xdbQ+kh+SSi`xdbQkoL +kh+SSi`xdbQkoLkoL `kvkJMMQkkdL[QMmk `kvkJMQk`kvkdL[QMmk`kvkhoQiYQk`kvkiQ^JmYdbkWYfkmL^JkkYUb`Qbmk mL^LJfmYk`k mL^OYkmiYMmmL^QOYkmiYMmmL^`Q`LQikmL^`YkkYdbJiYQkmL^kQMmdimL^kQMmdiJkkYUbmL^obYmkJMMQkk^Jvdom`kvkOLko``JivYbSdokQiOQSYbQOllllValles Profundos$$$n@llGrande Cerros000-5646-7897A11! llllCaminos Perdidos$$$ MJ`YbdkfQiOYOdkUiJbOQMQiidkqJ^^QkfidSobOdkDateCreateDateUpdate FlagsForeignNameIdLvLvExtraLvModule LvPropName OwnerParentIdRmtInfoLongRmtInfoShortTypeni4ll4l44lYYIdParentIdName        YN Y (AssignmentYPrimaryKeyv10}bL  @  @@ @  Si`LJfmYk`kSi`MJ^MSi`MJ^QbOJiSi`MJ^QbOJimQkmSi``YkkYdbJivSi``YkkYdbJivJkkYUbkoLSi`kQMmdiSi`xdbQSi`xdbQkoLSi`xdbQkoLkoLLJkMJ^MLJkMJ^QbOJiLJkMdOQsiYmQiLJkOJmJLJkQomY^YmYQkLJkSY^QdfQbLJk^Yb\QOmJL^Qk Md``dbOYJ^dU!JO`Yb"OJmJJMMQkkfJUQkOJmJLJkQkSdi`k `dOo^Qk iQ^JmYdbkWYfkiQfdimk kMiYfmk kvkiQ^ mJL^Qk+kh+MSi`LJfmYk`k+kh+MYbmQiqYQsQOLv#+kh+MSi`LJfmYk`k+kh+M`YkkYdbJiv8$+kh+MSi`LJfmYk`k+kh+M`YkkYdbJiv:%+kh+MSi`LJfmYk`k+kh+MkQMmdi&+kh+MSi``YkkYdbJiv+kh+MMd`Ld<6'+kh+MSi``YkkYdbJiv+kh+MSi``YkkYdbJivJkkYUbkoL(+kh+MSi``YkkYdbJiv+kh+MmvfQ)+kh+MSi`kQMmdi+kh+MOYkmiYMm*+kh+MSi`xdbQ+kh+MSi`xdbQkoL+kh+MSi`xdbQ+kh+Mx^8+kh+MSi`xdbQ+kh+Mx^:+kh+MSi`xdbQkoL+kh+MSi`xdbQkoLkoL+kh+SSi`LJfmYk`k+kh+SSi``YkkYdbJiv+kh+SSi``YkkYdbJivJkkYUbkoL+kh+SSi`kQMmdi+kh+SSi`xdbQ+kh+SSi`xdbQkoL +kh+SSi`xdbQkoLkoL `kvkJMMQkkdL[QMmk `kvkJMQk`kvkdL[QMmk`kvkhoQiYQk`kvkiQ^JmYdbkWYfkmL^JkkYUb`Qbmk mL^LJfmYk`k mL^OYkmiYMmmL^QOYkmiYMmmL^`Q`LQikmL^`YkkYdbJiYQkmL^kQMmdimL^kQMmdiJkkYUbmL^obYmkmL^xdbQJMMQkk^Jvdom`kvkOLko``JivYbSdokQiOQSYbQOZone LeaderSenior CompanionOffice StaffJunior CompanionDistrict LeaderBranch PresidentAssistant to Pres  @JkkYkmJbmmdfiQkLiJbMWfiQkYOQbmOYkmiYMm^QJOQi[obYdiMd`fJbYdbdSSYMQkmJSSkQbYdiMd`fJbYdbxdbQ^QJOQiLvLvExtraLvModule LvPropName OwnerParentIdRmtInfoLongRmtInfoShortTypeni4ll4l44lYYIdParentIdName        YN Y MissionaryTypeYPrimaryKeyv1  @  @@ @ @@@Si`LJfmYk`kSi`MJ^MSi`MJ^QbOJiSi`MJ^QbOJimQkmSi``YkkYdbJivSi``YkkYdbJivJkkYUbkoLSi`kQMmdiSi`xdbQSi`xdbQkoLSi`xdbQkoLkoLLJkMJ^MLJkMJ^QbOJiLJkMdOQsiYmQiLJkOJmJLJkQomY^YmYQkLJkSY^QdfQbLJk^Yb\QOmJL^Qk Md``dbOYJ^dU!JO`Yb"OJmJJMMQkkfJUQkOJmJLJkQkSdi`k `dOo^Qk iQ^JmYdbkWYfkiQfdimk kMiYfmk kvkiQ^ mJL^Qk+kh+MSi`LJfmYk`k+kh+MYbmQiqYQsQOLv#+kh+MSi`LJfmYk`k+kh+M`YkkYdbJiv8$+kh+MSi`LJfmYk`k+kh+M`YkkYdbJiv:%+kh+MSi`LJfmYk`k+kh+MkQMmdi&+kh+MSi``YkkYdbJiv+kh+MMd`Ld<6'+kh+MSi``YkkYdbJiv+kh+MSi``YkkYdbJivJkkYUbkoL(+kh+MSi``YkkYdbJiv+kh+MmvfQ)+kh+MSi`kQMmdi+kh+MOYkmiYMm*+kh+MSi`xdbQ+kh+MSi`xdbQkoL+kh+MSi`xdbQ+kh+Mx^8+kh+MSi`xdbQ+kh+Mx^:+kh+MSi`xdbQkoL+kh+MSi`xdbQkoLkoL+kh+SSi`LJfmYk`k+kh+SSi``YkkYdbJiv+kh+SSi``YkkYdbJivJkkYUbkoL+kh+SSi`kQMmdi+kh+SSi`xdbQ+kh+SSi`xdbQkoL +kh+SSi`xdbQkoLkoL `kvkJMMQkkdL[QMmk `kvkJMQk`kvkdL[QMmk`kvkhoQiYQk`kvkiQ^JmYdbkWYfkmL^JkkYUb`Qbmk mL^LJfmYk`k mL^OYkmiYMmmL^QOYkmiYMmmL^`Q`LQikmL^`YkkYdbJiYQkmL^kQMmdimL^kQMmdiJkkYUbmL^obYmkmL^xdbQm^\`YkkYdbJivJkkYUb`QbmJMMQkk^Jvdom`kvkOLko``JivYbSdokQiOQSYbQOWelfare Sister Service Local Elder Couple   @Mdof^QQ^OQi^dMJ^kQiqYMQkYkmQisQ^SJiQreateDateUpdate FlagsForeignNameIdLvLvExtraLvModule LvPropName OwnerParentIdRmtInfoLongRmtInfoShortTypeni4ll4l44lYYIdParentIdName         s j tblZonetblDistricttblDistrictZonetblZoneZonef^PH2tblUnitstblSectorAssigntblSectorAssignUnittblUnitsUnitzrbZ<tblSectortblSectorAssigntblSectorAssignSectortblSectorSectorzh\>tblSectortblAssignmentstblAssignmentsSectortblSectorSectorvdX<tblMissionariestblAssignmentstblAssignmentsMissionaryIDtblMissionariesMissonaryID|dHtblEDistricttblUnitstblUnitsDistOrStakeIDtblEDistrictDistrictIDx`F6tblDistricttblSectortblSectorDistricttblDistrictDistrict~nXH6 MJ`YbdMdbQ[dMJ`YbdMdbQ[dMQiidOdkMQiidOdkMQiidobdMQiidobdqJ^^QbdimQqJ^^QbdimQqJ^^Qkoij@  MSysObjects### CStr(Database)5 3  # @MJ`Ybd^dMdQkMdbOYOdobd^d`dMWYMd`dkMJbQUiJf^JvJJbMWJeDkeDkekDeYYYYAssignIDCompanionIDMissionaryIDPrimaryKeyistOrStakeIDPrimaryKeyUnit UnitID. @ @tblDistricttblSectorHHHHHHHHHHH  @ @tlkMissionaryTypeBBBBBBBBBBB )@*@tlkMissionaryAssignmentNNNNNNNNNNN L@)@tblZone........... L@L@tblUnits00000000000 @L@tblSectorAssign>>>>>>>>>>> S@S@tblSector22222222222 S@T@tblMissionaries>>>>>>>>>>> (@(@tblMembers44444444444 |@(@tblEDistrict88888888888 |@ @tblDistrict66666666666 Gh@}@tblBaptisms66666666666 Gh@Gh@tblAssignments<<<<<<<<<<< V@@MSysAccessObjectsBBBBBBBBBBB -V@V@~sq_ffrmZoneSubSubDDDDDDDDDDD ,V@V@~sq_ffrmZoneSub>>>>>>>>>>> +V@V@~sq_ffrmZone88888888888 *V@V@~sq_ffrmSector<<<<<<<<<<< )V@V@~sq_ffrmMissionaryAssignSubVVVVVVVVVVV (V@V@~sq_ffrmMissionaryDDDDDDDDDDD 'V@V@~sq_ffrmBaptisms@@@@@@@@@@@ &i@V@~sq_cfrmZoneSub~sq_cfrmZoneSubSubbbbbbbbbbbb %i@i@~sq_cfrmZone~sq_cZL2HHHHHHHHHHH $i@i@~sq_cfrmZone~sq_cZL1HHHHHHHHHHH #i@i@~sq_cfrmZone~sq_cfrmZoneSubVVVVVVVVVVV  @ MJ`YbdkfQiOYOdkUiJbOQMQiidkUiJbOQMQiidkqJ^^QkfidSobOdkqJ^^QkfidSobOdkIDPrimaryKey Sector0tblSectortblSectorAssignUnity(tblDistricttblSector ZCodetszRelationship~1 @ @tblSectortblAssignmentsNNNNNNNNNNN 0 @ @tblMissionariestblAssignmentsZZZZZZZZZZZ / @ @tblEDistricttblUnitsHHHHHHHHHHH . @ @tblDistricttblSectorHHHHHHHHHHH  @ @tlkMissionaryTypeBBBBBBBBBBB )@*@tlkMissionaryAssignmentNNNNNNNNNNN L@)@tblZone........... L@ @tblUnits00000000000 @L@tblSectorAssign>>>>>>>>>>> S@ @tblSector22222222222 S@ @tblMissionaries>>>>>>>>>>> (@(@tblMembers44444444444 |@ @tblEDistrict88888888888 |@ @tblDistrict66666666666 Gh@}@tblBaptisms66666666666 Gh@ @tblAssignments<<<<<<<<<<< V@@MSysAccessObjectsBBBBBBBBBBB -V@V@~sq_ffrmZoneSubSubDDDDDDDDDDD ,V@V@~sq_ffrmZoneSub>>>>>>>>>>> +V@V@~sq_ffrmZone88888888888 *V@V@~sq_ffrmSector<<<<<<<<<<< )V@V@~sq_ffrmMissionaryAssignSubVVVVVVVVVVV (V@V@~sq_ffrmMissionaryDDDDDDDDDDD 'V@V@~sq_ffrmBaptisms@@@@@@@@@@@ &i@V@~sq_cfrmZoneSub~sq_cfrmZoneSubSubbbbbbbbbbbb %i@i@~sq_cfrmZone~sq_cZL2HHHHHHHHHHH $i@i@~sq_cfrmZone~sq_cZL1HHHQQvcP=*z @ -  } j C 0  m Z G p]I6#r_L8%uaN;'YPrimaryKey  k(;YRE7[_v}adT u'ԤW@8ؓABsۃ:7 ]&͕Y n QulgYCDjp   k(;YRE7[_v}adT u'ԤW@8ؓABsۃ:7 ]&͕Y n QulgYCDjp   k(;YRE7[_v}adT u'ԤW@8ؓABsۃ:7 ]&͕Y n QulgYCDjp   k(;YRE7[_v}adT u'ԤW@8ؓABsۃ:7 ]&͕Y n QulgYCDjp   k(;YRE7[_v}adT u'ԤW@8ؓABsۃ:7 ]&͕Y n QulgYCDjp   k(;YRE7[_v}adT u'ԤW@8ؓABsۃ:7 ]&͕Y n QulgYCDjp   k(;YRE7[_v}adT u'ԤW@8ؓABsۃ:7 ]&͕Y n QulgYCDjp   k(;YRE7[_v}adT u'ԤW@8ؓABsۃ:7 ]&͕Y n QulgYCDjp   k(;YRE7[_v}adT u'ԤW@8ؓABsۃ:7 ]&͕Y n QulgYCDjp     k(;YRE7[_v}adT u'ԤW@8ؓABsۃ:7 ]&͕Y n QulgYCDjp      k(;YRE7[_v}adT u'ԤW@8ؓABsۃ:7 ]&͕Y n QulgYCDjp      k(;YRE7[_v}adT u'ԤW@8ؓABsۃ:7 ]&͕Y n QulgYCDjp      k(;YRE7[_v}adT u'ԤW@8ؓABsۃ:7 ]&͕Y n QulgYCDjp      k(;YRE7[_v}adT u'ԤW@8ؓABsۃ:7 ]&͕Y n QulgYCDjp     k(;YRE7[_v}adT u'ԤW@8ؓABsۃ:7 ]&͕Y n QulgYCDjp    k(;YRE7[_v}adT u'ԤW@8ؓABsۃ:7 ]&͕Y n QulgYCDjp     k(;YRE7[_v}adT u'ԤW@8ؓABsۃ:7 ]&͕Y n QulgYCDjp    k(;YRE7[_v}adT u'ԤW@8ؓABsۃ:7 ]&͕Y n QulgYCDjp    k(;YRE7[_v}adT u'ԤW@8ؓABsۃ:7 ]&͕Y n QulgYCDjp   k(;YRE7[_v}adT u'ԤW@8ؓABsۃ:7 ]&͕Y n QulgYCDjp     k(;YRE7[_v}adT u'ԤW@8ؓABsۃ:7 ]&͕Y n QulgYCDjp    k(;YRE7[_v}adT u'ԤW@8ؓABsۃ:7 ]&͕Y n QulgYCDjp     k(;YRE7[_v}adT u'ԤW@8ؓABsۃ:7 ]&͕Y n QulgYCDjp  .LVAL> @ @ @ @     ʾtblBaptismsCreate query in Design viewfrmBaptismsCreate report in Design viewbasLinkedTables f^3LVAL ] e +} @ -  } j C 0  m Z G MR2Description@4 ,Control popup calendarMR2DescriptionD8 0Control popup calculatorMR2 GUIDNameMap$  sd2 *Calculator Popup formMR2 GUIDNameMapt ZcwK=kMP H UwM!`M3N@tblBaptismsTn,HWT=iwM!`MBapIDd=0C!`"wM!`MNameIq(3 Bc8wM!`MGenderMw(m6GK]BwM!`MAgeX+EjA, 5pwM!`MFamHeadL ۙwM!`MBapDate7ßvJwM!`MConfDate3{1G>wM!`MSector^DgA:hEoyI4@4 (tblSectoriATVNK)^DgA:hEoySectorL԰JLy9X1OywM!`MMissionary11TN &_Vomﮁ@4 (tblMissionaries.< dO`f}1TN &_VoMissonaryID8#DoWO1TN &_VoLast-cBIIq(;% 1TN &_VoFirstĮ+G$1TN &_VoLast21B.!bJ9MwM!`MMissionary2P`IN!˜wM!`MInterviewedByMR2( ReplicateProject MR20 Title AuthorCompany6 .MissionManagementSystem Dave BennettT LErgoface Consulting - www.ergoface.comMR2>AccessVersion BuildProjVer6 08.50  JLVAL(  `@ MR2 GUIDNameMap mՉZO@⭙UZq\ T U,(JGv㯢@tblDistrict$OxOPH,(JGvDistrict{1\CLy,(JGvDLDatea7 oG/ѹG,(JGvDLID1TN &_Vomﮁ@H"ttblMissionaries.< dO`f}1TN &_VoMissonaryID8#DoWO1TN &_VoLast-cBIIq(;% 1TN &_VoFirstĮ+G$1TN &_VoLast23:%)gHON {'Nς@ob0frmZoneSubSubl UBC1i/􅎂@tblAssignments~~~܊K\ *pl UBC1iEndDate^DgA:hEoyI4@"4tblSectoriATVNK)^DgA:hEoySectorK ~I߆SF?^DgA:hEoyDistrict[eѴxNӶ^DgA:hEoyPhone:3.&Ol/b;9l UBC1iDate<¢:N^cUl UBC1iMissionaryID #xELSpl UBC1iSectorMR2 GUIDNameMap M#hDbݡu  Uc L2IL"g@tblZone*Bx2jc L2IL"Zone,݃RC,vQ戮c L2IL"ZL1DateZ2x4Bc| c L2IL"ZL2Date;Q@i?nc L2IL"ZL11TN &_Vomﮁ@tblMissionaries.< dO`f}1TN &_VoMissonaryID8#DoWO1TN &_VoLast-cBIIq(;% 1TN &_VoFirstĮ+G$1TN &_VoLast2(v'N&5c1TN &_VoReleaseDate3F;뙖loc L2IL"ZL2fjyM2 ,M#hDbݡuZL1k^iVL%,M#hDbݡuZL2mՉZO@⭙UZq?iN@ob0frmZoneSub,(JGv㯢@PmtblDistrictyuJlmA,(JGvZoneMR2 GUIDNameMap 3#7Eo7u"  U^DgA:hEoyI4@tblSectoriATVNK)^DgA:hEoySectorK ~I߆SF?^DgA:hEoyDistrict,(JGv㯢@TT tblDistrict$OxOPH,(JGvDistrictyuJlmA,(JGvZone[eѴxNӶ^DgA:hEoyPhone-}LP׃^DgA:hEoyAltPhone:@HIt p?u^DgA:hEoyStreet o{G&o2{N^DgA:hEoyCity#V>eEW86^DgA:hEoyRegionkԚ@>dA^DgA:hEoyMailboxd4*N"p^DgA:hEoyZCodeMR2 GUIDNameMap v\8{pE[  Ul UBC1i/􅎂@tblAssignments:3.&Ol/b;9l UBC1iDate~~~܊K\ *pl UBC1iEndDate #xELSpl UBC1iSector^DgA:hEoyI4@g XtblSectoriATVNK)^DgA:hEoySectorK ~I߆SF?^DgA:hEoyDistrict o{G&o2{N^DgA:hEoyCity{b_:J|RYl UBC1iCompanionID1TN &_Vomﮁ@g XtblMissionaries.< dO`f}1TN &_VoMissonaryID8#DoWO1TN &_VoLast-cBIIq(;% 1TN &_VoFirst7J ?l UBC1iPositionq+y@@, o'@tlkMissionaryAssignment LVAL  6 ! @ @ @ @ @ @ @ @    $% & ' ( ) * + , - . / 0 1 2 3 456789:;<=>?@AB  MR2ValidationRuleValidationTextOrientation FilterOrderByOrderByOnNameMapColumnWidthColumnOrderColumnHiddenDescription FormatCaptionInputMaskDefaultValueRequiredAllowZeroLengthDisplayControl$UnicodeCompressionGUID    Ul UBC1im@tblAssignments=46F?i^Zl UBC1iAssignID<¢:N^cUl UBC1iMissionaryID:3.&Ol/b;9l UBC1iDate #xELSpl UBC1iSector{b_:J|RYl UBC1iCompanionID~~~܊K\ *pl UBC1iEndDateLE8Ėwl UBC1iPosition l UBC1iUAssignID     =46F?i^ZMissionaryID       m  <¢:N^cUDate    0 (Date Assignment Made  :3.&Ol/b;9v Sector       m   #xELSpCompanionID       m  {b_:J|RY\EndDate      ~~~܊K\ *pzPosition       m  7J ?MR2DescriptionJ> 6Common dialogs class moduleMR2DescriptionB6 .Handles attached tablesMR2Description zCalls CommonDialog class to provide a common file open dialogMR2 GUIDNameMap& 3:%)gHON   Ul UBC1i/􅎂@tblAssignments~~~܊K\ *pl UBC1iEndDate^DgA:hEoyI4@X'h tblSectoriATVNK)^DgA:hEoySectorK ~I߆SF?^DgA:hEoyDistrict[eѴxNӶ^DgA:hEoyPhone:3.&Ol/b;9l UBC1iDate<¢:N^cUl UBC1iMissionaryID #xELSpl UBC1iSector1TN &_Vomﮁ@g tblMissionaries.< dO`f}1TN &_VoMissonaryID8#DoWO1TN &_VoLast-cBIIq(;% 1TN &_VoFirstKvcO<)   x e R > +  {  g T A -}jVC0 lYE2 n[H) ( ( k(;YRE7[_v}adT u'ԤW@8ؓABsۃ:7 ]&͕Y n QulgYCDjp ( ' ' k(;YRE7[_v}adT u'ԤW@8ؓABsۃ:7 ]&͕Y n QulgYCDjp ' & & k(;YRE7[_v}adT u'ԤW@8ؓABsۃ:7 ]&͕Y n QulgYCDjp & % % k(;YRE7[_v}adT u'ԤW@8ؓABsۃ:7 ]&͕Y n QulgYCDjp % $ $ k(;YRE7[_v}adT u'ԤW@8ؓABsۃ:7 ]&͕Y n QulgYCDjp $ # # k(;YRE7[_v}adT u'ԤW@8ؓABsۃ:7 ]&͕Y n QulgYCDjp # " " k(;YRE7[_v}adT u'ԤW@8ؓABsۃ:7 ]&͕Y n QulgYCDjp " ! ! k(;YRE7[_v}adT u'ԤW@8ؓABsۃ:7 ]&͕Y n QulgYCDjp !   k(;YRE7[_v}adT u'ԤW@8ؓABsۃ:7 ]&͕Y n QulgYCDjp    k(;YRE7[_v}adT u'ԤW@8ؓABsۃ:7 ]&͕Y n QulgYCDjp    k(;YRE7[_v}adT u'ԤW@8ؓABsۃ:7 ]&͕Y n QulgYCDjp    k(;YRE7[_v}adT u'ԤW@8ؓABsۃ:7 ]&͕Y n QulgYCDjp    k(;YRE7[_v}adT u'ԤW@8ؓABsۃ:7 ]&͕Y n QulgYCDjp    k(;YRE7[_v}adT u'ԤW@8ؓABsۃ:7 ]&͕Y n QulgYCDjp   k(;YRE7[_v}adT u'ԤW@8ؓABsۃ:7 ]&͕Y n QulgYCDjp  4 4k(;YRE7[_v}adT u'ԤW@8ؓABsۃ:7 ]&͕Y n QulgYCDjp 4 3 3k(;YRE7[_v}adT u'ԤW@8ؓABsۃ:7 ]&͕Y n QulgYCDjp 3 2 2k(;YRE7[_v}adT u'ԤW@8ؓABsۃ:7 ]&͕Y n QulgYCDjp 2 1 1k(;YRE7[_v}adT u'ԤW@8ؓABsۃ:7 ]&͕Y n QulgYCDjp 1 0 0k(;YRE7[_v}adT u'ԤW@8ؓABsۃ:7 ]&͕Y n QulgYCDjp 0 / /k(;YRE7[_v}adT u'ԤW@8ؓABsۃ:7 ]&͕Y n QulgYCDjp / . .k(;YRE7[_v}adT u'ԤW@8ؓABsۃ:7 ]&͕Y n QulgYCDjp .  k(;YRE7[_v}adT u'ԤW@8ؓABsۃ:7 ]&͕Y n QulgYCDjp   k(;YRE7[_v}adT u'ԤW@8ؓABsۃ:7 ]&͕Y n QulgYCDjp   k(;YRE7[_v}adT u'ԤW@8ؓABsۃ:7 ]&͕Y n QulgYCDjp LVALSY Y Y  Y  Y p Y  Y  Y ccolumn grbiticolumnszColumnszObject$szReferencedColumn$szReferencedObjectszRelationshipl4l4l 4ll4l4l 4ll4l4l 4lYYYszObject$szReferencedObjectszRelationship4ll4l44lYYIdParentIdName        ά/|:FtblAssignmentstblAssignmentsDutblDistricttblDistrictBktblEDistricttblEDistricttblMissionariestblMissionariestblSectortblSectorDKtblSectorAssigntblSectorAssigntblUnitstblUnitsHtblZonetblZoner Yh P  m 2 p  U QIu`FE}jl|l~"i@i@~sq_cfrmSector~sq_cDistrictVVVVVVVVVVV !i@i@~sq_cfrmMissionary~sq_cTypeVVVVVVVVVVV  i@i@~sq_cfrmMissionary~sq_cfrmMissionaryAssignSubzzzzzzzzzzz i@i@~sq_cfrmMissionary~sq_cCombo30\\\\\\\\\\\ i@i@~sq_cfrmBaptisms~sq_cSectorVVVVVVVVVVV i@i@~sq_cfrmBaptisms~sq_cMissionary2``````````` i@i@~sq_cfrmBaptisms~sq_cMissionary1``````````` i@i@~sq_cfrmBaptisms~sq_cInterviewedByddddddddddd  i@i@Admin***********  %@%@CommonDialogl@FFF:::::::8 @WKL@ML@basLinkedTablesd@LLL@@@@@@@> @'@4'@basFileOpen䯰@DDD88888886 @*(@*(@basDatabaseUtilitiesJJJJJJJJJJH F@5@F@5@basCodeWriter<<<<<<<<<<: !*@|*@basCalcf@<<<0000000. @F΂@F΂@frmZoneSubSubJ@HHH<<<<<<<: @㯢@㯢@frmZoneSub䯤@BBB66666664 @g@g@frmZone@<<<0000000. @ ΂@ ΂@frmSector$@@@@44444442 @L@L@frmMissionaryAssignSub@ZZZNNNNNNNL @ ;9Wl@;9Wl@frmMissionaryH@HHH<<<<<<<: @  >`@ݱ@frmCalendar䯚@DDD88888886 @ E@E@frmCalc`@<<<0000000. @ *ZN@*ZN@frmBaptisms䯘@DDD88888886 @ 5~@5~@UserDefinedA@DDD88888886 @ 5~@'x @SummaryInfo@DDD88888886 @ tm@޽@AccessLayout4MR2KeepLocal T@zz:::::::8 @ ~@ ~@SysRel..........,  ~@ ~@Scripts0000000000.  ~@ ~@zm@o'@tlkMissionaryAssignment$@\\\PPPPPPPN @noy@y@tblEDistrict@FFF:::::::8 @,[7@@~sq_ffrmZoneSub4MR2KeepLocal T@@@@@@@> @)^P@ R@~sq_ffrmMissionaryAssignSub4MR2KeepLocal TXXXXXXXV @'ŊA*O@ŊA*O@~sq_ffrmBaptisms4MR2KeepLocal TBBBBBBB@ @$&΂@&΂@~sq_cfrmZone~sq_cZL14MR2KeepLocal TJJJJJJJH @@vcO<)   x e R Q > +   z g T @-}iVC/ lXE2 k(;YRE7[_v}adT u'ԤW@8ؓABsۃ:7 ]&͕Y n QulgYCDjp   k(;YRE7[_v}adT u'ԤW@8ؓABsۃ:7 ]&͕Y n QulgYCDjp   k(;YRE7[_v}adT u'ԤW@8ؓABsۃ:7 ]&͕Y n QulgYCDjp   k(;YRE7[_v}adT u'ԤW@8ؓABsۃ:7 ]&͕Y n QulgYCDjp   k(;YRE7[_v}adT u'ԤW@8ؓABsۃ:7 ]&͕Y n QulgYCDjp   k(;YRE7[_v}adT u'ԤW@8ؓABsۃ:7 ]&͕Y n QulgYCDjp   k(;YRE7[_v}adT u'ԤW@8ؓABsۃ:7 ]&͕Y n QulgYCDjp   k(;YRE7[_v}adT u'ԤW@8ؓABsۃ:7 ]&͕Y n QulgYCDjp   k(;YRE7[_v}adT u'ԤW@8ؓABsۃ:7 ]&͕Y n QulgYCDjp   k(;YRE7[_v}adT u'ԤW@8ؓABsۃ:7 ]&͕Y n QulgYCDjp   k(;YRE7[_v}adT u'ԤW@8ؓABsۃ:7 ]&͕Y n QulgYCDjp   k(;YRE7[_v}adT u'ԤW@8ؓABsۃ:7 ]&͕Y n QulgYCDjp   k(;YRE7[_v}adT u'ԤW@8ؓABsۃ:7 ]&͕Y n QulgYCDjp   k(;YRE7[_v}adT u'ԤW@8ؓABsۃ:7 ]&͕Y n QulgYCDjp   Tk(;YRE7[_v}adT u'ԤW@8ؓABsۃ:7 ]&͕Y n QulgYCDjp  Tk(;YRE7[_v}adT u'ԤW@8ؓABsۃ:7 ]&͕Y n QulgYCDjp   k(;YRE7[_v}adT u'ԤW@8ؓABsۃ:7 ]&͕Y n QulgYCDjp  - - k(;YRE7[_v}adT u'ԤW@8ؓABsۃ:7 ]&͕Y n QulgYCDjp - , , k(;YRE7[_v}adT u'ԤW@8ؓABsۃ:7 ]&͕Y n QulgYCDjp , + + k(;YRE7[_v}adT u'ԤW@8ؓABsۃ:7 ]&͕Y n QulgYCDjp + * * k(;YRE7[_v}adT u'ԤW@8ؓABsۃ:7 ]&͕Y n QulgYCDjp * ) ) k(;YRE7[_v}adT u'ԤW@8ؓABsۃ:7 ]&͕Y n QulgYCDjp LVALN, @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @MR2ValidationRuleValidationTextOrientation FilterOrderByOrderByOnNameMapColumnWidthColumnOrderColumnHiddenDescription FormatInputMaskCaptionDefaultValueRequiredAllowZeroLengthDisplayControl$UnicodeCompressionGUIDV     UBC]D8j @tblDistrictٖ#SBvk|̾BC]D8DistrictO[O4TyBC]D8DLID-=߰BW'BC]D8DLDateGMD-YBC]D8Zone ,(JGvzDistrict       m  $OxOPHrDLID       m  a7 oG/ѹG DLDate    F >Date District leader was called  {1\CLyrZone       m  yuJlmAMR2ValidationRuleValidationTextOrientation FilterOrderByOrderByOnNameMapColumnWidthColumnOrderColumnHiddenDescription FormatCaptionInputMaskDefaultValueRequiredAllowZeroLengthDisplayControl$UnicodeCompressionDecimalPlacesGUID    U0@DŽGŰ,8H,^@tblBaptisms.w bBG)0@DŽGŰ,8BapID&2w=KL};P0@DŽGŰ,8Name6fIHLpm:0@DŽGŰ,8Gender9FH52Q0@DŽGŰ,8Age,ZYuMx2V0@DŽGŰ,8SectorDN=aQGl>$]0@DŽGŰ,8FamHeadQJ@'0@DŽGŰ,8Missionary1e>G̞'u0@DŽGŰ,8Missionary2>KhwI0@DŽGŰ,8InterviewedBy {z`Cd0@DŽGŰ,8BapDate4`I `@H0@DŽGŰ,8ConfDate wM!`MO BapID     Tn,HWT=irName       m  d=0C!`"v Gender       m  Iq(3 Bc8q Age       0  m Mw(m6GK]Bv Sector       m  3{1G>zFamHead     Yes/No  j X+EjA, 5pMissionary1       m  L԰JLy9X1OyMissionary2       m  1B.!bJ9M InterviewedBy       m  P`IN!˜\BapDate      L ۙ^ConfDate      7ßvJ LVAL GO M8 4M  K[ @ G B?y,P-̂ T{  0a 8O@0a 8O@~sq_cfrmMissionary~sq_cfrmMissionaryAssignSub4MR2KeepLocal T|||||||z @ŊA*O@ŊA*O@~sq_cfrmBaptisms~sq_cSector4MR2KeepLocal TXXXXXXXV @LA*O@LA*O@~sq_cfrmBaptisms~sq_cInterviewedBy4MR2KeepLocal Tfffffffd @,])@e)@basCalendarb@ DDD88888886 @ ݈@݈@frmCalendarTest䯠@LLL@@@@@@@> @|~@|~@MSysDbx@:::......., @4Qѷ@Qѷ@tblZonetblDistrictFFFFFFFFFFD 3Sŭ@Sŭ@tblUnitstblSectorAssignPPPPPPPPPPN 2ĭ@ĭ@tblSectortblSectorAssignRRRRRRRRRRP 1ֿ@ֿ@tblSectortblAssignmentsPPPPPPPPPPN 0_ֽ@_ֽ@tblMissionariestblAssignments\\\\\\\\\\Z /y@y@tblEDistricttblUnitsJJJJJJJJJJH .3@3@tblDistricttblSectorJJJJJJJJJJH  @ @tlkMissionaryTypeBBBBBBBBBBB )@*@tlkMissionaryAssignmentNNNNNNNNNNN L@ @tblZone........... L@ @tblUnits00000000000 @ @tblSectorAssign>>>>>>>>>>> S@ @tblSector22222222222 S@ @tblMissionaries>>>>>>>>>>> (@(@tblMembers44444444444 |@ @tblEDistrict88888888888 MR2ValidationRuleValidationTextOrientation FilterOrderByOrderByOnNameMapColumnWidthColumnOrderColumnHiddenDescription FormatInputMaskCaptionDefaultValueRequiredAllowZeroLengthDisplayControl$UnicodeCompression    U@kBD^Pkz@tblEDistrictU4=LCѱ?A@kBD^DistrictID @MR2ValidationRuleValidationTextOrientation FilterOrderByOrderByOnNameMapColumnWidthColumnOrderColumnHiddenDescription FormatInputMaskCaptionDefaultValueRequiredAllowZeroLengthDisplayControl$UnicodeCompressionGUID  l d UlA\Inr 0@tblMembers؅"iJѮilA\InrMemberIDU ]?SwM8fpmlA\InrFirstDJAElA\InrMiddleIG~&EMBlA\InrLast[6D}TZlA\InrLast2pEL|lj9lA\InrSuffix"G*kLlA\InrStreet* NH lA\InrCityBuCelA\InrRegionN7WPIvб^BlA\InrZCode)NM*k}?4lA\InrHPhone!+A;8Qg} lA\InrWPhone>-@LmGlA\InrAltPhoneJ+RK52kqlA\InremailY{0S4IkMlA\InrGender 6 eqůK"/;vMemberID    . &Church MembershipID   m  ޭVv.MeQ t First       m  AdHD6ogv Middle       m  j F=p<rLast       m  ~YA[@X+"at Last2       m  SgOhB)+ݛv Suffix       m  V91qEwxv Street       m  VMWA48rCity       m  F* J 5w v Region       m  ( %NYIOt ZCode       m  eDaLAǗv HPhone       m   zGy +v WPhone       m  u3-E PezAltPhone       m  QONP)F0t email       m  Ԩ:]AD/Tҽv Gender       m  =glz1NjSpLVALg‹MR2ValidationRuleValidationTextOrientation FilterOrderByOrderByOnNameMapColumnWidthColumnOrderColumnHiddenDescription FormatInputMaskCaptionDefaultValueRequiredAllowZeroLengthDisplayControl$UnicodeCompressionGUIDD    U1TN &_Vo\ y@tblMissionaries.< dO`f}1TN &_VoMissonaryID-cBIIq(;% 1TN &_VoFirstyR;O 1TN &_VoMiddle8#DoWO1TN &_VoLastĮ+G$1TN &_VoLast21ք(EOqΏи1TN &_VoGender8NaZ1TN &_VoTypePscoC)2j1TN &_VoDOB(v'N&5c1TN &_VoReleaseDateKWnQN  %1TN &_VoCertified<yIē 1TN &_VoHAddr(7@BI1TN &_VoHCity'BMissionary church membership ID   m  .< dO`f}t First       m  -cBIIq(;% v Middle       m  yR;O rLast       m  8#DoWOt Last2       m  Į+G$v Gender       m  1ք(EOqΏиType    D <Elder, Sister, Welfare, Couple   m  8NaZT DOB      PscoC)2jdReleaseDate      (v'N&5cCertified    : 2Date missionary certified  KWnQN  %t HAddr       m  <yIē t HCity       m  (7@BIxHRegion       m  'BeEW86^DgA:hEoyRegionkԚ@>dA^DgA:hEoyMailboxd4*N"p^DgA:hEoyZCode ^DgA:hEoyv Sector       m  iATVNK)t Phone       m  [eѴxNӶzAltPhone       m  -}LP׃v Street       m  :@HIt p?urCity       m   o{G&o2{Nv Region       m  #V>eEW86xMailbox       m  kԚ@>dAt ZCode       m  d4*N"pzDistrict       m  K ~I߆SF?4LVALF @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @MR2ValidationRuleValidationTextOrientation FilterOrderByOrderByOnNameMapColumnWidthColumnOrderColumnHiddenDescription FormatInputMaskCaptionDefaultValueRequiredAllowZeroLengthDisplayControl$UnicodeCompressionGUID|  F > U lgOEDE`@tblZone6{C۠Scw lgOEDZoneN3o  lgOEDZL1XcԱC͕8 lgOEDZL2-dJ{?熏 lgOEDZL1DatejQmX@֏; w lgOEDZL2Date c L2IL"rZone       m  *Bx2jp ZL1       m  ;Q@i?np ZL2       m  3F;뙖loZL1Date    6 .Date zone leader called  ,݃RC,vQ戮ZL2Date    6 .Date zone leader called  Z2x4Bc| MR2ValidationRuleValidationTextOrientation FilterOrderByOrderByOnNameMapColumnWidthColumnOrderColumnHiddenDescription FormatInputMaskCaptionDefaultValueRequiredAllowZeroLengthDisplayControl$UnicodeCompressionGUID  j b U0|InBI!)(έ@tblUnitsݶeCdy0|InBI!)UnitID$ѹM1;B0|InBI!)Unity\@pFv_Q10|InBI!)Type]omW,@SF00|InBI!)Bishop״ DOЩd00|InBI!)1stCounߧHC05U0|InBI!)2ndCoun>`~GuSdt0|InBI!)Clerk1yL@+M0|InBI!)RSPres ح8IЋr0|InBI!)EQPres'#IJQ!z0|InBI!)DistOrStakeID 0|InBI!)v UnitID       m  ݶeCdyrUnit       m  $ѹM1;BrType       m  y\@pFv_Q1v Bishop       m  ]omW,@SF0x1stCoun       m  ״ DOЩd0x2ndCoun       m  ߧHC05Ut Clerk       m  >`~GuSdtv RSPres       m  1yL@+Mv EQPres       m   ح8IЋrl DistOrStakeID       m  LVAL  @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @    $% & ' ( ) * + , - . / 0 1 2 3 456789:;<=>?@ABCDEFGHIJKLMNOP !"#$%&'()*+,-. / 0 1!2!3!4"5"6"7#8#9#:$;$<$=%>%?%@&A&B&C'D'E'F(G(H(I)J))***+++,, , - - - .. . / / / 000111222333444 !"#$%&'()*+,-./0123456789:;  !"#ֱ0@>O=N@tblMembers䯀 @BBMR2ValidationRuleValidationTextOrientation FilterOrderByOrderByOnNameMapColumnWidthColumnOrderColumnHiddenDescription FormatInputMaskCaptionDefaultValueRequiredAllowZeroLengthDisplayControl$UnicodeCompressionGUID    Ue&F-] L@tlkMissionaryTypeU75PKR,e&F-MissionaryType $cy҈ݏE8n "MissionaryType N      m  %E.NvvMR2ValidationRuleValidationTextOrientation FilterOrderByOrderByOnNameMapColumnWidthColumnOrderColumnHiddenDescription FormatInputMaskCaptionDefaultValueRequiredAllowZeroLengthDisplayControl$UnicodeCompressionGUID    UCPA3y@tlkMissionaryAssignmentitCtN=2CPA3yAssignment q+y@@, ~Assignment       m  WqݏH9in