Standard Jet DBЕnb` ТUщЉgr@?œ~Ÿџ…š1ХyКэ0МпЬcйэЧŸFћŠМN†ћь7]DœњЦ^(цЖŠ`T”{6uпБwєCЯЏБ34ay[’Е|*ё|™˜§OJ”l>`&_•ја‰$…gЦ'DвюЯeэџЧFЁx эщ- ш{іNџџџџ|јџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџVCФS  ф ф  фџ ф ф  ф  ф2џcџ ф  фct  ф  фjџџ  фџ  фO  ф  ф  ф  фџџIdParentIdNameType DateCreate DateUpdateOwnerFlagsDatabaseConnect ForeignName RmtInfoShort RmtInfoLongLvLvPropLvModuleLvExtraџџsџџeџџtџџnџџiџџџџџџџ џџџџџџџџџџџџ џџtџџџџЕ џџџџџџџџId ParentIdName        џџШ @(  џџџџаџџџџџџџџџџџџx Pџџџџx џџџџИ ˆ№h  џџџџ˜8 [ъџџџџ€(h№ џџџџџџџџxX џџџџџџџџџџџџШ јаџџџџШџџџџџџџџџџџџPШ @(  џџџџаџџџџџџџџџџџџx Pџџџџx џџџџИ ˆ№h  џџџџ˜8 ƒFџџџџџџ@џџџџџџџџџџџџџџџџџџ(h№ џџџџџџџџxX џџџџџџџџџџџџШ јаџџџџШџџџџџџџџџџџџPШ @(  џџџџаџџџџџџџџџџџџx Pџџџџx џџџџИ ˆ№h  џџџџ˜8 ƒFџџџџџџHџџџџџџџџџџџџџџџџџџ(h№ џџџџџџџџxX џџџџџџџџџџџџШ јаџџџџШџџџџџџџџџџџџPШ @(  џџџџаџџџџџџџџџџџџx Pџџџџx џџџџИ ˆ№h  џџџџ˜8 ƒFџџџџџџ8џџџџџџџџџџџџџџџџџџ$ƒFџџџџџџhџџџџџџџџџџџџџџџџџџ$(h№ џџџџџџџџxX џџџџџџџџџџџџШ јаџџџџШџџџџџџџџџџџџPШ @(  џџџџаџџџџџџџџџџџџx Pџџџџx џџџџИ ˆ№h  џџџџ˜8 ƒFџџџџќџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџVCп9S   ф  ф2џ ф фObjectIdSIDACM FInheritableџџџџџџџџџџфџџџџџџbџџc џџџџObjectIdџџџџџџџџџџџџџџџџџџџџ$ƒFџџџџџџhџџџџџџџџџџџџџџџџџџ$ „|џџџџPџџџˆџџџџ@$#~Р`џџџџџџџџџџџџџаџџџџ РŒ?Ш )ƒ†џџџџ џџаџџџџџџџџƒb џџџџџџџџџџџџџџџџџџџџ№$$$ƒb џџџџџџXџџџџџџџџџџџџџџџџџџ$џџџџџџџџџџџџџџџџаџџџџџџџџx И (№џџџџˆаџџџџџџџџџџџџPhџџџџџџџџџџџџ P( џџџџџџџџџџџџџџџџX˜8 Ш x@ШhШ   №  јx џџџџƒb џџџџџџ џџџџџџџџџџџџџџ џџ$$h€6џџsџџџџџџџџџџџџџџџџџџџаџџџџџџџџx И (№џџџџˆаџџџџџџџџџџџџPhџџџџџџџџџџџџ P( џџџџџџџџџџџџџџџџX˜8 Ш x@ШhШ   №  јx џџџџџџџџџџџџџџџџаџџџџџџџџx И (№џџџџˆаџџџџџџџџџџџџPhџџџџџџџџџџџџ P( џџџџџџџџџџџџџџџџX˜8 Ш x@ШhШ   №  јx џџƒb џџџџџџ(џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџаџџџџџџџџx И (№џџџџˆаџџџџџџџџџџџџPhџџџџџџџџџџџџ P( џџџџџџџџџџџџџџџџX˜8 Ш x@ШhШ   №  јx џџƒb џџџџџџPџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџаџџџџџџџџx И (№џџџџˆаџџџџџџџџџџџџPhџџџџџџџџџџџџ P( џџџџџџџџџџџџџџџџX˜8 Ш x@ШhШ   №  јx џџџџƒb џџџџџџXџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџаџџџџџџџџx И (№џџџџˆаџџџџџџџџџџџџPhџџџџџџџџџџџџ P( џџџџџџџџџџџџџџџџX˜8 Ш x@ШhШ   №  јx џџџџƒb џџџџџџџџџџџџџџџџџџџџџџџџ$h€ џџџџџџh€ 8џџџџVC?S   ф ф  фџ  фџ  фџ  фџ фObjectId AttributeOrderName1Name2 ExpressionFlagџџiџџlџџnџџzџџjџџtџџz џџџџObjectIdAttribute  џџџџџ€ џџ#H(pџџџџџџџџџџџџИџџ(]] №iƒџџџџџџџџџџи„Ш iƒџџџџџџџџџџџџџџ„аҘrxBџџџџџџџџџџџџџџџџџџТ˜vџџџџBџџџџџџџџџџџџџџ  +ИА`џџџџџџџџџџџџ\џDX џџџџhŒџџџџ+(`џџџџџџџџџџџџџ@ШџџџџЌŒџџџџiƒ*џџџџ џџџџx€џџџџƒ џџџџџџ` џџџџџџџџџџџџџџИ XŒџџРƒ џџџџџџиџџџџџџџџџџџџџџџџџџШ lџџџ џџ џџџџРiƒ,џџџџџџџџ˜€iƒ.џџџџџџџџИ€џџџџiƒ0џџџџџџџџџџџџ€џџџџ ˜ ˆј џџџџџџџџџџџџРШ P@ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ0˜(џџџџР @ Аxџџџџ`ˆџџџџx Hјp Phиш ˆ8 џџџџџџџџ@џџџџР 8X€џџџџџџџџџџџџxи џџџџша!шџџџџџџџџи И џџџџџџџџџџџџџџџџXџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџИ ( а!Hhџџџ џџ И!pџџџџа!dџџO џџ џџ"pџџџџрШ"ш`џџџџџ џџџџ@ўџ\џџџџџ џџџџ|џџ џџџџџџ˜џџџџџџџџШ"џџџџџџџџџџџџЈ џџџџ(№ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџШ"ˆ#А"Ш"‚џџџџи #8xџџџџџўџLџџџ `#џџџџ‰џџџџ€"$шHџџџџџ џџџџюђ№&њŒј#pDџџџџџ џџџџ@ўџ@џџџџџ џџџџ@ўџ0џџџ џџ џџџџ(#џџџ џџ џџј# џџџ џџ H`xxџџџџџџџџџ™Ј$@џџџ џџ Р$џџџџ"%шџџџџџџџџџџџџџџџџџџџџџџVCS фџ ф ф ф  фџ  фџ  фџ  фџszRelationshipgrbitccolumnicolumnszObjectszColumnszReferencedObjectszReferencedColumnџџџџџџџџџџџџџџџџџџ џџџџџџџџџџџџџџџџџџ џџџџџџџџџџџџџџџџџџ џџџџџџџџџџџџszObjectszReferencedObjectszRelationshipџџш€ џџџџ€€€€€ €(€0€8€@€H€P€X€`€h€p€x€€€ˆ€€˜€ €Ј€ џџџџ€ џџџџ€ HА)€ H*€ 4ј)€ ,А#€ :˜*€ Hи*B  € !€$€ џџџџ€ 0$ 8$H$€ >`$ $ И$ и$ р$ " ш$ $% %(% 0%8% @% P%p%€ џџџџ€ џџџџ€ H +€ р#€ 4h+€ Rh,€ 0Р,€ X№,€ Hр+B x%€ Ш%€ а%€ и%€ џџџџ р% ш% 6ј%  &  &€ џџџџ (&€ џџџџ  8& @& #P& 4`& €& ˆ&&€ џџџџ€ џџџџ€ H€%€ 0*€ >@.€ 40€ F-€ € Hј-B €€€ џџџџ€ &ˆ"h  А&OР€ џџџџ€ $ш  € џџџџ€ & H € џџџџ` € џџџџ€ џџџџ€ HH-€ h€ </€ 0h*€ `P/€ @ +€ 0А/€ F€.€ и-€ HШ.B  &€№&€ џџџџ€ &ј& Ш' 8'M '€ џџџџ€  {іqьgт]иSЮIФ?К5•KччТЌo{@@gruo,gxpbwjrpf|`osmfv€€€џџц ordgjmfgxpbwjrpv€€€џџъ ordufgufviw`amfmjplv€€€џџћov}vda€€џџф o{)en dialog routine. |A@€и Return the path and file name. |!*$‚'(fџџ % , |($џџџџ@%ЗAttribute VB_Name = "modRefreshTableLinks" Option Exp licit@Compare Da@tabaseV'API Funcds PrivТaЮDeclV4 GetOpenFile€Lib "comdlg32.dll" Alias _  " 0A" T(pAfAnТAs OPENFILENAME) Booleanс‡SaveЊC ХCSHBrowseForFolder ‚ˆshell832"ƒ…(lpbi‚~‚(InfТo†Longб–ЩSHYPathFromIDListx!ByVal ИpidТcС,)2ClpBuffD%€SР­ngc3lstrcaD0kerьneRC•"D€o˜7bVE$У!1Yƒ, гƒ(lpƒ2G 6'constan tˆбC BIF_RETURNONLYFSDIRS@№1‡ЙЧ DONTGOBELOW@DOMAIN 2 MAX_PATHa60­ALLƒjA "All ae‡!ƒхHƒ OFN_ OWMULTIS ELECTр &H 20. aCREA€TEPROMPцEXPLOREђR‚ 80 С !MUSTEXIS…у 14HIDE`)#LYb 4ё NOРCHANGE`+ “A FР NCELШINKa$&H!“6ETWORKB№UTTOa1т#•Хƒ=уДNOVAL€/upiЂp‹ ofс-ep‡cked. W8hen0bi0box ipH‘9' pУЏp ed, €E№3rrs a€n\ex№ Ё"б,ѕ,oшnlyђtА &В&"Т!G" c rhetu0ˆd” Fћ@ б–R”Я%RB%l У1єГ?ѕ OffЈset fF(пРd) wheаМ‘т"qEЌ) begin%Aintс ф№IntegќerY~'-џ|le*'&™SоSŸSlР4uctSiz‚7Ї—%h 'hI’™cмyАdtr@рSНЂC`ustomwnјMaxбиШПOў r AёPџ ђ ўeOD005Цr_PўnрФС3т? S?Кџ"п_"BоВE$r F?ўв‘ш‘™ fnHook]Tem@tГчі k#Pubћяжь дё‚ё 1БУћђЛ6ч'€NАєqXС5˜sup€є ydasѓ.pБA TrueСGsuccessa€ €@€€gxpbwjrpf|`osmfvordgjmfgxpbwjrpvd`w`a`vfvgruovordxmfv ufm`wjrpvijsvufsruwv vbujswv v}vufm w`amfvov}v`bfvov}vordxmfvov}vordxmfvXov}vrakfbwvov}vtxfujfvov}vufm`wjrpvijsv`bbfvvm`}rxw ov}vdavxoo`u}jpgrxvfudfgjpfdromd7Х , „Ш &' Lef[р%c:,`• L(Є, vbNullChar) - 1?ь‰X€„Є A%IfПaFindDB(€7SearchaqЪ]' DiYС^ [alog box &f@‘СГusFtoX lo€@€‚'"_Nрorthw@ ЧЗ Xtur@gЁf@ њpР' @†ф’Ѓс^ msaof!ZMSA_OPENFIРLENAMECЃЄ' aТopЁŽsц\diEЄ b .рD"У= "Whe re IsaA D„Э?"c †IniЮtрˆЁ.tr‡& @К|€ACreaLteCУˆ("E s‚"@e*.mdbхe9# ' ‘Ђ(i.ro№utinЅ @A;  bШ bc% ReWA.b ‚-aРАf`Ю n€Юф"ATritm(F 4aBCeоdфPKс a(G$!8љУ, ЮЎ`&ЁрЩџЃЏ)gViЏ)Џ)Џ)џCC[Џ)q,ФƒЏ)Џ)џТŠЏ)С/Џ)a.Џ)Ђ?fz(O(р2qд= ›O(Ž(ѓ1, Гћц€J /(В4/(/({ S'T?/(-(`eO(O(ё O(а~rivА6ч~ЏЂParamArray varС(В%Var№iant|&<с~`37q=№CС‡fP_4 ss Ђб}rgp™nts  "esРp if pno aхР№FpЦatвExpp‰n even nИumb`UАOh($9Б;, рŸpˆ€–),( bu  'an oddѕis0VЃtA­ apР‹dP №*.*"УQ!-?А ё€V‘SСintP29Integч1Œu Nu2“Іs„= UBoun|d(Д&‘x Ї-^1нxР|P“R=бЕoПб€ГС1G =Енa&Цp )№Ж‡u[Д  Mod Ж2р(OН X"Aџ‚ UyТ@џ є лf€ГE*ЗY"Дj5Пѓя/с/ І_4P?4„A_ Юvert“!Dl6pжЖ"Џ3№80- Џ3 зbar ("€|") sep09ўtP4`Р51АдБ6@should,iиrs 1у|0ts..e. "A ccessІ|s|ЁBv|AllБNeёо* ‚р€9vs05 И'„laЙФ pai(r,  @5addedd рcode wi№ignoР=any emˆpty­ ||"s чТp)‘""Ё;‘aџX;б’sSя:BЬЧt,Р49аntPьos<"L@kEЖџРф@P’4&d№8Ѓ№ёС= 1і2SИ' A@IХ їl Юђ pweР!0‰Р aSб1`DЖny empty strings (not allowed). d Do,intPos = @InStr(8Las$,„FilterIn, "ˆ|")jIf T r> f) Thќen&`ˆEc Р& o{ ЌS8явЕє4EѕРјS8явЕє4EѕРїS8явЕє4EѕР­S8явЕє4EѕРњS8явЕє4EѕРљS8явЕє4EѕРЎS8явЕє4EѕРќS8явЕє4EѕРћS8явЕє4EѕРКS8явЕє4EѕРўS8явЕє4EѕР§S8явЕє4EѕРИS8явЕє4EѕРT8явЕє4EѕРџS8явЕє4EѕРНS8явЕє4EѕРT8явЕє4EѕРT8явЕє4EѕРПS8явЕє4EѕРT8явЕє4EѕРT8явЕє4EѕРЃS8явЕє4EѕРT8явЕє4EѕРT8явЕє4EѕР S8явЕє4EѕРT8явЕє4EѕРT8явЕє4EѕРЕS8явЕє4EѕР T8явЕє4EѕРMid(a z [- [& vbNullChaЦr c.Num`ј+ 1k. аElsej=j€3Aœ'nd IfBLoop Untiblš= 0ˆІ'Р Get l€Оо if it existфass um€щ‰Ы wasТ №bar €д€atz€)A:= L|en [ФIqY<‡m=е Џp €\)Р ‘q€*“pEHRJAdd *.*Hthere'AJten€sion fo@C ""d%RO#MSA_Con№vertуpР|aH9 СFunct ' PrijvI e ЁРSS  eName(msaof As‚OPENFIL@ENAME)I ntegeu' TOpр2 5 €e sA dialo†gФу:Dim  ї‰ g7R df ƒ€OF_to_O4F ‚,рCof`.FlagœFOr OFN_HIDEREADONlLYƒ =q*o~f'f„ Ут@,лЃƒ EшW_Ќ(у‘рŸ0т,SimplNeM1".; . with default valјues€0C0–:Gџ$ щ0НЁ€XD4…!ћCФ=Т Тœ,„ *=Ѓ+.РF СPath`urnedџ ).#с.' /Ѓ П/пХY_`W`с П_DiџуA+А.†Е_&рz П-ќF-А>ѓ-tЙ-_E”F"v -nўsDQфП,П,JJџƒ _ђJП,П,†=К џП,11 CS'АТП,П,| S К,yРП,oуа˜ ]SubРOБRpјOF(џVФK]p]БE@This s`cCes fromВ Win32‚uc€ture tobMicrosof€t Accesамtrъ_ŸePP=!€ LeftА .lіp б7,єЊ@]8зp`) - 1єD‡il’kхB€љTit Offset in full path (strFullPathReturned) where the file nameи (strFileNameReturned) begins.[ъРиK Offset in full path (strFullPathReturned) where the file extension begins.[ъиmџџZDІ ъ@ lesш@[ъ [ъ8[ъP[ъh[ъ€[ъ˜[ъА[ъШ[ър[ъј[ъ[ъ([ъ@[ъX[ъp[ъˆ[ъ [ъИ[ъа[ъшmџџHZDЇъш ZІ ъџџџџZЇъџџџџZІъџџџџZІъџџcђ2„нќЄЗ'с\ЄЗcђ2„нќЄЗ+Xс\ЄЗcђ2„нќЄЗ/Ќс\ЄЗcђ2„нќЄЗ1т\ЄЗcђ2„нќЄЗ2Tт\ЄЗ    cђ2„нќЄЗ3Јт\ЄЗ((((cђ2„нќЄЗ4ќт\ЄЗ0000cђ2„нќЄЗ5Pу\ЄЗ8888cђ2„нќЄЗ6Єу\ЄЗ@@@@cђ2„нќЄЗ7ју\ЄЗHHHHcђ2„нќЄЗ8Lф\ЄЗPPPPcђ2„нќЄЗ9 ф\ЄЗXXXXcђ2„нќЄЗ:єф\ЄЗ````cђ2„нќЄЗ;Hх\ЄЗhhhhcђ2„нќЄЗ<œх\ЄЗppppcђ2„нќЄЗ=№х\ЄЗ((˜T(„нќЄЗ>Dц\ЄЗ00˜T(„нќЄЗ?˜ц\ЄЗxxxx~T(„нќЄЗ@ьц\ЄЗ€€€€™T(„нќЄЗA@ч\ЄЗˆˆˆˆ™T(„нќЄЗB”ч\ЄЗ™T(„нќЄЗCшч\ЄЗš ˜!N d ˜(N ˜$'ˆ ˆ• ˜ |A@œhџџи ˆ'–fџџШ˜и0 Opens the file save dialog with default values.Zъ8ZъXZъp |$–'ˆ ˆ• |!*' hџџ@  'žfџџ0ˆи Opens the Open dialog.Zъ№Zъ | ˜A@š ˜$'ˆ ˆ• ˜ |A@œhџџИ ˆ'€fџџЈ ји+ Opens the Open dialog with default values.Zъh Zъˆ Zъ  |$€'ˆ ˆ• |!*' hџџ  'Ђfџџ иE Check links to the Northwind database; returns True if links are OK.Zъџџџџъџџџџх Ќ.Іи? Open linked table to see if connection information is correct.СH хЎProducts І%Ў.Ји" If there's no error, return True. АЄ•Џ'Єaџџр Џ'Єhџџа fџџШ 8 иN This sub converts from the Win32 structure to the Microsoft Access structure. ˜!B ˜!B Œ}Є $о |(* ˜!F |(, ˜!P |(. ˜!R |(0lџџ Ш иN This sub converts from the Microsoft Access structure to the Win32 structure.ZЄъX и( Initialize some parts of the structure. Д!Ж ˜(6Є ˜(8Є ˜(<Є ˜(>Є ˜(XЄ ˜(ZЄ ˜(V |!Ў• 2$~ ˜(:aџџР |! ˜(:hџџЈ |! ˜(@ž |!"Є |!" Є$^ ˜(BЄџ ˜(DЄЄ$^ ˜(FЄџ ˜(H |!$ ˜(L |!  ˜(J |!& ˜(T |!( ˜(N ˜ ˜(4lџџаHиC Refresh links to the supplied database. Return True if successful.ZъџџџџZъџџџџи) Loop through all tables in the database.х Ќ.Ії Мі І!РŒ МіРЏ'Ии Relinking complete.fџџјZъџџџџи6 Tries to refresh the links to the Northwind database.и Returns True if successful.ZъџџџџZъџџџџZъџџџџZъџџџџZъџџџџZЄъџџџџZЄУ ъџџџџZЄ ъџџџџZЄа ъџџџџZЄы ъџџџџZЄг ъџџџџZЎDeveloper Solutionsъџџџџи5 Get name of directory where MSAccess.exe is located. м$о'Ши& Get the default sample database path. ШЎ Samples\.$~Ў• Ш'zaџџ( ШЎSamples\'zhџџи! Look for the Northwind database. zЎ Northwind.mdb$~Ў• zЎ Northwind.mdb'Кaџџи6 Can't find Northwind, so display the Open dialog box.ž Ў^Can't find linked tables in the Northwind database. You must locate Northwind in order to use кЎ. рA@т z$„'К КЎ•Ў)Sorry, you must locate Northwind to open кЎ.'Ь“ф`hџџXhџџPи Fix the links. К$И•Џ'Цsџџhџџи If it failed, display an error. Ат аH вHQЎFile ' КЎ1' does not contain the required Northwind tables.'Ь А дHQЎYou can't run кЎ) until you locate the Northwind database.'Ь8 T А жHQcrЎCouldn't open КЎ9 because it is read-only or located on a read-only share.'Ьи А иHQЎCan't relink tables because кЎ1 is read-only or is located on a read-only share.'ЬŒ%ДPџџ0 А!ц'Ьe ankџџ›ф Ь шA@тBaЏ'Цfџџ№џџџџшx и4 Displays the Open dialog box for the user to locateи< the Northwind database. Returns the full path to Northwind.Zъpи Set options for the dialog box. DOpens a Treeview control that displays the directories in a computer@Zъџџџџљ "э !$96 Ў$9 < ь ю 9>nџџ "$ђ'G{ • №$&' 0-  A@њ4.   Œ}Є $о' LE 'hџџИZъZDЄъ˜ crosZDЄъР Objž(€ž( (X mž( (Р s ш[ъD`_VB[ъDULE[ъ [ъD8Hf[ъDPЎd[ъDh[ъD€ [ъD˜ End mџџШи API Functions Prи constantsиtypesat LZDІъиLFILZDЎ All FilesъP(BZDІъ0g1 AZDІъ8Val ZDЇъ` ZDЇъ ZDІ€ъˆing2ZDІъ(As LZDІъPonstZDІъјNLYFZDІъxrFilž((xt contZDІъ iredџџџџАиC Refresh links to the supplied database. Return True if successful.ndNotFZъи и) Loop through all tables in the database.х Ќ.Іyou loї Мі І!РŒ databи8 If the table has a connect string, it's a linked table.ld М!ТЄ •leNameЎ ;DATABASE= К М(ТЄ'АС˜" МB@Фи$ Relink the table. АЄ•Џ'ИsџџP"hџџH"hџџ@"ї МіРЏ'Ии Relinking complete.fџџ"АиDOpens a Treeview control that displays the directories in a computerZъЈ ZъZъ(љ "э !$96 Ў$9  ь ю 9nџџP! "$ђ' • №$&'   A@њ   Œ}Є $о'  'hџџш fџџр џџџџр ˆи4 Displays the Open dialog box for the user to locateџџ˜ и< the Northwind database. Returns the full path to Northwind.Zъии Set options for the dialog box. . 0$~ |(as * |( и Call the OpќЩQћП†JПt)о”,б‚-Э~.˜ )ƒџџџџџџџџ  џџџџ€ИA$`„№tџџџџџ#њxpџџџџџџџџџџџџ џџ  iƒќџџџџџџџџџџ „8iƒўџџџџџџџџџџџџџџ„Ҙ^ш BџџџџџџџџџџџџџџLџџАҘь˜ BџџџџџџџџџџџџџџџџџџТ˜юР BџџџџџџџџџџџџџџџџџџТ˜№PBџџџџџџџџџџџџџџџџџџТ˜`CџџџџџџџџџџџџџџџџџџТ˜b0BџџџџџџџџџџџџџџџџџџТ˜f`Bџџ џџџџџџџџџџџџџџџџТ˜hCџџ @ж?0цжс@ё A0цжс@MSysModules2ўɘv_И vйЉ*єФ€ŒhQ—vв@@@@@@@@@@+ џё A0цжс@ё A0цжс@MSysModulesўɘv_И vйЉ*єФ€ŒhQ—vв??????????* џ €€€V{:3цжс@)—M0зс@modFileFunctionsўɘv_И vйЉ*єФ€ŒhQ—vвt@;PPPDDDDDDD/ џ@€€€ р№ьжс@ р№ьжс@Function Examplesўɘv_И vйЉ*єФ€ŒhQ—vвEEEEEEEEEE0 џ€ €шЕ;0цжс@шЕ;0цжс@UserDefinedўɘv_И vйЉ*єФ€ŒhQ—vв??????????* џ€ €8:0цжс@8:0цжс@SummaryInfoўɘv_И vйЉ*єФ€ŒhQ—vвd@;KKK???????* џ@€ €юо‹чжс@ џџџџџџџџџџџџџџџџ”џџџџLџџџџ<4џџ<8џџ<<џџ<џџџџџџ- y8*\R1*#87"*\Rffff*2387c6fb4&*\Rffff*2387c6fb4\2&*\Rffff*2387c6fb4\0&*\Rffff*2387c6fb4\1*\R0*#c*\R0*#10*\R0*#b*\R1*#8f*\R1*#8eпА01і`џџџџ@шџџџџҘd8BџџџџџџџџџџџџџџLџџ All Files#@ (pџџџџџџџџџџџџЈ џџ(  )ƒџџџџџџџџШџџџџ€ A$$$ $h€џџh€џџ h€ 0џџlinkh€"H џџs ifh€$`џџle. h€&xџџ h€(џџ h€*Јџџ h€,Р џџ''''h€.и$$џџ''''h€0џџџџ&&џџ''''$$$h€48џџh€6Pџџh€8hџџh€:€ џџh€<˜џџh€>Аџџh€@Шџџh€Bрџџh€Dј џџh€F$$џџLVAL i_VBA_MODULEѓЖ„џџ@џџGetOpenFileNameA p''д''GetSaveFileNameAј Fџџ SHBrowseForFolderSHBrowseForFolderSHGetPathFromIDListSHBrowseForFolderlstrcatASHGetPathFromIDList\lstrcatASHGetPathFromIDListјH(lstrcatA<PlstrcatAіESHGetPathFromIDListGetSaveFileNameAtriGetOpenFileNameAs Fџџџџџџџџџџџџџџџџџџџџџџxb 5WџџџџЊdЎdџџџџ%5ZZ…xџџџџпџџџџџџџџџџџџџџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџP<џџ<џџі <џџ<џџX<џџО<<џџ<џџџџџџп0 01і`џџџџ@шџџџџҘd8BџџџџџџџџџџџџџџLџџ All Files#@ (pџџџџџџџџџџџџЈ џџ(  )ƒџџџџџџџџШџџџџ€ A$$$ $h€џџh€џџ h€ 0џџlinkh€"H џџs ifh€$`џџle. h€&xџџ h€(џџ h€*Јџџ h€,Р џџ''''h€.и$$џџ''''h€0џџџџ&&џџ''''$$$h€48џџh€6Pџџh€8hџџh€:€ џџh€<˜џџh€>Аџџh€@Шџџh€Bрџџh€Dј џџh€F$$џџh€H(((џџh€J@,,џџh€LX00џџh€Np44џџh€Pˆ88џџh€R ::џџh€TИ<<џџh€Vа@@џџh€XшDDџџh€ZџџџџHHџџТ˜jˆCџџ џџџџџџџџџџџџLџџТ˜nPBџџ џџџџџџџџџџџџҘpјBџџџџLVAL џџџџџџџџџџрҘt BџџџџџџџџџџџџџџLџџƒ џџџџџџаџџџџџџџџџџџџџџ@$  Ҙ\@ BџџџџџџџџџџџџџџLџџ „ІџџџџtџџџрLџџƒFџџџџџџџџџџџџџџџџџџџџ$$Т2иXHџџџџџџџџџџџџџџLџџ $#ђР Ppџџџџџџџџџџџџ џџP #ŽX`џџџџџџџџџџџџшў@џџџџ 11лŒџџiƒџџџџ џџџџџџџџ€Hƒ џџџџџџxџџџџџџџџџџџџџџ@$`„џџџџtџџџџџџџџџ`„ˆџџџџrџџџџџ`„Šаpџџџџџ#žˆ`џџџџџџџџџџџџHџ@џџџџџџџџ Œ „|џџџџPџџџHџџџџ $`„џџџџtџџџџџ`„Šџџџџrџџџџџџџџџ`„’џџџџpџџџџџ`„”nџџџџџX­e#–˜`џџџџџџџџџџџџкў@˜џџџџ  Œ)ƒ|џџџџ џџИџџџџ€A$ „˜џџџџ,џџџиј“C@$`„ˆџџџџ*џџџџџtеD#Ђ8 `џџџџџџџџџџџџHџ@џџџџџџџџ8Œ'''' „|џџџџPџџџPи@$`„ˆџџџџNџџџџџTabl`„ џџџџHџџџџџ #€ј`џџџџџџџџџџџџкў@Шџџџџ *Œ )ƒ|џџџџ џџшџџџџ€ A$ „˜џџџџ,џџџ ns t@$`„ˆџџџџ*џџџџџиƒ џџџџџџP џџџџџџџџџџџџџџИ  $ $ $ „|џџџџPџџџ€ @$`„ˆџџџџNџџџџџ `„ џџџџHџџџџџиiƒџџџџџџџџџџ€ƒ џџџџџџ№џџџџџџџџџџџџџџƒ џџџџџџX џџџџџџџџџџџџџџ$x œШ `џџџџџџџџџџџџ\џ@x џџџџџџ H„ž)ƒ˜џџџџ џџ˜   €шаA$)ƒ|џџџџџџР џџџџ€e OpA$šџџџџ `џџџџџџџџџџџџџ@ џџџџџџ++Q„is.)ƒ|џџџџ џџ( 0 €es, A$)ƒ˜џџџџџџP џџџџ€ disA$ „Вџџџџxџџџq 1. ˆh Xџџџџџџџџџџџџџџџџџ@И џџџџ™Œиh  џџ џџџџџџ€ dir „Нџџџџpџџџ№иƒ2џџџџџџјџџџџџџџџџџџџџџ)ƒєџџџџџџџџ8 џџџџ€џџџџA$#€дpџџџџџџLVAL џџџџџџ€ џџд ˜ )ƒџџџџџџџџ  џџџџ€ИA$`„№tџџџџџ#њxpџџџџџџџџџџџџ џџ  iƒќџџџџџџџџџџ „8iƒўџџџџџџџџџџџџџџ„Ҙ^ш BџџџџџџџџџџџџџџLџџАҘь˜ BџџџџџџџџџџџџџџџџџџТ˜юР BџџџџџџџџџџџџџџџџџџТ˜№PBџџџџџџџџџџџџџџџџџџТ˜`CџџџџџџџџџџџџџџџџџџТ˜b0BџџџџџџџџџџџџџџџџџџТ˜f`Bџџ џџџџџџџџџџџџџџџџТ˜hCџџ џџџџџџџџџџџџџџџџТ˜l(€џџBџџ џџџџџџџџџџџџџџџџА(h№ џџџџџџџџxX џџџџџџџџџџџџШ јаџџџџШџџџџџџџџџџџџPШ @(  џџџџаџџџџџџџџџџџџx Pџџџџx џџџџИ ˆ№h  џџџџ˜8 [ъџџџџ€(h№ џџџџџџџџxX џџџџџџџџџџџџШ јаџџџџШџџџџџџџџџџџџPШ @(  џџџџаџџџџџџџџџџџџx Pџџџџx џџџџИ ˆ№h  џџџџ˜8 ƒFџџџџџџ@џџџџџџџџџџџџџџџџџџ(h№ џџџџџџџџxX џџџџџџџџџџџџШ јаџџџџШџџџџџџџџџџџџPШ @(  џџџџаџџџџџџџџџџџџx Pџџџџx џџџџИ ˆ№h  џџџџ˜8 ƒFџџџџџџHџџџџџџџџџџџџџџџџџџ(h№ џџџџџџџџxX џџџџџџџџџџџџШ јаџџџџШџџџџџџџџџџџџPШ @(  џџџџаџџџџџџџџџџџџx Pџџџџx џџџџИ ˆ№h  џџџџ˜8 ƒFџџџџџџ8џџџџџџџџџџџџџџџџџџ$ƒFџџџџџџhџџџџџџџџџџџџџџџџџџ$(h№ џџџџџџџџxX џџџџџџџџџџџџШ јаџџџџШџџџџџџџџџџџџPШ @(  џџџџаџџџџџџџџџџџџx Pџџџџx џџџџИ ˆ№h  џџџџ˜8 ƒFџџџџџџXџџџџџџџџџџџџџџџџџџ$(h№ џџџџџџџџxX џџџџџџџџџџџџШ јаџџџџШџџџџџџџџџџџџPШ @(  џџџџаџџџџџџџџџџџџx Pџџџџx џџџџИ ˆ№h  џџџџ˜8 ƒFџџџџџџHџџџџџџџџџџџџџџџџLVAL џџ$(h№ џџџџџџџџxX џџџџџџџџџџџџШ јаџџџџШџџџџџџџџџџџџPШ @(  џџџџаџџџџџџџџџџџџx Pџџџџx џџџџИ ˆ№h  џџџџ˜8 ƒFџџџџџџ8џџџџџџџџџџџџџџџџџџ$ƒFџџџџџџhџџџџџџџџџџџџџџџџџџ$ „|џџџџPџџџˆџџџџ@$#~Р`џџџџџџџџџџџџџаџџџџ РŒ?Ш )ƒ†џџџџ џџаџџџџџџџџƒb џџџџџџџџџџџџџџџџџџџџ№$$$ƒb џџџџџџXџџџџџџџџџџџџџџџџџџ$џџџџџџџџџџџџџџџџаџџџџџџџџx И (№џџџџˆаџџџџџџџџџџџџPhџџџџџџџџџџџџ P( џџџџџџџџџџџџџџџџX˜8 Ш x@ШhШ   №  јx џџџџƒb џџџџџџ џџџџџџџџџџџџџџ џџ$$h€6џџsџџџџџџџџџџџџџџџџџџџаџџџџџџџџx И (№џџџџˆаџџџџџџџџџџџџPhџџџџџџџџџџџџ P( џџџџџџџџџџџџџџџџX˜8 Ш x@ШhШ   №  јx џџџџџџџџџџџџџџџџаџџџџџџџџx И (№џџџџˆаџџџџџџџџџџџџPhџџџџџџџџџџџџ P( џџџџџџџџџџџџџџџџX˜8 Ш x@ШhШ   №  јx џџƒb џџџџџџ(џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџаџџџџџџџџx И (№џџџџˆаџџџџџџџџџџџџPhџџџџџџџџџџџџ P( џџџџџџџџџџџџџџџџX˜8 Ш x@ШhШ   №  јx џџƒb џџџџџџPџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџаџџџџџџџџx И (№џџџџˆаџџџџџџџџџџџџPhџџџџџџџџџџџџ P( џџџџџџџџџџџџџџџџX˜8 Ш x@ШhШ   №  јx џџџџƒb џџџџџџXџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџаџџџџџџџџx И (№џџџџˆаџџџџџџџџџџџџPhџџџџџџџџџџџџ P( џџџџџџџџџџџџџџџџX˜8 Ш x@ШhШ   №  јx џџџџƒb џџџџџџџџџџџџџџџџџџџџџџџџ$h€ џџџџџџh€ 8џџџџLVAL џџh€ P џџџџџџh€hџџџџџџh€€џџџџџџh€˜џџџџџџh€џџџџџџај xџџџџџџџџџџџџџЩ@№ Iƒ*џџџџџџџџ џџџџџџ€Xџџџџ€`„ џџџџpџџџџџџџџџ „"џџџџPџџџШџџџџџџ џџџџiƒКџџџџ џџџџџџџџ€ џџ#H(pџџџџџџџџџџџџИџџ(bb №iƒџџџџџџџџџџи„Ш iƒџџџџџџџџџџџџџџ„аҘrxBџџџџџџџџџџџџџџџџџџТ˜vџџџџBџџџџџџџџџџџџџџ  +Ии `џџџџџџџџџџџџ\џDX џџџџhŒџџџџ+(`џџџџџџџџџџџџxџ@ШџџџџЌŒџџџџiƒ*џџџџ џџџџx€џџџџƒ џџџџџџ` џџџџџџџџџџџџџџИ )ƒџџџџџџџџ( џџџџ€ƒ џџџџџџиџџџџџџџџџџџџџџџџџџШ lџџџ џџ џџџџРiƒ,џџџџџџџџ˜€iƒ.џџџџџџџџИ€џџџџiƒ0џџџџџџџџџџџџ€џџџџ ˜ ˆј џџџџџџџџџџџџРШ P@ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ0˜(џџџџР @ Аxџџџџ`ˆџџџџx Hјp Phиш ˆ8 џџџџџџџџ@џџџџР 8X€џџџџџџџџџџџџx!џџџџш+Ш"`џџџџџџџџџџџџИ џџџџџџŒџџџџа!ЈxџџџџИ˜џџџџџџџџШџџџџџџџџџџџџџџџџџџџџАџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџАџџџџШа!pџџџџр#шˆј џџџџџџџџџџџџРШ P@ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ0˜(џџџџР @ и xџџџџ`ˆџџџџx Hјp Phиш ˆ8 џџџџџџџџ@џџџџР 8X€џџџџџџџџџџџџx#џџџџи +xˆ`џџџџџџџџџџџџиџџџџџџŒџџџџ€"$шxџџџџИ˜џџџџџџџџШџџџџџџџџџџџџџџџџџџџџАџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ$H`xxџџџџџџџџџ™Ј$@џџџ џџ Р$џџџџ"%шџџџџџџџџџџџџџџџџџџџџџџLVAL џџџџџџИ И#џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџИ#Ј$а#%H‚%%0ўџ<џџџа %џџџџ#№%р,џџџ џџ џџџџP)((џџџџџ @ўџџџџ џџ џџџџџџџџ˜xџџџџИ˜џџџџџџџџШџџџџџџџџџџџџџџџџџџџџ№%џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ№%&&џџџџ$8&8xџџџџџџџџџЌџџ џџ8&‚ћџџџџЈ%`)ўџLџџџh џџџџ@ўџ<џџџ џџ џџџџ@ўџ,џџџ џџ џџџџP)((џџџџџ џџџџ@ўџџџџ џџ џџџџџџџџ˜џџџџPџџџџџџџџџџџџџџџџhџџџџџџџџџџџџџџџџ€џџџџh'џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџh'((€'P)(xџџџџџ№'Ј'РџџџџџџИ'nџџџџџ џџџџа'Ьџџџџџџр'lџџџџ џџџџp(Ьџџџџџџ€(ˆ\џџџ џџ h@ўџLџџџ џџ X(<џџџ џџ џџџџ 8џџџџ€((,џџџ џџ џџ€(џџџ џџ џџџџџџџџЮџџџџџџP)џџџџџ џџџџџџџџ˜џџџџјџџџџ8)џџџџ(џџџџџџџџџџџџџџџџ@џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ8)p)`)`)xџџџџџџџH+џџџџ#h*јлџџџџџџH+ш№џџџџ џџH+а\џџџ џџ џџџџ@ўџLџџџ џџ џџџџ*(<џџџ џџ џџџџ@ўџ,џџџ џџ џџџџ@ўџџџџ џџ *0* џџџ џџ (@ўџќўџџ џџ H+(ьўџџ џџ H+шўџџџџ џџџџX(X+рџџџџџџџџџџџџџџџџРџџџџрџџџџџџџџ+џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ+0+ +X+@zџџџџџP*p+ џџџџX+œ`џџџџџX+џџџџx)h,мўџџ( џџџџџџџџџџџџџџ`-кўџџ џџ џџџџџџџџ˜џџџџџџџџџџџџџџџџџџџџџџџџXџџџџџџџџpџџџџџџџџ8,џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџLVAL џџџџџџџџџџџџџџџџџџџџџџ8,h,P,h, xџџџџџ џџџџџџџџџџH*p-јџџџџџџџџџџџџџџџџџџ˜џџџџџџџџџџџџџџџџ№џџџџ џџџџџџџџ -џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ -H-8-p-@zџџџџџˆ-*џџ p-œўџ`џџџџџp-џџџџ`+`.рмўџџp џџџџ1џџ џџP.кўџџ џџ џџџџџџ˜џџџџџџџџџџџџџџџџџџџџџџџџˆ џџџџџџџџ  џџџџ`.џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ`.ˆ.x.`.џџџџ€,А/@xџџџџџџџџџџџџџ8џџџџ /№џџџџџџџџџџџџџџ˜џџџџџџџџџџџџџџџџx џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@/џџџџ /@@ўџ@џџџџџ /(lџџџ џџ џџ /\џџџ џџ џџџџ~^ џџџџџP0џџџџ-џџџџpџџџџџџџџџџџџџџџџ0 џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџˆ/џџџџџџџџаtџџџџџ џџџџИўџpџџџА @ўџ`џџџ џџ 1@\џџџџџ @ўџLџџџ џџ @ўџ<џџџ џџ @ўџ,џџџ џџ џџџџџџџ џџ џџџџ0.hџџџџџџџџџџџџџџџџШ џџџџџџџџџџџџџџџџџџџџџџџџ№ џџџџџџџџџџџџџџџџџџџџџџџџџџџџ:џџџџME(џџџџџџџџўЪ™€ џџџџ€€€ Fр'€ :h(€ BЈ(€ 8((€ 4№(€ <()€ `(€ @(,€ Fh)€ џџџџ€ "H€pH€€H€Ш!€ џџџџH€№!€ џџџџH€€#€ џџџџ€ Ј"„ „ Ј!„ И!„и"„ Ш"„ №„А„ €„ №"„ #„#„ #„ 0#„ @#„ P#„ `#„ p#„ ˜#€ џџџџ€ И"LVAL €"€ "€ "€ 0"€ 8"€ H"€ X"€ h"€ x"€ˆ"€ џџџџ€€ 6˜€ 4а€ €(€ "0€ X€p€ 4x€ ,А€р€ 6ш€  €8€@€ FH€ 6€Ш€ ,а€ € € B(€ 8p€ 8Ј€р€ ш€€ D€ $X€€€ Rˆ€р€ш€ џџџџ€€€€€ €(€0€8€@€H€P€X€`€h€p€x€€€ˆ€€˜€ €Ј€ џџџџ€ џџџџ€ HА)€ H*€ 4ј)€ ,А#€ :˜*€ Hи*B  € !€$€ џџџџ€ 0$ 8$H$€ >`$ $ И$ и$ р$ " ш$ $% %(% 0%8% @% P%p%€ џџџџ€ џџџџ€ H +€ р#€ 4h+€ Rh,€ 0Р,€ X№,€ Hр+B x%€ Ш%€ а%€ и%€ џџџџ р% ш% 6ј%  &  &€ џџџџ (&€ џџџџ  8& @& #P& 4`& €& ˆ&&€ џџџџ€ џџџџ€ H€%€ 0*€ >@.€ 40€ F-€ € Hј-B €€€ џџџџ€ &ˆ"h  А&OР€ џџџџ€ $ш  € џџџџ€ & H € џџџџ` € џџџџ€ џџџџ€ HH-€ h€ </€ 0h*€ `P/€ @ +€ 0А/€ F€.€ и-€ HШ.B  &€№&€ џџџџ€ &ј& Ш' 8'M '€ џџџџ€ LVAL !$H' p'€ џџџџ€ &€'Ј'€ џџџџР'€ џџџџ€ џџџџB… ( € <0 € 2p € JЈ € 8ј € џџџџ€0 €8 €@ € џџџџ H  X h  +€    Ј  Р и € џџџџ р № ј  € џџџџ  € џџџџB  € B € hh € Fа € @ € 4X € џџџџ€ џџџџ€ €˜ € џџџџА И Р Ш € џџџџ€ ,а € .08 P (E`  ˆ  ˜Ј  ИШ а€ џџџџ€ Rр 8 H.HX ˆ˜€ џџџџ€ < рј€ џџџџ€ 2 P `p€ џџџџx€€ џџџџB ˆ€ "€ џџџџ€И€Р€ џџџџ Ши,№  (€ џџџџB0€ 68€ џџџџ€p€x€€€ џџџџ ˆ˜  А€ џџџџИР€ џџџџB Ш€ а€ џџџџ€№€ј€ џџџџ ,  (8@H€ џџџџBP€ 2X€ џџџџ€€˜€ € џџџџ ЈИ Ра€ џџџџир€ џџџџ€ џџџџ" (€ T0€ џџџџ*;ˆ И Ш иш€ џџџџ" №€ Tј€ џџџџ€ P€ џџџџ€ .`   А Р а р №€ џџџџBLVAL "( 0@ H€ џџџџ4:X € џџџџ%  И€ џџџџ Ш€ џџџџ и€ џџџџ ш€ џџџџ ј€ џџџџ € џџџџ€ џџџџ€ џџџџ€ џџџџ€ џџџџ€ џџџџџџџџш/Х@Х8ZDЄъp ''''ZDЄъџџџџ''''ZDЄъџџџџ''''шX и? RefreshTableLinks '@и? 'rmи? This module contains functions that refresh the 'џџи? links to Northwind tables if they aren't available. 'џџи? 'cIž( ''ž( (X ''''''ž((и ''''''[ъDџџџџи8[ъDџџџџariabl[ъџџџџ[ъDџџџџbefore[ъDџџџџd.[ъDџџџџse dat[ъDџџџџr for [ъDџџџџparisomžhž@ ши0 Filter string used for the Open dialog filters.и- Use MSA_CreateFilterString() to create this.и Default = All Files, *.*[ъши Initial Filter to display.и Default = 1.[ъи- Initial directory for the dialog to open in.и% Default = Current working directory.[ъи/ Initial file name to populate the dialog with.и Default = "".[ъ0[ъHи@ Default extension to append to file if user didn't specify one.и0 Default = System Values (Open File, Save File).[ъ`и& Flags (see constant list) to be used.и Default = no flags.[ъxи< Full path of file picked. When the File Open dialog box isи1 presented, if the user picks a nonexistent file,и2 only the text in the "File Name" box is returned.[ъи File name of file picked.[ъЈи> Offset in full path (strFullPathReturned) where the file nameи (strFileNameReturned) begins.[ъРиK Offset in full LVAL #path (strFullPathReturned) where the file extension begins.[ъиmџџZDІ ъ@ lesш@[ъ [ъ8[ъP[ъh[ъ€[ъ˜[ъА[ъШ[ър[ъј[ъ[ъ([ъ@[ъX[ъp[ъˆ[ъ [ъИ[ъа[ъшmџџHZDЇъш ZІ ъџџџџZЇъџџџџZІъџџџџZІъџџџџјZІъџџџџZЇъџџџџ ZЇъџџџџZІ€ъџџџџ(џџZІъџџџџџџџџZІъџџџџџџџџZІъџџџџџџџџZІъџџџџџџџџZDІъ Аи4 Displays the Open dialog box for the user to locateџџџџџџи< the Northwind database. Returns the full path to Northwind.Zъџџџџи Set options for the dialog box.ЎWhere Is Northwind? |($ z |( џџџџЎ DatabasesЎ*.mdb$~ |(џџи Call the Open dialog routine.џџ |A@€ и Return the path and file name. |!*$‚'„Zъџџџџи6 Creates a filter string from the passed in arguments. и+ Returns "" if no argumentss are passed in.иC Expects an even number of argumentss (filter name, extension), but”и1 if an odd number is passed in, it appends "*.*".ZъPZъhZъ€ †Š'Š ŠЄ•ї ˆіЄ Š‹џџ  ˆ$† Œ'їПP ŠЄ Є•џџ Ў*.* Œ'hџџ  Œ'џџaџџЎ'hџџ№ '~fџџрРи; Creates a filter string from a bar ("|") separated string.Hиa The string should pairs of filter|extension strings, i.e. "Access Databases|*.mdb|All Files|*.*"и@ If no extensions exists for the last filter pair, *.* is added. и: This code will ignore any empty strings, i.e. "||" pairs.и. Returns "" if the strings passed in is empty.Р­eZъјZъъ(ъ@Ў'Є'ŠЄ'’Є'”и% Add strings as long as we find bars. Dи( Ignore any empty strings (not allowed).A\џџР ” Ў|~'’˜ЫA ’ ” •   ” ’ ” $ќ Œ' ŠЄLVAL $ 'Š ’Є '”@ ’ ”b ’Є '”hџџ( ’ЄВDиL Get last string if it exists (assuming strFilterIn was not bar terminated).МD '’DДD ’ ”•   ” ’ ” Є $ќ Œ'џџ ŠЄ 'ŠhџџXи5 Add *.* if there's no extension for the last string. ŠЄ Є•A Ў*.* Œ'hџџри, Add terminating NULL if we have any filter. Ў•  Œ'hџџ€ 'ŽfџџpXи Opens the file save dialog.ZъРZър | ˜A@š ˜!N d ˜(N ˜$'ˆ ˆ• ˜ |A@œhџџи ˆ'–fџџШ˜и0 Opens the file save dialog with default values.Zъ8ZъXZъp |$–'ˆ ˆ• |!*' hџџ@  'žfџџ0ˆи Opens the Open dialog.Zъ№Zъ | ˜A@š ˜$'ˆ ˆ• ˜ |A@œhџџИ ˆ'€fџџЈ ји+ Opens the Open dialog with default values.Zъh Zъˆ Zъ  |$€'ˆ ˆ• |!*' hџџ  'Ђfџџ иE Check links to the Northwind database; returns True if links are OK.Zъџџџџъџџџџх Ќ.Іи? Open linked table to see if connection information is correct.СH хЎProducts І%Ў.Ји" If there's no error, return True. АЄ•Џ'Єaџџр Џ'Єhџџа fџџШ 8 иN This sub converts from the Win32 structure to the Microsoft Access structure. ˜!B ˜!B Œ}Є $о |(* ˜!F |(, ˜!P |(. ˜!R |(0lџџ Ш иN This sub converts from the Microsoft Access structure to the Win32 structure.ZЄъX и( Initialize some parts of the structure. Д!Ж ˜(6Є ˜(8Є ˜(<Є ˜(>Є ˜(XЄ ˜(ZЄ ˜(V |!Ў• 2$~ ˜(:aџџР |! ˜(:hџџЈ |! ˜(@ž |!"Є |!" Є$LVAL %^ ˜(BЄџ ˜(DЄЄ$^ ˜(FЄџ ˜(H |!$ ˜(L |!  ˜(J |!& ˜(T |!( ˜(N ˜ ˜(4lџџаHиC Refresh links to the supplied database. Return True if successful.ZъџџџџZъџџџџи) Loop through all tables in the database.х Ќ.Ії Мі І!РŒи8 If the table has a connect string, it's a linked table. М!ТЄ •Ў ;DATABASE= К М(ТЄ'АСˆ МB@Фи$ Relink the table. АЄ•Џ'Иsџџ@hџџ8hџџ0ї МіРЏ'Ии Relinking complete.fџџјZъџџџџи6 Tries to refresh the links to the Northwind database.и Returns True if successful.ZъџџџџZъџџџџZъџџџџZъџџџџZъџџџџZЄъџџџџZЄУ ъџџџџZЄ ъџџџџZЄа ъџџџџZЄы ъџџџџZЄг ъџџџџZЎDeveloper Solutionsъџџџџи5 Get name of directory where MSAccess.exe is located. м$о'Ши& Get the default sample database path. ШЎ Samples\.$~Ў• Ш'zaџџ( ШЎSamples\'zhџџи! Look for the Northwind database. zЎ Northwind.mdb$~Ў• zЎ Northwind.mdb'Кaџџи6 Can't find Northwind, so display the Open dialog box.ž Ў^Can't find linked tables in the Northwind database. You must locate Northwind in order to use кЎ. рA@т z$„'К КЎ•Ў)Sorry, you must locate Northwind to open кЎ.'Ь“ф`hџџXhџџPи Fix the links. К$И•Џ'Цsџџhџџи If it failed, display an error. Ат аH вHQЎFile ' КЎ1' does not contain the required Northwind tables.'Ь А дHQЎYou can't run кЎ) until you locate the Northwind database.'Ь8 T А жHQcrЎCouldn't open КЎ9 because it is read-only or located on a read-only share.'Ьи А иHQЎCan't relink tables becausLVAL &e кЎ1 is read-only or is located on a read-only share.'ЬŒ%ДPџџ0 А!ц'Ьe ankџџ›ф Ь шA@тBaЏ'Цfџџ№џџџџшШ"и a database.thи- Outputs:Returns the full path to Database. datи Function FindFileZъpи Set options for the dialog box. * |( Ў DatabasesЎ*.mdb$~ |(и Call the Open dialog routine. |A@€и Return the path and file name. |!*$‚'xfџџ€ЎWhere Is The Database? |($џџџџpиDOpens a Treeview control that displays the directories in a computer@Zъџџџџљ "э !$96 Ў$9 < ь ю 9>nџџ "$ђ'G{ • №$&' 0-  A@њ4.   Œ}Є $о' LE 'hџџИZъZDЄъ˜ crosZDЄъР Objž(€ž( (X mž( (Р s ш[ъD`_VB[ъDULE[ъ [ъD8Hf[ъDPЎd[ъDh[ъD€ [ъD˜ End mџџШи API Functions Prи constantsиtypesat LZDІъиLFILZDЎ All FilesъP(BZDІъ0g1 AZDІъ8Val ZDЇъ` ZDЇъ ZDІ€ъˆing2ZDІъ(As LZDІъPonstZDІъјNLYFZDІъxrFilž((xt contZDІъ iredџџџџАи% Outputs:Return True if successful.e. Rи Function GetDirectoryNotFZъи и) Loop through all tables in the database.х Ќ.Іyou loї Мі І!РŒ databи8 If the table has a connect string, it's a linked table.ld М!ТЄ •leNameЎ ;DATABASE= К М(ТЄ'АС˜" МB@Фи$ Relink the table. АЄ•Џ'ИsџџP"hџџH"hџџ@"ї МіРЏ'Ии Relinking complete.fџџ"и иA~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ZъЈ ZъZъ(љ "э !$96 Ў$9  ь ю 9nџџP! "$ђ' • №$&'   A@њLVAL '   Œ}Є $о'  'hџџш fџџр џџџџр ˆи< the Northwind database. Returns the full path to Northwind.Zъии Set options for the dialog box. . 0$~ |(as * |( и Call the Open dialog routine. |A@€и Return the path and file name. |!*$‚'(fџџ % , |($џџџџ@%и?~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~и2 FindFile - ask the user to pick a specific fileии3 This Module contains commonly used file functions:и< GetDirectory - API wrapper for SHBrowseForFolder Functionи- FindDB - Specific FindFile for Access MDBsи5 RefreshLinks - refresh linked tables in a databaseи@~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~иA~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~и- Inputs: strFileName - FileName of Databaseи Function FindDBи Function RefreshLinksи* Title - Title of the dialog boxи4 Comments: Refresh links to the supplied database.иA~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~иA~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~и. Inputs: szTitle - Text Prompt in Dialog Boxи: Filter - Wildcard Patern for Files (E.G. *.XLS)иA~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~и: All code has been lifted & adapted from Microsoft SourcesиL CallingForm - Form that is to act as owner of dialog (usually Me)и* Outputs:Returns Selected Directory PathиQ Comments: Opens a Treeview control that displays the directories in a computerиA~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~и@ Comments: Displays the Open dialog box for the user to locateayи a File.puterиA~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~и8 InputLVAL (s: strSearchPath - Initial Path to set dialog toи@ Comments: Displays the Open dialog box for the user to locateиA~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~и5 Inputs: SearchPath - Initial Path to set dialog toиY Filtername - frendly name for type of files to be located (E.G. "Excel Files")и) Outputs:Returns the full path to File.џџџџ˜ FЗAttribute VB_Name = "modFileFunctions"  Op, Ex@plicit@Compare Database  '~;A This Module containsmmonly used f)Ђ fЃ:5 GetDirectory - API wrapper for SHBrowseFРorFoldr1Fin}as k the5r to pick a specifLic?DBS… #9AccesfDBsƒRefreshLinkЪs€r l€k€Ђles in6Fd‡ЉAll€de has be$en€ft€& adapfrom Microsoft Sourз€>МЩ~€'SF…€ Priva€ŽpDecl€…AaOpen‘Т”Lib "comdlg32.dll" Ali1_ "€m A" (pСxnAЅAs OPENFILE@NAME) B@ooleanл!Sјaveъ! џ!аBDshell32" „ABн(lp biB?ВInfoaCLongСhжdS‚HYPathF€ˆ€IDList w! ByVal`bdт;€1с,Ч#lpАBuffрp@S@‘ ngП@’ lstrca$kernіe)ЃJ"ЄР7?+&6(%у1,C, ЇCŸ † lpC2Ї '€šstant `‚E6C@­t BIF_RETURNONLYFSDI4RS€В1Ч\чDONTGOBELO€WDOMAIN2 MAX_PA$THa60­ALіLjA "с‹aeО‹OFN_ OWMULTISELE„CTр &H20. aCREATEP0ROMPцEX@PLORER‚ 80 С !MUS TEXISу 140HIDE`#LYb 4ё NOCHAxNGE`+“A FР NCELINK9a$&H!“6ETWORKBUTTўOa1т#•Хƒ=уД€NOVALID@*Т@OVERWќRIы.ЁAЫ):Np(A—(‘SHРOWHELPt RbPtypeh-Tр cwбJ_‚2hWndxOwnа?тTDpЁpJRootт Ё4cNє pszDРisplayrfтlTitP„2€ulFlagslpfnCallba№? l`ParamO @iImageE8nd Сi[ТMSLA_йn' А9tcР OingD@tPŠСr dialo&g‘‰`s.eUsФe !CreаzCiгI()‘crРŽi7Defaultƒ`FA, *.*3Д№ЃХIniюt`Е €“dцЇ"14lngуInHdex' dпvQ•Aє0oа† “? CurrenРt workQVџД  pЃЁя с ТІƒ’ˆаpopul!Hwithя "Ж"~ ePD`ogГ*^5extјensp`a­ $ в ifГЊdidn't„Њy one Systemj @|uРІ(т# ,f ёбe)— фEЧж C4(seтК’mЉРЉst&bRДdoр no fс7Є Џв8№—>€/uЏpА‹( ofс-eвИedр. Wh`АqbСi0box ipH7' p Зp ed,Ў €@ФrrsЖКn`x ‘Ё"б,ѕ,ЛђЦсtАQЙLVAL )Б"Т !G" c retnuPˆEF@ ё–Rџ”Я%RB%l У10Юa?ѕ Offse*t fF(пd)№ whe`кс т"qзEЌ)ЦgPзЄ8intс ф№InрtegerYч~`$-beџ*'&]ŸSe’T:Т“ l№eD№/5Ц"З lpstrInitialDir As Stri`ng №Title dFla$gsPLoXnFileOffset0Integer6Exten0sion<gDeNf! ‚CuЂDatamlpf nHook TemplateNamД1End T ype '~= ' FunctfRefre€shLinks Inputsœ: €\Š‚E- ˆof hbasH"'€ГOutReturn True if successful.ƒ+Commen, „9 l: to the€ppli№ed d—.Рu@Public<( Щ8†)eBooleanC€Dim \Db‚ŒЧ>€> tdf Table€Сh' Loop€6rough all ts мin<Ш9С S@žС@= CurrJDbFor EaHch In".€lСС' IfТB has a connectƒСrРХ, it'?^@ZB €Y…Le$n(Р.C) €> 0 TheBE ˆ = ";DATABASE=x" &E‹C0E Err@ 0 On CРР8Resu€НNxextKˆЉE №' Re!ЇhЁЛрA.pHwndLу=D l ­catE ,8 ""@>„.ulуђ= BIF_RETURNONLYFSDIRS +ТDONTGOBELOWDO№MAIN8ё2б ъ a6= SHS @F€older(tgWаЈC(•)џO Ѕ@pace(M€AX_PATH< ьSH№+F4Дe,Eh —Lef[№3,Py !(д, vbNullCаhar)№61|Y'џ`MTˆЁaKq/Fo.С9&FFindDBѓ:ˆ…Seaјrch‘а $œ’=бBѓ1˜BtoЃ}Aƒ…јl pа@1ey`S1‰-ЇADЩ?qB Єbo˜x f`gЁus`3ypˆlo0*dd)`a/‰пOBC(ЧG.@б?msa SР=MSA_OPENFILENAME“sS' q„opБОsі '№ В.09ѓ\У^€|Where˜ Is!/fž?"ГПF8З0І\0€t`Ф= ё Crep­#IГM("5s"р@*А.mdb5A“'вQЧв}‰№”tinr‘ џСр.а“Г‚ 3•.RУЉС"#a0Еfi= Сn ЖDc№2Trшim(жF€6‘*#фedД6 Я3dO џс.Ъ3A 30х3П3єalП3gP1sQ1џ}"б $С—!Ы`РС:Тndly ?т23аШq|~be Г3d (E.G. "Excel}RУsQA9…ГpW€ildcardб >e УЁРyC*.8XLSрС@e @€Бп?N$п?oћ { P…•ŸŸ?!'сИ?Ёy2,і #і|,ё`хсeџP‡яC№Ыђ,13їяC…LVAL *2яCeS”2Ж1ыCџт ƒПBb_\ ПB#(ѓq5) КЖ P' Call the Open dialog routine.MSA_Get€FileName msaof< ' R eturn–path and f^ n`”Find† = Trim(F.strF0ullP5Ded )[EEFunc@tion P€rivate b ŸCreZterString(ParamAr€ray var() As Va`riant‚ Ц €ƒ s aY" J€" from„issed in argumen tsj{s ""Р if no&`re pa„‚E xpect€ n evИnumbeаr of (›Aœ, extens), butV4an odd „is‡3, iPt apчd€J*.*"€<љDim?С6ƒJСCХ@int@aAIntegŒerƒb„NumŠР = UBo0und(\DqIf (D<> -1р) The@sAСForРUB= 0ј ToAРУE A‰дilСE=0&w@IР-) @bN€“Cьha„.AN€QЧ@$С$Mod 2€Ѓ€wЪ$С U"UдСЋIDЦСЧж/L+ElsђeS ""УХC“Пs€4 A Iбsho`nvert#CЃB(љfInС>Ѓ_gpCga bar ("€|") sep`rўt hР €k"b@AС9am@should YilrsAbУ`|`фs \.e. "Acce lDatabases|*.mpdb|A š€т*Й@&' Р=sцs`j4is pfOaŸlastх~pair, < €jaddedФРcode „wiр igno€{any emptтyM||"у‚рRџ@Ѓe„! ЈvЁ " џу:ЃСn€ƒ2G0‡фX›Фu #ntPosћIL€ЫЁЉэ\eLФ рqC р= 1ц bЃ' A€’…as longђ рweр+@Й€AСІ‡ЁР2”( (no@˜pllow С"СDЮoC a†In Ra‹ d,с0c%In, пЁNЇ @AС>!Œd­‘ '.kMidIbїB-FЄ-j Г‘„cІ{р+E+d ў=a Š!…ˆ‚$‘р ќ ЕKLoo€p UntilВ[ŸБА ]б s' ž ђ3SAp№gex6ђ(РoumВ=0~в[€D~w!‘A№\№А{dŽ)„` гLenЩ{Ыd!>з/Ёc&r /ntd–3) ї Oe A/ЁZ/Б…‘1bEfё„reќ'sб‚ЧMЪHУ0ї@‘еj1tЯУŸj?гџ “;PвNU LLб ;have§№œy4Rg w€}{}ћ_ S vox'ѓ 2mяhпp06OmOmƒЋSа 0A‚ЋЇЁQ!OPENFILENAMEoBmєR1–сЎs’Ÿ`heє s!dтБф“ ёYџа›рWЩЗ€а_ИXEW№OF_to_OFгД, osof.`FlagsрІOr OFN_HIDEREADONlLYУ=8šo~f3Dыуr ,§9НEсПЙ€ OO@Simpl^eB l„eѕШwi№Фdefaulтt№žlueAdѓѓbФOME'grЇП %$у“Sd=BЦп bOzЄФ=гЏЮќedƒqСзџ2i пп#0Б/0ћ/0EП'"с#0ёФп/ўf‘п/_ мAQ џп/s&рz -\P-џFъ-ћь’d/а / -ћ -nюрЃП,5AП,Jг_кП,'h…?Г MSA_GetOpenFileName(msa@of) If intRet` ThenL\sЄtrP= X.FullPathA,urnedVEрnd If т@Simple ю $= U 5Fu nctios Private Sub OF_to_GOF(of As OPENFILENAјME,’j гB'Чis sFconverts from the@ Win32Bucture to Microsoft Accesщ€trИLVALФќЄЗ[p\ЄЗhh™T(„нќЄЗ\\p\ЄЗ€€™T(„нќЄЗ]Аp\ЄЗˆˆ™T(„нќЄЗ^q\ЄЗ™T(„нќЄЗ_Xq\ЄЗ˜˜™T(„нќЄЗ`Ќq\ЄЗ  ™T(„нќЄЗar\ЄЗЈЈ™T(„нќЄЗbTr\ЄЗАА jЭ2„нќЄЗcЈr\ЄЗИИ jЭ2„нќЄЗdќr\ЄЗРР jЭ2„нќЄЗePs\ЄЗЈ#Ј#2Э2„нќЄЗfЄs\ЄЗ`#`#%Э2„нќЄЗgјs\ЄЗh#h#%%Э2„нќЄЗhLt\ЄЗx#x#2Э2„нќЄЗi t\ЄЗ5Э2„нќЄЗjєt\ЄЗˆ#ˆ#jЭ2„нќЄЗkHu\ЄЗ№#№#jЭ2„нќЄЗlœu\ЄЗ$$ƒ. l–„lLeft€U.lpqД, InSt"rŒ vbN€ЂCh€ar) - 1„СO,„аБ,of‡)T№itleƒH€м5Offsр= ‚ђExtenўs]C Цƒe`ЭcпBbdРcб^,@Сщc^…fLlЪcDimСrA@@[ing `* 512A0AБ'@aitialize some p~aA„@•СƒРjЪyРOhWndOwner@HApplica}Љ.СC‡@CVA I€nstance@ 0FCustom'tТGnMa xrаlpfnHookŒTe€г@ЧAя‹Data?‡ƒ!РѕУˆуQƒ""Ќ|@%V#!jCre‡` Ѓƒ*(ALLСoтSVElsфP,Ž A~… AO@I0ndex`ClnўgУТуЃh a-& ŒInТ; e _C9A& `AmLenƒžс˜H), 0ЏDA3 =@H1EH?)p ‡ Х51—ЎED€SogТѓ-DiaQ- УуЃЅDefрy*€?a aultЈ|&F№lagsf/У-†l€€dS!h= Ч!)bЧС9SubagLVAL 1h€H(((џџh€J@,,џџh€LX00џџh€Np44џџh€Pˆ88џџh€R ::џџh€TИ<<џџh€Vа@@џџh€XшDDџџh€ZџџџџHHџџТ˜jˆCџџ џџџџџџџџџџџџLџџТ˜nPBџџ џџџџџџџџџџџџҘpјBџџџџџџџџџџџџџџрҘt BџџџџџџџџџџџџџџLџџƒ џџџџџџаџџџџџџџџџџџџџџ@$  Ҙ\@ BџџџџџџџџџџџџџџLџџ „ІџџџџtџџџрLџџƒFџџџџџџџџџџџџџџџџџџџџ$$Т2иXHџџџџџџџџџџџџџџLџџ $#ђР Ppџџџџџџџџџџџџ џџP #ŽX`џџџџџџџџџџџџшўJџџџџ 11љŒџџiƒџџџџ џџџџџџџџ€Hƒ џџџџџџxџџџџџџџџџџџџџџ@$`„џџџџtџџџџџџџџџ`„ˆџџџџrџџџџџ`„Šаpџџџџџ#žˆ`џџџџџџџџџџџџHџJџџџџџџџџ 9Œ „|џџџџPџџџHџџџџ $`„џџџџtџџџџџ`„Šџџџџrџџџџџџџџџ`„’џџџџpџџџџџ`„”nџџџџџX­e#–˜`џџџџџџџџџџџџкўJ˜џџџџ *Œ)ƒ|џџџџ џџИџџџџ€A$ „˜џџџџ,џџџиј“C@$`„ˆџџџџ*џџџџџtеD#Ђ8 `џџџџџџџџџџџџHџJџџџџџџџџVŒ'''' „|џџџџPџџџPи@$`„ˆџџџџNџџџџџTabl`„ џџџџHџџџџџ #€ј`џџџџџџџџ@%кўkШџџџџ HŒ )ƒ|џџџџ џџшџџџџ€ A$ „˜џџџџ,џџџ ns t@$`„ˆџџџџ*џџџџџиƒ џџџџџџP џџџџџџџџџџџџџџИ  $ $ $ „|џџџџPџџџ€ @$`„ˆџџџџNџџџџџ `„ џџџџHџџџџџиiƒџџџџџџџџџџ€ƒ џџџџџџ№џџџџџџџџџџџџџџƒ џџџџџџX џџџџџџџџџџџџџџ$$œШ `џџџџџџџџџџџџ\џJx џџџџџџ f„ž)ƒ˜џџџџ џџ˜   €шаA$)ƒ|џџџџџџР џџџџ€e OpA$šџџџџ `џџџџџџџџx&џk џџџџџџ++4ШrDe кЎ1 is read-only or is located on a read-only share.'ЬŒ%ДPџџ0 А!ц'Ьe ankџџ›ф Ь шA@тBaЏ'Цfџџ№џџџџшШ"и a database.thи- Outputs:Returns the full path to Database. datи Function FindFileZъpи Set options for the dialog box. * |( Ў DatabasesЎ*.mdb$~ |(и Call the Open dialog routine. |A@€и Return the path and file name. |!*$‚'xfџџ€ЎWhere Is The Database? |($џџџџpиDOpens a Treeview control that displays the directories in a computer@Zъџџџџљ "э !$96 Ў$9 < ь ю 9>nџџ "$ђ'G{ • №$&' 0-  A@њ4.   Œ}Є $о' LE 'hџџИZъZDЄъ˜ crosZDЄъР Objž(€ž( (X mž( (Р s ш[ъD`_VB[ъDULE[ъ [ъD8Hf[ъDPЎd[ъDh[ъD€ [ъD˜ End mџџШи API Functions Prи constantsиtypesat LZDІъиLFILZDЎ All FilesъP(BZDІъ0g1 AZDІъ8Val ZDЇъ` ZDЇъ ZDІ€ъˆing2ZDІъ(As LZDІъPonstZDІъјNLYFZDІъxrFilž((xt contZDІъ iredџџџџАи% Outputs:Return True if successful.e. Rи Function GetDirectoryNotFZъи и) Loop through all tables in the database.х Ќ.Іyou loї Мі І!РŒ databи8 If the table has a connect string, it's a linked table.ld М!ТЄ •leNameЎ ;DATABASE= К М(ТЄ'АС˜" МB@Фи$ Relink the table. АЄ•Џ'ИsџџP"hџџH"hџџ@"ї МіРЏ'Ии Relinking complete.fџџ"и иA~~~~~~~~~~~~~~~~~~~~~~~~~~~~х#NMSysDb#НK0{ .Form_Function Examples€Я-KG;73џGŸmodFileFunctions€-))%!Н!LVAL-їъЭЌ–џџџџ $Є@щ8ЧгЖXЖњ/8/˜ЕDetaild ЕLabel1mЕtxtDirh ЕCmdBrowsed ЕLabel5h ЕCmdDBBrowsemЕtxtDBd ЕLabel8mЕtxtXLFIleh Е CmdXLBrowseLVAL /i_VBA_MODULEV Жџџџџџџџџџџџџ/Є@щ8ЧгЖXЖњ/8/џџџџџџџџџџџџxо_џџџџЊdABџџŠџџ{жжЫџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџP[LџџџџS џџџџSџџџџ<џџџџ< џџ<џџ<џџ<џџџџN0{E940A424-C738-11D3-B658-B681FA2F382F}п Рўџџџџџџџџџ(џџџџџџџџџџan$$ƒўџџџџџџџ`џџџџџџџџџџџџџџ џџ $ $DT`џџџџџџџџџџџџ\џ@џџџџџџџџ$”‚ 4џџџџўџџџhџџўџџџџџџџџџџџƒўџџџџџџџџџџџџџџџџџџџџџ $D`р`џџџџџџџџџџџџTџ@џџџџџџџџ(”џџџџ$$ƒўџџџџџџџ0џџџџџџџџџџџџџџџџџџ‚ 4џџџџўџџџЈџџўџџџџџџџџџџџџџџџ$ƒўџџџџџџџиџџџџџџџџџџџџџџџџџџ$Dnџџџџ`џџџџџџџџџџџџ@џ@џџџџџџџџ, ”џџџџџџџџpџџџџџџџџƒўџџџџџџџHџџџџџџџџџџџџџџџџџџ‚ 4џџџџўџџџPџџўџџџџџџџџџџџxƒўџџџџџџџАџџџџџџџџџџџџџџџџџџ$џџџџ@pџџџџџџџџџџџџрџџџџџџџџџџџџџџџџ`ˆ\0$џџџџџџџџџџџџџџџџџџџџџџџџџџMEџџџџџџџџџџўЪ€€€ џџџџ€ џџџџ"x4FЈ€€ џџџџ"Eˆp€ џџџџ"рXv№шџџџџPХџџxХџџpС@` B!DB@FC HB@Jl.S›L8uџџ0›@( А!цA@тFнLlplџџx џџ!:!X$x џџ!b(XЎPlease Select a directory џџ$ џџ!:(Xрlџџ џџ!:!XЎPlease Select an Excel FileЎ Excel FilesЎ*.xl?$( џџ!l(XџџџџАeLVALqa2яCeS”2Ж1ыCџт ƒПBb_\ ПB#(ѓq5) КЖ P' Call the Open dialog routine.MSA_Get€FileName msaof< ' R eturn–path and f^ n`”Find† = Trim(F.strF0ullP5Ded )[EEFunc@tion P€rivate b ŸCreZterString(ParamAr€ray var() As Va`riant‚ Ц €ƒ s aY" J€" from„issed in argumen tsj{s ""Р if no&`re pa„‚E xpect€ n evИnumbeаr of (›Aœ, extens), butV4an odd „is‡3, iPt apчd€J*.*"€<љDim?С6ƒJСCХ@int@aAIntegŒerƒb„NumŠР = UBo0und(\DqIf (D<> -1р) The@sAСForРUB= 0ј ToAРУE A‰дilСE=0&w@IР-) @bN€“Cьha„.AN€QЧ@$С$Mod 2€Ѓ€wЪ$С U"UдСЋIDЦСЧж/L+ElsђeS ""УХC“Пs€4 A Iбsho`nvert#CЃB(љfInС>Ѓ_gpCga bar ("€|") sep`rўt hР €k"b@AС9am@should YilrsAbУ`|`фs \.e. "Acce lDatabases|*.mpdb|A š€т*Й@&' Р=sцs`j4is pfOaŸlastх~pair, < €jaddedФРcode „wiр igno€{any emptтyM||"у‚рRџ@Ѓe„! ЈvЁ " џу:ЃСn€ƒ2G0‡фX›Фu #ntPosћIL€ЫЁЉэ\eLФ рqC р= 1ц bЃ' A€’…as longђ рweр+@Й€AСІ‡ЁР2”( (no@˜pllow С"СDЮoC a†In Ra‹ d,с0c%In, пЁNЇ @AС>!Œd­‘ '.kMidIbїB-FЄ-j Г‘„cІ{р+E+d ў=a Š!…ˆ‚$‘р ќ ЕKLoo€p UntilВ[ŸБА ]б s' ž ђ3SAp№gex6ђ(РoumВ=0~в[€D~w!‘A№\№А{dŽ)„` гLenЩ{Ыd!>з/Ёc&r /ntd–3) ї Oe A/ЁZ/Б…‘1bEfё„reќ'sб‚ЧMЪHУ0ї@‘еj1tЯУŸj?гџ “;PвNU LLб ;have§№œy4Rg w€}{}ћ_ S vox'ѓ 2mяhпp06OmOmƒЋSа 0A‚ЋЇЁQ!OPENFILENAMEoBmєR1–сЎs’Ÿ`heє s!dтБф“ ёYџа›рWЩЗ€а_ИXEW№OF_to_OFгД, osof.`FlagsрІOr OFN_HIDEREADONlLYУ=8šo~f3Dыуr ,§9НEсПЙ€ OO@Simpl^eB l„eѕШwi№Фdefaulтt№žlueAdѓѓbФOME'grЇП %$у“Sd=BЦп bOzЄФ=‡БAttribute VB_Name = "Form_Function Examp@les" ДBasД0{E940A424-C738-11D3-B65881FA2F382F} |CreatabBlCTrue ]P€redecla Id”"Expo„seFals @TeЕateDeriv%Cust0omizD$Op!‚|Comp@ D3T€v  €–lstrcatWб lpString1С lpString2‘Сkernel32_ЅpIDLRootdpszDisplayNamehr lpszTitleSŽulFlagsэС lpfnCallback…lParam…7iImageUр GetDirectory$АszTitleь CallingForm(А€џFormтlpIDList˜8sBufferzd tBrowseInfo+№€–0239=Bb cчe g hXiJjёkЌ РРРЮ р№ьжс@нFunction ExamplesчArialџd2§hbЅcgh€ф MS Sans Serif§m45bЅg[љ§˜`Єœ€пDetailџm7U`Ф aЋbі cTмtxtDirўd5U`ŒaЊbDc№мLabel1нPlease Select a Directory§h1U`ђaЋb§cTiм CmdBrowseнBrowseп[Event Procedure]§m7U`Ф axbі cTkмtxtDBўd5U`Œa{b€c№мLabel5нPlease Select a Database§h1U`ђawb§cTiм CmdDBBrowseнBrowseп[Event Procedure]§m7U`Ф aEbі cTkм txtXLFIleўd5U`ŒaLbЫc№мLabel8нPlease Select an Excel File§h1U`ђaDb§cTiм CmdXLBrowseнBrowseп[Event Procedure]§LVAL 7o„is.)ƒ|џџџџ џџ( 0 €es, A$)ƒ˜џџџџџџP џџџџ€ disA$ „Вџџџџxџџџq 1. ˆƒ2џџџџџџ0 џџџџџџџџџџџџџџИ `xџџџџxџџџџџиџџџџ  Бџџ џџX H' „Нџџџџpџџџ№иƒ2џџџџџџјџџџџџџџџџџџџџџ)ƒєџџџџџџџџ8 џџџџ€џџџџA$#€дpџџџџџџџџџџџџ€ џџд ˜ )ƒџџџџџџџџ  џџџџ€ИA$`„№tџџџџџ#њxpџџџџџџџџџџџџ џџ  iƒќџџџџџџџџџџ „8iƒўџџџџџџџџџџџџџџ„Ҙ^ш BџџџџџџџџџџџџџџLџџР$Ҙь˜ BџџџџџџџџџџџџџџџџџџТ˜юР BџџџџџџџџџџџџџџџџџџТ˜№PBџџџџџџџџџџџџџџџџџџТ˜`CџџџџџџџџџџџџџџџџџџТ˜b0BџџџџџџџџџџџџџџџџџџТ˜f`Bџџ џџџџџџџџџџџџџџџџТ˜hCџџ џџџџџџџџџџџџџџџџТ˜l(€џџBџџ џџџџџџџџџџџџџџџџp(h№ џџџџџџџџxX џџџџџџџџџџџџШ јаџџџџШџџџџџџџџџџџџPШ @(  џџџџаџџџџџџџџџџџџx Pџџџџx џџџџИ ˆ№h  џџџџ˜8 [ъџџџџ€(h№ џџџџџџџџxX џџџџџџџџџџџџШ јаџџџџШџџџџџџџџџџџџPШ @(  џџџџаџџџџџџџџџџџџx Pџџџџx џџџџИ ˆ№h  џџџџ˜8 ƒFџџџџџџ@џџџџџџџџџџџџџџџџџџ(h№ џџџџџџџџxX џџџџџџџџџџџџШ јаџџџџШџџџџџџџџџџџџPШ @(  џџџџаџџџџџџџџџџџџx Pџџџџx џџџџИ ˆ№h  џџџџ˜8 ƒFџџџџџџHџџџџџџџџџџџџџџџџџџ(h№ џџџџџџџџxX џџџџџџџџџџџџШ јаџџџџШџџџџџџџџџџџџPШ @(  џџџџаџџџџџџџџџџџџx Pџџџџx џџџџИ ˆ№h  џџџџ˜8 ƒFџџџџџџ8џџџџџџџџџџџџџџџџџџ$ƒFџџџџџџhџџџџџџџџџџџџџџџџџџ$(h№ џџџџџџџџxX џџџџџџџџџџџџШ јаџџџџШџџџџџџџџџџџџPШ @(  џџџџаџџџџLVAL 3i_VBA_PROJECTщЬa^џ  ф*\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#C:\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 џџџџџџ- y8џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџЊd modFileFunctions a38799e1c*D2џџЎd…xџџ,Form_Function Examples 2a38799fcc*DyџџAB(ЫџџџџџџHџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџxF|5ШЧгЖXфy7/џџџџџџџџш)Є@щ8ЧгЖXЖњ/8/џџџџџџџџ€МПџhB Access|€џMe VBAїтWin16С~Win32MacГВ DAOž‚ FileFunctionsї modRefreshTableLinks$‰ €џ_EvaluateйGetOpenFileName]? comdlg32.dll?† pLVAL 4Openfilenamecˆ OPENFILENAME35GetSaveFileNameŽWMSA_OPENFILENAME3l strFilterгЅlngFilterIndexЫЃ strInitialDir/(strInitialFileхŽstrDialogTitleЧcstrDefaultExtensionШlngFlags ƒstrFullPathReturned›ЖstrFileNameReturnedy intFileOffsetwбintFileExtensionђ$ALLFILESЦf lStructSize/r hWndOwnerЌў hInstance ќ lpstrFilterФlpstrCustomFilter№˜nMaxCustrFilterzi nFilterIndexcЅ lpstrFile‡VnMaxFile€lpstrFileTitlep4 nMaxFileTitleymlpstrInitialDirrл lpstrTitleˆoFlagso nFileOffsetIŠnFileExtension9щ lpstrDefExt_ lCustrDataWНlpfnHookАlpTemplateNameШtOFN_ALLOWMULTISELECTЏOFN_CREATEPROMPT^9 OFN_EXPLORERLЊOFN_FILEMUSTEXISTйНOFN_HIDEREADONLY™ЗOFN_NOCHANGEDIRЭ™OFN_NODEREFERENCELINKSv—OFN_NONETWORKBUTTON‰№OFN_NOREADONLYRETURNМ—OFN_NOVALIDATEOFN_OVERWRITEPROMPTёљOFN_PATHMUSTEXISTЅƒ OFN_READONLY! OFN_SHOWHELP­ЇЌ(FindDBjq strSearchPath™$msaofQеMSA_CreateFilterStringŸ№MSA_GetOpenFileName{’Trim@я FindNorthwind;ZvarFilt`intRet|intNum§h vbNullCharкYMSA_ConvertFilterStringЅ_ strFilterInЙYintPosзr intLastPos6MSA_GetSaveFileName+›of†^ MSAOF_to_OFп% OF_to_MSAOF–цMSA_SimpleGetSaveFileName~IstrRet ?MSA_SimpleGetOpenFileNameM1 CheckLinksEjDbsЧ‚rstа €џRecordsetкц €џCurrentDbS €џOpenRecordsetе|ErroŠstrFile X €џApplicationЅ* €џhWndAccessApp Ќ(RefreshLinksE’ strFileNameлetdf”и€џTableDefmѕ €џTableDefs%i€џConnect\Щ €џRefreshLinknt RelinkTables strAccDirы€intErrorstrErrord\ conMaxTables}conNonExistentTableыЬconNotNorthwind~:conNwindNotFoundЫЈconAccessDeniedїЬconReadOnlyDatabaseФ‰ conAppTitlemЛ€џacSysCmdAccessDirќZ€џSysCmd—G vbExclamation…ШMsgBox—R Exit_Failed7Ї DescriptionО  vbCritical+}Module1bBLVAL 5IF_RETURNONLYFSDIRS-МBIF_DONTGOBELOWDOMAINЩbMAX_PATHЇ(SHBrowseForFolder"№lpbiЖ BrowseInfoЗYshell32tSHGetPathFromIDListKœpidListbOlpBuffer>–lstrcatWб lpString1С lpString2‘Сkernel32_ЅpIDLRootdpszDisplayNamehr lpszTitleSŽulFlagsэС lpfnCallback…lParam…7iImageUр Ќ(GetDirectory$АszTitleь CallingForm(А„џFormтlpIDList˜8sBufferzd tBrowseInfo+№€џHwnd/СSpace юЌ(FindFileў[ SearchPath.Titleђ~ FilterName•ХFilterД; modFileFunctions(X Form_Form16ШDetail2Label1,txtDirІоCommand2›Command2_ClickчкErr_Command2_Clicks2€џScreenI€џPreviousControlХ€џSetFocusёЦ€џDoCmdЦЇ€џFindNextгuExit_Command2_ClickнЁCommand3œCommand3_ClickИ CmdBrowsex”CmdBrowse_Click№l€џClickŠу€џValueфKText4Ж~Label5‘, CmdDBBrowseРCmdDBBrowse_ClickчtxtDBЦfindbѓb €џџџ_B_var_findbр& „џџџCmdXLBrowseoLabel8”, txtXLFIleўdCmdXLBrowse_ClickfЬ _B_var_SpaceљБ _B_var_LeftQс _B_var_TrimmT _B_var_StringгŠForm_Function Examplesd@џџHy3џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ џџџџџџџџџџџџџџџџ $ @dir”Б€0* pH‚dф FileFunc@tions@T@ = +x -  y8 J< DAO>‚BDAOi ™*\G{00025E01ъ-0C  0046}#4.0#0#C:\PROGRAM FILES\COMMON MICROSOFT SH`ARED\w350.DLL#Microsoft 3.51 Object LРibrary€H"‰‚Њdˆ€ modŠŽ € _VBA_MODULE2„VB€r_M€tDU LE€ H‚1•…x‚ ,5Ўd!‚+‚‚'Form_Щ Examples<>ЫшAB"‚(Bƒ С=__SRP_0_ “K)^џџџџrU€€€~~~~~~~~~~~~~~~~P с!Є@щ8ЧгЖXЖњ/8/  ф џџџџџџџџџџџџџџџџџџџџџџ ƒџџџџџџџџџџџџLVAL 6џџ !ЁmodRefreshTableLinks FileFunctionsmodFileFunctions Form_Form1яРF=C:\PROGRAM FILES\COMMON FILES\MICROSOFT SHARED\VBA\VBA332.DLLVBA Yџџџџ  ( ЩџJ™_ЏNЊ? 3C:\Program Files\Microsoft Office\Office\MSACC8.OLBAccess qџџџџ™ 8^РF ЉЩˆ=C:\PROGRAM FILES\COMMON FILES\MICROSOFT SHARED\DAO\DAO350.DLLDAO yџџџџ ‘H  ((((,   $$LL, $,0<GetOpenFileName comdlg32.dll GetOpenFileNameA ё!XGetSaveFileName GetSaveFileNameA ёсpSHBrowseForFolder shell32 SHBrowseForFolderSHGetPathFromIDList SHGetPathFromIDList ЉA lstrcat kernel32 lstrcatA ё И RefreshLinks GetDirectory€]хЏNЊ?FindDBFindFileMSA_CreateFilterStringMSA_ConvertFilterStringMSA_GetSaveFileNameMSA_SimpleGetSaveFileNameMSA_GetOpenFileNameMSA_SimpleGetOpenFileName OF_to_MSAOF MSAOF_to_OF #Є@щ8ЧгЖXЖњ/8//Є@щ8ЧгЖXЖњ/8/$Є@щ8ЧгЖXЖњ/8/.Є@щ8ЧгЖXЖњ/8/ECžМ7№Э‡Њ? CmdDBBrowse@CžМ7№Э‡Њ?txtDB CmdXLBrowseSCžМ7№Э‡Њ?Detailћм31ЯЭ‡Њ?FormtxtDir txtXLFIle CmdBrowseCmdBrowse_ClickCmdDBBrowse_ClickCmdXLBrowse_Click \ Please Select a directoryFщ;|фЭ‡Њ?  VBA332.DLL ‰џџџџ  ‰џџџџi (LVALтМ—zPџџDџџ џџџџџџџџџџџџџџxšш^џџџџїЮЫЯџџџџ’’ џџџџпџџџџџџџџџџ,(џџџџџџџџ@џџP4џџ<џџ8џџџџџџџџџџџџDLHџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџHџџВ8LџџXHџџЬ 8Lџџv@џџ$@џџі@џџ*HZ@џџ0@џџ`@ 0@,@џџ|@0~@џџœ(LџџŽ0”$f(”џџц(Lџџј(”џџъ8” r> џџџџџџџџ”џџџџLџџџџџџџџLџџџџLџџџџLџџџџLџџџџLџџџџLџџџџ”џџџџLџџџџLџџџџLџџџџџџџџџџџџџџџџџџџџLџџџџLџџџџLџџџџLџџџџџџџџLџџџџLџџџџџџџџ”џџџџLџџџџLџџџџLџџџџџџџџџџџџџџџџLџџџџџџџџџџџџLџџџџџџџџLџџџџ”џџџџLџџџџ”џџџџš џџџџ<џџ< џџ<џџ<џџ<џџ<џџ< џџ<$џџ<(џџ<,џџ<0џџ<4џџ<8џџ<<џџ<@џџ  Where Is The Database? *.mdb Databases ‰џџџџ @ *.*@™ФŒF1Я—ЁЊBJŸбXРцЬh)aЏNЊ?бџџџџ All Files ‰џџџџ_ h *.XLW Excel Files Please Select an Excel File *.xl?Form_Function Examplesx__SRP_1ѕrU€€€€~~~~~u џџџџџџџџџџџџџџџџџџџџ pOpenfilenamelpbipidListlpBuffer lpString1 lpString2 strFileNameszTitle !щ  CallingForm SearchPathTitle FilterNameFiltervarFilt strFilterInmsaofof !Љ  !ё ( !Q 8 !‘ H$LVAL =џџџџџџџџx Pџџџџx џџџџИ ˆ№h  џџџџ˜8 ƒFџџџџџџXџџџџџџџџџџџџџџџџџџ$(h№ џџџџџџџџxX џџџџџџџџџџџџШ јаџџџџШџџџџџџџџџџџџPШ @(  џџџџаџџџџџџџџџџџџx Pџџџџx џџџџИ ˆ№h  џџџџ˜8 ƒFџџџџџџHџџџџџџџџџџџџџџџџџџ$(h№ џџџџџџџџxX џџџџџџџџџџџџШ јаџџџџШџџџџџџџџџџџџPШ @(  џџџџаџџџџџџџџџџџџx Pџџџџx џџџџИ ˆ№h  џџџџ˜8 ƒFџџџџџџ8џџџџџџџџџџџџџџџџџџ$ƒFџџџџџџhџџџџџџџџџџџџџџџџџџ$ „|џџџџPџџџˆџџџџ@$#~Р`џџџџџџџџ$џ+аџџџџ оŒ?Ш )ƒ†џџџџ џџаџџџџџџџџƒb џџџџџџџџџџџџџџџџџџџџ№$$$ƒb џџџџџџXџџџџџџџџџџџџџџџџџџ$џџџџџџџџџџџџџџџџаџџџџџџџџx И (№џџџџˆаџџџџџџџџџџџџPhџџџџџџџџџџџџ P( џџџџџџџџџџџџџџџџX˜8 Ш x@ШhШ   №  јx џџџџƒb џџџџџџ џџџџџџџџџџџџџџ џџ$$h€6џџsџџџџџџџџџџџџџџџџџџџаџџџџџџџџx И (№џџџџˆаџџџџџџџџџџџџPhџџџџџџџџџџџџ P( џџџџџџџџџџџџџџџџX˜8 Ш x@ШhШ   №  јx џџџџџџџџџџџџџџџџаџџџџџџџџx И (№џџџџˆаџџџџџџџџџџџџPhџџџџџџџџџџџџ P( џџџџџџџџџџџџџџџџX˜8 Ш x@ШhШ   №  јx џџƒb џџџџџџ(џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџаџџџџџџџџx И (№џџџџˆаџџџџџџџџџџџџPhџџџџџџџџџџџџ P( џџџџџџџџџџџџџџџџX˜8 Ш x@ШhШ   №  јx џџƒb џџџџџџPџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџаџџџџџџџџx И (№џџџџˆаџџџџџџџџџџџџPhџџџџџџџџџџџџ P( џџџџџџџџџџџџџџџџX˜8 Ш x@ШhШ   №  Ќ@@gruo,gxpbwjrpf|`osmfv€€€џџц,ordgjmfgxpbwjrpv€€€џџъ,ov}vda€€џџф,$#~Р`џџџџџџџџџџџџџаџџџџ РŒ?Ш )ƒ†џџџџ џџаџџџџџџџџƒb џџџџџџџџџџџџџџџџџџџџ№$$$ƒb џџџџџџXџџџџџџџџџџџџџџџџџџ$џџџџџџџџџџџџџџџџаџџџџџџџџx И (№џџџџˆаџџџџџџџџџџџџPhџџџџџџџџџџџџ P( џџџџџџџџџџџџџџџџX˜8 Ш x@ШhШ   №  јx џџџџƒb џџџџџџ џџџџџџџџџџџџџџ џџ$$h€6џџsџџџџџџџџџџџџџџџџџџџаџџџџџџџџx И (№џџџџˆаџџџџџџџџџџџџPhџџџџџџџџџџџџ P( џџџџџџџџџџџџџџџџX˜8 Ш x@ШhШ   №  јx џџџџџџџџ€€€8Арьжс@8Арьжс@Function Examples00000000000 П€ €8Арьжс@8Арьжс@UserDefined*********** П€ €8Арьжс@8Арьжс@SummaryInfo*********** П€ €8Арьжс@8Арьжс@AccessLayout+++++++++++ П€8Арьжс@8Арьжс@SysRel%%%%%%%%%%% П€8Арьжс@8Арьжс@Scripts&&&&&&&&&&& П€8Арьжс@8Арьжс@Reports&&&&&&&&&&& П€8Арьжс@8Арьжс@Modules&&&&&&&&&&& П€8Арьжс@8Арьжс@Forms$$$$$$$$$$$ П8Арьжс@8Арьжс@€MSysRelationships22222222220 џ8Арьжс@8Арьжс@€MSysQueries,,,,,,,,,,* џ8Арьжс@8Арьжс@€MSysACEs))))))))))' џ8Арьжс@8Арьжс@€MSysObjects,,,,,,,,,,* џ8Арьжс@8Арьжс@€MSysDbўɘv_И vйЉ*єФ€ŒhQ—vв::::::::::% џ8Арьжс@8Арьжс@€Relationships.........., џ8Арьжс@8Арьжс@€Databases**********( џ8Арьжс@8Арьжс@€Tables''''''''''% џq)оЯ\:+Љ‡xiGдХЖC!n_PнЛЌ{љзШUF7(Е“„яЭ  фџ ф ф  ф фFlagsFormModuleўɘv_И vйЉ*єФ€ŒhQ—vв  €џџўɘv_И vйЉ*єФ€ŒhQ—vв  €џџ',ЩгŠvtyЬŽФsРлІЦУ8:ю‚9'GХTВtpјААєM =к :NЕXЫc‡БІЦУ8:ю‚9'GХTВtpјААєM =к :NЕXЫc‡БпV#o  €џџ €џџўɘv_И vйЉ*єФ€ŒhQ—vв €џџ',ЩгŠvtyЬŽФsРлІЦУ8:ю‚9'GХTВtpјААєM =к :NЕXЫc‡БІЦУ8:ю‚9'GХTВtpјААєM =к :NЕXЫc‡БпV#o €џџ € € ',ЩгŠvtyЬŽФsРлІЦУ8:ю‚9'GХTВtpјААєM =к :NЕXЫc‡БІЦУ8:ю‚9'GХTВtpјААєM =к :NЕXЫc‡БпV#o  ўɘv_И vйЉ*єФ€ŒhQ—vв џџ џџ',ЩгŠvtyЬŽФsРлІЦУ8:ю‚9'GХTВtpјААєM =к :NЕXЫc‡БІЦУ8:ю‚9'GХTВtpјААєM =к :NЕXЫc‡БпV#o џџўɘv_И vйЉ*єФ€ŒhQ—vв ў €џџ €џџўɘv_И vйЉ*єФ€ŒhQ—vв €џџ',ЩгŠvtyЬŽФsРлІЦУ8:ю‚9'GХTВtpјААєM =к :NЕXЫc‡БІЦУ8:ю‚9'GХTВtpјААєM =к :NЕXЫc‡БпV#o €џџ €џџ €џџўɘv_И vйЉ*єФ€ŒhQ—vв €џџ',ЩгŠvtyЬŽФsРлІЦУ8:ю‚9'GХTВtpјААєM =к :NЕXЫc‡БІЦУ8:ю‚9'GХTВtpјААєM =к :NЕXЫc‡БпV#o €џџ €џџ €џџўɘv_И vйЉ*єФ€ŒhQ—vв €џџ',ЩгŠvtyЬŽФsРлІЦУ8:ю‚9'GХTВtpјААєM =к :NЕXЫc‡БІЦУ8:ю‚9'GХTВtpјААєM =к :NЕXЫc‡БпV#o €џџ џџ џџ',ЩгŠvtyЬŽФsРлІЦУ8:ю‚9'GХTВtpјААєM =к :NЕXЫc‡БІЦУ8:ю‚9'GХTВtpјААєM =к :NЕXЫc‡БпV#o ўɘv_И vйЉ*єФ€ŒhQ—vв ў €џџ €џџўɘv_И vйЉ*єФ€ŒhQ—vв €џџ',ЩгŠvtyЬŽФsРлІЦУ8:ю‚9'GХTВtpјААєM =к :NЕXЫc‡БІЦУ8:ю‚9'GХTВtpјААєM =к :NЕXЫc‡БпV#o €џџ €џџ €џџўɘv_И vйЉ*єФ€ŒhQ—vв €џџ',ЩгŠvtyЬŽФsРлІЦУ8:ю‚9'GХTВtpјААєM =к :NЕXЫc‡БІЦУ8:ю‚9'GХTВtpјААєM =к :NЕXЫc‡БпV#o €џџ ўɘv_И vйЉ*єФ€ŒhQ—vв мLVALШШШШШђ @€ @€ @€999999999 9999999999999999 9 9 9 ЪОџџџџџџџџџџџџџџџџџџџџFunction ExamplesmodFileFunctions':SџџџџЪОџџџџџџџџџџџџџџџџџџџџFunction ExamplesmodFileFunctions':SџџџџЅLVALжжЧrўЙ     џ KKD€ AccessVersionBuild%  07.53 KKD€ AccessVersionBuild%  07.53 KKD€ Description]Q IContains procedures that check and refresh the links to Northwind tables.KKD€TitleAuthorCompanyB FileFunctions Chris Shepherd SCCKKD€ KeepLocal T/kјщЧTE#АЁ §лhYБr8§ %тьжс@|чьжс@MSysModules2+++++++++++ П %тьжс@ %тьжс@MSysModules*********** П €€€8Арьжс@8Арьжс@modFileFunctions/////////// П€€€8Арьжс@8Арьжс@Function Examples00000000000 П€ €8Арьжс@8Арьжс@UserDefined*********** П€ €8Арьжс@8Арьжс@SummaryInfo**** ',ЩгŠvtyЬŽФsРлІЦУ8:ю‚9'GХTВtpјААєM =к :NЕXЫc‡БІЦУ8:ю‚9'GХTВtpјААєM =к :NЕXЫc‡БпV#o ўɘv_И vйЉ*єФ€ŒhQ—vв  ',ЩгŠvtyЬŽФsРлІЦУ8:ю‚9'GХTВtpјААєM =к :NЕXЫc‡БІЦУ8:ю‚9'GХTВtpјААєM =к :NЕXЫc‡БпV#o ўɘv_И vйЉ*єФ€ŒhQ—vв  T',ЩгŠvtyЬŽФsРлІЦУ8:ю‚9'GХTВtpјААєM =к :NЕXЫc‡БІЦУ8:ю‚9'GХTВtpјААєM =к :NЕXЫc‡БпV#o ўɘv_И vйЉ*єФ€ŒhQ—vв є є',ЩгŠvtyЬŽФsРлІЦУ8:ю‚9'GХTВtpјААєM =к :NЕXЫc‡БІЦУ8:ю‚9'GХTВtpјААєM =к :NЕXЫc‡БпV#o єўɘv_И vйЉ*єФ€ŒhQ—vв  ',ЩгŠvtyЬŽФsРлІЦУ8:ю‚9'GХTВtpјААєM =к :NЕXЫc‡БІЦУ8:ю‚9'GХTВtpјААєM =к :NЕXЫc‡БпV#o ўɘv_И vйЉ*єФ€ŒhQ—vв T',ЩгŠvtyЬŽФsРлІЦУ8:ю‚9'GХTВtpјААєM =к :NЕXЫc‡БІЦУ8:ю‚9'GХTВtpјААєM =к :NЕXЫc‡БпV#o LVAL >јx џџџџƒb џџџџџџXџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџаџџџџџџџџx И (№џџџџˆаџџџџџџџџџџџџPhџџџџџџџџџџџџ P( џџџџџџџџџџџџџџџџX˜8 Ш x@ШhШ   №  јx џџџџƒb џџџџџџџџџџџџџџџџџџџџџџџџ$h€ џџџџџџh€ 8џџџџџџh€ P џџџџџџh€hџџџџџџh€€џџџџџџh€˜џџџџџџh€џџџџџџа@ўџ(#@џџџ џџ џџџџИ!p#о@№ Iƒ*џџџџ џџ џџџџџџ€џџџџ~€‚|џџџџ€`„ џџџџpџџџџџџџџџ „"џџџџPџџџШџџџџџџ џџџџiƒКџџџџ џџџџџџџџ€ џџ#H(pџџџџџџџџџџџџИџџ(bb №iƒџџџџџџџџџџи„Ш iƒџџџџџџџџџџџџџџ„аҘrxBџџџџџџџџџџџџџџџџџџТ˜vџџџџBџџџџџџџџџџџџџџ  +Ии `џџџџџџџџџџџџ\џNX џџџџvŒџџџџ+(`џџџџџџџџџџџџxџJШџџџџЭŒџџџџiƒ*џџџџ џџџџx€џџџџƒ џџџџџџ` џџџџџџџџџџџџџџИ )ƒџџџџџџџџ( џџџџ€ƒ џџџџџџиџџџџџџџџџџџџџџџџџџШ iƒ,џџџџџџџџ˜€iƒ.џџџџџџџџИ€џџџџiƒ0џџџџџџџџџџџџ€џџџџ ˜ ˆј џџџџџџџџџџџџРШ P@ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ0˜(џџџџР @ Аxџџџџ`ˆџџџџx Hјp Phиш ˆ8 џџџџџџџџ@џџџџР 8X€џџџџџџџџџџџџxИ"џџџџш+Ш"`џџџџџџџџџџџџ И џџџџ”Œџџџџџџџџpџџџџџџџџџџџџџџџџџџџџџџџџиџџџџ  џџџџџџџџџџџџџџџџџџџџџџџџ@#џџџџX##Аџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ  јИ И#ˆ#ъџџџџр˜ ˆј џџџџџџџџџџџџРШ P@ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ0˜(џџџџР @ и xџџџџ`ˆџџџџШ"Hјp Phиш ˆ8 џџџџџџџџ@џџџџР 8X€џџџџџџџџџџџџxј#џџџџи +xLVAL ?ˆ`џџџџџџџџ!џkиџџџџБŒџџџџ€"ўџџџџџ<џџџШ ˜@ўџџџџџ,џџџ џџ џџџџ@ўџџџџџ(џџџџџ џџџџ@ўџџџџџџџџ џџ џџџџ`~џџџџxџџџџџџџџџ@ўџ #nџџџџџ џџџџ@ўџџџџџlџџџџ H% #ъџџџџ@ўџр#\џџџ џџ @ўџи$Lџџџ џџ №$џџџџ"џџџџџџџџџџџџPџџџџџџџџџџџџџџџџhџџџџџџџџџџџџџџџџ€џџџџp#џџџџ(%џџџџЈ$џџџџШ#џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџˆ#џџџџџџџџџџџџџџџџp#Р$Ш@ўџ%<џџџ џџ џџџџŒ@ўџџџџџ,џџџ џџ р%џџџџ#@ўџџџџџџџџ џџ џџџџџџџџ #ьџџџџ@ўџџџџџџџџџџ џџџџџџШџџџџџџџџџџџџџџџџ№џџџџ џџџџџџџџ№%џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ`&џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ8&џџџџџџџџџџџџџџџџџџџџ№%&&(џџџџ$`€џџџџzџџџџџP&№%Hџџ џџџџџџšœћџџџџЈ%ўџџџџџмўџџh џџџџ8&Oџџh @ўџџџџџкўџџ џџ џџX  џџџџџџџџџџџџџџџџ0 џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ'џџџџЈ'`'x'џџџџ0'џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ'џџџџџџџџД2~^џџџџџџџџџџ@ўџџџџџtџџџџџ џџџџўџџџџџpџџџа џџ@ўџи'`џџџ џџ џџџџ@ўџџџџџ\џџџџџ џџџџ@ўџР'Lџџџ џџ @ўџ№'<џџџ џџ @ўџџџџџ,џџџ џџ џџ@ўџџџџџџџџ џџ џџ`)HX(<џџџ џџ џџџџ 8џџџџ€((,џџџ џџ џџ€(џџџ џџ џџџџџџџџЮџџџџџџP)џџџџџ џџџџџџџџ˜џџџџјџџџџ8)џџџџ(џџџџџџџџџџџџџџџџ@џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ8)p)`)`)xџџџџџџџH+џџџџ#h*јлџџџџџџH+ш№џџџџ џџH+а\џџџ џџ џџџџ@ўџLџџџ џџ џџџџ*(<џџџ џџ џџџџ@ўџ,џџџ џџ џџџџ@ўџџџџ џџ *0* џџџ џџ (@ўџќўџџ џџ H+(ьўџџ џџ H+шўџџџџ џџџџX(X+рџџџџџџџџџџџџџџџџРџџџџрџџџџџџџџ+џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџLVAL @џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ+0+ +X+@zџџџџџP*p+ џџџџX+œ`џџџџџX+џџџџx)h,мўџџ( џџџџџџџџџџџџџџ`-кўџџ џџ џџџџџџџџ˜џџџџџџџџџџџџџџџџџџџџџџџџXџџџџџџџџpџџџџџџџџ8,џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ8,h,P,h, xџџџџџ џџџџџџџџџџH*p-јџџџџџџџџџџџџџџџџџџ˜џџџџџџџџџџџџџџџџ№џџџџ џџџџџџџџ -џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ -H-8-p-@zџџџџџˆ-*џџ p-œўџ`џџџџџp-џџџџ`+`.рмўџџp џџџџ1џџ џџP.кўџџ џџ џџџџџџ˜џџџџџџџџџџџџџџџџџџџџџџџџˆ џџџџџџџџ  џџџџ`.џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ`.ˆ.x.`.џџџџ€,А/@xџџџџџџџџџџџџџ8џџџџ /№џџџџџџџџџџџџџџ˜џџџџџџџџџџџџџџџџx џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@/џџџџ /@@ўџ@џџџџџ /(lџџџ џџ џџ /\џџџ џџ џџџџ~^ џџџџџP0џџџџ-џџџџpџџџџџџџџџџџџџџџџ0 џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџˆ/џџџџџџџџаtџџџџџ џџџџИўџpџџџА @ўџ`џџџ џџ 1@\џџџџџ @ўџLџџџ џџ @ўџ<џџџ џџ @ўџ,џџџ џџ џџџџџџџ џџ џџџџ0.hp џџџџџџџџШ @ џџџџџџџџџџџџџџџџx џџџџџџџџџџџџџџџџџџџџџџџџџџџџ:а!ME(џџџџџџџџ