ࡱ> t  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrsuvwxyz{|}~Root Entry FUEPWorkbook'MailEnvelope_VBA_PROJECT_CUR"%#UEUE  !"#%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNPQRSTUVWYZ[]^_`abcdefghijklmnopqrstuvwxyz{|}~FZZZZGeoAccessAssistant.xls##rU  a aI) 9y a 4 ) `` I '@\pkratner Ba= ThisWorkbook=xx;T$8X@"1Arial1Arial1Arial1Arial"$"#,##0_);\("$"#,##0\)!"$"#,##0_);[Red]\("$"#,##0\)""$"#,##0.00_);\("$"#,##0.00\)'""$"#,##0.00_);[Red]\("$"#,##0.00\)7*2_("$"* #,##0_);_("$"* \(#,##0\);_("$"* "-"_);_(@_).))_(* #,##0_);_(* \(#,##0\);_(* "-"_);_(@_)?,:_("$"* #,##0.00_);_("$"* \(#,##0.00\);_("$"* "-"??_);_(@_)6+1_(* #,##0.00_);_(* \(#,##0.00\);_(* "-"??_);_(@_)                + ) , *   " " `Sheet1861500115005150091501015012150241502515033150371504215044150501505715066150681507415084150891509015102151061510815116151221512615129151311513215136zip" L[ '@ gg-#=).M49]?DmJO}U[`fk/qv?|ǁO׌_o'7GWgw y  dMbP?_*+%"??U}  }                  !"#$B#@BS#?  B#?  `#@  #@  #? ~ @  B#? ~ ?Bj#?  ~  ?B#?  ~  @#?  ~  @!#?  ~  ?  #?  ~  ?  B#@  ~  ?  #@  ~  ?  #@   ~  ?  p#@   ~  ?  #?   ~  ?   B#@   ~  @   4#@   ~  @   $@  ~  @   $?  ~  @   1$@  ~  ?   $?  ~  @   $@  ~  @  -$?  ~  @   B$? ~ ? !:$? ! ~ ! @ ! "$? " ~ " ? " #$ A? # ~ # @ # $B$? $ ~ $ ? $ D l <@<<<JJJJJJJJJJ@@@@@@@@@%&'()*+,-./0123456789:;<=>?@ABCD%b$? % ~ % ? % &$? & ~ & ? & '$? ' ~ ' ? ' (>$? ( ~ ( ? ( )Be@$? ) *A$?+TH$?,J$?-6M$?.M$@/B O$?0R$?1´R$@2BS$@3T$?4%U$?5B^V$@6–W$?7Bz$(@8$?9B$@:$@;B2$@<j$?=$?>OA??Ԡ$?@E$?A$?BB$@Cs$?DcA?Dl@@@@$EFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdEB$@FNB$?GU$@HB$?I$?JB$@K%@LB %@Mh%@NB=%?O%?Pu%?QB2%@@R28%?SBk9%@TB;%?U>%?VZA%@WE%@XII%?YK%"@ZWL%@[P%@\ S%?]T%@^B(Y%?_Y%?`Z%?a5\%?bn]%@cB_%?d_%?D@lefghijklmnopqrstuvwxyz{|}~eB{`%?f$d%@gBl%?hB!o%"@i;u%?j4%?kы%?lBގ%?m\%?ni%.@o:%?p%?qY%?rB*%@s4%?tBк%@uBA%@v%@w%?xBv%?y®%?zB%@{-%?|%?}G%?~B3%?A?B%@ %?‚%@9&?B &?D@l &@B<&&(@&&@B4&@6&?B5<&?<&?B>&?A&?1G&@BjH&?¢I&?M&@V'N&?BEc&@ʦc&?Be&?_i&?B m&?Bq&@#s&?s&?”u&?iw&@B>y&@K|&@~&?&@ׄ&?«&?BN&@&?D@l&@&?Bֳ&?&?&?&@T&@&?&?C&?6-&@&@BW&?F&@&?&?5&@B&?&,@B&?&?Bg'? '?˜'?m'? '@!'@"'@B$$'@''?j('@)'?D@l*'@B-'?.2'?>Y'?BY'@vZ'@['@BK\'?\'@ƒ]'@Br'@B6'?2'@ϩ'@"'@'@'@B'?'?'?'@+'?q'@S'?I'@'?+'?B'?B(?(@(?b(@D@l7 (@B "(@#(?%(?B&(@06(?8(?=(?BX?(?BK(@T(?BW(?X(?@](?B_(?"b(?g(@°(@B(@’(?/(@g(@(?ؗ(@(?B(@(?(@+(?(?64(? (?D@l      !"#$~(@‹(@(?BĪ(@ (@ ѭ(? ް(? (? (@(@?(?;(?t(@(?B(@V(?( @¹(@(?V( @B)@)?B)?B0)?B)@J)?~)? B$)@!ZC)@"H)?#­J)?$BWN)?D@l%&'()*+,-./0123456789:;<=>?@ABCD%V)?&])?'Ca)?(V})@)})?*~)?+)?,B)?-B)?.)?/¡)?0)?1¸)?2)?3B)?4h)?5)?6B3*@7q4*?8B @*?9A*?:³C*?;("A?<BI*@=K*?>BN* @?O*?@P*@AYR*@B.T*@CgU*@DV*@D@lEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdEY*?FBZ*?GŽ^*@Hc`*?IB8b*@J\v*?Kiy* @Lw|*@MB}*@Nt?A?OB׆*?P*?Q*?Rb*@S8IA?TB *?U*?VB*?WÙ*?X*?Y4*?Z*?[B*@\B*?]6*@^D*?_|*?`&*?a*?b@*@c*@d¾*?D@lefghijklmnopqrstuvwxyz{|}~eB*?f/*?g=*@hu*?i *?jB*@kP*@l*?m?*?n*?oM+?p+@qB+@rB<+?sx +?tB +?u +@vd+@w8+@xBq+?y©+?zB+?{A?| +?}1)+@~)+@Be+@e+?e+@*n+?q+$@ s+@D@lBv+@w+?y+@3|+?hA?|}+?BN+@+?#+@[+?+?B +@ܮ+?B+?+?/+?B+@+?,+@B+@(+?Z.+?L+@½+?+?.+@.B+?+@+@BI+?+?+@D@lV+?+?+@c+@B+@8+@q+?B~+?S+$@B+?5+@,?,?A@,? ,?j ,?,@R,?B,(@,@c ,@B ,?!,?",$@B%,@}&,@',@^Z,@^,@_, @a,?D@lBb,?B[e,@“f,?3A?B=j,?Jm,"@m,?p,&@Bq,@,r,@r,.@es,@s,?ªw,@z,@\=A@BT{,@)},@B},@˖,.@ۖ,?,,@ F,?B,@<,@ؙ,*@u,@,?Bm,?¥,?B,?B,?D@l\,@,?K,@wA@ ,@B,?BA-?0-?-?(-@@A?.-@7-?<-?BJM-?M-@WP-@U-?X-@\-?(]-@c-@A?g-?2k-@Bq-?!s-@’u-@~-?V-@+-?©-?D@l      !"#$m-?ޒ-?O-?$-? Bj-? -? ?-? B-? -?ר-? .?B).?.@.?%.?k.?.?!.?#.?).?<*.@/.?4.@5.@:.@BnA.?¦B.@ {D.?!P.?"Q.@#\.@$a.?D@l%&'()*+,-./0123456789:;<=>?@ABCD%g.@&B~h.?'.@( .?).?*H.@+B.?,.?-B.?.*.?/¨.@0z.?1B.?2).?3A~ 3?4B$?5,&?6q'?7(?8ܩ(?9R*@:*@;++?<1$?=%?>A??&?@p,?A˖,?BB#"@C#@DB#@DJl EFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdE`#@F#"@G#?HB#@IB#?J#?KB#?L$#?MB#@N!# @OB#?P#?Q#?RB#@SB#@T"#?U¹#@VB#@W#@X#.@Y›#?Z#?[B'#?\B#@]4#@^B$@_*$?`$@a`A@b$?c1$@d`$?D@lefghijklmnopqrstuvwxyz{|}~e $?f $@g $?h-$@iB$@j:$@k$@l-$?m$ A@nB$?o*$?pb$ @q$@rB=$@s>$@t?$?uBe@$@vA$?wrC$?xD$@yE$?zG$@{H$?|I$@}B)J$@~K$?M$?B O$?´R$ @QS$@BS$@%U$@D@lB^V$@–W$@Bz$@@$?$?$@B$$@$?$@j$@$@$@B$?˒$?Bؕ$@B+$@OA@E$@$@Ĩ$@B$7@B$@$@&$?B;$@>$?s$?B$@U$@B$@$@B$@D@l}$?lA?$?$@#$?B$@$?Bi$?$@¡$@>$?vA@B$*@!$?$?BD%@%1@%@^%@B %.@By %@%?%?h%?B=%@B2%G@Bk9%@=%?ZA%@A%?E%@&@A&?$D&@D&?]E&?BE&@1G& @G&@BjH&@ L&@!M&@"BEc&0@#c&@$Be&&@D@l%&'()*+,-./0123456789:;<=>?@ABCD%h&?&k&@'ml&?(B m&@)Oq&@*Bq&@+#s&@,Bv&?-B>y&@.B ~&@/&@0-&?1B&?2&?3ׄ&?4Bs&?5«&@6BN&"@7̥&?8&?9=&@:&?;&?<&@=Be&@>:&@?Bֳ&@@&?A&?BT&@C&@D& @D@lEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdEC&?F`A?G&?H´&@I&@JBW&*@KB&?LF&?M&?NS&?O&.@P&@QB&@R{&@S&$@TB&@U]&@VB2&@W&@X?&?YB&@Z&@[R'?\'@]'?^Bg'*@_t'?`'?aBI '@bB`'?c˜'?di'?D@lefghijklmnopqrstuvwxyz{|}~em'?f '&@g'@h!'@i"'@j"'?kB$$'@lB&'@m''?nj('?o*'@pB-'?q0'?rB2'@sf3'?tBiW'?uX'?v¡X'?w>Y'@xBY'@yvZ'(@z['?{['@|BK\'@}~\'?~\'.@ƒ]'(@Br'*@' @Œ'@B6'@n'?D@lP'?%'@2'0@£'?Bܬ'@'@…'@"',@Z'@'@'.@'?B'@B'?'@'@W'?Bd'@'@q'@S'@&'?B('@B'@'?B{'?;'@VS'?'?I'@'?'?D@l'?+'?B'@B(@¼(?U(@(1@(?b(?(?7 (@& (?A?B "(@"(?%(?&((?((@—*(@.(?N1(@2(?06(,@8(@;(?®;(@=(@>(?BX?(?BK(@DR(?|S(@D@lT((@^X(?Z(?B_(@"b(? g(@Ή(@B،(?°(*@B(;@!(@(@’(@/(@g(@(?(@B<(@t(?(?(@B("@(,@+(@(4@z((?բ("@Bq(@ ( @©(?F(?B(?D@l~(.@(@(?BS(@‹((@BĪ((@(@B5(@ѭ(@B(@B(@ް(@(@B(?$(@(1@R"(?-(?(@?(@6(?Y(@;(?(?t(?B(@B(*@(*@J(?¹(8@V(3@x(?D@l      !"#$(?B(@B)B@y)@ )? BN)@ B0)@ =)@ v)@B)(@J)?)?!)@Be")?B$)6@')?T*)@+)?@)?ZC)@BG)@?@ABCD%Bn_)@&Ca)@'c)?(d)@)%f)@*]g)?+h)@,i)@-k)@.V})$@/})?0~)"@1)@2c)@3A?4Bù)?5B4)?6z)@7)@8B)@9¿)@:\)?;) @<¡)?=B)?>)@?A?@X)?Arv)?B)?Ce),@DB)?D@lEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdE)@FG)@G)@H)@I¸)?JB)?K)@L])?Mo)@NBD)@O)?PW)?Q^)@Rl)@SB).@T)?Uh).@V)@WB3*(@Xq4*@YB @*@ZA*?[:uB*?\C*?]("A?^BI*@_K*@`N*@aBN*@bO*@cYR*@dR*@D@lefghijklmnopqrstuvwxyz{|}~e.T**@fgU* @gfU*?hV*?iŽ^*@jc`*?ka*?lB8b*@mBp*@n\v*@oB1x*?px*@qiy*,@rw|*@sB}*"@tt?A@u¼*?v*?w*?xB׆*@y*@z*@{U*@|*@}b*@~ӑ*@8IA?B *@D*?*@R*@*@D@l*@4*?*?RA?B*@B*.@*?B*@*@B*?6* @§*?|*@k*@fA?@*@*?B*@¾*@B*?/*?=*@*@*?B,*? *@BC*?{*@B* @P*@*@?*?D@l*?*@M+@B+?+@!+?+@+@B+@^!+?B<+?t +@ + @I +? +@ +@++ @d+@+@8+@Bq+?n+?©+@F+@B+@~+?+@+?A@+@ +@(+@D@l  1)+@)+@++?Be+@e+@j+?k+@l+@*n+@bo+?o+?q+$@Bv+@w+@)y+?y+@Bz+@hA?BN+@+@#+@s+?+@+?B +?ܮ+?ۥA@­+?+?B+@d+?+@D@l(+?L+@B+?.+@+?Ÿ+?+@+?BI+?+@V+@+@c+?v+?+?B+?8+?q+@¶+?S+ @B+?+?'+@5+?B+?,?F,?,?1 ,?,@B,@,?D@l      !"#$c ,@B ,?!,@",@ }&,@ ',? ^Z,@ ^,@ _,@a,?±a,?c,?B[e,@“f,?hh,?B=j,?uk,@Jm,@m,@n,?p,@Bq,@,r,@r,@es,@ªw,@z,@ \=A@!BT{,@")},@#B},?$˖,@D@l%&'()*+,-./0123456789:;<=>?@ABCD% ,?&,(@'B,@(<,@)j,?*ؙ, @+u,@,B,?-B8,@.,?/‡,?0$,?1\,?2,@3K,@4wA@5¼,?6B,@7BA-@80-?9B-?: -?;-#-?<(-?=@A@>T,-??.-@@0-?A6-?BB9-@C^:-?D<-@D@lEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdEA@FBJM-@G‚N-?HO-?IWP-@JT-?K9U-@LU-@MW-?NX-@OBY-?P\-@Q(]-@R^-@S6`-?TB`-?Ub-?Vc-@W{d-?XA?Yg-@Z]i-@[2k-@\n-?]Bxo-?^Bq-@_!s-@`s-@as-?btz-?cI|-?d|-?D@lefghijklmnopqrstuvwxyz{|}~eB~-@fV-@g+-@h-@i©-?jƦA?km-@lB-?m-?nO-?o]-?p-?qΚ-@r-?s¢-?t-?uϦA?v!-?wB-@x-?yB.-?zf-?{B-?|;-?}t-?~-?Be.? .@ .?B).@. @.@D@l%.@B.@k.@.?.@!.@M".?#. @Z%.?).@<*.@Bu+.@/.@1.?4.*@5. @:."@BnA.?¦B.@{D.@BP.?P.@Q.?X.@@7 Sheet3 VBA$ UE@UEThisWorkbook+!__SRP_2__SRP_3   PB X`hp*x  B P   ( x] GeoAccessdc`]@(7 Create GeoAccess helper macro command bar if not there :$Jd : %N.Bk Make command bar visible B(RExportZipRegionToAccess9` ctl.Delete B $T B!V!P.T T Z9X 9\ 9^q8k0o(] @* Delete FixZipSelection command bar button End IfNext ctlEnd If3 Delete GeoAccess helper macro command bar if empty BB@fo`]'l] n !N n! j'lk n l'Ji]'l] d!\ r'lk8 d l'Ti : %N.B d p!VT\SExportZipSelectionToAccess9`: Create ExportZipSelection command bar button if not there B ,$T B!V!P.T@ T Z9X ,9\ ,9^qPkH7 Create ExportZipRegion command bar button if not there8 : B> !N%P.B=2`] Export Zip Region to MS Access ]# Export Zips and Counts (Populate) ExportZipsPopulatedToAccess9`d ba B L$TPat B!V!P.Tram T Z9X L9\ L9^qk: Create ExportZipPopulated command bar button if not there%For Each ctl In cbrGeoAccess.ControlsPrc If ctl.Caption = strExportZipSelectionToAccess Or ctl.Caption = strExportZipRegionToAccess ThenES\'If cbrGeoAccess.Controls.Count = 0 Thenn@]# Export Zip Selection to MS Access ԴAttribute VB_Name = "ThisWorkbook" Bas0{00020P819-0C$0046} |GlobalSpacFalse dCreatablPredeclaIdTru BExposeTemplateDerivBustomizD2Option /licit Const strGeoAccessComm@andBarAs SngUrtZipSelec/T% :ort   to MS = +RegY) CodesPPopuQd)s A Count(s ( )) P^` Sub _AddinITall()  Dim cbWX, ctlFUHelperK@Button' e F h macro cn bar if not therA"If N@Exists(`) TheASet2= App@aA}.Gs.Apdd _C-A( := , Posi:=mso@TopVEE Z:CEnd Ifc' Makej+visi{;.V#z6e =7Bd7,oxq9O=*<`:nptrol:AW8ith0W.Styb6Ca?`&@Ta!?!b.OnA " @E@!#kBq)p99 9"9`99 .9>98?h?o9'aoo9BToCmk9goV?9o?9 oa?9?9opp{`{ 92""oWy.a9@x ?y3yUni[yO0rror Resu`Nex zs0%zzz??hr?h'm' D𔠭Fix)'F EacY In\\Ї/;Ϝq Or!_ 8x'1 (JUA!ώώf 0ty߁ (Glœ_0:|J  qb&FunSdt)"BooXleaD%fdx{9HFK-k >w8K4IW{MED @[LSS8LD H>"`xk**b,H:JBTZ, b``Xo0 Bx8!4 % etX %,J``+  ?ij 0000i  !4`lx  nt %,T`h d+X  J)p x %iri  `lx et%b:0H % Ut@%X%bH# Export Zip Selection to MS Access Export Zip Region to MS Access MS AcbLH``H@(@pX8X# Export Zips and Counts (Populate) an@p to M@n @h @d @T @D @4 @$ @@ @ 8 h P`P%8 `P%h0L`P%!@ :@p @l @\ @X  0 hJ `Jz H @ p @l P @X h p 0 @dO  X @` X @hT `T z  ( @p @H l `    @hO  H @d H   @ x  (p @l 0 hO  @ 0  d X  Xp   `pH@ @2G *\R3*#4e$*\Rffff*41472de4d5*\R3*#92*\R3*#50*\R3*#34*\R3*#51*\R3*#51*\R3*#4f*\R3*#8c*\R3*#4d*\R1*#b3*\R3*#2d4V0,0 " ( >8x,E4  @ <0 H P  X  ` " hp >P <  (  0  8 @H @ h<       $ @x "40 0 , j8    : . @%'D%'T%hx h $ld=t)hd lt x        c n Cppxkn/p<d'%'$%'4%'D%'T%hx h $ld=t)hd lt x       c\x8  xtphd HK4X:\%lp! p dl HQXx)pl x $H,txplXtpx*lp! p dQl[htpdd`t l` 0/`Upx td3kxpz/ t0hdt`plhpxpH Qp[lthXdt ld0/dIpx th'kxpz/h0lhtdp44@rU @$`$A` ,`0#8` !1=0#n<s s01xMEmodFileSystemFunctions.$ __SRP_4O __SRP_5XDAOFunctions\v(6 0%x `t + `Tk i  `z +`Xk`i +`Xk @d 3.i m.`P@T `XXp`xXJ4D0,j@h @X xx`x_ x_  @h @X x82G $*\Rffff*42472de4d5*\R0*#f*\R0*#f*\R0*#14` B *@X B p&6xB $7x]`Scripting.FileSystemObject$.  %'i     \$ $'i8  \$ $'i#Attribute VB_Name = "modFileSystemFunctions" Op$ Explic@it < fbExists(strPath As Sng)Boolean Dim fs,ObjeFcJSet= Create@("Scriyng.")N|1fs.(End }From\`4Info?Qb: =Right , Len ) - In#Rev "\")R MIOqMLef MC)1"rU~| ia x@d  d4t5dl @tdVpz5d(@(tdt<6 J ^l Mh@X  X`1x5X$<(xXt<7 ^l Mh@X  X`1x5X$<(xXarU (`Q0(`i0(`i0n=5 s0"~xME(>  B☰@B`x`z %+`@$k i i`t X( h0`pXBB( B8hh@d le@T @(D ps@@4 @$ `z  .B@ BS+`k i PXhX@h @X @H @ 8 @8( @P @ @ @ em8( P2G $*\Rffff*43472de4d5*\R0*#f$*\Rffff*42472de4d5*\R0*#14%   ( 8 HB X`h p6B  . H2KX  ]stin]same]] 0]@(x]8DAO.DBEngine.36$.  ;LANGID=0x0409;CP=1252;COUNTRY=0 B@'z'zi]P'' check for existing file with same name $   $_ .mdb'  '8  A@'z'zi7Attribute VB_Name = "DAOFunction@s" Op$ Explicit C\t dbVersF10 As IntegTer~1B1 B8UB2 C6"3 "3 2"4 "64  CreateNewMDB(FXile\Sng, Forma tT)Bool@ean On Error @GoTo eh@andlerDim EngineObjecсSet =E"(.DB.386")%[Database \, ";LANGID=0x0409;CP=1252;COUNTRY=0"i'True4xitR I I5:FalsEndH^Access2000astr3na3]intcour_ģ0= 0' c@heck ftexisting f with sA&'C WhAE s(0mz5@= Left ,@nJ - 4) & "_"@*.mdb32 +  We\nd.~',4$"FJ5E`E?G A %rU~|  i)  !__SRP_6__SRP_7 Sheet3~__SRP_c\KNd  d4t5dl @:D%l@tpzpz X\(tdKpx l vK Jl Mh@X  X:H8kxD(:`' 6X8 kxpx@+l pzpz$ X8frU ,`0&(`0n<jxs0f#<2&Gn9 FIDMbxIDMb2&Gn9ME(SLSS6"N0{00020820-0000-0000-C000-000000000046}(%` % %`h8@02G $*\Rffff*44472de4d54xAttribute VB_Name = "She@et3" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD2rU qI4`__SRP_d BmodExportZipSelectiontoAccess<3__SRP_9__SRP_8\rU @nrU $ `$ `$ `( `08! `AY=!=!,I `A=!n!1!Q!i!732e6b8*\R0*#f*\R4*#1b*\R4*#8$*\Rffff*43472de4d5*\R0*#f*\R1*#cd*\R1*#b3*\R1*#3a*\R0*#14*\R0*#1*\R0*#13*\R1*#c4*\R1*#229*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#C:\WINNT\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#42$*\Rffff*084732e6b3*\R0*#2*\R1*#174*\R1*#c4*\R1*#b3*\R1*#cdv"x2  "  4 @+2<+ 6.]( += "  6 +s0xME`L@80>  LLLLL"(LLL`(8  x & &0 +P  %h H"  ? vH`      " +(& &(@"U@8H H&"6&84p& -%   PZ  ND  @  p &X &x  %   0+  0" h%x :]X  C ,L( :]X ` ]Access.Application$.ro reco "$(Range $$.B@by k "!$B@HA@ "$(Range-Please select a cell or range of cells first. ,A@*|`kX] "!2A@2 "!$..F $$.B@]  census !L! !!!  !B@p ".. ,xo8x A@' .mdb B@] !L!.xls$' (+alter table census alter column zip text(5) !B@ "!$B@Hf00 ExportZipSelectionToAccess 1/24/2007 by kratnerzip$.(4Ra-Please select a cell or range of cells first. ,A@*|xkp .A@2zip$.(4 "% A@o "% A@- ExportZipRegionToAccess 1/24/2007 by kratner$2 "!!h $2 "%0B@HPo JB@`ES\ 8]@H ( !'Preparing Zips for Export... ( A@ss.AppDone! (ee]X A@B@doX . s .!4$6 .(4e .!4I C'00000 .!4 $ .!4 .(4\Co  remove dash if zip+4pt .!4-$ .(4 .!4$6 .!4 $ .(4os'00000 .!4 $ .!4 .(4C:\k .IBMp@ !L!.xls$'(5)) ]p.`Done! (E\ .mdb B@oCreating Blank Access Database .mdb ... ( !2!h'!Select Zip Range, then Click Here J!X(\es ("a.Access.Application$.ues ( Done! (' )  N*Creating Table [census] and Field [zip]... (I"create table census (zip text (5)) !B@IN'  '\  rog  $b%INSERT INTO census ( zip ) values ( ' $' )  !B@g ile(Done! (plicat B@Bar =  k|!You have cancelled the procedure. ,A@*|h`]  [ b !%'Populating [census] Table:  of   Records... (&This procedure will create a total of  records. Proceed? Please Confirm Record Count$*'] .0\  (Creating Blank Access Database .mdb ... (Transferring Data... ( B@g Opening .mdb ... ('Setting [zip] Column to 5 Characters... (Closing .mdb ... (Clearing Memory... ( Complete! ( Finished! ,A@* (Clearing Memory... ( ( dAttribute VB_Name = "modExportZipSelectiontoAccess" Sub sPopul atedTB()H fmxReg~s.btnq Capr p Range, then Click HerevSShow End y ' '  1/24/2007 by kratnerfPd.Current. If PType() <> "j" TjfMsgBox "Please s a cell or "r ofs first.", vbOKOnly$Exit+ IfDim rng As Prepare@]sFort ..C!sC Set-B=A:(1, 1).Inser#hift:=xlSDow&n@#(0 ValuBzipxHY*BTv%Addr(Fals@Ո[@ _PuC4C6_8?=Q?=."9(3M#H, /.Rows.Count + b)*o_BYBJ(strgSngDjTargetDatabwFile>nA@m%= Replace(App@a!AveWorkbook.Full!, ".xlsD""CreN ewC@0MDB i DisyStatusBar`True)"iBla(nk  " &w`".md`b ...d~)o,Obj_S= #("..%"H.JOpen!k.:&56Tsferr "DoCmd.Sp`=dshBeacIm, acAEx`ǂ9@EcensuE6K1, S.'a!21/"t []] Column to 5 Chara`ctersRunSQL "al  5leo  #cp te`xt(5)ClosY;dx)beC|RMemoryg-Noth0 omplete!C$Fini d!΀9bpS:AndUsFp[a!9,}36TH;msgResul2tVbs , intTotal`RecoraIpnteg!?tH Q/Fun.Sum(p S  = S("This procedure wiЕcSPvt 1!_t/ r s. "PQed?tCan66Con@m`]`/kI` vb,GoTo`=`cledC"c|HOld7\gAe_^ W^}=z@+Y&"6#f@yG0&D|on0Q' /x/x hz/x!R/x ?r?rHp~tr DEN19wppp8w55.ar ĒY+q%Taba"[m] aField fg&3t%e4?:e(ud ddnd (ixLpNH+_DHiQs0P1S@ i1 @C>isU = G`s(iR _ iRecor ds = P+ 1 Application.StatusBar"Popul.ng [census] Table: " &%&of&nt TotalCoHunt)" .(.." |o}.DoCmd.RunSQL "INSERT INTO v ( zip ) value s'rngZ@ips(i)c'\Next i@8:CloseCurrentDatabaseDone!2CleariMemoryy0Set Tr- 4=lF%c%@D$ D @@W\%:H&0 F %XW@'()tpD@6 \0@&:HC% t$ t t:H)%XW0'*508Dlx*#l.*F\% t$ t /lt5\ X?&:HE% t$ t tcX&:HF% t$ t t+'''0:HGN\\ 6\0%fH% t$ t t<(,xX8 ltpD@\0P@|?o\%lp$ p l<@Bpv)pl5<H'':\8N$$9kv#8*#4@*F<^ qx2846<$lxI" p$ p p+ p$ p k1p&:\+% p$ p p l &:\,% p$ p pU8 lp$ p Hl l8 1/8)pl8-l*#8.*F<% p$ p /8p5<  &:\,% p$ p p < ! <45<l"*F<%#5<&:\/% p$ p p:\0%W$'*5$&:\,% p$ p pp-H a<ppa$v"pp6<$kc%kD\%H<U5*F<% p$ p 2 84p5<D:1kD\%H <$:2%W'*6<$ d d ?&:\,% p$ p p&:\E% p$ p pc%f\% p$ p p+'''$:\;N<< 6<$9 |0< 84pl<$  lrh%l=XH 3 ".bt matc$Cell counts not matching. Try again? Selection Invalid$*'m pClick to Export Data to Access !X(\  bA@seClick to Export Data to AccessKT A@rrog!Select Zip Range, then Click HereKTSelect Counts, then Click Here !X(\Select Counts, then Click HereKTeExporting Data... !X(\, then&Transfer Complete! Click Here to Close !X(\e0&Transfer Complete! Click Here to CloseKT; A@r.py !X(.h (\IB[Attribute VB_Name = "fmSelectRegions" Bas0{F45AEE38-3A36-48E7-8DAC-6F995A4F7C13}{7FDB13FA-6E08JB4-B7CT046E6FC 5369} dGlobalSpacoFalse CreatablPredeclaIdTru BExpose0Templat@eDerivCustomizDDim rngZips As R ange,Count P/3 Sub btn_Click()  CMe. .Capt"FDthen - Here`A If Ty4pe`() <> "2" O@r Not edBHasValues T#MsgBox "    !"#$%'()*+,-./01235678:;<=?(Ple2sB a cell orD rK ofs contain ing vB first.", vbOKOnlyExi(ubK@End IfSetj=4JQ-[ˁCB Cw, W&i#?i;4~44X@4i.CDs.$aRC/ srmsgR esultsVbcQ#BA= #\("`Rxn`matchS. Try ag@U?DSCan`Z, Dp In`Xid"DzO` vb s!GoTo ac~cB led^/aDd#S]f. dto Prt D AccesA aApp a!!.ScreenUpd`=2A <a...,EnA  And(To_eÿ*$ATsferetef!(+Cl. r oosdUnload ߁(#6Z<,:7 "A.po4 .^tUserForm_Initializet?@Etas Fs6Fun CpJ?)FBoo0on sԈRv Each#EaQDVar|( )5{<8E}cwG4tNexbt  Q  @ @8 @ br X@x __SRP_b__SRP_a_VBA_PROJECT#dir@y`I ^  W (tx x 4>t1px lp0ex $ Qxo` #t=V\ $ l\=XX kV/t)\X5`+'''$:D N`` 6`$,x $ lx=[\4)x\ x x 0x lp 0ex $ Qxo` #t=V\ $ l\=XX kV/t)\X5`+'''$:D N`` 6`$_X4a`xxa$v"iD]\ $ \W A@)x\6`$a6'':4N$$:DN``^ q6`$l\,x $ lx=[\8)x\x x 0x lp0\" x$ x xx x 0xx x 8x84 x x 0xx x 8x lp0lx$ x+'''$:DN`` 6`$lx$ x(Xp0 tx\X`$~T x x 0x $  xpz tp_ltllM\ @^qXll=tlXltTTMD @^q@lT=tl@)lTpz tp/ <,pH tE_Os0]HuWqM6b׳$ҚI)P= 4:E5l&a:E O%{xl&a:E O%{uWqM6b׳$MEH4@SPSSS>"80  L(LLL s.dBl+( f\*\G{00020430-C 0046}#2.0#0#C:\WINNT\system32\12.tlb#OLE Automaption/DOPfficDO>fDi D2DF8D04C-5BFA-101B-BDER5DAAB42DProgram Files\Microsoft \MSO9 .DLL#  9.0 Object Library!,OA+FcNv ,4AFFC9A0-5F99,AF4E,3F0F07}#@O,ACC9.OLB-#-$MSForms>PSFm3 m,0D452EE1-E08"F,A-8-02608C4D0BB4Y |FM260S @S/;1əAJ}#0™# 50 638A08187-EB75B-@Z4-89[E1F740039 161&YDOCUME~1\KRATN.SCH\@LOCALSTemp\VBE\*.exd1`@.E .`M as0sThisWorkbookG`ThcsWb7kbok2Z` 1S-@"a,r"+QmodjS|FuncysG,KadJiAS AeKFun eto s  2 y 1!DAOa,D~O/c,o;3m"~kSheet3Gb:S >bet3`&2 o fk:6odcZipXSel`tdG\:AB;Z@9pUe=c`i`n^ 2_ W /@V--Q,BAKm"B}KQ`fbmReg `3A2SA3ARg2s2-rnm _ U 7]Z] (1rU~~~~~~~q a      -GeoAccess Data Export Helpers by Keith Ratner  strName  cbr strCaptionstrPath strFileInfoFileNameFormat strFilename (strRange 8__SRP_0__SRP_1 RfmSelectRegions  @UE0UEfuWqM6b׳$ҚI)P= 4:E5l&a:E O%{{lFWJObtnSelectRegions!-6S`  Xȏ[qJ eUserForm7y0LY})r F3Dynamic  hbtnSelectRegions_ClickUserForm_InitializeSelectedRangeHasValues L48ďYl|FFaCurrentRegion Select Range ZPlease select a cell or range of cells first. Cells Shift Insert zip ValueAddressax IO  IS  .xls $Access.Application &OpenCurrentDatabase censusName ! DoCmd &TransferSpreadsheet Valter table census alter column zip text(5) RunSQL I  Dcreate table census (zip text (5)) JINSERT INTO census ( zip ) values ( ' ' )  ' 00000 - I ! ~Please select a cell or range of cells containing values first. <Select Counts, then Click Here HCell counts not matching. Try again? "Selection Invalid <Click to Export Data to Access "Exporting Data... LTransfer Complete! Click Here to Close#=h8+3qG?,2qL)!* "Action Cancelled.) Select Zip Range I3 iOA2N.XF)gj=C 7TY +  8Preparing Zips for Export... Done! >Creating Blank Access Database  .mdb ... TCreating Table [census] and Field [zip]... LThis procedure will create a total of "records. Proceed?  6Please Confirm Record Count BYou have cancelled the procedure. 6Populating [census] Table:   of   Records... (CloseCurrentDatabase $ records. Proceed? Opening (TransK*mrU~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~  gdOuǻ%  e AI a q`Ia qye AAa qP1q Ya q8a ay    ThisWorkbookmodFileSystemFunctions DAOFunctionsSheet3modExportZipSelectiontoAccessmodBAKfmSelectRegionsGeoAccessAssistant GeoAccess F Export Zip Selection to MS Access  <Export Zip Region to MS AccessC:\WINNT\system32\stdole2.tlbstdoleFF BExport Zips and Counts (Populate) @ Export Zip Region to MS Access  F Export Zips and Counts (Populate) F /C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA  iF 3C:\Program Files\Microsoft Office\Office\EXCEL9.OLBExcel i0F yL-[DR 1C:\Program Files\Microsoft Office\Office\MSO9.DLLOffice a J_N? 3C:\Program Files\Microsoft Office\Office\MSACC9.OLBAccess i  0.E .`M C:\WINNT\system32\FM20.DLLMSForms q q  @8uC0@g6C:\DOCUME~1\KRATNE~1.SCH\LOCALS~1\Temp\VBE\MSForms.exd Range I q q PFw8K4IW{F{9HFK-k >DFWorkbookWorkbook_AddinInstallWorkbook_AddinUninstallCommandBarExistsCommandButtonExists F @F F F F F 4ExportZipSelectionToAccessExportZipsAndCountsToAccessRows .ExportZipRegionToAccess 6ExportZipsPopulatedToAccess fileExistsfileNameFromPath filePathInfo  4Scripting.FileSystemObjectfileExistsVBE6.DLL I x \ I  Ik ExportRangeToAccess Ii  CreateNewMDBCreateNewAccess2000MDB DAO.DBEngine.36 @;LANGID=0x0409;CP=1252;COUNTRY=0CreateDatabase _ .mdbF2&Gn9 FIDMbDF WorksheetExportZipsPopulatedToAccessExportZipRegionToAccessExportZipSelectionToAccess CountPrepareZipsForExport BSelect Zip Range, then Click Here73Hr Bferring Data... NSetting [zip] Column to 5 Characters... Closing $Clearing Memory... Complete! Finished!HrngZips rngCounts !H yX rngSelection ,yh (  }R KQDBTahoma4!,TbtnSelectRegi,/ CommandButton1s @Arialonso!TCompObj"aVBFrame]PROJECTwm I Microsoft Forms 2.0 FormEmbedded Object9qVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} fmSelectRegions Caption = "Select Zip Codes and Counts" ClientHeight = 990 ClientLeft = 45 ClientTop = 330 ClientWidth = 4350 ShowModal = 0 'False StartUpPosition = 1 'CenterOwner TypeInfoVer = 3 End ThisWorkbookThisWorkbookSheet3Sheet3modExportZipSelectiontoAccessmodExportZipSelectiontoAccessDAOFunctionsDAOFunctionsmodFileSystemFunctionsmodFileSystemFunctionsmodBAKmodBAKfmSelectRegionsfmSelectRegionsID="{E5740462-293E-4FDC-8B0A-A2FDE63EDABC}" Document=ThisWorkbook/&H00000000 Document=Sheet3/&H00000000 Module=modExportZipSePROJECT&~SummaryInformation(&48DocumentSummaryInformation89CompObj>flectiontoAccess Module=DAOFunctions Module=modFileSystemFunctions Module=modBAK Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F} BaseClass=fmSelectRegions HelpFile="" Name="GeoAccessAssistant" HelpContextID="0" Description="GeoAccess Data Export Helpers by Keith Ratner" VersionCompatible32="393222000" CMG="6B694DF6C2FAC2FAC2FAC2FA" DPB="E4E6C27542EF43EF43EF" GC="5D5F7BFC8D748E748E8B" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisWorkbook=5, 96, 774, 696, Sheet3=0, 0, 0, 0, C modExportZipSelectiontoAccess=0, 4, 883, 753, DAOFunctions=66, 66, 684, 589, modFileSystemFunctions=88, 88, 706, 611, modBAK=0, 0, 672, 360, fmSelectRegions=251, 6, 928, 511, , 593, 568, 953, 749, C Oh+'0 PXt GeoAccess Assistant Keith Ratnerist,GeoAccess Helper Add-In 2007 Keith RatnerkratnerMicrosoft Excel@(@UE՜.+,0 X`  GeoAccess Helper Add-IneoA Sheet1  Worksheets FMicrosoft Excel WorksheetBiff8Excel.Sheet.89q