Standard Jet DBnb` Ugr@?~1y0̝cǟFN7]D^(`T{6}߱wCϯ34ay[|*|OJl>`&_Љ$g'DeFx -{N      <<<<<<<<<ʾtbl_MailingListfrm_Creditsrpt_MailingEnvelopeAutoExecmod_PostNet_Generator9'USʾtbl_MailingListfrm_Creditsrpt_MailingEnvelopeAutoExecmod_PostNet_Generator9'US023ghij%k/zk@MicroDoctor presents...Arial`xDetail0d5U`axbcd eText2\PostNet Generator for United States Postal Service PostNet Barcodes version 2.0 (updated for MsAccess 97) (c) 1993 - 1999 James Isle Mercanti, Cocoa Beach, FL 32931. USA PVCS           2                   IdParentIdNameType DateCreate DateUpdateOwnerFlagsDatabaseConnect ForeignName RmtInfoShort RmtInfoLongLvLvPropLvModuleLvExtra  Id ParentIdName        K PJSelect Case K "1"OA]ac0C|AB + ("U- Y)JD")JD)cazLow&FEnd -(`Q@nYX^ar^!  L%^Exit_d[:A FunctiontErrorTrap Resume I`! edo"Code "ealA, Address)«! +ZipF!Intege&DPoifnºingIf{) > 5p The`;=B xmat$" 0"D}Elseg !00&'IfcA1%e%G `IsN`1ricD, xߢ4AC @ x <>B! l ;(G R@ !%"Vall))2`$3#f "|q4 W=4)@-+ = c {`( & S]+)& -rrV3!`3 a /1on1-ChecpkSumV.;/Co HE5>%x D q%f+ 8&S%t0 - (vMod 10?Q8 T = 8)O__SRP_3 rU~} !Y 1Y 1 I a  9  ! i ) !0K t:dlt:dlt:dVCLS     2  ObjectIdSIDACM FInheritablebc ObjectIdord,srvwpfw,hfpfu`wru)ov}vda)ufsruw,usw,o`jmjphfpzfmrsf)d`w`a`vfvgruovordxmfv ufm`wjrpvijsvufsruwv vbujswv v}vufm w`amfvov}v`bfvov}vo`burvov}vrakfbwvov}vtxfujfvov}vufm`wjrpvijsv`bbfvvm`}rxw ov}vdal8l\.H  n\nhs\dH(*e,((ndH U+ 1D6(` e((n`lD  1@5( qXl@C l2ulXlplll8l\.H  n\nhs\ l2$lXltlln8npnt7l\.H  n\nhs\/ `h dh qXlXlplll8l\.H  n\nhs\  4DH@(  XH(8]r(\C%:XNHHl 1t5Hj%:XNHHl 1t5HnXHUc$((Hknl( ( 6H( nd$knD8]XH>(\c'Hknl( (`# t'ok 1># 1:8N>F 1h2 6 H(m ChltJltCp ltlh*1plppMX@ # *1x/  4xthp4 H(t `PUcL_;(Pktl < <`#8 t0kvo0pv/86P< tdL kv pr kr pr"'PrM`@ 1x5PL(x8P<W__SRP_2arU (`&8`VC?S             ObjectId AttributeOrderName1Name2 ExpressionFlagilnzjtz ObjectIdAttribute   Postnet97Form_frm_Creditsmod_PostNet_GeneratorReport_rpt_MailingEnvelopeFW:\MSAPPS97\VBA\vba332.dllVBA  PJ_N? (\\BIGSKY\APPS\OFFICE97\Office\msacc8.olbAccess Qy`^F>C:\Program Files\Common Files\Microsoft Shared\DAO\dao2535.tlbDAO IqpKrCKp١QrCKp١LrCKp١PrCKp١z? PageHeader0aC7?Detail1WC7?Report PageFooter2 Detail1_Print LMD_PNet MD_PostFIM@e&N?k>N? MD_PostNetMD_PostNetCodeMD_PostNetCorrection  11000 00011 00101 00110 01001 01010 01100 10001 10010 10100 LeftTop A 110010011 B 101101101 C 110101011 000000000 VBA332.DLL q x  1 0 q w q   00000 q 1 q E q j  0011CKp١71CKp١61CKp١B1CKp١A1CKp١^KKp١^KKp١^KKp١^KKp١^KKp١^KKp١^KKp١VCS te     tF    N  _PszRelationshipgrbitccolumnicolumnszObjectszColumnszReferencedObjectszReferencedColumn 0101 1101 0111 szObjectszReferencedObjectszRelationship58P5 r7Tx58U5(P5 r8x%(UP5 r9xEH%uP5 r:PxEHP5 r;xEH 5P5 r<xEH(P5 r=LxEH0EP5 r>x58UZ5r?x@ Z5r@HxXZ5rAx`Z5 rBx%(xcd5 rCDx^KKp١__SRP_1irU~~~~~u    I (Cancel PrintCountCharCode i8Ctrl HRpt PostalCodeAddress PostNetCodeE {qg]SI?5o{o{y&(yI9ry'\(yI9ry+(yv9ry,(yv9ry(X(yI9ry/(yI9ry4(yI9ryET(yI9ryF(y  I9ryG(y((I9ryHP(y00I9ryI(y88 I9ryJ(y@@I9ryKL(yHH I9ryL(yPPI9ryM(yXXS9ryNH(y``S9ryO(yhh S9ryP(yppS9.@@ @@guo,bufdjwvord,srvwpfw,hfpfu`wruusw,o`jmjphfpzfmrsf`xwrf|fbd`w`a`vfvgruovordxmfv ufm`wjrpvijsvufsruwv vbujswv v}vufm w`amfvov}v`bfvov}vo`burvov}vordxmfvov}vordxmfvXov}vrakfbwvov}vtxfujfvov}vufm`wjrpvijsvwam,o`jmjphmjvw`bbfvvm`}rxw ov}vdao{!   B   "; ( 8P "h x )Use database order for string comparisons? I ask for no money, no contributions, just credit for my work. UE Permission granted for public use and royalty-free distribution onlyG if this Copyright notice is included with this module code for credit.H No other mention of source or credits is required. All rights reserved.! email: jamesmercanti@hotmail.comD Send me an e-note with your postal address for demos and more info.@ NOTE FOR PURISTS: I have elected to use standard English object@ identifiers for those not familiar with L-R naming conventions. TO USE THIS CODE:H 1 - Create Report with a TextBox control. (example named PostNetCode)5 Make sure the Visible property is set to "No".< 2 - Set On-Print property of section to [Event Procedure]< by clicking on the [...] and selecting "Code Builder"7 3 - Confirm that the following code matches yours...B Sub Detail1_Print (Cancel As Integer, PrintCount As Integer)- Result = MD_PostNet(PostNetCode, Me) End SubC 4 - NOTE: The name of the section is "Detail1" for example only!A 5 - NOTE: The field PostNetCode represents 5-, 9-, or 11-digit@ ZIP code with a correction character. The 9-digit isB Zip+4, and the 11-digit includes Delivery Point BarCodeC (DPBC) which represents the last 2 numbers of theB @ @ @      6F PostFimCode has been added for bulk mailers. This field isE set to "A", "B", "C", or blank. Refer to Pub. 25 for moreB information on the use of this code along with PostNet.J The field control.source is hardcoded but can point to a table.p x11000+ 000011+ 100101+ 200110+ 301001+ 401010+ 5but01100+ 6its"10001+ 711D210010+ 8abBl10100 + 9ose! $'ats'f (Z(@ZXpZZZZEZ !':E !B'< AHQ 110010011'6BHQ 101101101'6CHQ 110101011'6P 000000000'6k'*',X9v?'. :'2 0 6 6 0$'8 @'4 81HQ 2 < . , 4 $0 2 . '2,Bar0HQ 2 . '2,NoBark 2 . '2$NoBar 0D`sX(PDHf@H0ZZ 8PZhZZZEZ !':E !B'< 'N {qg]SI?of section to [Event Procedure]< by clicking on the [...] and selecting "Code Builder"7 3 - Confirm that the following code matches yours...B Sub Detail1_Print (Cancel As Integer, PrintCount As Integer)- Result @ @\ @ @ @ @ @ @ @ @ @>>>>>>>>> >>>>>>>>>>>>!>">#>$>%>&>'>(>) >* B BBBBBBBBBBBBBBBBBBBBB B B B B BBBB6B6B6B >>>>>> > > > >>>> 11-digit%ZIP`HdeJcorrcharacter. "9DLip+4,b9 inclu{/li`{>yRG~%(DPBC) whi ch ! lastaPnumb &t#`radd s,, p fabo@x, rurro, !hwy?{a ]%#!4fuNn[=([>aBla],[AC])gdc u(W~-s alo^by!. ThC@why! | C@m{fere \-xt,Fmo in@@g!ca[aUSPS P ab{25.?locBXbc be mov ab$3bkKRe`. 25b_" alsok 2Fim2 has1`en bulkil HY =&i>%A", "BC&blan +Be%"@`5P|@4sdd irpo5 'a P}leSExp0X? F-(CPARS !S@On ErrGoToTrap_P`ReDim (10`Q0)11000" ' 01111R21023ե134R45S56`a67kc78899SE0e2ExitbQ orT"Pts~u`i SFIM(CtrrCoR, Rpt1!)I3t{ !r# SA"L CS}le, zHWqzXeNAar'l{+-LWV8ari/pegB/SxRt Sy`jWh16777215:npBla#T#Sb"=BB"= (1440 * (5 / 8)@ `1L64 q`lLC l2gl`lplllDld.H  ndnlsd l2 ndnlsd/ ndnlsd hh  4$LP4PKH W( *s<5(H W( *s85( oH?st?sp{Gz?sl?shl(\c'Hknl( (`# t'ok 1># 1:8N>F 1h2 6 H(m ChltJltCp ltlh*1plppMX@ # *1x/  4xthp4 H(t `PUcL_;(Pktl < <`#8 t0kvo0pv/86P< tdL kv pr kr pr"'PrM`@ 1x5PL(x8P<W__SRP_2arU (`&8`^KKp١m  p4r8<@P[LS S6L <N0{C1CC724C-B5EA-11D2-9D43-00104B70D9A1}6 "*\Rffff*e36b4e45b*\R1*#89"*\Rffff*a36b4e451*\R1*#2d (\O$p``pkpT :\ir itH0 $ $H $0 $ $ $X $@ $ $ $ $ $pHPX`0@X $p( $ $ $ $ $@`zx 0 $ $p p(00LXThME 2 " 8 x )@ )X p )Use database order for string comparisonsINN0  $'\WI ^ $F'm;ClZAttribute VB_Name = "Report_rpt_MailingEnvelope"D Basb0{C1CC724C-B5EA-11D2-9D43-00104B7@0D9A1} |CreatablCTrue ]Pre declaId"Expose!Fals @TemplateDeriv%Cust0omizD$Option Com2p@ DTv 'Uzdorder for s!ng cisons P=A Sub D$et1_ nt(Cancel As Integer,  Count )# Dim intReturn = MD_Pos tFIM(imCode, Me&% ' 8Net  End0__SRP_4(rU )@4a)ppp@8Iqrrr@<@@aNX)t! l=ppt pz)tp)t! l=ppt pz)tp X$ tp8[__SRP_5wrU L,`T&&p`b hHIX $.`lv``t`nrH(0$I^ 0P$+V` k0IZ P`x+`k`66J)! $)% $+j`0k@Xt @d (p  h `z J @ 4 @@$ 0 W@  @ @@  X  h@@ ( @ h @ @  l@ vhP H p  `Fz p @0 ( @ @   X@QN 9W:`#n!= MidX, qOQ1Co'= " gS8cby"1Q1p8.@Line ( ,#)-Step(S4)q , BF1+ '@ "0 xNoqwW59c CN=oSonlS!vRRs`[RRR RRP5 HRN,s Single, Wbar AES x Dim CountX "Y "NexLtB |loLong, PostNet@`jN>@tbl_MailingListlu86u: CKKK???????. @dLk@dLk@MSysModules2----------+ dLk@dLk@MSysModules,,,,,,,,,,* =@=@MSysMacroslu86u:::::::::::)   =@f}k@AutoExeclu86u:^@?D888888888'  t=@< D`@rpt_MailingEnvelopelu86u:CCCCCCCCCC2 5E=@ Tw@mod_PostNet_Generatorlu86u:EEEEEEEEEE4 =@Z@frm_Creditslu86u:@@ALWF000@?eYGG;;;;;;*  xk@f#x@AccessLayout*@@@?E99-------+ @ =@ =@SysRellu86u:6666666666% @a=@@a=@Scriptslu86u:7777777777& @a=@@a=@Reportslu86u:7777777777&  =@ =@Moduleslu86u:7777777777& *=@*=@Formslu86u:5555555555$ MSysRelationships22222222220 MSysQueries,,,,,,,,,,* MSysACEs))))))))))' MSysObjects,,,,,,,,,,* Lk@MSysDblu86u:E@@BBB6666666% @Relationships.........., Databases**********( Tables''''''''''% VCYN                         @   ,@ActionIdActionNo Argument1 Argument10 Argument2 Argument3 Argument4 Argument5 Argument6 Argument7 Argument8 Argument9Comments ExpressionLabelScriptId ScriptNameScNmLabelIndexSDT x8@$ ``@  @ @ (@@ @ @ @ @p @(p@ hh(HpX` !$x@$x@rpt_MailingEnvelope22222222222 $x@$x@mod_PostNet_Generator44444444444 $x@$x@frm_Credits***********  $x@$x@AccessLayout+++++++++++ $x@$x@SysRel%%%%%%%%%%% $x@$x@Scripts&&&&&&&&&&& $x@$x@Reports&&&&&&&&&&& $x@$x@Modules&&&&&&&&&&& $x@$x@Forms$$$$$$$$$$$ $x@$x@MSysRelationships22222222220 $x@$x@MSysQueries,,,,,,,,,,* $x@$x@MSysACEs))))))))))' $x@$x@MSysObjects,,,,,,,,,,* $x@$x@MSysDblu86u:6666666666% $x@$x@Relationships.........., $x@$x@Databases**********( $x@$x@Tables''''''''''% a{q@@@guo,bufdjwvord,srvwpfw,hfpfu`wruusw,o`jmjphfpzfmrsfd`w`a`vfvgruovordxmfv ufm`wjrpvijsvufsruwv vbujswv v}vufm w`amfvov}v`bfvov}vrakfbwvov}vtxfujfvov}vufm`wjrpvijsv`bbfvvm`}rxw ov}vda $      0  H   X  p            $  0 8  @ P  p           B    (H`p H $ 0&0& 8  @H h ,      0 P*$`      @ Q ZxB T     money, no contributions, just credit for my work. UE Permission granted for public use and royalty-free distribution onlyG if this Copyright notice is included with this module code for credit.H No other mention of source or credits is required. All rights reserved.! email: jamesmercanti@hotmail.comD Send me an e-note with your postal address for demos and more info.@ NOTE FOR PURISTS: I have elected to use standard English object A$x@#%x@MSysMacros)))))))))))  $x@$x@AutoExec''''''''''' $x@$x@rpt_MailingEnvelope22222222222 $x@$x@mod_PostNet_Generator44444444444 $x@$x@frm_Credits***********  $x@$x@AccessLayout+++++++++++ $x@$x@SysRel%%%%%%%%%%% $x@$x@Scripts&&&&&&&&&&& $x@$x@Reports&&&&&&&&&&& $x@$x@Modules&&&&&&&&&&& $x@$x@Forms$$$$$$$$$$$ $x@$x@MSysRelationships22222222220 $x@$x@MSysQueries,,,,,,,,,,* $x@$x@MSysACEs))))))))))' $x@$x@MSysObjects,,,,,,,,,,* $x@$x@MSysDblu86u:6666666666% $x@$x@Relationships.........., $x@$x@Databasefrm_Credits010AutoExec`xwrf|fb           IdParentIdNameType DateCreate DateUpdateOwnerFlagsDatabaseConnect ForeignName RmtInfoShort RmtInfoLongLvLvPropLvModuleLvExtra  Id ParentIdName        K PJSelect Case K "1"OA]ac0C|AB + ("U- Y)JD")JD)cazLow&FEnd -(`Q@nYX^ar^!  L%^Exit_d[:A FunctiontErrorTrap Resume I`! edo"Code "ealA, Address)«! +ZipF!Intege&DPoifnºingIf{) > 5p The`;=B xmat$" 0"D}Elseg !00&'IfcA1%e%G `IsN`1ricD, xߢ4AC @ x <>B! l ;(G R@ !%"Vall))2`$3#f "|q4 W=4)@-+ = c {`( & S]+)& -rrV3!`3 a /1on1-ChecpkSumV.;/Co HE5>%x D q%f+ 8&S%t0 - (vMod 10?Q8 T = 8)O__SRP_3 rU~} !Y 1Y 1 I a  9  ! i ) !0K t:dlt:dlt:dVCEN __A__      y            y     @   "@ActionIdActionNo Argument1 Argument10 Argument2 Argument3 Argument4 Argument5 Argument6 Argument7 Argument8 Argument9Comments ExpressionLabelScriptId ScriptName@8 @( dhfjh@`& x8@$ ``@  @ @ (@@ @ @ @ @p @(p@ hh(HpX` !$x@$x@rpt_MailingEnvelope22222222222 $x@$x@mod_PostNet_Generator44444444444 $x@$x@frm_Credits***********  $x@$x@AccessLayout+++++++++++ $x@$x@SysRel%%%%%%%%%%% $x@$x@Scripts&&&&&&&&&&& $x@$x@Reports&&&&&&&&&&& $x@$x@Modules&&&&&&&&&&& $x@$x@Forms$$$$$$$$$$$ $x@$x@MSysRelationships22222222220 $x@$x@MSysQueries,,,,,,,,,,* $x@$x@MSysACEs))))))))))' $x@$x@MSysObjects,,,,,,,,,,* $x@$x@MSysDblu86u:6666666666% $x@$x@Relationships.........., $x@$x@Databases**********( $x@$x@Tables''''''''''% { is set to "No".< 2 - Set On-Print property of section to [Event Procedure]< by clicking on the [...] and selecting "Code Builder"7 3 - Confirm that the following code matches yours...B Sub Detail1_Print (Cancel As Integer, PrintCount As Integer)- Result = MD_PostNet(PostNetCode, Me) End SubC 4 - NOTE: The name of the section is "Detail1" for example only!A 5 - NOTE: The field PostNetCode represents 5-, 9-, or 11-digit@ ZIP code with a correction character. The 9-digit isB Zip+4, and the 11-digit includes Delivery Point BarCodeC (DPBC) which represents the last 2 numbers of the streetF address, post office box, rural route, or hwy route number.F The function MD_PostNetCode([PostalCode],[Address]) is usedF to extract these codes along with the correction character.E This is why the PostNetCode field makes reference to this.D For more information consult the USPS Publication 25. TheB location of this barcode can be moved above the addressF block. Refer to Pub. 25 for more information on this also.F PostFimCode has been added for bulk mailers. This field isE set to "A", "B", "C", or blank. Refer to Pub. 25 for moreB information on the use of this code along with PostNet.J The field control.source is hardcoded but can point to a table.( HZ&> (c) 1993-1999 James Isle Mercanti,VCe!N            sFlagsFormModuleNameReplicationVersionTypeTypeInfoVersion5Index1vgruovordxmfv ufm`wjrpvijsvufsruwv vbujswv v}vufm w`amfvov}v`bfvov}vo`burvov}vrakfbwvov}vtxfujfvov}vufm`wjrpvijsv`bbfvvm`}rxw ov}vda@` To Len.(I; ~= MD_P(Mid A!, 1) Yk9id$(D=YK PJSelect Cas)¡! +Zipf!@Intege&D0Poinⷡing3If{) > 5 The`;= xmatR$"0"D}E8lse !00&'IfcA>1%e% `IsbN`1ricD, x⏢4AC @ x <>B! l (G R@ !%"Vall))2`$3#f "|h 4)@-+ = c {`( & S]+)& -rrV3!` a y/1on1-CheckSumV.;/Co HE5>%?x D q%f+ 8&S%t0 - (vMod 10Q8 T = 8)O__SRP_3 rU~} !Y 1Y 1 I a  9  ! i ) !0K t:dlt:dlt:dlt:dlt:dlt:dlt:dlt:dlt:dlt:d lt lt1x Cx 4xt KH W4 {qg @ @       4$LP4PKH W( *s<5(H W( *s85( oH?st?sp{Gz?sl?shl LL<(<,<0<4<8<<<6 *\R1*#2b*\R1*#8b"*\Rffff*a36b4e451*\G{000204EF-0000-0000-C000-000000000046}#3.0#9#\\BADGERPASS\APPS\MSAPPS97\VBA\vba332.dll#Visual Basic For Applications*#c*\R1*#89*\R0*#d*\R0*#10*\R1*#89*\R0*#c+ `d+@.i ` +FX` k55 use)! on o$)%$`*t cod`,pH N`.lourc`0hired`2Xdd.`4` for`6P buti`8L Wba`:H`<@Dring@>`C@@B Xx8$$$$`*t`,p`.l`Jh`0d`Lp ``2 \`4X`N8H `PD`R@`:<`<8@>LVAL C@@B X8 $$`\t`^p``n`b hHIX $.`lv``t`nrH(0$I^ 0P$+V` k0IZ P`x+`k`66J)! $)% $+j`0k@Xt @d (p  h `z J @ 4 @@$ 0 W@  @ @@  X  h@@ ( @ h @ @  l@ vhP H p  `Fz p @0 ( @ @   X@LVAL `  @x  @ @ @   ` @  @  0 (8  `VxP @ X @H @8 @( dhfjh@`& x8@$ ``@  @ @ (@@ @ @ @ @p @(p@ hh(HpX`(X`jx@` (@(P @N D@L "!(EXh @B@< @8 @0 (ME.2  P @ ,H x D` H H   ( N( <x B B >H  H  4    8 J@  H F H( Jp L L L` LLVAL  J HP L  L L@ H P (0  B      8 X x      8 H P X ` h p B x        $      0  H   X  p            $  0 8  @ P  p           B    (H`p H $ 0&0& 8  @H h ,      0 P*$`          ( 08 @ B H P` p%%  -  4 X`h pLVAL !    B   "; ( 8P "h x )Use database order for string comparisons? I ask for no money, no contributions, just credit for my work. UE Permission granted for public use and royalty-free distribution onlyG if this Copyright notice is included with this module code for credit.H No other mention of source or credits is required. All rights reserved.! email: jamesmercanti@hotmail.comD Send me an e-note with your postal address for demos and more info.@ NOTE FOR PURISTS: I have elected to use standard English object@ identifiers for those not familiar with L-R naming conventions. TO USE THIS CODE:H 1 - Create Report with a TextBox control. (example named PostNetCode)5 Make sure the Visible property is set to "No".< 2 - Set On-Print property of section to [Event Procedure]< by clicking on the [...] and selecting "Code Builder"7 3 - Confirm that the following code matches yours...B Sub Detail1_Print (Cancel As Integer, PrintCount As Integer)- Result = MD_PostNet(PostNetCode, Me) End SubC 4 - NOTE: The name of the section is "Detail1" for example only!A 5 - NOTE: The field PostNetCode represents 5-, 9-, or 11-digit@ ZIP code with a correction character. The 9-digit isB Zip+4, and the 11-digit includes Delivery Point BarCodeC (DPBC) which represents the last 2 numbers of the streetF address, post office box, rural route, or hwy route number.LVAL "F The function MD_PostNetCode([PostalCode],[Address]) is usedF to extract these codes along with the correction character.E This is why the PostNetCode field makes reference to this.D For more information consult the USPS Publication 25. TheB location of this barcode can be moved above the addressF block. Refer to Pub. 25 for more information on this also.F PostFimCode has been added for bulk mailers. This field isE set to "A", "B", "C", or blank. Refer to Pub. 25 for moreB information on the use of this code along with PostNet.J The field control.source is hardcoded but can point to a table.p x11000+ 000011+ 100101+ 200110+ 301001+ 401010+ 5but01100+ 6its"10001+ 711D210010+ 8abBl10100 + 9ose! $'ats'f (Z(@ZXpZZZZEZ !':E !B'< AHQ 110010011'6BHQ 101101101'6CHQ 110101011'6P 000000000'6k'*',X9v?'. :'2 0 6 6 0$'8 @'4 81HQ 2 < . , 4 $0 2 . '2,Bar0HQ 2 . '2,NoBark 2 . '2$NoBar 0D`sX(PDHf@H0ZZ 8PZhZZZEZ LVAL #!':E !B'< 'N ?'*E ?', {Gz?'.E ?'J :'2 @'4 2 < . , 4 $0 2 J '2 HighBar 0 N N 0$$'P L P L$ 'R @'4 R1HQ 2 < . , 4 $0 2 J '20HighBar0HQ 2 < , *  . * 4 $0 2 J '20LowBark L 0 @'4 2 < . , 4 $0 2 J '2 HighBarT0s(H TfXZZ X X 000000000$ '\a X00000$ '\h ` Z Z `$$dFrg ` ` Z Z `$$h$ $ f00$ 'ba 'bh \ \'^a \ b'^h ^ ^$j'Vf Zh ` ^ l ^ `$$h 'l ` l  'n n F'ng n$ 'jf 8 (c) 1999 James I. Mercanti, Cocoa Beach, FL 32931 USA! email: jamesmercanti@hotmail.comE Permission granted for public use and royalty-free distribution onlyG if this Copyright notice is included with this module code for credit.E Permission granted for public use and royalty-free distribution onlyG if this Copyright notice is included with this module code for credit.H No other mention of source or credits is required. All rights reserved.? I ask for no money, no contributions, just credit for my work. TO USE THIS CODE:H 1 - Create Report with a TextBox control. (example named PostNetCode)5 Make sure the Visible propertyLVAL $ is set to "No".< 2 - Set On-Print property of section to [Event Procedure]< by clicking on the [...] and selecting "Code Builder"7 3 - Confirm that the following code matches yours...B Sub Detail1_Print (Cancel As Integer, PrintCount As Integer)- Result = MD_PostNet(PostNetCode, Me) End SubC 4 - NOTE: The name of the section is "Detail1" for example only!A 5 - NOTE: The field PostNetCode represents 5-, 9-, or 11-digit@ ZIP code with a correction character. The 9-digit isB Zip+4, and the 11-digit includes Delivery Point BarCodeC (DPBC) which represents the last 2 numbers of the streetF address, post office box, rural route, or hwy route number.F The function MD_PostNetCode([PostalCode],[Address]) is usedF to extract these codes along with the correction character.E This is why the PostNetCode field makes reference to this.D For more information consult the USPS Publication 25. TheB location of this barcode can be moved above the addressF block. Refer to Pub. 25 for more information on this also.F PostFimCode has been added for bulk mailers. This field isE set to "A", "B", "C", or blank. Refer to Pub. 25 for moreB information on the use of this code along with PostNet.J The field control.source is hardcoded but can point to a table.( HZ&> (c) 1993-1999 James Isle Mercanti, Cocoa Beach, FL 32931 USAA Permission granted for public use and royalty-free distribution.B No mention of source or credits is required. All rights reserved.& version 2.0 (updated for MsAccess 97)ce PJ PostLVAL %Net Generator for United States Postal Service PostNet & FIM BarcodesAttribute VB_Name = "mod_PostNet_Generator" Option Compare Database ' U dorder for sng cbisons '  .United States#al Service2& FIM BarcodBeOvers2.0 (upGMsAcces s 97){(c) 1993-9 Jzs Isle Mercanti,qcoa Beach, FL 32931 USA^ermis7gr5public uand royalty-frepe diR.!No me5of sourqcredits is requi. All righ resed"#TOJE THIS C0ODE: 1 - Cre Report with a T@extBoxntrol. (ePxamp@nBd=ZCWLwMa ke su}th!@isib@ pr@operty+set to "NDo"8 2 S@On-Print yRG~%(DPBC) whi ch ! lastaPnumb &t#`radd s,, p fabo@x, rurro, !hwy?{a ]%#!4fuNn[=([>aBla],[AC])gdc u(W~-s alo^by!. ThC@why! | C@m{fere \-xt,Fmo in@@g!ca[aUSPS P ab{25.?locBXbc be mov ab$3bkKRe`. 25b_" alsok 2Fim2 has1`en bulkil HY =&i>%A", "BC&blan +Be%"@`5P|@4sdd irpo5 'a P}leSExp0X? F-(CPARS !S@On ErrGoToTrap_P`ReDim (10`Q0)11000" ' 01111R21023ե134R45S56`a67kc78899SE0e2ExitbQ orT"Pts~u`i SFIM(CtrrCoR, Rpt1!)I3t{ !r# SA"L CS}le, zHWqzXeNAar'l{+-LWV8ari/pegB/SxRt Sy`jWh16777215:npBla#T#Sb"=BB"LVAL &= (1440 * (5 / 8)@3#0.0314E"= Sxq$%=pMLen!= MidX, qOQ1Co'= " gS8cby"1Q1p8.@Line ( ,#)-Step(S4)q , BF1+ '@ "0 xNoqwW59c CN=oSonlS!vRRs`[RRR RRP5 HRN%s Single, Wbar AES x Dim CountX "Y "NexLtB |loLong, PostNet)¡! +Zipf!@Intege&D0Poinⷡing3If{) > 5 The`;= xmatR$"0"D}E8lse !00&'IfcA>1%e% `IsbN`1ricD, x⏢4AC @ x <>B! l (G R@ !%"Vall))2`$3#f "|h 4)@-+ = c {`( & S]+)& -rrV3!` a y/1on1-CheckSumV.;/Co HE5>%?x D q%f+ 8&S%t0 - (vMod 10Q8 T = 8)O__SRP_3 rU~} !Y 1Y 1 I a  9  ! i ) !0K t:dlt:dlt:dlt:dlt:dlt:dlt:dlt:dlt:dlt:d lt lt1x Cx 4xt KH W4 LVAL '*sH54H W4 *sD54H a4$$: ]1\] :P$:]1\} :P$:]1\ :P :P5$st붳spX9v?sllHqdhP4*e$(4nhP `1L64 q`lLC l2gl`lplllDld.H  ndnlsd l2 ndnlsd/ ndnlsd hh  4$LP4PKH W( *s<5(H W( *s85( oH?st?sp{Gz?sl?shl(\c'Hknl( (`# t'ok 1># 1:8N>F 1h2 6 H(m ChltJltCp ltlh*1plppMX@ # *1x/  4xthp4 H(t `PUcL_;(Pktl < <`#8 t0kvo0pv/86P< tdL kv pr kr pr"'PrM`@ 1x5PL(x8P<W__SRP_2arU (`&8LVAL`9q==Q8`9q==Q,`//(!`/p+i;0MSysDb!# -H+Report_rpt_MailingEnvelope*OK?;7EXmod_PostNet_Generator2..*&1LVAL=ͬ/LrCKp١yPageHeader0yDetail1myMailingListIDmyPrefixmyFirstNamemyMiddleNamemyLastNamemySuffixmyOrganizationNamemy Addressmy Citymy Statemy Regionmy PostalCodemyCountrymyPersonmyPostNetCodemyPostCodemyMailTomyPostFimCodedyText68yPageFooter2yNicknameyTitleyHomePhoneyWorkPhoneyMobilePhoneyFaxNumberyAlternativePhoneyEmailAddressyCompuServeIDyBirthdatey Nationalityy!EmrgcyContactNamey"EmrgcyContactPhoney#DateUpdatedy$MembershipStatusy%DateJoinedy&PledgeAmounty'PledgePaidDatey(DuesAmounty)DuesPaidDatey*Hobbiesy+HealthProblemsy,Photography-Notedy.Label71LVAL ,i_VBA_MODULEZ H^KKp١LrCKp١^KKp١xQ ^KKp١^KKp١m  p4r8<@P[LS S6L <N0{C1CC724C-B5EA-11D2-9D43-00104B70D9A1}6 "*\Rffff*e36b4e45b*\R1*#89"*\Rffff*a36b4e451*\R1*#2d (\O$p``pkpT :\ir itH0 $ $H $0 $ $ $X $@ $ $ $ $ $pHPX`0@X $p( $ $ $ $ $@`zx 0 $ $LVAL $^F@@t @p p(00LXThME 2 " 8 x )@ )X p )Use database order for string comparisonsINN0  $'\WI ^ $F'm;ClZAttribute VB_Name = "Report_rpt_MailingEnvelope"D Basb0{C1CC724C-B5EA-11D2-9D43-00104B7@0D9A1} |CreatablCTrue ]Pre declaId"Expose!Fals @TemplateDeriv%Cust0omizD$Option Com2p@ DTv 'Uzdorder for s!ng cisons P=A Sub D$et1_ nt(Cancel As Integer,  Count )# Dim intReturn = MD_Pos tFIM(imCode, Me&% ' 8Net  End0__SRP_4(rU )@4a)ppp@8Iqrrr@<@@aNX)t! l=ppt pz)tp)t! l=ppt pz)tp X$ tp8[__SRP_5wrU L,`T&&pLVAL .:abc/gHhiJj$kRS|k@tbl_MailingListArial8p  /&h \\BADGERPASS\HP4SILJAps XXLetter %''''='winspool\\BADGERPASS\HP4SILJANe01:d8Arialm5<Arial` PageHeader0`&[Event Procedure]Detail1m5`ZabF MailingListID MailingListIDm5`ZabFkPrefixPrefixm5`ZabFk FirstName FirstNamem5`ZabFk MiddleName MiddleNamem5`Za bFkLastNameLastNamem5`Za bFkSuffixSuffixm5`Za bFkOrganizationNameOrganizationNamem5`Za bFkAddressAddressm5`ZabFkCityCitym5`ZabFk StateStatem5`Za,bFk RegionRegionm5;`ZaHbFk PostalCode PostalCode 00000\-9999m5`Za:bFk CountryCountrym5`ZabFkPerson=IIf(IsNull([Prefix])=False,[Prefix] & " ","") & IIf(IsNull([FirstName])=False,[FirstName],"") & IIf(IsNull([MiddleName])=False," " & [MiddleName],"") & IIf(IsNull([LastName])=False," " & [LastName],"") & IIf(IsNull([Suffix])=False,", " & [Suffix],"")m5`<abchk PostNetCode'=MD_PostNetCode([PostalCode],[Address])m5;`ZabFkPostCodeZ=IIf(Len([PostalCode])>5,Format$([PostalCode],"00000-0000"),Format$([PostalCode],"00000"))m<"`abc~ i k MailTo=IIf(IsNull([Person])=False,[Person] & " ","") & IIf(IsNull([OrganizationName])=False,[OrganizationName] & " ","") & IIf(IsNull([Address])=False,[Address] & " ","") & IIf(IsNull([City])=False,[City] & ", ","") & IIf(IsNull([State])=False,[State] & " ","") & IIf(IsNull([Region])=False,[Region] & "LVAL ","") & IIf(IsNull([PostalCode])=False,[PostCode] & " ","") & IIf([Country]<>"USA"," " & [Country],"")m5`'bck PostFimCode="C"d`^aZb cText68Set [PostFimCode] to A - Courtesy Reply Mail w/PostNet B - Business Reply, Penalty, and Franked Mail w/o PostNet C - Business Reply, Penalty, and Franked Mail with preprinted PostNet Blank - All Otherd8"`aZb cd eLabel717Spacely Products P O Box 724 Cape Canaveral, FL 32920` PageFooter2LVAL 1i_VBA_PROJECT a^  *\G{000204EF-0000-0000-C000-000000000046}#3.0#9#W:\MSAPPS97\VBA\vba332.dll#Visual Basic For Applications*\G{4AFFC9A0-5F99-101B-AF4E-00AA003F0F07}#8.0#0#\\BIGSKY\APPS\OFFICE97\Office\msacc8.olb#Microsoft Access 8.0 Object Library 6 4Report_rpt_MailingEnvelope e36b4e45b*D0 *mod_PostNet_Generator a36b4e451*D?P0CKp١IrCKp١NrCKp١0v}6 Access As"Const=dimUforkinteger VBAWin16~Win32MacDAO Postnet97aForm_frm_Credits#  _Evaluate mod_PostNet_Generator) Report_rpt_MailingEnvelope(MD_PNetCharCodeErrorTrap_PNet2PNet Exit_PNet (MD_PostFIMeCtrlControlRptReport$ErrorTrap_PostFIMr LbarkHbarhTWbar#CountXJ8NextBarColor2FPostFIMStriperSx,_Sy)LVAL 2_WhiteBlack&Top5 Exit_PostFIM4K (MD_PostNetWErrorTrap_PostNet7SbarCountYG8PostNetWStripes OneStripex Exit_PostNetou(MD_PostNetCodei PostalCodeAddressZipCode; PostNetCodexoDPoint<# IsNumeric$*Right Val(MD_PostNetCorrectionjCheckSum% Correction Detail1_PrintCancel PrintCount PageHeader0DDetail1- MailingListIDiPrefix FirstName MiddleNameoLastNameSuffix_MOrganizationNameޛCityDStateRegionCountryPerson"uPostCodeMailTo PostFimCodeText68s PageFooter2NicknameTXTitle~ HomePhone WorkPhone MobilePhoneQ FaxNumberAlternativePhone EmailAddressu CompuServeIDr Birthdate  Nationality$EmrgcyContactNameEmrgcyContactPhone DateUpdated"MembershipStatusԮ DateJoinedd PledgeAmount=6PledgePaidDatet DuesAmount\ DuesPaidDateZDHobbiesHealthProblems PhotographRNote>Resulturutility1J _B_var_Result _B_var_PNet' _B_var_Midp _B_str_MidX _B_str_Format" _B_str_Right#(_B_var_FunctionO _B_var_Options intReturnxintYield _B_var_ConstgcYieldY.Label71 Generatorwversion<  $ dir0* pHd Postnet9D70@ = p 6 * J< Report_rpt_MailingEnvelo pe _VBA_MODULE2VBA_MODULEH1  E,t"!(E+mod_vNet_Generator@?@! :=__SRP_0K)^rU~~~~~~~~~~~~~~~~~~~~~~~~~&LVAL 3 KcKKp١  A  Postnet97Form_frm_Creditsmod_PostNet_GeneratorReport_rpt_MailingEnvelopeFW:\MSAPPS97\VBA\vba332.dllVBA  PJ_N? (\\BIGSKY\APPS\OFFICE97\Office\msacc8.olbAccess Qy`^F>C:\Program Files\Common Files\Microsoft Shared\DAO\dao2535.tlbDAO IqpKrCKp١QrCKp١LrCKp١PrCKp١z? PageHeader0aC7?Detail1WC7?Report PageFooter2 Detail1_Print LMD_PNet MD_PostFIM@e&N?k>N? MD_PostNetMD_PostNetCodeMD_PostNetCorrection  11000 00011 00101 00110 01001 01010 01100 10001 10010 10100 LeftTop A 110010011 B 101101101 C 110101011 000000000 VBA332.DLL q x  1 0 q w q   00000 q 1 q E q j  0011CKp١71CKp١61CKp١B1CKp١A1CKp١^KKp١^KKp١^KKp١^KKp١^KKp١^KKp١^KKp١^KKp١__SRP_1arU~~~~~u   I $LVAL0(Cancel PrintCountCharCode i8Ctrl HRpt PostalCodeAddress PostNetCodeE  ord,srvwpfw,hfpfu`wru)ov}vda)ufsruw,usw,o`jmjphfpzfmrsf)d`w`a`vfvgruovordxmfv ufm`wjrpvijsvufsruwv vbujswv v}vufm w`amfvov}v`bfvov}vo`burvov}vrakfbwvov}vtxfujfvov}vufm`wjrpvijsv`bbfvvm`}rxw ov}vda@` To Len.(I; ~= MD_P(Mid A!, 1) Yk9id$(D=YK PJSelect Cas)¡! +Zipf!@Intege&D0Poinⷡing3If{) > 5 The`;= xmatR$"0"D}E8lse !00&'IfcA>1%e% `IsbN`1ricD, x⏢4AC @ x <>B! l (G R@ !%"Vall))2`$3#f "|h 4)@-+ = c {`( & S]+)& -rrV3!` a y/1on1-CheckSumV.;/Co HE5>%?x D q%f+ 8&S%t0 - (vMod 10Q8 T = 8)O__SRP_3 rU~} !Y 1Y 1 I a  9  ! i ) !0K t:dlt:dlt:dlt:dlt:dlt:dlt:dlt:dlt:dlt:d lt lt1x Cx 4xt KH W4 VC N%%77   (  2  ,  2          2    2 2 2     J2    J    J    J2  2   2  J2         $ , ! 4 !"  "# J #$  $% J MailingListIDPrefix FirstName MiddleNameLastNameSuffixNicknameTitleOrganizationNameAddressCityStateRegion PostalCodeCountry HomePhone WorkPhone MobilePhone FaxNumberAlternativePhone EmailAddress CompuServeID Birthdate NationalityEmrgcyContactNameEmrgcyContactPhone DateUpdatedMembershipStatus DateJoined PledgeAmountPledgePaidDate DuesAmount DuesPaidDateHobbiesHealthProblems PhotographNoteJJ79JJ 7:JJ 7; JJJ 7<J 7=  EmailAddressLastNameOrganizationName PostalCode PrimaryKey"77#77$77th this module code for credit.E Permission granted for public use and royalty-free distribution onlyG if this Copyright notice is included with this module code for credit.H No other mention of source or credits is required. All rights reserved.? I ask for no money, no contributions, just credit for my work. TO USE THIS CODE:H 1 - Create Report with a TextBox control. (example named PostNetCode)5 Make sure the Visible property {qg]SI?sD54H a4$$: ]1\] :P$:]1\} :P$:]1\ :P :P5$st붳spX9v?sllHqdhP4*e$(4nhP `1L64 q`lLC l2gl` 6@@ @@guo,bufdjwvord,srvwpfw,hfpfu`wruusw,o`jmjphfpzfmrsf`xwrf|fbd`w`a`vfvgruovordxmfv ufm`wjrpvijsvufsruwv vbujswv v}vufm w`amfvov}v`bfvov}vo`burvov}vordxmfvov}vordxmfvXov}vrakfbwvov}vtxfujfvov}vufm`wjrpvijsv`bbfvvm`}rxw ov}vda4Report_rpt_MailingEnvelope e36b4e45b*D0 *mod_PostNet_Generator a36b4e451*D?P0CKp١IrCKp١NrCKp١0v}6 Access As"Const=dimUforkinteger VBAWin16~Win32MacDAO Postnet97aForm_frm_Credits#  _Evaluate mod_PostN% @@@@B@O@Dr.JacobAnthonyXenaMDJakePresidentLong Clinic3647 Agerian RoadFuturaNACentral708091234USA80055512128005551212800555121280055512128005551212jxena@aol.com77777.2424USJacob Sr.8005551212PAIDRunningNONE Never Dies!&Ⱦ{j_VRPLE@=6k|fp`'`rmbro8$'P L P L$ 'R @'4 R1HQ 2 < . , 4 $0 2 J '20HighBar0HQ 2 < , *  . * 4 $0 2 J '20LowBark L 0 @'4 2 < . , 4 $0 2 J '2 HighBarT0s(H TfXZZ X X 000000000$ '\a X00000$ '\h ` Z Z `$$dFrg ` ` Z Z `$$h$ $ f00$ 'ba 'bh \ \'^a \ b'^h ^ ^$j'Vf Zh ` ^ l ^ `$$h 'l ` l  'n n F'ng n$ 'jf 8 (c) 1999 James I. Mercanti, Cocoa Beach, FL 32931 USA! email: jamesmercanti@hotmail.comE Permission granted for public use and royalty-free distribution onlyG if this Copyright notice is included with this module code for credit.E Permission granted for public use and royalty-free distribution onlyG if this Copyright notice is included with this module code for credit.H No other mention of source or credits is required. All rights reserved.? I ask for no money, no contributions, just credit for my work. TO USE THIS CODE:H 1 - Create Report with a TextBox control. (example named PostNetCode)5 Make sure the Visible property6|fp`8            IdParentIdNameType DateCreate DateUpdateOwnerFlagsDatabaseConnect ForeignName RmtInfoShort RmtInfoLongLvLvPropLvModuleLvExtra  Id ParentIdName        K PJSelect Case K "1"OA]ac0C|AB + ("U- Y)JD")JD)cazLow&FEnd -(`Q@nYX^ar^!  L%^Exit_d[:A FunctiontErrorTrap Resume I`! edo"Code "ealA, Address)«! +ZipF!Intege&DPoifnºingIf{) > 5p The`;=B xmat$" 0"D}Elseg !00&'IfcA1%e%G `IsN`1ricD, xߢ4AC @ x <>B! l ;(G R@ !%"Vall))2`$3#f "|q4 W=4)@-+ = c {`( & S]+)& -rrV3!`3 a /1on1-ChecpkSumV.;/Co HE5>%x D q%f+ 8&S%t0 - (vMod 10?Q8 T = 8)O__SRP_3 rU~} !Y 1Y 1 I a  9  ! i ) !0K t:dlt:dlt:d6mrphbmjpjb86]V^V_WXYZ868+`B3$uWS5&wh(yj[H*{  T   lu86u: ۇ O8V#jKrvwlrV#jKV#jKV#jKV#jKrvwlrV#jKV#jKV#jKV#jKV#o  lu86u: ۇ O8V#jKrvwlrV#jKV#jKV#jKV#jKrvwlrV#jKV#jKV#jKV#jKV#o  lu86u: ۇ O8V#jKrvwlrV#jKV#jKV#jKV#jKrvwlrV#jKV#jKV#jKV#jKV#o    ۇ O8V#jKrvwlrV#jKV#jKV#jKV#jKrvwlrV#jKV#jKV#jKV#jKV#o  lu86u:  ۇ O8V#jKrvwlrV#jKV#jKV#jKV#jKrvwlrV#jKV#jKV#jKV#jKV#o lu86u:   lu86u: ۇ O8V#jKrvwlrV#jKV#jKV#jKV#jKrvwlrV#jKV#jKV#jKV#jKV#o   lu86u: ۇ O8V#jKrvwlrV#jKV#jKV#jKV#jKrvwlrV#jKV#jKV#jKV#jKV#o   lu86u: ۇ O8V#jKrvwlrV#jKV#jKV#jKV#jKrvwlrV#jKV#jKV#jKV#jKV#o   ۇ O8V#jKrvwlrV#jKV#jKV#jKV#jKrvwlrV#jKV#jKV#jKV#jKV#o lu86u:   lu86u: ۇ O8V#jKrvwlrV#jKV#jKV#jKV#jKrvwlrV#jKV#jKV#jKV#jKV#o   lu86u: ۇ O8V#jKrvwlrV#jKV#jKV#jKV#jKrvwlrV#jKV#jKV#jKV#jKV#o  lu86u: LVAL @ @ @>>>>>>>>> >>>>>>>>>>>>>>>> > > > 00 frm_Credits010023ghij%k/zk@MicroDoctor presents...Arial`xDetail0d5U`axbcd eText2\PostNet Generator for United States Postal Service PostNet Barcodes version 2.0 (updated for MsAccess 97) (c) 1993 - 1999 James Isle Mercanti, Cocoa Beach, FL 32931. USA Permission granted for public use and royalty-free distribution. No mention of source or credits is required. All rights reserved. email: jamesmercanti@hotmail.comArialʾtbl_MailingList