Standard Jet DBnb` Ugr@?~1y0̝cǟFN7]D^(`T{6u߱wCϯ34ay[|*|OJl>`&_Љ$g'DeFx -{et DBnb` Ugr@?~1y0̝bǟFN7]D^(`T{6,{߱wCϯ34ay[|*|OJl>`&_Љ$g'DeFx -?@@VCS     #      2                   IdParentIdNameType DateCreate DateUpdateOwnerFlagsDatabaseConnect ForeignName RmtInfoShort RmtInfoLongLvLvPropLvModuleLvExtra8  Id ParentIdName        VC@S     2  ObjectIdSIDACM FInheritable ObjectId`xwrlf}v`dojpd`w`a`vfvgruovordxmfv ufm`wjrpvijsvufsruwv vbujswv v}vufm w`amfv`rvYVVf|bXov}v`bfvov}vordxmfvov}vordxmfvXov}vrakfbwvov}vtxfujfvov}vufm`wjrpvijsvs,wamb`mmjpjwj`ms,wamb`mmjpjwj`mv`zfs,wamp`ofvs,wamvjwfvs,wamwujss,wamwujs,p`ofujgXurxw,rmdv,wamsurkfbwv,wamvw`wxvwam,`jsurkfbw,p`of wam,`vvjhpff!wam,rggjbj`mxpjrpwjofrxw$wam,ujg$wam`bb,wfvw,blm$wam`j,d`w`$wam`j,{`wbijwfov$wam`wwfpd`pbf$wamb`mm,xsd`wfv$wambilm,`wwfpd`pbf$wami}sfumjplv$wamoffwjph$ wamojpxwfv$ wams`u$ wamsurkfbw$ wamsurkfbwv$ wamsursfuw}$wamujg,ufv$wamujg,xsd`wf$wamujvl,sm$wamv}v,wfvw,blm$wamv}vwfop`ofv$wamxsd`wf$wamxsd`wfX$`bbfvvm`}rxw ov}vdavxoo`u}jpgrxvfudfgjpfd.\aX^_Z^YYZYYWWd[aXW_VVVWVYdb\Z]g0$wam,ujgwamujg,xsd`wf$VC?S             ObjectId AttributeOrderName1Name2 ExpressionFlag  ObjectIdAttribute  VCS            szRelationshipgrbitccolumnicolumnszObjectszColumnszReferencedObjectszReferencedColumn   szObjectszReferencedObjectszRelationship!"$&$0$5$T$W$h$k$n$r$ v$ $ $ $ $$$$$$$$ {qg]SI?5 @o{ @ d`w`a`vfvufm`wjrpvijsvw`amfvov}v`bfvov}vrakfbwvov}vtxfujfvov}vda`Uo{%@@ guoufsruw,w`a,vjwftu}fmpXvxagruotu},`j,pf{vxaufsruwu,uswjwfodfgjpjwjrpufsruwusw`bwjrp,jwfov,{fflm},d`ub,{ruduswpbrxpwobubmrvfo`jp# "obuuftxfu},mjvw$%obuvfwz,vfmjza&'ofpx,ufsruw,w`a,vjwf)*1vt,bu,guourxw,b`mmo`jp1vt,burxwjpfb`mm+,s,tu}b`mm,wrw`m,burvvw`a,w}sfjjjW5!s,tu}mrh,vf`ubi!!tu}j r!#itu}jpbrojph#z#{txfu}Z# #u,wamudv[VV,xvfW# #`of,fpwu}guop`of,fpwu}vxa guopf{,xsd`wfvX guopf{,xsd`wfvY guorxw guorxw,vifmm guos`uguos`u,mjvwguos`u,mjvw,o`jpguosurk,fpwu}guosurkfbwguosurkfbw,xsguosurkufs,vfmguosursfuw}fpwu}guoufsruw,w`aguoufsruw,w`a,vjwfguoufsruw,w`a,wujsvguoufsruw,wfosm`wfguoufvrmxwjrpguoufvrmxwjrpWguoujg,fdjwguoujg,fdjw,uosguoujg,fdjw,uosXguoujg,fpwu}guoujg,mjvw guoujg,osguoujg,os,uguoujg,ufvguoujvl,smguousw,d`wfvguousw,d`wfv,orpwim}guousw,d`wfvWguousw,d`wfvXguousw,d`wfvYguov}v,wfvw,bilm guowfbi,`vv guowujs,fpwu} guowujs,fpwu},h guowujs,ufzjvw,vfm guowujs,xsd`wfd`w`a`vfvgruovordxmfv ufm`wjrpvijsvufsruwv vbujswv v}vufm w`amfvov}v`bfvov}vrakfbwv@@ gruoWordxmfWd`w``bbfvvs`hfvd`w`a`vfvgruov ordxmfvufm`wjrpvijsvufsruwv vbujswvv}vufmw`amfvov}v`bbfvvrakfbwvov}v`bfvov}vordxmfv ov}vordxmfvX ov}vrakfbwvov}vtxfujfvov}vufm`wjrpvijsv`bbfvvm`}rxwov}vdavxoo`u}jpgrxvfudfgjpfd  o{# o !O)(!!       !" # $ % & '()*+,-./0123456789 :;<=>?@ABC D E F G HIJKLMNOPQRSTUVWXYZ[\]^_`abc d e f g hijklmnopqrstuvwxyz{|}~               B @ @ @       %%!!!!!%4@% {qg]SI? @ @ @ @/1=2?@  @ @ @ @ @ @ @ @ !"#$%&'()*+              " " " @@@@@@@@@@ @ @ AAAAAAAAAA A A BBBBBBBBBB B B CC C C C C CCCC C C C DDDDDDDDDD D  D !E"E#E%E&E'E(E)E+E,E -E .E 0E 1F2F3F4F5F6F7F8F9F:F ;F <F =F >G@GAGBGCGDGEGFGGGHG IG JG KG LHMHNHOHPHQHRHSHTHUH VH WH XIYIZI[I\I]I^I_I`IaI bI cI dJeJfJgJhJiJjJkJlJnJ pJ qJ rKsKtKuKvKwKxKyKzK{K |K }K ~LLLLLLLLLL L L L MMMMMMMMMM M M NNNNNNNNNN N N N OOOOOOOOOO O O PPPHwam`j,d`w`%wam`j,d`w`X%ODUCTION LEVEL WMSU SHIPPED TO SALT LAKE ARTCC (TO REPLACE PROTOTYPE UNIT INSTALLED AT KEYSITE) FAILED ASYNC PORT TEST.INSTRUCTIONS FROM AOS TO HOUSTON ARTCC CONCERNING BAD FLOPPY DRIVE IN NEW WMSU (EEM CHAPTER 53).NEEDED HELP IN FINDING A PART NUMBER FOR A DARC REPAIR ITEM."CDC Problem"?? Follow-up need for descriptionDCCR 3490 Tape Drive Failure IBM was called over the weekend IBM said the 3490's were not covered under contract maintenanceTROUBLE BACKING UP MINI DISK USING DDR INSTALLATION OF SPB-CCCH-068 EVENTS IV & VQARS version (LD017) Blip Scan increase from 196 (LD016) to 384 for their Bermuda Radar sight. Why? (LD017Problems with new SPS-7288/89 Power Supply. Had installed 1 previously in BM but after Logic power supply shorted, the I/O supply went inop also. 2nd & 3rd new supplies installed would not come up. Replaced with old supply and requesting advice.HARRY NEEDED SOCUMENTATION TO COMPLETE KEYSITE TESTING OF BUFFER MEMORY DSMs.QUESTIONS ON GPO/GPI HARDWARE HANDSHAKING.DURING INSTALLATION OF STB-DAC-023, A PROBLEM WAS ENCOUNTERED TRYING TO RE-BOOT PC INTO WINDOWS (AT STEP 4.E.2.K)Desired information about DAN 02.01While modifying DARC SSC Cabinet for EEM Chap. 43 (DARC/ESI MOD.), a connector pin was broken at the XA10 slot. Questions: Is it repariable? If so, how? Are parts available?Questions asked about operation of darc rcm card switches; both inernal and externalProblems building CDC Loader TapeReceiving NAS MESSAGE ERROR : DRI DISPLAYED. Can not find documentation on this error.SPB-CCCH-070 EVENT IV & V - He was helping OKC install MDM for DSR PCU diagnostics were not working properly.SPB-CCCH-070 EVENT IV & V - Needed help on installation and modification of local adaptation.Strobe data displayed in HOST but not DARC@frmRIF_Edit_RMP2%;!<<<<<<<<<@frmLCMF((((((((((& ۗN@ XN@frmID_Value,,,,,,,,,,* %form44444444442 %V"dN@viN@QryId-2 subform~@.0@%LWF000.fZH<000000.  %TҚ[N@L^N@QryELN subform@.0@%LWF000@.eYG;//////- SsXN@kYN@QryDescription subform2@.0@%LWF000@.nbPD8888886  %Q#K\ Q@F\ Q@P_tblTrip_name_U1111111111/ PY Q@Y Q@P_tblTrip_name//////////- O}L Q@ђ@P_DSR_Update subform55555555553 N: Q@=; Q@frmWrkgrp_Entry0000000000. MBN@OD"N @frmUpdatez++++++++++) L=N@t>N@frmUpdates40@%888,,,,,,,* @ %J45N@5N@frmUpdates20@%888,,,,,,,* @I )N@ʵ,N@frmUpdates@.0@%LWF000@.aUC7++++++) H, Q@"/ Q@frmTrip_Update//////////- %F @.@frmTrip_Entry_G%;!0@%GGG;;;;;;;. @EIjfC.@ `C/@frmTrip_Entry%;!9999999999, %C?@K@frmSys_Test_Chkl.LWF000.[O==111111/ B Q@4! Q@frmRpt_Dates3.........., A7 Q@u Q@frmRpt_Dates2.........., @fN@!N@frmRpt_Dates1.........., %>> Q@"} Q@frmRpt_Dates----------+ =P@eo@frmRisk_PL%;!@.LWF000@.`TBB666666) <}N@)4k+@frmRIF_Res++++++++++) ;=Z5@ٓZ5@frmRIF_MP_R,,,,,,,,,,* %guo`arxwguo`bb,wfvw,bilmguo`j,`wwfpdguo`j,`wwfpd,vxaguo`j,fpwu}guo`j,surk p`ofguo`j,vfmguo`j,xsd`wfguo`j,xsd`wf~guo`vvjhpffguo`wwfpdguob`mm,xsd`wfvguobilmjvw,`wwfpd`pbfguobmrvfd,vxaguogjmwfu,mrhvguogjmwfu,xsd`wfvguoid,o`jp guoi}sfuguojd,z`mxfguombogguomrh,fpwu}guomrh,uf`drpm}guomrh,xsd`wfguoojpxwfvguop`ofguop`of,fpwu}guop`of,fpwu}vxa guopf{,xsd`wfvX guopf{,xsd`wfvY guorxw guorxw,vifmm guos`uguos`u,mjvwguos`u,mjvw,o`jpguosurk,fpwu}guosurkfbwguosurkfbw,xsguosurkufs,vfmguosursfuw}fpwu}guoufsruw,w`aguoufsruw,w`a,vjwfguoufsruw,w`a,wujsvguoufsruw,wfosm`wfguoufvrmxwjrpguoufvrmxwjrpWguoujg,fdjwguoujg,fdjw,uosguoujg,fdjw,uosXguoujg,fpwu}guoujg,mjvw guoujg,osguoujg,os,uguoujg,ufvguoujvl,smguousw,d`wfvguousw,d`wfv,orpwim}guousw,d`wfvWguousw,d`wfvXguousw,d`wfvYguov}v,wfvw,bilm guowfbi,`vv guowujs,fpwu} guowujs,fpwu},h guowujs,ufzjvw,vfm guowujs,xsd`wfd`w`a`vfvgruovordxmfv ufm`wjrpvijsvufsruwv vbujswv v}vufm w`amfvov}v`bfvov}vrakfbwvov}vtxfujfvov}vufm`wjrpvijsv`bbfvvm`}rxw ov}vdavxoo`u}jpgrxvfudfgjpfdQ]Zx@ :          2   '                  IdParentIdNameType DateCreate DateUpdateOwnerFlagsDatabaseConnect ForeignName RmtInfoShort RmtInfoLongLvLvPropLvModuleLvExtra@ @  @ @ Id ParentIdName        8@8@DataAccessPages0000000000. @@MSysAccessObjects22222222220   {6S @ 9S @AccessLayout*@@E99-------+ @gO @**R @Form1&&&&&&&&&&$ -iG @zLL @Module1p@444(((((((& @ @ @ @ @SysRel''''''''''%  @ @ @ @Modules((((((((((&  @ @ @ @Scripts((((((((((&  @ @ @ @Reports((((((((((&  @ @ @ @Forms&&&&&&&&&&$  @ @ @ @MSysModules,,,,,,,,,,*  @ @ @ @MSysModules2----------+  4 @ @4 @ @UserDefined,,,,,,,,,,*  4 @ @4 @ @SummaryInfod@888,,,,,,,* @@ @@ @MSysRelationships22222222220 @ @@ @MSysQueries,,,,,,,,,,* @ @@ @MSysACEs))))))))))' @ @@ @MSysObjects,,,,,,,,,,* @ @,@MSysDb@ 333'''''''% @@ @@ @Relationships.........., @ @@ @Databases**********( @ @@ @Tables''''''''''% Z,yj[u |mK<-) zk\   ۇ O8V#jKrvwlrV#jKV#jKV#jKV#jKrvwlrV#jKV#jKV#jKV#jKV#o    ۇ O8V#jKrvwlrV#jKV#jKV#jKV#jKrvwlrV#jKV#jKV#jKV#jKV#o    ۇ O8V#jKrvwlrV#jKV#jKV#jKV#jKrvwlrV#jKV#jKV#jKV#jKV#o   ۇ O8V#jKrvwlrV#jKV#jKV#jKV#jKrvwlrV#jKV#jKV#jKV#jKV#o   ۇ O8V#jKrvwlrV#jKV#jKV#jKV#jKrvwlrV#jKV#jKV#jKV#jKV#o     ۇ O8V#jKrvwlrV#jKV#jKV#jKV#jKrvwlrV#jKV#jKV#jKV#jKV#o  ۇ O8V#jKrvwlrV#jKV#jKV#jKV#jKrvwlrV#jKV#jKV#jKV#jKV#o   ۇ O8V#jKrvwlrV#jKV#jKV#jKV#jKrvwlrV#jKV#jKV#jKV#jKV#o  ۇ O8V#jKrvwlrV#jKV#jKV#jKV#jKrvwlrV#jKV#jKV#jKV#jKV#o Tۇ O8V#jKrvwlrV#jKV#jKV#jKV#jKrvwlrV#jKV#jKV#jKV#jKV#o Tۇ O8V#jKrvwlrV#jKV#jKV#jKV#jKrvwlrV#jKV#jKV#jKV#jKV#o ۇ O8V#jKrvwlrV#jKV#jKV#jKV#jKrvwlrV#jKV#jKV#jKV#jKV#o            9LVAL Ȝ,Yu |md`w`a`vfvufm`wjrpvijsvw`amfvo?@ۇ O8V#jKrvwlrV#jKV#jKV#jKV#jKrvwlrV#jKV#jKV#jKV#jKV#o  ۇ O8V#jKrvwlrV#jKV#jKV#jKV#jKrvwlrV#jKV#jKV#jKV#jKV#o   ۇ O8V#jKrvwlrV#jKV#jKV#jKV#jKrvwlrV#jKV#jKV#jKV#jKV#o  ۇ O8V#jKrvwlrV#jKV#jKVKKD\ AccessVersionBuildTrack Name AutoCorrect InfoPerform Name AutoCorrectProjVerI  07.53   KKD\ AccessVersionBuildTrack Name AutoCorrect InfoPerform Name AutoCorrectProjVerI  07.53    #KKD KeepLocal TKKD DescriptionYM EThese are general development functions that work in all applicationsKKDTitleAuthorCompanyB HILITE Jim Hare, AOS-320 CTR FAAVCeN            NameTypeVersionReplicationVersionFlagsModuleFormTypeInfoIndex1  ۇ O8V#jKrvwlrV#jKV#jKV#jKV#jKrvwlrV#jKV#jKV#jKV#jKV#o  ۇ O8V#jKrvwlrV#jKV#jKV#jKV#jKrvwlrV#jKV#jKV#jKV#jKV#o   ۇ O8V#jKrvwlrV#jKV#jKV#jKV#jKrvwlrV#jKV#jKV#jKV#jKV#o  ۇ O 4 @ @4 @ @UserDefined,,,,,,,,,,*  4 @ @4 @ @SummaryInfo,,,,,,,,,,* @ @@ @MSysRelationships22222222220 @ @@ @MSysQueries,,,,,,,,,,* @ @@ @MSysACEs))))))))))' @ @@ @MSysObjects,,,,,,,,,,* @ @@ @MSysDb2@333'''''''% @@ @@ @RelationshipKKDTitleAuthor7 HILITE Jim Hare, AOS-320 CTRKKD AccessVersion  07.53{qg] @ @      guoujg,osguoujg,os,uguoujg,ufvguoujvl,smguousw,d`wfvguousw,d`wfv,orpwim}guousw,d`wfvWguousw,d`wfvXguousw,d`wfvYguov}v,wfvw,bilm guowfbi,`vv guowujs,fpwu} guowujs,fpwu},h guowujs,ufzjvw,vfm guowujs,xsd`wfguoxsd`wfvguoxsd`wfvXguoxsd`wfvYguoxsd`wfvZguoxsd`wf~guo{ulhus,fpwu}s,dvu,xsd`wfvxagruos,wamwujs,p`ofs,wamwujs,p`of,xtu}dfvbujswjrpvxagruotu}dfvbujswjrpvxagruoXtu}fmpvxagruotu}fmpXvxagruotu}jdXvxagruotu}mrhsrbvxagruotu}ujg,mjvwvxagruotu}ujg,mjvwvxagruoX@" U @gruo,gruoWordxmfWov}vdaov}vdaov}vdaov}vdawrrmvwrrmv   udv[VV,dfgsvvu,guoudv[VV,dfg,vifmmu,guoudv[VV,surb,urxwmjvwu,guoudv[VV,xvf,vifmmu,guoudv[VVjwfoxvf,dxs u,guoufsruwv u,guourxw,b`mm u,guourxw,b`mmo`jp u,guourxw,pf{ u,wamudv[VV,urxwjpfvxagruou,wamurxwjpfb`mm,dxsu,xvfprwxvfd vfwv,guovw`wxvwam`j,{`wbijwfovvxagruowamsurkfbwvxagruoord,s`uord,ujgord,xvford,xvfWwujs,xsd`wfvwujs,xsd`wfv,r`rvYXVsursuw}mjvws,tu}b`mm,wrw`m,burvvw`a,w}sfjjjvxaufsruws,uswwujstu},`j,pf{vxaufsruwtu},`j,pf{vxaufsruw,fpurxwftu},`j,pf{vxaufsruw,odotu},`j,pf{vxaufsruw,s`oujtu},aj,{,wjwmfvxaufsruwtu},dbbb,wjwmfvxaufsruwtu},vbbb,wjwmfvxaufsruwtu}`vvjhpffvxaufsruwtu}ujg,ufvvxaufsruwtu}uj 4 @ @4 @ @UserDefined***********  4 @ @4 @ @SummaryInfo,,,,,,,,,,* @ @@ @MSysRelationships22222222220 @ @@ @MSysQueries,,,,,,,,,,* @ @@ @MSysACEs))))))))))' @ @@ @MSysObjects,,,,,,,,,,* @ @@ @MSysDb2@333'''''''% @@ @@ @Relationships.........., @ @@ @Databases**********( @ @@ @Tables''''''''''% VCEN __A__  ۇ O8V#jKrvwlrV#jKV#jKV#jKV#jKrvwlrV#jKV#jKV#jKV#jKV#o  ۇ O8V#jKrvwlrV#jKV#jKV#jKV#jKrvwlrV#jKV#jKV#jKV#jKV#o   ۇ O8V#jKrvwlrV#jKV#jKV#jKV#jKrvwlr @ @ @ @MSysModules2----------+  4 @ @4 @ @UserDefined,,,,,,,,,,*  4 @ @4 @ @SummaryInfod@888,,,,,,,* @@ @@ @MSysRelationships22222222220 @ @@ @MSysQueries,,,,,,,,,,* @ @@ @MSysACEs))))))))))' @ @@ @MSysObjects,,,,,,,,,,* @ @@ @MSysDb2@333'''''''% @@ @@ @Relationships.........., @ @@ @Databases**********( @ @@ @Tables''''''''''% {zGF E:6ESODCIEChdBAA @sAsA@sA@R_RptItem Definition Report::::::::::: )/%aN@cN@R_RoutineCall_Routineb@Y/LWF000 ]/aUCC7777775 H>N@U`N@R_RoutineCall_Routine_ModZ@Y/LWF000[ [/dXFF::::::8  )/@s9N@ <N@R_Routine_CallRoutineA@R/LWF000 U/aUCC7777775 )/3N@R 6N@R_Routine_Calledp@R/LWF000p P/[O==111111/ )/*N@.N@R_Calling_Routines|@J/LWF000Z K/]Q??3333331 I~&N@}`*N@R_Called Routine ListE@J/LWF000I/`TBB6666664 )/edK@e@QrytAttend_Subreport_PAMRI%z;l ޳h@:/LWF000@F/pdRRFFFFFF9 )/|VI@~9+@QrytAttend_Subreport_EnRoute%z;l ޳h@:/LWF000,@D/rfTTHHHHHH; )/kN@YN@QrytAttend subreportW@:/LWF000 @/_SAA5555553 N@%N@QryRIF_Update2 subreport22@:/LWF0008 >/dXFF::::::8 )/dN@}N@QryRIF_Update2 subreport2@:/LWF0007 8/cWEE9999997 )/N@ N@qRYrif_rES subreportm@!/LWF000r 4/_SAA5555553 ~? N@;H@QryAssignee subreport@/LWF000n 1/`TBB6666664 )/|ͥN@OIs6@Qry_DCCC_Title subreport@/LWF000\ -/J~o`M>/+ | @ @ !"#$%&'     u}broarZ,xvf+ uofpx,dfg+ uofpx,urxwb`mm+ uofpx,xvf+ u,obubmrvfxvf+u,obubmrvfxvf,vxa+u,obubmrvfxvfX+u,obuorzfxvf+u,obuuftu},xvfguo+u,obuxvf+vfwz,`jpxo,surk+vfwz`mxf,rwifuX+`dojp+d`w`a`vfvgruovordxmfv ufm`wjrpvijsvufsruwv vbujswv v}vufm w`amfv1vt,bguo`j,xsd`wf~1vt,bguo`vvjhpff+1vt,bguo`j,xsd`wf~1vt,bguoxsd`wf~+1vt,bu,guourxw,b`mmo     ۇ O8V#jKrvwlrV#jKV#jKV#jKV#jKrvwlrV#jKV#jKV#jKV#jKV#o    ۇ O8V#jKrvwlrV#jKV#jKV#jKV#jKrvwlrV#jKV#jKV#jKV#jKV#o   ۇ O8V#jKrvwlrV#jKV#jKV#jKV#jKrvwlrV#jKV#jKV#jKV#jKV#o   ۇ O8V#jKrvwlrV#jKV#jKV#jKV#jKrvwlrV#jKV#jKV#jKV#jKV#o    ۇ O8V#jKrvwlrV#jKV#jKV#jKV#jKrvwlrV#jKV#jKV#jKV#jKV#o    ۇ O8V#jKrvwlrV#jKV#jKV#jKV#jKrvwlrV#jKV#jKV#jKV#jKV#o LVAL i_VBA_PROJECTa^  *\G{000204EF-0000-0000-C000-000000000046}#3.0#9#C:\Program Files\Common Files\Microsoft Shared\VBA\vba332.dll#Visual Basic For Applications*\G{4AFFC9A0-5F99-101B-AF4E-00AA003F0F07}#8.0#0#D:\Program Files\Microsoft Office\Office\MSACC8.OLB#Microsoft Access 8.0 Object Library*\G{00025E01-0000-0000-C000-000000000046}#4.0#0#C:\Program Files\Common Files\Microsoft Shared\DAO\dao350.dll#Microsoft DAO 3.51 Object Library ;@;߳x$AccessVBAWin16~Win32MacDAOHILITEk00 dir0* pHdHILITE$@T=j ;@; J"< DAO>DAOP *\G{00025PE01-0C  0046}#4.0#0#C:\Program Files\@Common Microsoft Shared\w\dao350`.dll# 3.51 Object LibrXaryHDLVALN            NameTypeVersionReplicationVersionFlagsModuleFormTypeInfoIndex1  ۇ O8V#jKrvwlrV#jKV#jKV#jKV#jKrvwlrV#jKV#jKV#jKV#jKV#o  ۇ O8V#jKrvwlrV#jKV#jKV#jKV#jKrvwlrV#jKV#jKV#jKV#jKV#o   ۇ O8V#jKrvwlrV#jKV#jKV#jKV#jKrvwlrV#jKV#jKV#jKV#jKV#o  ۇ O 4 @ @4 @ @UserDefined,,,,,,,,,,*  4 @ @4 @ @SummaryInfo,,,,,,,,,,* @ @@ @MSysRelationships22222222220 @ @@ @MSysQueries,,,,,,,,,,* @ @@ @MSysACEs))))))))))' @ @@ @MSysObjects,,,,,,,,,,* @ @@ @MSysDb2@333'''''''% @@ @@ @RelationshipKKDTitleAuthor7 HILITE Jim Hare, AOS-320 CTRKKD AccessVersion  ߳ [wJu            NameTypeVersionReplicationVersionFlagsModuleFormTypeInfoIndex1  ۇ O8V#jKrvwlrV#jKV#jKV#jKV#jKrvwlrV#jKV#jKV#jKV#jKV#o  ۇ O8V#jKrvwlrV#jKV#jKV#jKV#jKrvwlrV#jKV#jKV#jKV#jKV#o   ۇ O8V#jKrvwlrV#jKV#jKV#jKV#jKrvwlrV#jKV#jKV#jKV#jKV#o  ۇ O 4 @ @4 @ @UserDefined,,,,,,,,,,*  4 @ @4 @ @SummaryInfo,,,,,,,,,,* @ @@ @MSysRelationships22222222220 @ @@MSysDbw### ?Form_Form1o?3' MSysDb y### ?Module1 aK$$$ ?Tools ag""" ?MSysDbd### ?ToolsaQ""" ?MSysDb### ?VCiNi   DataID B AOIndexa{q@W @ @ @ @ @ @ @ @ @ @ @ @ @!!!!!!!!" " # " " """"#######$$$,,,, ,!,",#,$-%-&-'$($)$*$+$,---.-/-0-1%2%3%4%5%6%7%8%9&:&;&<&=&>&?&@&A'B'C'D'E'F'G'H'I(J(K(L.M(N(O(P(Q(R)S)T)U)V)W)X)Y)Z*[*\*]*^*_*`*a*b+c+d+e+f+g+h+i+ $*0M>/+ ࡱ>  V8gV8g  Forms V8g?gReportsRoot Entry?g@PropData  d@#!4.!! $*0 V8gV8gVBAProjectV8gV8g0 V8g=DgBlob CustomGroups V8gV8gDatabases V8g=Dg0 V8g=DgCmdbarsV8gV8gDataAccessPages V8g=DgScriptsV8gV8gVBA 45`Detailm4567U`)abFjText0=SetBorderColor()=ResetBorderWhite()m4567U`)abFjkModules ij  $*0 @PropDataDirDataEvent Procedure]ͬ8uKĀDetailmText0mText2mText3h Command4Text2=SetBorderColor()=ResetBorderWhite()m4567U`)aVbFjkText3=SetBorderColor()=ResetBorderWhite()h 1U`UabciCommand4 Close Form[TypeInfo oBlobDelta0?g?gBlob DirDataDirDataModule1MSysDb06=Babce gh,i j+ kegO @Ariald2hgh MS Sans Serifm ?g?gPropData  $*0rU~~~~~~~~~~~] X>_VBA_PROJECTH +    ( q 8d˓K*m*dule1=0, 0, 0, 0, C Form_Form1=0, 0, 0, 0, C Module1Module1Form_Form1Form_Form1rU~~~~w  )ID="0" VersionCompatible32="393222000" CMG="5F5D8669BA971D9B1D9B1D9B1D9B" DPB="BEBC67CA9976F977F977F9" GC="1D1FC4A77C077D077DF8" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] Mo(V8gV8gID="{0D2AF869-7148-415B-9255-483E94BFC6AA}" Module=Module1 DocClass=Form_Form1/&H00000000 Name="HILITE" HelpContext'Form1AcessVBAData $*0xt2Text3EC7?Command4Command4_Click T`GXGPfĤIx8<VBE6.DLL Q  Q S 8fk(aN?BorderColorlCEn9@ 8uKĀ ׿KKm31?FormSC7?Detail@C7?Text0Te7d\VBA\VBA6\VBE6EXT.OLBVBIDE AipResetBorderColorResetBorderWhiteSetBorderColor ɤs h)aN?96IP0FC:\WINDOWS\system32\stdole2.tlbstdole a`WFCC:\Program Files\Common Files\Microsoft Share5iles\Microsoft Office\OFFICE11\MSACC.OLBAccess  9@^F=C:\Program Files\Common Files\Microsoft Shared\DAO\dao350.dllDAOwE  !4HILITEModule1 Form_Form1F /C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA  A0J_N?4C:\Program F3a ia    2vJ+  1 $*0 @ @ @bject Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\system32\stdole2.tlb#OLE Automation@E01-0000-0000-C000-000000000046}#5.0#0#C:\Program Files\Common Files\Microsoft Shared\DAO\dao350.dll#Microsoft DAO 3.51 O?03F0F07}#9.0#0#C:\Program Files\Microsoft Office\OFFICE11\MSACC.OLB#Microsoft Access 11.0 Object Library*\G{00025>0#9#C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*\G{4AFFC9A0-5F99-101B-AF4E-00AA0=OLQG(T@,J@+A4B@.UF@Q@DP/SM/5"-(cbam  *\G{000204EF-0000-0000-C000-000000000046}#4.< ߳@Module1G#\du]1HZSMUGINGWUCAEZWSCNW_UMNBPE_28AZS@MUGINU@WCE@WCNW_E@M@BPR_BH@1 B,*ͳ!B+BBdForm_-F-rm@EE/XJMKBCDHOLQLGETUJPAGBNUFEQUDC/XJ.KxCxH;t LibrXaryHUs@tdole>fstdole^h^^X043[W-^2^WINDOWS\system32\22.tlb#OLE Automation0 VBIDE> VB@IDED DE157#D5.3oQVBA\6E6E@XT.OLBRVisual Basic for @Applic1s Extensibility +›:0* pHdHILITE$@T=j FE J"< DAO>DAOP *\G{00025PE01-0C  0046}#5.0#0#C:\Program Files\@Common Microsoft Shared\w\dao350`.dll# 3.51 Objec9 $*0 @ @ @msgboxRErro Description  stdole` VBIDEAFormDetail2Text0~Text2~Text3~Command4Click`!  02H(ResetBorderColor%ScreenI ActiveControly BorderColor(ResetBorderWhiteYvbWhite^K(SetBorderColor5 Form_Form16Command4_ClickIZErr_Command4_ClickDoCmdƧExit_Command4_Click?!G CGWTOG6[OR ;1H "( Access VBAWin16~Win32MacVBA6# HILITEk0DAO Module1b _EvaluateFE58D߳8HZSMUGINGWUCAEZWSCNW_UMNBPE_0545bb46c9Module1ͳ 8XJMKBCDHOLQLGETUJPAGBNUFEQUD0645bb46c9!Form_Form1Cosoft Visual Basic for Applications Extensibility 5.3 FEBZ*\G{0002E157-0000-0000-C000-000000000046}#5.3#0#C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6EXT.OLB#MicrA $*0 @ @ @$n߳5PlCEn9@ 8uKĀ ׿KKmxQxK3)'h%x$ `x ,x<''$'Dd xx ,>dFT x6TD$ 0xx$ $dxTD$HXP@D Y vvv@ Hq  xxx Oppp@< ) rrr@@ A tttN@8MKrU a9 q )  1Y@:4aJ$ rU T$`$ nI $*0 @ @ @X `pxp$` &B@B varia(H|@$8 ,!.A@*( ocAttribute VB_Name = "Form_ 1" Bas0{7538B5EE-97E5-11D5-B2A0-0YH "  ) 08 @<HXpFE$*\Rffff*0645bb46c9*\R1*#99*\R1*#98*\R1*#25*\R0*#13*\R0*#19*\R0*#144p8r<t@vDxW@ D @84 @P$ @ @ @@xT($Vx&,*@x @h @d @T Uk$h@% %  %TLLL<,<0<4<8<<<N0{7538B5EE-97E5-11D5-B2A0-00104BC5C480} p "`S ׿KKmlCEn9@ ME(SLS S6R $*0 @ @ @ `Do  @%(aP6 LL<<< @`Do  `XDo `xME_lhdad~ ߳ͳ^hd|@K2T%dh$ \h (d)hd8@(lhdx<K/(T%dh$ \h (d)hd8<(]rU~| a9x<K/(T%dh$ \h (d)hd8<(l\msgbox8.DescriB4ResuP EndCrU $`$`$`n[0104BC5C480} |GlobalSpac False dCr@eatablTru PredeclaId"Expose_Template DerivCustomizD$Option Comp@ DT  ?@ABCDEFGIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwx$ @ @ @ @ @ @ @ @ @ @ @ @!!!!!!!!" " # " " """"#######$$$,,,, ,!,",#,'$($)$*$+$1%2%3%4%5%6%7%8%9&:&;&<&=&>&?&@&A'B'C'D'E'F'G'H'I(J(K(M(N(O(P(Q(R)S)T)U)V)W)X)Y)Z*[*\*]*^*_*`*a*b+c+d+e+f+g+h+i+LLVAL 6i_VBA_MODULExe߳ͳfP<< <<<5c$$$<$>H $>x$ $ $ $(H>  $X$ $ $>8Hl$l$l$+Z1`h@'` P 0XH (0 pxLL<$H>$T$$ $ $<$> $ ~`D ))H>0(Hl$>l$ $ $ $l$l$$>@>(H> T$>>(H>(H>&x$$@>LVAL 7>(H>(H>>H>X $<$<$<$T$T$ $ $ H` p  H (0 <$<$<$>@ $<$<$@$T$@$ $ $>>` $ $>p> $ $ $>x> $<$ $ $> p@. @0 @ >8 H>0 8`l@4  @$$>  $ $>@ >> $ $ $>  H` p  H (0  H` p  H (0  > H` p  H (0 >  $$$  H` p  H (0 > LVAL 8 H` p  H (0 > $$$> (>( > > >   ` p  HH0 (  ` p  HH0 ( $0  ` p  HH (> > > 8` @ q  `TD  ``TD  `TD  @>Hp 8 8@>$>xPp  @@9 @< @>`` t>0H@B , ,@Px0 p H  ( `hp0 0@ F 4 4@J < <@` t> 0 p( PLVAL 9xX` 0 H` t0 > $$$` t  0 p( PxX` 0 H 0 p( PxX` 0 HL`0 LL ` tLL`P `p  HxX(0 0 LLh` tL`h LpLP0 LXLh $$$LH8L  ` t` tP `p  Hx(0 0 Xh$P `p  Hx(0 0 Xh@$$$8 `Lh $$`Pt`Pt$((8 `LVAL :dD   pP( xX` 0 Hh0`Pt`PtH !8` @ X H$`PtH`Pt0`Pt(H pX 0 P 4h(0` xP(H pX 0 P h(0` x "rH$` H$H$(0"H$`"P$`Pt`Ph8$X(H8$ p 0 PX (h0` x0`Pt8`Pt8hP$P$$X `T@x$ $8! X%!`Ph`Ph" %l "$P$! P$$`Ph`Ph$&$`%LVAL ;%&P`@ Px`"("0$$'t$ 8 `$@& &/0/p$$ '( XH ph(P8$ &`0 x0  8(%` t0$x( ($X*x(X*% 8$h H0X P`&( x(0 p&P%'%'(P)Hh 8$0X `p  P&0 (&x-j .((?Hh 8$0X `p  P&0 (&xp%(?Hh 8$0X `p  P&0 1(&x(?Hh 8$0X `p  P&0 1(&x x-P`4' ? `h`PtX.j`h/p`4@- ?/0LVAL <p*/8$&% .t .&h/`< 8`(p x(. tp.-x$&/p0/ $ $`Pt $ $00(t`|p`Pt`PtX`PtX18`TD 8// / $ $ $2``D *5 @@@/1020  $`Pt2l/022  $ $ $2$`Pt1 4h24$`PtH3`Pt$$`Pt  $) P-(0h00xXH?p - `&.( 1.0 8$&22H34 $25 47`Ph(5`Pt`fh1`PhP3  $6623LVAL = p375X4P(& H@1 ?&`50 1-h.008$X `- .0px(8`TD 88 `<@ i4 $`Ph5h8x 479`" 8`39 `Phh985D h9:`Pt:@T @P @LO 21 Px-?( ( 0 @1H00&p0 X7.h8$.&X7]7`-h;h;`Pt;@z <t `Pt`$t`Ph<h;h;;@;<p<``Ph0=H(0=0` ?P ?`Ph=@ @0 @ `z'?(?h @9LVAL >5>x=x===`$t=`Ph`Ph>z `$h(?*?" 8`@X?? `Pt?H\ @0X @H A`Ph@2/>?>H;@PAx8 @( @$ PA0  @ PA`$h?hB`$hh8&8$&( X(10800-h H]px ?.9.@1P `-0 X77C"Cph h>@d D` @^ CCL `Ph HC< `$hC@, C( @ `t@Cq `Ph D( @l `t(DH=PF&8$&( X(10800-h H]p9 ?.x.@1P `-0 X77PF@D @4 F$ @" EvE  EvLVAL ?F{@l PFPF0BF F(F0F8F@FF l `hGEEPFFM@h @d @T E`hG`hHpHpHHhFHXl t H(h @d `ftIT `ft@IhF`fthFpIl `ftI`h`ft`ftJ@I@IhJxGJ@l J(h @d K`fh K(T @@l (`ftK`fh`fh@`fh(`fh@K`fh@L8 @Lh `fh`fh@`fh(L d N`fhMHJKGMXT @D M(@ @< @l LVAL @Mh ZHA`fh8N(d `z`ftN@P N(l @h `fhN8f @d `fhxPhMMMI N !N8NpIxP(T MxPP `fh`QL HQ0Q0Q`QXL`Ql `fhRZ(d @T pRHRHRR`RR l R`fh(XTZ Zpd @T Z@D @4 -@$ X?SXTpv"hXTXx (@t @p XTl HVXGZ8h (@d @` @\ Z(X @T HU@D @4 @$ @ `U@ X*H-'LVAL AV@TZl @X @V pVVT VZ(D Z4 x---`W`WxWZl W(W(X @V WWT XZ(D Z4 X.x(X`YZ@PpYpp @l @\ @YX @T YYPO YZZ(L (@< h///xZ([ZZN([xl @h @@X ([T @P `[Z[X `[LO x[([H [Z[^`8 @4 @0O \(, @( 0\\\]\l  X@@h @d @T @!l @LVAL B^( ^h 8`@ (Y`b8h]h]]](d @T 2x_x___l `aH4"a0X `H @8 8a( @ @ @ @ @ 8a@ @ @ @ a8a (a@ @ @ Hb4 b b8b`b z `b`(t8(r l 56@cX@\ X @H hX`7ME 6B  x2B  5B  21- Force explicit declaration of all variables.ZshP  .LVAL CD .D @ D %R .F ;Database= N  F (T oB B F (V X F D !X B@Z 'LsP 'Z phhfsRcheck "dirty" property of form, to see if a field has been changed since last SaveH "HQ 'ahf 'f nC@pC@hn8fHBuilt-In Toolbars Available tB@vpfha ! .b u !.d te b "B@0frmToS-Network'[Case Number] = d '   B@  ( B@Blaccepts any variant valueconvert null to zeroreturns zero or non-null value $'~a '~hfHQff process the selection from a combo-box on the search form, to open the case form with selected recordF} ----------------------------------------------------------------------------------------------------------------------------DB} ----------------------------------------------------------------------------------------------------------------------------} ----------------------------------------------------------------------------------------------------------------------------} ----------------------------------------------------------------------------------------------------------------------------B} ----------------------------------------------------------------------------------------------------------------------------P} ----------------------------------------------------------------------------------------------------------------------------DB} ----------------------------------------------------------------------------------------------------------------------------2F shift the links box and links down the form for each page shifted to.:} ---------------------------------------------------------LVAL D-------------------------------------------------------------------j move controls up or down 3.6146 inches * 1440 twips for each shift. 1-2, 2-3, 3-2. from 1 to 3 or 3 to 1,# make the shift 7.2292 * 1440 twipsZHQHQ' U' 05 (' k HQ HQHQU' k HQ HQ(' HQU' HQ' k HQU' kh p  now shift the controls b !b! b !b( b !! b !( b !! b !( b ! ! b ! ( b B@^ usage : shiftlinks(frompage, topage), e.g. "x = shiftlinks(1,2)" for page1 to page2 move "\ .b b !^! b !^( b !`! b !`( b !d! b !d( b !! b !( h 0 frm.txtAddNew = frm.txtAddNew.Top + TwipsToMoveSe"S:\SECURITY\EDR\EDR-SERVERDATA.MDB'N H`P B@ZDZ $  $  'ect - sh(CYou are NOT connected to the Network server! - Log in and try againA@ iH $  $  've an $  $  '7\Deptsh(@Your drive mapping is not correct - Server07\DEPTDATA\SECURITY needs to be mapped as S: drive.A@ec'X' p ' S: drive there, but mapped incorrectly M p  not logged in to networko SeError Number : p, a problem of  p! A@s netw( p  No S: Drive mapped at all AYou do not have an S: drive mapped to Server07\Deptdata\SECURITY. FPlease connect this network resource, or call for assistance to do so.A@(''&if successful, set return code to zeroHLVAL E 'L 'L 'L 'L0hfp` this function takes a local data table and refreshes it from the server table that is its' twinfZZZ ' 'Delete [' From ' Insert Into [' select 'From 'ZZ  B@De  B@$ ********** Execute Delete Statementd Dele   ].* from [ ];'" ********** Build Delete statement" ********** Build APPEND statement   ] select  .* from  ;'$ ********** Execute APPEND statementLocal data table Refreshed.A@' B@ B@  !$ "n(Xcalled on each field's "on exit" event - if the form is dirty, make the "SAVE" link purple like the others otherwise leave it greyed outP@ d ( b (x Search Form'(flZff( z ~A@ h B@h  C@h jAutoExecC@l0 $$Sorry, this field requires some data0Data needed here!A@ B@ Z !. $Fsg 'R N R  N N$$'P P0 P9 (Please enter numbers only in this field.0Data not within limits.A@ $B@sh NfP this function will center horizontally/vertically a control on a form or report? called vie F11 during design process, F11 is in AutoKeys macroZZZZZDZA******************** Set form and report names and error trappingL******************** Either of FormControl or ReportControl will have value,'******************LVAL F** other will be null !.6 !.8$*************** Get this form's name !!'BA form is active... B 6!'< !!'> < > !(a ok, then a Report is active.... !!'B B 8!'< !!'> < > !(h@h8s0( You have not selected a control!0Ooops!A@$A@sf ZZ'h !$Fsg ! N ! ! N$'j hF j$'jg j $F'h`F'hg T j 'T N T (hFcheck to see if first three chars have a space after them. If they do,.capitalize them alone, as in "ATE Investments" !$  8 *********** save back-end of the string *************** !$'d8 *********** chop out the front end ******************** !$'f8 *********** uppercase him ***************************** f$'f8 *********** and slap the two puppies back together **** f d (h f 'H !$Fsg ! , ! ! ,$'J HF J$'Jg J $F'H`F'Hg 2 J '2 , 2 (h f  !(fx  h  !(fP `@ !(f( Z ZZZDZZpZZZx'T'2f ! $ (ffP ' H Z'tr UserDistricttblUserstblUsers!UserNamLVAL Ge =   $ ' `  !B@fh ` hZ'N  D!\ $D!^ P'Nr` hX returns True Or False'%Usage: var = IsFormLoaded(FormName)4f!ZZZZ  '  ' '| this should print the form, the function/procname and the line number, the Access Error number when an error gets generated' P!'  Error generated in form :  Z Control :   Z Event :    Error Number :  A@^"h$ return -1 if form is open, 0 if not usage : isOpen(FormName)Z'  ^! " $^! 'r`"hX" f@"@"f##8$   B@Bse(ByVf##f(     B@dri&$&ZZ Z.P P!\"^.Ropen all forms V R!` V! b B@d# B@l##?l%   B@Bccured tB@ry to $8% | zA@ z | B@Deleted old fileA@^'xs%% &!  &!(A@$ B@Z^$ zA@' OldDb = "N:\SIRS\SIRS-DAT.MDB"''' |A@( |A@h'`'& tempDir = "N:\SIRS\TEMP\SIRS-DAT.MDB" Newdb = "N:\SIRS\SIRS-DATX.MDB" XAn error has occured. Please note the following and call Jim Hare/AOS320 DBA @ 5-4196 :  Number:  &!  Description:  &!( A@$h'-f'hZ $' ,   ,$  LVAL H ,$' , ' return max value of n..m passed- return min value of n..m passed foo = 199) example : foo = aMax(1,17,6,34,199,0,2)) example : foo = aMax(1,17,6,34,199,0,2)Z $' ,   ,$  ,$'h% , 'f% foo = 0%.Z %.  !X !)l).Z %.  !X !  !X ! is a member of  !(X(l(00( !(f((]Z* function to prin '/n/' copies of a reportf0+h=pass the report name and number of copies. does a simple loop3 there may be a more elegant way, but this works...sZ !.$ B@gh par ,) B@h B@hH- , Lthis f !  B@pi- You printed L copies of report  !A@$-p-:Please enter the number of copies desired, and click :Print Multiple Copies$'L L$ L-- !(f-7- !(fx-p- FPurpose: Set a form's OrderBy to the string. Reverse if already set.Return: True if success.>Usage: Command button above a column in a continuous form:+ Call SortForm(Me, "MyField")  . Reverse the order if already sorted this way. 4! 4!    DESC'h,  4(  4( Succeeded.'h`,fX,P,7l0Z Z' Z'Z_LVALkRDžGF샖5݂|$"Q4z$; Rو8ԋ@ O@ErrorInfoZ䤥@@@@4444444( @V2"﨏@!@zrptPageHeader-PZ䤥@Z@LWF000qeSG;;;;;;/ Uo讏@L@zrptPageHeader-LZ䤥@\@LWF000qeSG;;;;;;/ S[$@ס.@zrptPageFooter-LZ䤥n@[@ LWF000@qeSG;;;;;;/ PB+ fT@o@rptTripsByProjectZ䤥J@ HHH<<<<<<<0 @J@JG@RptOUT@LWF000@QE33''''''% HŮ@@rptMRMonthlyStatsZ䤥Z@HHH<<<<<<<0 @D@2@rptMRLastMonthCalls-ClosedZ䤥a@QQQEEEEEEE9 @@ll@sQ@RptMonthlySite1Z䤥i@FFF:::::::. @;.E@@rptHD-Call Distribution-GraphS@ JJJ>>>>>>>< @7,#@e!@RptDSR_Call_Range_@>>>22222220 @24@Gt@rptCallDistributionSummary-MTDZ䤥]@UUUIIIIIII= @.Q@3@rptCall_Distr_320W@>>>22222220 @+Crn @<$ @qryTrX X /h8) set filter on any form's control's valuen place call to this proc in the click event of a label - will filter on the form's current active control name/ !.4 4 !! = ' !!'99C@nP/.4l@/8 !.4 49C@n/.4l..Z18հAttribute VB_Name = "Tools" Option Expl icit ' Force e8declarabof all variables. Func6ResetBorderColor ()hdrror uNext nScreen.A;veControl.=0 End `AjWhitej O9kvb$8SKm255 5LVAL JxX` 0 H` t0 > $$$` t  0 p( PxX` 0 H 0 p( PxX` 0 HL`0 LL ` tLL`P `p  HxX(0 0 LLh` tL`h LpLP0 LXLh $$$LH8L  ` t` tP `p  Hx(0 0 Xh$P `p  Hx(0 0 Xh@$$$8 `Lh $$`Pt`Pt$((8 `LVAL PdD   pP( xX` 0 Hh0`Pt`PtH !8` @ X H$`PtH`Pt0`Pt(H pX 0 P 4h(0` xP(H pX 0 P h(0` x "rH$` H$H$(0"H$`"P$`Pt`Ph8$X(H8$ p 0 PX (h0` x0`Pt8`Pt8hP$P$$X `T@x$ $8! X%!`Ph`Ph" %l "$P$! P$$`Ph`Ph$&$`%LVAL Li_VBA_MODULE<xe}߳ͳecHc$$$<$>H $>x$ $ $ $(H>  $X$ $ $>8Hl$l$l$8 h@'` P 0XH (0 pxLL<$H>$T$( $ $<$> $8`D ))H>0(Hl$>l$ $ $ $l$l$>@>(H> T$>>(H>(H> $$@><$<$(HLVAL O>(H>(H>>H>X $<$<$<$T$T$ $ $ H` p  H (0 <$<$<$>@ $<$<$@$T$@$ $ $>>` $ $>p> $ $ $>x> $<$ $ $> p@. @0 @ >8 H>0 8`l@4  @$$>  $ $>@ >> $ $ $>  H` p  H (0  H` p  H (0  > H` p  H (0 >  $$$  H` p  H (0 > LVAL ` 'L 'L 'L 'L0hfp` this function takes a local data table and refreshes it from the server table that is its' twinfZZZ ' 'Delete [' From ' Insert Into [' select 'From 'ZZ  B@De  B@$ ********** Execute Delete Statementd Dele   ].* from [ ];'" ********** Build Delete statement" ********** Build APPEND statement   ] select  .* from  ;'$ ********** Execute APPEND statementLocal data table Refreshed.A@' B@ B@  !$ "n(Xcalled on each field's "on exit" event - if the form is dirty, make the "SAVE" link purple like the others otherwise leave it greyed outP@ d ( b (x Search Form'(flZff( z ~A@ h B@h  C@h jAutoExecC@l0 $$Sorry, this field requires some data0Data needed here!A@ B@ Z !. $Fsg 'R N R  N N$$'P P0 P9 (Please enter numbers only in this field.0Data not within limits.A@ $B@sh NfP this function will center horizontally/vertically a control on a form or report? called vie F11 during design process, F11 is in AutoKeys macroZZZZZDZA******************** Set form and report names and error trappingL******************** Either of FormControl or ReportControl will have value,'******************LVAL Oi_VBA_PROJECT0a^  *\G{000204EF-0000-0000-C000-000000000046}#3.0#9#C:\Program Files\Common Files\Microsoft Shared\VBA\vba332.dll#Visual Basic For Applications*\G{4AFFC9A0-5F99-101B-AF4E-00AA003F0F07}#8.0#0#D:\Program Files\Microsoft Office\Office\MSACC8.OLB#Microsoft Access 8.0 Object Library*\G{00025E01-0000-0000-C000-000000000046}#4.0#0#C:\Program Files\Common Files\Microsoft Shared\DAO\dao350.dll#Microsoft DAO 3.51 Object Library ;@;߳ Tools 9d3b854089*D ͳ(x8uKĀh7Access  Close}mIDNameVBAWin16~Win32MacDAOHILITEk0Tools6 _Evaluatei`Ylzq TitleCasefrmÏForm FormControlF ReportControlhReport$L_fWidthfpL_cWidthD,L_cleftrL_nametBackEnd/FrontEnLVAL I H` p  H (0 > $$$> (>( > > >   ` p  HH0 (  ` p  HH0 ( $0  ` p  HH (> > > 8` @ q  `TD  ``TD  `TD  @>Hp 8 8@>$>xPp  @@9 @< @>`` t>0H@B , ,@Px0 p H  ( `hp0 0@ F 4 4@J < <@` t> 0 p( PLVAL h%&P`@ Px`"("0$$'t$ 8 `$@& &/0/p$$ '( XH ph(P8$ &`0 x0  8(%` t0$x( ($X*x(X*% 8$h H0X P`&( x(0 p&P%'%'(P)Hh 8$0X `p  P&0 (&x-j .((?Hh 8$0X `p  P&0 (&xp%(?Hh 8$0X `p  P&0 1(&x(?Hh 8$0X `p  P&0 1(&x x-P`4' ? `h`PtX.j`h/p`4@- ?/0LVAL Ri_VBA_MODULE<xe}߳ͳecHc$$$<$>H $>x$ $ $ $(H>  $X$ $ $>8Hl$l$l$8 h@'` P 0XH (0 pxLL<$H>$T$( $ $<$> $8`D ))H>0(Hl$>l$ $ $ $l$l$>@>(H> T$>>(H>(H> $$@><$<$(HLVAL S>(H>(H>>H>X $<$<$<$T$T$ $ $ H` p  H (0 <$<$<$>@ $<$<$@$T$@$ $ $>>` $ $>p> $ $ $>x> $<$ $ $> p@. @0 @ >8 H>0 8`l@4  @$$>  $ $>@ >> $ $ $>  H` p  H (0  H` p  H (0  > H` p  H (0 >  $$$  H` p  H (0 > LVAL T H` p  H (0 > $$$> (>( > > >   ` p  HH0 (  ` p  HH0 ( $0  ` p  HH (> > > 8` @ q  `TD  ``TD  `TD  @>Hp 8 8@>$>xPp  @@9 @< @>`` t>0H@B , ,@Px0 p H  ( `hp0 0@ F 4 4@J < <@` t> 0 p( PLVAL UxX` 0 H` t0 > $$$` t  0 p( PxX` 0 H 0 p( PxX` 0 HL`0 LL ` tLL`P `p  HxX(0 0 LLh` tL`h LpLP0 LXLh $$$LH8L  ` t` tP `p  Hx(0 0 Xh$P `p  Hx(0 0 Xh@$$$8 `Lh $$`Pt`Pt$((8 `LVAL VdD   pP( xX` 0 Hh0`Pt`PtH !8` @ X H$`PtH`Pt0`Pt(H pX 0 P 4h(0` xP(H pX 0 P h(0` x "rH$` H$H$(0"H$`"P$`Pt`Ph8$X(H8$ p 0 PX (h0` x0`Pt8`Pt8hP$P$$X `T@x$ $8! X%!`Ph`Ph" %l "$P$! P$$`Ph`Ph$&$`%LVAL W%&P`@ Px`"("0$$'t$ 8 `$@& &/0/p$$ '( XH ph(P8$ &`0 x0  8(%` t0$x( ($X*x(X*% 8$h H0X P`&( x(0 p&P%'%'(P)Hh 8$0X `p  P&0 (&x-j .((?Hh 8$0X `p  P&0 (&xp%(?Hh 8$0X `p  P&0 1(&x(?Hh 8$0X `p  P&0 1(&x x-P`4' ? `h`PtX.j`h/p`4@- ?/0LVAL Xp*/8$&% .t .&h/`< 8`(p x(. tp.-x$&/p0/ $ $`Pt $ $00(t`|p`Pt`PtX`PtX18`TD 8// / $ $ $2``D *5 @@@/1020  $`Pt2l/022  $ $ $2$`Pt1 4h24$`PtH3`Pt$$`Pt  $) P-(0h00xXH?p - `&.( 1.0 8$&22H34 $25 47`Ph(5`Pt`fh1`PhP3  $6623LVAL Y p375X4P(& H@1 ?&`50 1-h.008$X `- .0px(8`TD 88 `<@ i4 $`Ph5h8x 479`" 8`39 `Phh985D h9:`Pt:@T @P @LO 21 Px-?( ( 0 @1H00&p0 X7.h8$.&X7]7`-h;h;`Pt;@z <t `Pt`$t`Ph<h;h;;@;<p<``Ph0=H(0=0` ?P ?`Ph=@ @0 @ `z'?(?h @9LVAL Z5>x=x===`$t=`Ph`Ph>z `$h(?*?" 8`@X?? `Pt?H\ @0X @H A`Ph@2/>?>H;@PAx8 @( @$ PA0  @ PA`$h?hB`$hh8&8$&( X(10800-h H]px ?.9.@1P `-0 X77C"Cph h>@d D` @^ CCL `Ph HC< `$hC@, C( @ `t@Cq `Ph D( @l `t(DH=PF&8$&( X(10800-h H]p9 ?.x.@1P `-0 X77PF@D @4 F$ @" EvE  EvLVAL [F{@l PFPF0BF F(F0F8F@FF l `hGEEPFFM@h @d @T E`hG`hHpHpHHhFHXl t H(h @d `ftIT `ft@IhF`fthFpIl `ftI`h`ft`ftJ@I@IhJxGJ@l J(h @d K`fh K(T @@l (`ftK`fh`fh@`fh(`fh@K`fh@L8 @Lh `fh`fh@`fh(L d N`fhMHJKGMXT @D M(@ @< @l LVAL \Mh ZHA`fh8N(d `z`ftN@P N(l @h `fhN8f @d `fhxPhMMMI N !N8NpIxP(T MxPP `fh`QL HQ0Q0Q`QXL`Ql `fhRZ(d @T pRHRHRR`RR l R`fh(XTZ Zpd @T Z@D @4 -@$ X?SXTpv"hXTXx (@t @p XTl HVXGZ8h (@d @` @\ Z(X @T HU@D @4 @$ @ `U@ X*H-'LVAL ]V@TZl @X @V pVVT VZ(D Z4 x---`W`WxWZl W(W(X @V WWT XZ(D Z4 X.x(X`YZ@PpYpp @l @\ @YX @T YYPO YZZ(L (@< h///xZ([ZZN([xl @h @@X ([T @P `[Z[X `[LO x[([H [Z[^`8 @4 @0O \(, @( 0\\\]\l  X@@h @d @T @!l @LVAL ^^( ^h 8`@ (Y`b8h]h]]](d @T 2x_x___l `aH4"a0X `H @8 8a( @ @ @ @ @ 8a@ @ @ @ a8a (a@ @ @ Hb4 b b8b`b z `b`(t8(r l 56@cX@\ X @H hX`7ME 6B  x2B  5B  21- Force explicit declaration of all variables.ZshP  .LVAL _D .D @ D %R .F ;Database= N  F (T oB B F (V X F D !X B@Z 'LsP 'Z phhfsRcheck "dirty" property of form, to see if a field has been changed since last SaveH "HQ 'ahf 'f nC@pC@hn8fHBuilt-In Toolbars Available tB@vpfha ! .b u !.d te b "B@0frmToS-Network'[Case Number] = d '   B@  ( B@Blaccepts any variant valueconvert null to zeroreturns zero or non-null value $'~a '~hfHQff process the selection from a combo-box on the search form, to open the case form with selected recordF} ----------------------------------------------------------------------------------------------------------------------------DB} ----------------------------------------------------------------------------------------------------------------------------} ----------------------------------------------------------------------------------------------------------------------------} ----------------------------------------------------------------------------------------------------------------------------B} ----------------------------------------------------------------------------------------------------------------------------P} ----------------------------------------------------------------------------------------------------------------------------DB} ----------------------------------------------------------------------------------------------------------------------------2F shift the links box and links down the form for each page shifted to.:} ---------------------------------------------------------LVAL M-------------------------------------------------------------------j move controls up or down 3.6146 inches * 1440 twips for each shift. 1-2, 2-3, 3-2. from 1 to 3 or 3 to 1,# make the shift 7.2292 * 1440 twipsZHQHQ' U' 05 (' k HQ HQHQU' k HQ HQ(' HQU' HQ' k HQU' kh p  now shift the controls b !b! b !b( b !! b !( b !! b !( b ! ! b ! ( b B@^ usage : shiftlinks(frompage, topage), e.g. "x = shiftlinks(1,2)" for page1 to page2 move "\ .b b !^! b !^( b !`! b !`( b !d! b !d( b !! b !( h 0 frm.txtAddNew = frm.txtAddNew.Top + TwipsToMoveSe"S:\SECURITY\EDR\EDR-SERVERDATA.MDB'N H`P B@ZDZ $  $  'ect - sh(CYou are NOT connected to the Network server! - Log in and try againA@ iH $  $  've an $  $  '7\Deptsh(@Your drive mapping is not correct - Server07\DEPTDATA\SECURITY needs to be mapped as S: drive.A@ec'X' p ' S: drive there, but mapped incorrectly M p  not logged in to networko SeError Number : p, a problem of  p! A@s netw( p  No S: Drive mapped at all AYou do not have an S: drive mapped to Server07\Deptdata\SECURITY. FPlease connect this network resource, or call for assistance to do so.A@(''&if successful, set return code to zeroHLVAL a** other will be null !.6 !.8$*************** Get this form's name !!'BA form is active... B 6!'< !!'> < > !(a ok, then a Report is active.... !!'B B 8!'< !!'> < > !(h@h8s0( You have not selected a control!0Ooops!A@$A@sf ZZ'h !$Fsg ! N ! ! N$'j hF j$'jg j $F'h`F'hg T j 'T N T (hFcheck to see if first three chars have a space after them. If they do,.capitalize them alone, as in "ATE Investments" !$  8 *********** save back-end of the string *************** !$'d8 *********** chop out the front end ******************** !$'f8 *********** uppercase him ***************************** f$'f8 *********** and slap the two puppies back together **** f d (h f 'H !$Fsg ! , ! ! ,$'J HF J$'Jg J $F'H`F'Hg 2 J '2 , 2 (h f  !(fx  h  !(fP `@ !(f( Z ZZZDZZpZZZx'T'2f ! $ (ffP ' H Z'tr UserDistricttblUserstblUsers!UserNamLVAL be =   $ ' `  !B@fh ` hZ'N  D!\ $D!^ P'Nr` hX returns True Or False'%Usage: var = IsFormLoaded(FormName)4f!ZZZZ  '  ' '| this should print the form, the function/procname and the line number, the Access Error number when an error gets generated' P!'  Error generated in form :  Z Control :   Z Event :    Error Number :  A@^"h$ return -1 if form is open, 0 if not usage : isOpen(FormName)Z'  ^! " $^! 'r`"hX" f@"@"f##8$   B@Bse(ByVf##f(     B@dri&$&ZZ Z.P P!\"^.Ropen all forms V R!` V! b B@d# B@l##?l%   B@Bccured tB@ry to $8% | zA@ z | B@Deleted old fileA@^'xs%% &!  &!(A@$ B@Z^$ zA@' OldDb = "N:\SIRS\SIRS-DAT.MDB"''' |A@( |A@h'`'& tempDir = "N:\SIRS\TEMP\SIRS-DAT.MDB" Newdb = "N:\SIRS\SIRS-DATX.MDB" XAn error has occured. Please note the following and call Jim Hare/AOS320 DBA @ 5-4196 :  Number:  &!  Description:  &!( A@$h'-f'hZ $' ,   ,$  LVAL c ,$' , ' return max value of n..m passed- return min value of n..m passed foo = 199) example : foo = aMax(1,17,6,34,199,0,2)) example : foo = aMax(1,17,6,34,199,0,2)Z $' ,   ,$  ,$'h% , 'f% foo = 0%.Z %.  !X !)l).Z %.  !X !  !X ! is a member of  !(X(l(00( !(f((]Z* function to prin '/n/' copies of a reportf0+h=pass the report name and number of copies. does a simple loop3 there may be a more elegant way, but this works...sZ !.$ B@gh par ,) B@h B@hH- , Lthis f !  B@pi- You printed L copies of report  !A@$-p-:Please enter the number of copies desired, and click :Print Multiple Copies$'L L$ L-- !(f-7- !(fx-p- FPurpose: Set a form's OrderBy to the string. Reverse if already set.Return: True if success.>Usage: Command button above a column in a continuous form:+ Call SortForm(Me, "MyField")  . Reverse the order if already sorted this way. 4! 4!    DESC'h,  4(  4( Succeeded.'h`,fX,P,7l0Z Z' Z'Z_LVALkG"FQo0Dd"CIECGCB0,Ao44 @ @rptC4EoҰ@労@rptCurrentMonthTrips^@AAA55555553 @3Bg@r"q@rptCallDistributionSummary-PriorMonthZ䤥Q@\\\PPPPPPPD @1"@l@rptCallDistributionSummary-FYTDZ䤥c@VVVJJJJJJJ> @0rS@=m͊ @rptCallDistributionSummary-All_@KKK???????= @/@, @RptCall_Site_Dist_subQ@BBB66666664 @-9 @[" @qryTripPOCS-sub subreportZ䤥@LWF000'@nbPPDDDDDD8 ,Z @M} @qryTripPeople-sub subreportZ䤥@LWF000o@pdRRFFFFFF: *T3@_@qryMRLastMonthTrips-POCs subreportk@v@LWF000 ym[OCCCCCCA (dϋ@@a}@Windows API CallsZ䤥<<<<<<<<<<0 'u Q@ @Toolsp@222&&&&&&&$ @&MӔ@gaOӔ@MouseOver**********( %x@H@DocumentationY@:::......., @#CY@Z@ConstantsZ䤥4444444444( "$@ @320HDFunctions//////////-X X /h8) set filter on any form's control's valuen place call to this proc in the click event of a label - will filter on the form's current active control name/ !.4 4 !! = ' !!'99C@nP/.4l@/8 !.4 49C@n/.4l..Z18հAttribute VB_Name = "Tools" Option Expl icit ' Force e8declarabof all variables. Func6ResetBorderColor ()hdrror uNext nScreen.A;veControl.=0 End `AjWhitej O9kvb$8SKm255 5LVAL ei_VBA_PROJECT0a^  *\G{000204EF-0000-0000-C000-000000000046}#3.0#9#C:\Program Files\Common Files\Microsoft Shared\VBA\vba332.dll#Visual Basic For Applications*\G{4AFFC9A0-5F99-101B-AF4E-00AA003F0F07}#8.0#0#D:\Program Files\Microsoft Office\Office\MSACC8.OLB#Microsoft Access 8.0 Object Library*\G{00025E01-0000-0000-C000-000000000046}#4.0#0#C:\Program Files\Common Files\Microsoft Shared\DAO\dao350.dll#Microsoft DAO 3.51 Object Library ;@;߳ Tools a13b8540b4*D ͳc(x8uKĀh7Access  Close}mIDNameVBAWin16~Win32MacDAOHILITEk0Tools6 _Evaluatei`Ylzq TitleCasefrmÏForm FormControlF ReportControlhReport$L_fWidthfpL_cWidthD,L_cleftrL_nametBackEnd/FrontEnLVAL fd firstCharchar) numCopies OpenAllFormsdbsǂctr Containera docDocumentj CurrentDbS ContainersForms DocumentsacHiddenDoCmdƧOpenForm HideDBWindowlQEcho A_MACRO SelectObjects^ A_MENU_VER20 DoMenuItem&e HideToolBars% Application* SetOption CompactFileOldDb̟Newdb1tempDir FileCopy@Kill errCompactingvDBEngineQCompactDatabaseErroNumber-vbCrLf Description msgboxR CancelEventURCenterItScreenI ActiveForm> ActiveReportOCenterit_Error ActiveControlyBeepProperNERIsNullUCase5 ChrK~ResetBorderColor% BorderColorResetBorderWhiteYvbWhite^KSetBorderColor5Proper{ vbProperCaseStrConvx' cbDropDowncDropdownIsOpennFrmNamexoCount0vFormNameIfCloseacFormfOpenacNormal acFormAdd acWindowNormall ErrorHandlerOerrFormvbOKOnlyQuit9aMaxq'arr utempRaMin( PrintUsersMwm Workspace3ulUser WorkspacesUdUsers^zPrintUsersAndGroupsg^GroupGroupsSetBorderColorGreenlrSetBorderYellow  PrintCopiesM1rptCurrentReportInputBox  acViewNormal R OpenReportSortFormV^sOrderBy OrderByOn&OrderBy SetFilter*ValueKFilter;FilterOn&Requery RemoveFilter<   dir^Z0* pHdHILITE$@T=j ;@; J"< DAO>DAOP *\G{00025PELVAL9   @  @tu}oum`vworpwiwujsvsrbvvxaufsruwtu}wujsrwifuvvxavxaufsruwtu}wujssfrsmfvxavxaufsruwtu}wujssrbvvxavxaufsruwuswb`mm,djvwu,YXVuswb`mm,vjwf,djvw,vxauswb`mmdjvwujaxwjrpvxoo`u}`mmuswb`mmdjvwujaxwjrpvxoo`u}g}wduswb`mmdjvwujaxwjrpvxoo`u}owduswb`mmdjvwujaxwjrpvxoo`u}sujruorpwiuswbxuufpworpwiwujsvuswdvu,b`mmuswdvu,b`mm,rphrjphuswdvu,b`mm,u`phfuswdvu,vjwf srbuswdvu,wujsv,`mmuswdvu,wujsv,u`phfuswidb`mmdjvwujaxwjrphu`siuswidsirpfmrhuswidorpwim}pf{usworpwim} usworpwim}vjwf usworpwim}vjwfW uswoub`mmva}surkfbwa}sfuvrpbrxpw uswoub`mmva}vjwfa}surkfbwa}srbbrxpw uswoum`vworpwib`mmvuswoum`vworpwib`mmvbmrvfduswoum`vworpwib`mmva}sfuvrpuswoum`vworpwiwujsvuswouorpwim}vjwfvw`wvuswouorpwim}vw`wvuswpbrxpwuswrxwuswsirpfmrhfpwu}zjf{b`mmuswsurssursfuw}mjvwuswvjwf,surauswwujsjpgr`mmuswwujsufsruwuswwujsva}surkfbwuswwujsva}vjwf|uswwujsufsruw~usws`hfgrrwfum~usws`hfgrrwfus~usws`hfif`dfum~usws`hfif`dfus`xwrf|fb`xwrlf}v`dojpki`ufd`w`a`vfvgruovordxmfv ufm`wjrpvijsvufsruwv vbujswv v}vufm w`amfv`rvYVV01-0C  0046}#4.0#0#C:\Program Files\@Common Microsoft Shared\w\dao350`.dll# 3.51 Object LibrXaryH߳Tools _VBA_MODULE2VBm_MoDULED H1c ,/ͳ!+LVAL 6i_VBA_MODULE<xe}߳ͳecHc$$$<$>H $>x$ $ $ $(H>  $X$ $ $>8Hl$l$l$8 h@'` P 0XH (0 pxLL<$H>$T$( $ $<$> $8`D ))H>0(Hl$>l$ $ $ $l$l$>@>(H> T$>>(H>(H> $$@><$<$(HLVAL ip*/8$&% .t .&h/`< 8`(p x(. tp.-x$&/p0/ $ $`Pt $ $00(t`|p`Pt`PtX`PtX18`TD 8// / $ $ $2``D *5 @@@/1020  $`Pt2l/022  $ $ $2$`Pt1 4h24$`PtH3`Pt$$`Pt  $) P-(0h00xXH?p - `&.( 1.0 8$&22H34 $25 47`Ph(5`Pt`fh1`PhP3  $6623LVAL j p375X4P(& H@1 ?&`50 1-h.008$X `- .0px(8`TD 88 `<@ i4 $`Ph5h8x 479`" 8`39 `Phh985D h9:`Pt:@T @P @LO 21 Px-?( ( 0 @1H00&p0 X7.h8$.&X7]7`-h;h;`Pt;@z <t `Pt`$t`Ph<h;h;;@;<p<``Ph0=H(0=0` ?P ?`Ph=@ @0 @ `z'?(?h @9LVAL k5>x=x===`$t=`Ph`Ph>z `$h(?*?" 8`@X?? `Pt?H\ @0X @H A`Ph@2/>?>H;@PAx8 @( @$ PA0  @ PA`$h?hB`$hh8&8$&( X(10800-h H]px ?.9.@1P `-0 X77C"Cph h>@d D` @^ CCL `Ph HC< `$hC@, C( @ `t@Cq `Ph D( @l `t(DH=PF&8$&( X(10800-h H]p9 ?.x.@1P `-0 X77PF@D @4 F$ @" EvE  EvLVAL lF{@l PFPF0BF F(F0F8F@FF l `hGEEPFFM@h @d @T E`hG`hHpHpHHhFHXl t H(h @d `ftIT `ft@IhF`fthFpIl `ftI`h`ft`ftJ@I@IhJxGJ@l J(h @d K`fh K(T @@l (`ftK`fh`fh@`fh(`fh@K`fh@L8 @Lh `fh`fh@`fh(L d N`fhMHJKGMXT @D M(@ @< @l LVAL mMh ZHA`fh8N(d `z`ftN@P N(l @h `fhN8f @d `fhxPhMMMI N !N8NpIxP(T MxPP `fh`QL HQ0Q0Q`QXL`Ql `fhRZ(d @T pRHRHRR`RR l R`fh(XTZ Zpd @T Z@D @4 -@$ X?SXTpv"hXTXx (@t @p XTl HVXGZ8h (@d @` @\ Z(X @T HU@D @4 @$ @ `U@ X*H-'LVAL nV@TZl @X @V pVVT VZ(D Z4 x---`W`WxWZl W(W(X @V WWT XZ(D Z4 X.x(X`YZ@PpYpp @l @\ @YX @T YYPO YZZ(L (@< h///xZ([ZZN([xl @h @@X ([T @P `[Z[X `[LO x[([H [Z[^`8 @4 @0O \(, @( 0\\\]\l  X@@h @d @T @!l @LVAL o^( ^h 8`@ (Y`b8h]h]]](d @T 2x_x___l `aH4"a0X `H @8 8a( @ @ @ @ @ 8a@ @ @ @ a8a (a@ @ @ Hb4 b b8b`b z `b`(t8(r l 56@cX@\ X @H hX`7ME 6B  x2B  5B  21- Force explicit declaration of all variables.ZshP  .LVAL pD .D @ D %R .F ;Database= N  F (T oB B F (V X F D !X B@Z 'LsP 'Z phhfsRcheck "dirty" property of form, to see if a field has been changed since last SaveH "HQ 'ahf 'f nC@pC@hn8fHBuilt-In Toolbars Available tB@vpfha ! .b u !.d te b "B@0frmToS-Network'[Case Number] = d '   B@  ( B@Blaccepts any variant valueconvert null to zeroreturns zero or non-null value $'~a '~hfHQff process the selection from a combo-box on the search form, to open the case form with selected recordF} ----------------------------------------------------------------------------------------------------------------------------DB} ----------------------------------------------------------------------------------------------------------------------------} ----------------------------------------------------------------------------------------------------------------------------} ----------------------------------------------------------------------------------------------------------------------------B} ----------------------------------------------------------------------------------------------------------------------------P} ----------------------------------------------------------------------------------------------------------------------------DB} ----------------------------------------------------------------------------------------------------------------------------2F shift the links box and links down the form for each page shifted to.:} ---------------------------------------------------------LVAL q-------------------------------------------------------------------j move controls up or down 3.6146 inches * 1440 twips for each shift. 1-2, 2-3, 3-2. from 1 to 3 or 3 to 1,# make the shift 7.2292 * 1440 twipsZHQHQ' U' 05 (' k HQ HQHQU' k HQ HQ(' HQU' HQ' k HQU' kh p  now shift the controls b !b! b !b( b !! b !( b !! b !( b ! ! b ! ( b B@^ usage : shiftlinks(frompage, topage), e.g. "x = shiftlinks(1,2)" for page1 to page2 move "\ .b b !^! b !^( b !`! b !`( b !d! b !d( b !! b !( h 0 frm.txtAddNew = frm.txtAddNew.Top + TwipsToMoveSe"S:\SECURITY\EDR\EDR-SERVERDATA.MDB'N H`P B@ZDZ $  $  'ect - sh(CYou are NOT connected to the Network server! - Log in and try againA@ iH $  $  've an $  $  '7\Deptsh(@Your drive mapping is not correct - Server07\DEPTDATA\SECURITY needs to be mapped as S: drive.A@ec'X' p ' S: drive there, but mapped incorrectly M p  not logged in to networko SeError Number : p, a problem of  p! A@s netw( p  No S: Drive mapped at all AYou do not have an S: drive mapped to Server07\Deptdata\SECURITY. FPlease connect this network resource, or call for assistance to do so.A@(''&if successful, set return code to zeroHLVAL r 'L 'L 'L 'L0hfp` this function takes a local data table and refreshes it from the server table that is its' twinfZZZ ' 'Delete [' From ' Insert Into [' select 'From 'ZZ  B@De  B@$ ********** Execute Delete Statementd Dele   ].* from [ ];'" ********** Build Delete statement" ********** Build APPEND statement   ] select  .* from  ;'$ ********** Execute APPEND statementLocal data table Refreshed.A@' B@ B@  !$ "n(Xcalled on each field's "on exit" event - if the form is dirty, make the "SAVE" link purple like the others otherwise leave it greyed outP@ d ( b (x Search Form'(flZff( z ~A@ h B@h  C@h jAutoExecC@l0 $$Sorry, this field requires some data0Data needed here!A@ B@ Z !. $Fsg 'R N R  N N$$'P P0 P9 (Please enter numbers only in this field.0Data not within limits.A@ $B@sh NfP this function will center horizontally/vertically a control on a form or report? called vie F11 during design process, F11 is in AutoKeys macroZZZZZDZA******************** Set form and report names and error trappingL******************** Either of FormControl or ReportControl will have value,'******************LVAL s** other will be null !.6 !.8$*************** Get this form's name !!'BA form is active... B 6!'< !!'> < > !(a ok, then a Report is active.... !!'B B 8!'< !!'> < > !(h@h8s0( You have not selected a control!0Ooops!A@$A@sf ZZ'h !$Fsg ! N ! ! N$'j hF j$'jg j $F'h`F'hg T j 'T N T (hFcheck to see if first three chars have a space after them. If they do,.capitalize them alone, as in "ATE Investments" !$  8 *********** save back-end of the string *************** !$'d8 *********** chop out the front end ******************** !$'f8 *********** uppercase him ***************************** f$'f8 *********** and slap the two puppies back together **** f d (h f 'H !$Fsg ! , ! ! ,$'J HF J$'Jg J $F'H`F'Hg 2 J '2 , 2 (h f  !(fx  h  !(fP `@ !(f( Z ZZZDZZpZZZx'T'2f ! $ (ffP ' H Z'tr UserDistricttblUserstblUsers!UserNamLVAL te =   $ ' `  !B@fh ` hZ'N  D!\ $D!^ P'Nr` hX returns True Or False'%Usage: var = IsFormLoaded(FormName)4f!ZZZZ  '  ' '| this should print the form, the function/procname and the line number, the Access Error number when an error gets generated' P!'  Error generated in form :  Z Control :   Z Event :    Error Number :  A@^"h$ return -1 if form is open, 0 if not usage : isOpen(FormName)Z'  ^! " $^! 'r`"hX" f@"@"f##8$   B@Bse(ByVf##f(     B@dri&$&ZZ Z.P P!\"^.Ropen all forms V R!` V! b B@d# B@l##?l%   B@Bccured tB@ry to $8% | zA@ z | B@Deleted old fileA@^'xs%% &!  &!(A@$ B@Z^$ zA@' OldDb = "N:\SIRS\SIRS-DAT.MDB"''' |A@( |A@h'`'& tempDir = "N:\SIRS\TEMP\SIRS-DAT.MDB" Newdb = "N:\SIRS\SIRS-DATX.MDB" XAn error has occured. Please note the following and call Jim Hare/AOS320 DBA @ 5-4196 :  Number:  &!  Description:  &!( A@$h'-f'hZ $' ,   ,$  LVAL u ,$' , ' return max value of n..m passed- return min value of n..m passed foo = 199) example : foo = aMax(1,17,6,34,199,0,2)) example : foo = aMax(1,17,6,34,199,0,2)Z $' ,   ,$  ,$'h% , 'f% foo = 0%.Z %.  !X !)l).Z %.  !X !  !X ! is a member of  !(X(l(00( !(f((]Z* function to prin '/n/' copies of a reportf0+h=pass the report name and number of copies. does a simple loop3 there may be a more elegant way, but this works...sZ !.$ B@gh par ,) B@h B@hH- , Lthis f !  B@pi- You printed L copies of report  !A@$-p-:Please enter the number of copies desired, and click :Print Multiple Copies$'L L$ L-- !(f-7- !(fx-p- FPurpose: Set a form's OrderBy to the string. Reverse if already set.Return: True if success.>Usage: Command button above a column in a continuous form:+ Call SortForm(Me, "MyField")  . Reverse the order if already sorted this way. 4! 4!    DESC'h,  4(  4( Succeeded.'h`,fX,P,7l0Z Z' Z'Z_LVALkIdH´Kwdh!M`GdKwd5=AKĀ!M`GdD=AKĀ"M`Gd(ԽvKĀH"M`Gdh#"M`Gdd wP] Gd;"M`Gd D"M`Gd( Q"M`GdH Gdh GdH AIqPP] ( Gd {"M`Gd h PP] "M`Gd( GdH Gdh PP] PP]  PP] ( Gd h Gd *ijQd( PP]H PP]h BMkRd \^9nUd  ^d ( 9d H 6d  h 6d( Gd(H 9dh 7d X X /h8) set filter on any form's control's valuen place call to this proc in the click event of a label - will filter on the form's current active control name/ !.4 4 !! = ' !!'99C@nP/.4l@/8 !.4 49C@n/.4l..Z18հAttribute VB_Name = "Tools" Option Expl icit ' Force e8declarabof all variables. Func6ResetBorderColor ()hdrror uNext nScreen.A;veControl.=0 End `AjWhitej O9kvb$8SKm255 5LVAL xi_VBA_PROJECTa^  *\G{000204EF-0000-0000-C000-000000000046}#3.0#9#C:\Program Files\Common Files\Microsoft Shared\VBA\vba332.dll#Visual Basic For Applications*\G{4AFFC9A0-5F99-101B-AF4E-00AA003F0F07}#8.0#0#D:\Program Files\Microsoft Office\Office\MSACC8.OLB#Microsoft Access 8.0 Object Library*\G{00025E01-0000-0000-C000-000000000046}#4.0#0#C:\Program Files\Common Files\Microsoft Shared\DAO\dao350.dll#Microsoft DAO 3.51 Object Library @; ߳Module1 a13b8540b4*DͳcForm_Form1 aa3b8540fa*D 5(3H(x8uKĀ8uKĀ@8Access  Close}mIDNameVBAWin16~Win32MacDAOHILITEk0Tools6 _Evaluatei`Ylzq TitleCasefrmÏForm FormControlF RepoLVAL rtControlhReport$L_fWidthfpL_cWidthD,L_cleftrL_nametBackEnd/FrontEnd firstCharchar) numCopies OpenAllFormsdbsǂctr Containera docDocumentj CurrentDbS ContainersForms DocumentsacHiddenDoCmdƧOpenForm HideDBWindowlQEcho A_MACRO SelectObjects^ A_MENU_VER20 DoMenuItem&e HideToolBars% Application* SetOption CompactFileOldDb̟Newdb1tempDir FileCopy@Kill errCompactingvDBEngineQCompactDatabaseErroNumber-vbCrLf Description msgboxR CancelEventURCenterItScreenI ActiveForm> ActiveReportOCenterit_Error ActiveControlyBeepProperNERIsNullUCase5 ChrK~ResetBorderColor% BorderColorResetBorderWhiteYvbWhite^KSetBorderColor5Proper{ vbProperCaseStrConvx' cbDropDowncDropdownIsOpennFrmNamexoCount0vFormNameIfCloseacFormfOpenacNormal acFormAdd acWindowNormall ErrorHandlerOerrFormvbOKOnlyQuit9aMaxq'arr utempRaMin( PrintUsersMwm Workspace3ulUser WorkspacesUdUsers^zPrintUsersAndGroupsg^GroupGroupsSetBorderColorGreenlrSetBorderYellow  PrintCopiesM1rptCurrentReportInputBox  acViewNormal R OpenReportSortFormV^sOrderBy OrderByOn&OrderBy SetFilter*ValueKFilter;FilterOn&Requery RemoveFilterModule1b Form_Form16Command4_ClickIZErr_Command4_ClickExit_Command4_Click?!HLVAL zi_VBA_PROJECTAa^  *\G{000204EF-0000-0000-C000-000000000046}#3.0#9#C:\Program Files\Common Files\Microsoft Shared\VBA\vba332.dll#Visual Basic For Applications*\G{4AFFC9A0-5F99-101B-AF4E-00AA003F0F07}#8.0#0#D:\Program Files\Microsoft Office\Office\MSACC8.OLB#Microsoft Access 8.0 Object Library*\G{00025E01-0000-0000-C000-000000000046}#4.0#0#C:\Program Files\Common Files\Microsoft Shared\DAO\dao350.dll#Microsoft DAO 3.51 Object Library @; ߳Module1 a13b8540b4*Dͳc(x8uKĀ7Access  Close}mIDNameVBAWin16~Win32MacDAOHILITEk0Tools6 _Evaluatei`Ylzq TitleCasefrmÏForm FormControlF ReportControlhReport$L_fWidthfpL_cWidthD,L_cleftrL_nametBackEnd/FroLVAL {ntEnd firstCharchar) numCopies OpenAllFormsdbsǂctr Containera docDocumentj CurrentDbS ContainersForms DocumentsacHiddenDoCmdƧOpenForm HideDBWindowlQEcho A_MACRO SelectObjects^ A_MENU_VER20 DoMenuItem&e HideToolBars% Application* SetOption CompactFileOldDb̟Newdb1tempDir FileCopy@Kill errCompactingvDBEngineQCompactDatabaseErroNumber-vbCrLf Description msgboxR CancelEventURCenterItScreenI ActiveForm> ActiveReportOCenterit_Error ActiveControlyBeepProperNERIsNullUCase5 ChrK~ResetBorderColor% BorderColorResetBorderWhiteYvbWhite^KSetBorderColor5Proper{ vbProperCaseStrConvx' cbDropDowncDropdownIsOpennFrmNamexoCount0vFormNameIfCloseacFormfOpenacNormal acFormAdd acWindowNormall ErrorHandlerOerrFormvbOKOnlyQuit9aMaxq'arr utempRaMin( PrintUsersMwm Workspace3ulUser WorkspacesUdUsers^zPrintUsersAndGroupsg^GroupGroupsSetBorderColorGreenlrSetBorderYellow  PrintCopiesM1rptCurrentReportInputBox  acViewNormal R OpenReportSortFormV^sOrderBy OrderByOn&OrderBy SetFilter*ValueKFilter;FilterOn&Requery RemoveFilterModule1b<  dira]0* pHdHILITE$@T=j @; J"< DAO>DAOP LVAL@@ov}vdaov}vdawrrmvwrrmvCommand278_ClickdExit_Command278_Click5Form_frmLog_UpdateS Form_Current Form_TimerInfo PreventedPInfo_Prevented_ClickNow%Form_frmName_EntryCommand8_ClickIErr_Command8_ClickMyFormFormScreenI ActiveForm>acTable SelectObjects^acFormExit_Command8_ClickForm_frmName_EntrysubCommand5_ClickYErr_Command5_Click$Exit_Command5_ClickOYForm_frmProject*Form_frmQuickFixPCommand6_ClickiErr_Command6_Clickv1 acToolbarYes~5Exit_Command6_ClickCommand7_Click frmQuickFix frmLog_EntryOP_DSR_Update Subform frmLog_Update&Command7 acToolbarNopYCommand8Form_frmReport_Tab_SiteC List83_Click Form_frmReport_Tab_Trips7Command67_ClickErr_Command67_ClickExit_Command67_Click:Command77_ClickErr_Command77_ClickExit_Command77_ClickCommand78_ClickdErr_Command78_ClickExit_Command78_ClickWForm_frmRpt_DatesErr_Command7_ClickiExit_Command7_ClickForm_frmRpt_Dates2ǮForm_frmRpt_Dates3ȮForm_frmTrip_EntryProjectUpdateBf sProjectNameRctlProjectGroup7ControlctlOther ProjectUpdate& CAT1_Click>Cat IICAT1XuCat IŚCAT2_ECAT2_N CAT2_E_Click4N CAT2_N_ClickJ CAT3_Click:CAT3ZuCa*\G{00025PE01-0C  0046}#4.0#0#C:\Program Files\@Common Microsoft Shared\w\dao350`.dll# 3.51 Object LibrXaryH߳ Module1 _VBA_MODULE2VBn_MpDU LE H1c ,0ͳ!+LVALN            NameTypeVersionReplicationVersionFlagsModuleFormTypeInfoIndex1i_VBA_MODULEx߳5  (SLS S<N0{7538B5EE-97E5-11D5-B2A0-00104BC5C480}x($ 00ME "  08 @HX `pxp0 ` JB@BturHu@ 8 r!xA@zA lQAttribute VB_Name = "Form_ 1" Bas0{7538B5EE-97E5-11D5-B2A0-00104BC5C480} |CreatablTrue PredecdlaId"E xposeFals @TemplateDeriv%Customiz$Optio@n Comp@ fDTv  DAOP *\G{00025PE01-0C  0046}#4.0#0#C:\Program Files\@Common Microsoft Shared\w\dao350`.dll# 3.51 Object LibrXaryH߳ Module1 _VBA_MODULE2VBn_MpDU LE H1c ,0ͳ!E+ Form_=83 85"(BLVAL i_VBA_PROJECTa^  *\G{000204EF-0000-0000-C000-000000000046}#3.0#9#C:\Program Files\Common Files\Microsoft Shared\VBA\vba332.dll#Visual Basic For Applications*\G{4AFFC9A0-5F99-101B-AF4E-00AA003F0F07}#8.0#0#D:\Program Files\Microsoft Office\Office\MSACC8.OLB#Microsoft Access 8.0 Object Library*\G{00025E01-0000-0000-C000-000000000046}#4.0#0#C:\Program Files\Common Files\Microsoft Shared\DAO\dao350.dll#Microsoft DAO 3.51 Object Library @; ߳Module1 a13b8540b4*DͳcForm_Form1 a63b8540dd*D 5(H(x8uKĀ8uKĀ@8Access  Close}mIDNameVBAWin16~Win32MacDAOHILITEk0Tools6 _Evaluatei`Ylzq TitleCasefrmÏForm FormControlF RepoLVAL rtControlhReport$L_fWidthfpL_cWidthD,L_cleftrL_nametBackEnd/FrontEnd firstCharchar) numCopies OpenAllFormsdbsǂctr Containera docDocumentj CurrentDbS ContainersForms DocumentsacHiddenDoCmdƧOpenForm HideDBWindowlQEcho A_MACRO SelectObjects^ A_MENU_VER20 DoMenuItem&e HideToolBars% Application* SetOption CompactFileOldDb̟Newdb1tempDir FileCopy@Kill errCompactingvDBEngineQCompactDatabaseErroNumber-vbCrLf Description msgboxR CancelEventURCenterItScreenI ActiveForm> ActiveReportOCenterit_Error ActiveControlyBeepProperNERIsNullUCase5 ChrK~ResetBorderColor% BorderColorResetBorderWhiteYvbWhite^KSetBorderColor5Proper{ vbProperCaseStrConvx' cbDropDowncDropdownIsOpennFrmNamexoCount0vFormNameIfCloseacFormfOpenacNormal acFormAdd acWindowNormall ErrorHandlerOerrFormvbOKOnlyQuit9aMaxq'arr utempRaMin( PrintUsersMwm Workspace3ulUser WorkspacesUdUsers^zPrintUsersAndGroupsg^GroupGroupsSetBorderColorGreenlrSetBorderYellow  PrintCopiesM1rptCurrentReportInputBox  acViewNormal R OpenReportSortFormV^sOrderBy OrderByOn&OrderBy SetFilter*ValueKFilter;FilterOn&Requery RemoveFilterModule1b Form_Form16Command4_ClickIZErr_Command4_ClickExit_Command4_Click?!HLVALQ,Command5Image9gBox43Text39%sBox46Label47Label48 Command49"Label50Label54Label55Label56Image58GErr_LoadQuit9vbOKOnly vbCritical+}Label1, Call_Id_Label Date_Labelp Site_LabelY Project_Label[tLine61Image46GLabel79' Command82Label38Label39Label40Label52Label78& Command37 Command72Box73 Command75Label76$Activate| Deactivatej Command2785Image280˘Label281Label282Label283Label284Label285Label286PTR__ PTR_Opened PTR_PreventedPTR_Opened_ClickJ PTR Openedd PTR Prevented.PTR #PTR_Prevented_ClickExpr1rExpr2r DARC LevelܘForm_frmAbout1Command9_Click\Err_Command9_Click'Exit_Command9_ClickRXCommand10_Click%Err_Command10_ClickExit_Command10_ClicktCommand14_Click$Err_Command14_Click(Exit_Command14_ClickdembCarXIIfzCommand23_ClickErr_Command23_ClickExit_Command23_Click-Command24_Click%Err_Command24_ClickExit_Command24_Click(eCommand28_Click$Err_Command28_ClickExit_Command28_Click+dCommand29_Click\Err_Command29_Click Exit_Command29_Click;Err_Command49_Click!Exit_Command49_ClickForm_frmAbout11ѰForm_frmAI_AttendT List2_ClickProjectC_ClickForm_frmAI_Attend_subO`   $dir}0* pHdHILITE$@T=j @; J"< DAO>DAOP *\G{00025PE01-0C  0046}#4.0#0#C:\Program Files\@Common Microsoft Shared\w\dao350`.dll# 3.51 Object LibrXaryH߳ Module1 _VBA_MODULE2VBn_MpDU LE H1c ,0ͳ!E+ Form_=8 85"(BCLVALON            NameTypeVersionReplicationVersionFlagsModuleFormTypeInfoIndex1i_VBA_MODULE8uKĀ8uKĀx߳53 (SLS S<N0{7538B5EE-97E5-11D5-B2A0-00104BC5C480}($ `0ro $ 9. $ $00ME "   08 @HX `pxp0 ` JB@BturHu@ 8 r!xA@zA lQAttribute VB_Name = "Form_ 1" Bas0{7538B5EE-97E5-11D5-B2A0-00104BC5C480} |CreatablTrue PredecdlaId"E xposeFals @TemplateDeriv%Customiz$Optio@n Comp@ fDTv   Date_ClickDesc_of_Outcome_Click_B Command83Command83_Click8Err_Command83_Click/Exit_Command83_Click!Command84_Click Err_Command84_Clickit_Command84_Click\Exit_Command84_ClickY Name_Click%L Outcome_Clickr Project_ClickRevisits_Clickfh Text69_ClickJ Text71_ClickmForm_frmFilter_Updates1fForm_frmHD_Main1oLabel3,Form_frmHD_MainBForm_frmID_ValuesForm_frmLog_Entry1-Form_frmLog_Entry_Test;Command162_ClickIPOC_AfterUpdate./ QryLogPOCForm_frmLog_Update_FormMCommand152_Click-IErr_Command152_Click_ Exit_Command152_Click~Command153_ClickErr_Command153_ClickQExit_Command153_ClickForm_frmLog_Update_Form_UShowAllRecordsForm_frmLog_Update_ReadzForm_frmNew_Updates2Dk ItemId_EnterSendKeys06=Babce gh,i j+ kegO @Ariald2hgh MS Sans Serifm45`Detailm4567U`)abFjText0=SetBorderColor()=ResetBorderWhite()m4567U`)abFjkText2=SetBorderColor()=ResetBorderWhite()m4567U`)aVbFjkText3=SetBorderColor()=ResetBorderWhite()h 1U`UabciCommand4 Close Form[Event Procedure]LVAL  gruo,gruoWordxmfWov}vdaov}vdaov}vdawrrmvwrrmvommand261_ClickHErr_Command261_ClickzExit_Command261_Click(Form_frmRIF_ResOption11dOption13dForm_frmRpt_Dates1ƮForm_frmRpt_Dates31Form_frmTrip_Update1Form_frmUpdates2Form_frmUpdates4Form_frmUpdatez Form_Help_11]Form_P_tblTrip_name1 SForm_P_tblTrip_name_U1`Form_QRyRiF_List subformaCommand16_ClickErr_Command16_ClickhRIF_IDcExit_Command16_Click! Form_DblClick$RIF_ID_DblClicky acViewPreview2Command17_ClickErr_Command17_ClickExit_Command17_ClickForm_QRyRiF_List subform25Form_R_frmDef_SelForm_R_FrmRDS500_Def:Combo46_BeforeUpdate2;Combo46_GotFocusrFixedTable_ClickО FixedTableQ!Literal4TableVariablePointer1u Global_Click6 NotConvertedl Literal_Click Local_Click Mod_ClickܘNotConverted_Click8 Pointer_ClickmProcessor_AfterUpdatexProcessor_ClickP Processor_GotFocus7 Table_ClickZ.Variable_ClickLCy_ClickCommand31_ClicknErr_Command31_Click2Exit_Command31_Click^Form_R_frmRDS500_Def_Shell Err_y_Click׾ Exit_y_ClickForm_R_FrmRDS500_Def-pssyForm_R_frmRDS500_Proc_RoutListCombo21_AfterUpdateSForm_R_frmRDS500_Use_Shell Nroutine_ChangeBList13(RunMacroXCommand26_Click; Combo21_ClickECombo21_GotFocusFormNameICommand19_Click\Err_Command19_ClickExit_Commandͬ8uKĀDetailmText0mText2mText3h Command4LVALQ]Zx@ R            NameTypeVersionReplicationVersionFlagsModuleFormTypeInfoIndex1  {6S @{6S @AccessLayout----------+ gO @**R @Form1&&&&&&&&&&$ -iG @zLL @Module1p@444(((((((& @ @ @ @ @SysRel''''''''''%  @ @ @ @Modules((((((((((&  @ @ @ @Scripts((((((((((&  @ @ @ @Reports((((((((((&  @ @ @ @Forms&&&&&&&&&&$  @ @ @ @MSysModules,,,,,,,,,,*  @ @ @ @MSysModules2----------+  4 @ @4 @ @UserDefined,,,,,,,,,,*  4 @ @4 @ @ʾForm1Module18d