Standard Jet DBЕnb` ТUщЉgr@?œ~Ÿџ…š1ХyКэ0МпЬcйфУŸFћŠМNEjь7žеœњЯ(ца'Š`—{66упБДeC >Б3ї№y[Q$|*мј|™˜§sїXў‚f_•ја‰$…gЦ'DвюЯeэџЧFЁx эщ-bдT4.0dЛvа €   џ€ џџџџ@ џџџџh ЭџџxЭџџpџџџџ`–˜џџџџиџџџџhiџџџџHџџџџИџџџџ џџџџ џџџџ( џџџџ0 џџџџx џџџџˆ џџџџx џџџџ  џџџџ џџџџp џџџџИ џџџџР џџџџx џџџџ џџџџџџџџPџџџџˆџџџџHџџџџ џџџџP џџџџј џџџџрџџџџH џџџџx џџџџˆ џџџџЈ џџџџ џџџџџџџџИ џџџџЈ џџџџИ џџџџ  џџџџј џџџџP џџџџ џџџџј џџџџш џџџџш џџџџh џџџџ` џџџџp џџџџ` џџџџx џџџџˆ џџџџ џџџџ0 џџџџ џџџџX џџџџ№ џџџџ џџџџш џџџџ@ џџџџX џџџџџџџџа џџџџр џџџџ`џџџџ8џџџџxџџџџџџџџpџџџџИџџџџаџџџџ№џџџџџџџџ џџџџ џџџџџџџџ(џџџџ€џџџџџџџџ џџџџ№џџџџјџџџџјџџџџиџџџџаџџџџаџџџџрџџџџџџџџH џџџџАџџџџ џџџџаџџџџиџџџџ№џџџџџџџџџџџџџџџџџџџџPџџџџр џџџџ@џџџџ№џџџџ џџџџH џџџџаџџџџ˜џџџџhџџџџИџџџџ8 џџџџ џџџџАџџџџјџџџџ0 џџџџ˜џџџџ џџџџh џџџџH џџџџ џџџџиџџџџx џџџџЈ џџџџШ џџџџј џџџџ€ џџџџ  џџџџР џџџџИ џџџџџџџџx џџџџџџџџш џџџџР џџџџ( џџџџ( џџџџ№џџџџPџџџџp]ђђ ђ8]ђ(ђHр8declare variables and assign address to object variablesЖKџџџџрэ 6!:!.”эЦ .І Ђ$.'Єрopen the recordsetрFenter student ID and amount paid, then convert amount paid to a numberpaidЖ Enter ID:бЖ Student IDб$,'ЖEnter payment:бЖPaymentбЌб $,'ЂџџџџˆІ ЖpaymentsбZ ”бD €бj бn ІB@orwardџџџџшџџџџшрKsearch for ID in ID field, then update the record's Paid and Updated fieldsЖid = ' Ж'бЎ ІB@ЌЖpaid І%2!4 Є Жpaid І%2(4рcalculate total amount paidџџџџ8 ZЖupdated І%2(4vaрassign current dateЖџрsave changes to record ІB@xџџџџрclose the recordseth ІB@BlэА.Ір(disassociate object variable from objectџџџџ]ђhр7calculate balance due, then display appropriate messageЌАЖpaid І%2!4 'О ОЌ œd@d(k k ОЌœЖ Still owes ОбФЖcurrencyбЌ$ЌбA@0Ж Paid in fullбA@0Ж Overpaid ОбФЖcurrencyбЌ$ЌA@0џџџџЈ–€iџџџџ џџџџАџџџџш џџџџш џџџџ˜рdeclare variables]ђђhђир(enter which records to include in reportІЖEnter A(ll), O(we), P(aid)бЖ Which RecordsбЖAб $,'Ш Ь рœ appdk Ш$аъЖAKTЖOKTЖPKTSџџЖ Invalid entryб ж и бдЖErrorбA@0zџџаnџџШр!ask if user wants to print reportІЖ Print report?б к м о бдЖPrintб$0'ЬЖ payreportбм тбо шбф 8B@кЪбЖ payreportбм рбо шбф 8B@крбЖSELECT * FROM payments'шЖ(SELECT * FROM payments WHERE paid < 1200'шЖ)SELECT * FROM payments WHERE paid >= 1200'шџџџџ€рselect appropriate recordsџџџџX џџџџцЕAttribute VB_Name = "Module1" Option Compare Da@tabase`Explicit  Pub FuncdPaymentUpdate () 'declvariable№џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџо YS  Y   Y Y  Y Y  Y  ўY  Y  r Y s Y E Y a Y dў Y 2ўY  Y   Y  jўY ConnectDatabaseDateCreateDateUpdate FlagsForeignNameIdLvLvExtraLvModule LvPropName OwnerParentIdRmtInfoLongRmtInfoShortTypeƒџџџџnџџџџiџџџџџџџџƒџџџџџџџџџџџџџџџџџџYџџџџYџџџџIdParentIdName        џџќџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџЉOYFSY Y Y  Y 2рўACMFInheritableObjectIdSIDƒџџrџџџџeџџџџaџџџџoџџџџ №ˆYџџџџObjectIdџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ§џџџ 5 12ўџџџ !"#$%&'()*+,-./0ўџџџ364<ўџџџ789:;=>@?AўџџџBўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџRoot Entryџџџџџџџџ щ%€Р'VBAџџџџџџџџрэп%€Ррэп%€РVBAProjectџџџџ рэп%€Ррэп%€РVBAџџџџџџџџрэп%€Ррэп%€Рdirџџџџџџџџџџџџ!__SRP_0џџџџ #__SRP_1џџџџџџџџџџџџ&B__SRP_2 џџџџ(ўџџџ  !"#$%ўџџџ'ўџџџ)*+,-./0123456789:;<=>?@ўџџџBCDEFGHIJKLMNOPўџџџRSTUVўџџџўџџџўџџџўџџџўџџџ\]^_`abcdefghijklmnopqrstuvwxyz{|}~€В€0* pH"dфDTrˆip<@j= B \?;” J< r€stdole>stdo€le f%\*\G{00€020430-C 0046}#2.0#0#c:\windows\SYSTEM\StdOle2.Tlb#OLE Autom`ation^ЯADODB> ADOе€BC™€€C…D1C10-8CAA006D2EA4C1CC:\PROGRAM FILES\COpMMON„L€9\msado15.dll#Microsoft ActiveX Data Objects 2.1 LРibrary€H"‚Ь‚[€ ModuРle1GЈduЊ1€ BQHBQYCFBPJEZ_PXPCHKGECTUCDC28AQHBA@YCF@PJEZ_PPXРCРKGРCTUm@ DРA@€‚1~J BEС,*Тb! +BB“K*mџџџџrU€€€~~~~~~~~~~a бO5іpЂыд­АВ +™  фџџџџ A iџџџџpџџџџAџџЙБЙ™СModule1TripяРF@C:\PROGRAM FILES\COMMON FILES\MICROSOFT SHARED\VBA\VBA6\VBE6.DLLVBA щџџџџ Ё0 ЩџJ™_ЏNЊ? 3E:\Program Files\Microsoft Office\Office\MSACC9.OLBAccess џџџџ 1Ё@0РFc:\windows\SYSTEM\StdOle2.Tlbstdole џџџџ9P€Њm.Єžšы YSY  Y Y Y  Y ўў Y ўўY  Y ўўAttributeExpressionFlagLvExtra Name1 Name2ObjectId Orderƒџџџџnџџџџzџџџџfџџ edYџџџџ"ObjectIdAttributeџџШbDzdueDLdisp@lay apРFpЫ€Ž mрUagФ €= 1200 r-х{.F6Ь"cIfЁ> 0 ThencMsg@U FUStill8 ow A5Рimaрt(expž`ŠрpфurФ , У€;#)фcyeYElaЏ a}‹=Ža bLРQfxullФDС "іO tAv џїB рVIfC$Eh'clИose(aЦЈХOC Єothing  'р< OociЁ]9ЌЧ f †DЪУ Г!eе ! иD#GРReportи С$гWhich„ЕЁУ1hдSel!кзin`tAnsw@˜€Iэ`™gEžфЇwЁ EМЃPinclР› р7rТƒ  зœA(ll), O(weщРP(Ž)NЈ_uTЭ Є 9P"AХ(0N_" Љ5єhs $Cƒ ўUQqR™ ФRб!BА?“1 DP‰SELECT * FиROM`dђ…sH,3O??nts WHERE’i <{B@^P_Ÿ › Y>ГEmo7§:Invafl0^ptryp štons:=vbOKсx + vbIn€fEв‰%Err„orl Exit6šГ‘0Ѓ ѓP\k if us)waсŸ@X SА{Y'ч+= S Й—yPrа+Ё3?P ƒ& YesNoђ (((([Payments].[Paid])>=1200)))Ю7­вqЖс@аљpС‚сєвŒРuС'бџL ЬUНЄъЇХв‹ˆ[С'<љЙї№Жс@Paymentsс§Pa2ћвŒРuС'НЄъЇХв‹ˆ[С'IDzШGDав‹ˆ[С'НЄъЇХв‹ˆ[С'LastNameModules щ%€Р щ%€Р0џџџџ щ%€Р щ%€РPropDataџџџџџџџџџџџџY DirDataџџџџџџџџџџџџZReportsџџџџџџџџ щ%€Р щ%€Р0џџџџ щ%€Р щ%€РBlob џџџџџџџџџџџџ[} PropDataџџџџ‰‚ƒ„…†‡ˆўџџџўџџџ‹ŒŽўџџџўџџџ“ўџџџўџџџ–ўџџџўџџџ™ўџџџўџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџžšЫ -YSY Y Y  Y ў Y ў Y ў Y ў Y ўccolumn grbiticolumnszColumnszObject$szReferencedColumn$szReferencedObjectszRelationshipƒџџџџџџџџџџџџџџџџџџ ‚ƒџџџџџџџџџџџџџџџџџџ ‚ƒџџџџџџџџџџџџџџџџџџ ‚YџџџџYџџџџYџџџџszObject$szReferencedObjectszRelationshipџџф і ,,ьH1winspoolHP OfficeJet Series 600 PrinterLPT1:џd27d eМž€о Arial§e24§fœ€§g37§jgцhтџ§m5<Ci шTimes New Roman§n7=j ъTimes New Roman§o3:Al ъTimes New Roman§p4§ŸмID§™`БпReportHeaderчqС‚сєвŒРuС'ўd28`<a<b c de„м Label8нSpain TripоTimes New Romanъ qС‚сєвŒРuС'§›`•п"PageHeaderSectionчњpС‚сєвŒРuС'џd`<a<bоcd e„žмID_LabelнIDфDetachedLabelъqС‚сєвŒРuС'§d`Va<bžcd e„žмLastName_LabelнLast NameфDetachedLabelъqС‚сєвŒРuС'§d`˜ a<bdcd e„žмFirstName_LabelнFirst NameфDetachedLabelъqС‚сєвŒРuС'§d7`Аa<bHcd e„žмPaid_LabelнPaidфDetachedLabelъ qС‚сєвŒРuС'§f2`<aYbЖм Line11п qС‚сєвŒРuС'§d7`$a<btcd e„žмLabel14нUpdatedфDetachedLabelъ\qС‚сєвŒРuС'§˜`Гп DetailчћpС‚сєвŒРuС'џm`<a<bоc,e8мIDнIDњqС‚сєвŒРuС'§m`Va<bžc,eƒkмLastNameнLastNameњqС‚сєвŒРuС'§m`˜ a<bdc,e’kмFirstNameнFirstNameњqС‚сєвŒРuС'§m0`ьa<bHc,kмPaidнPaidо*$#,##0.00;($#,##0.00)њqС‚сєвŒРuС'§m`$a<bќc,kмUpdatedнUpdatedоShort DateњRqС‚сєвŒРuС'§œ`п"PageFooterSectionчќpС‚сєвŒРuС'џm;`<a№bаc,i jМм Text9н =Now()оLong Dateњ qС‚сєвŒРuС'§m;`„a№bаc,i jМkм Text10нH="Page " & [Page] & " of " & [Pages]њ qС‚сєвŒРuС'§f2`<a№b$œм Line12пqС‚сєвŒРuС'§š`пReportFooterчqС‚сєвŒРuС'§їъЭЌ—џџџџаЗ@ВћвŒРuС'™ReportHeaderdLabel8›PageHeaderSectiondID_LabeldLastName_LabeldFirstName_LabeldPaid_LabelfLine11dLabel14˜ Detailm IDm LastNamem FirstNamem PaidmUpdatedœPageFooterSectionmText9mText10fLine1TypeInfoџџџџџџџџџџџџŠ™DirDataџџџџџџџџџџџџ‘Scripts# щ%€Р щ%€Р0џџџџџџџџ щ%€Р щ%€Р2šReportFooterPayReportџџџџџџџџџџџџџџџџџџџџџџџџ33!џџџџџџџџџџџџџџџџџџžšYЛv1ьЇbи “ N Ф  : ѕ А k & с œ W  Э ˆ C ўЙt/ъЅY ˜Y `kDataIDƒџџџџџџџџџџџџџџџџџџ%&‰YџџџџAOIndexџџDisplayReport  4Enter A(ll), O(we), P(aid) Which Records A AllQry O OweMoneyQry P PaidInFullQry Invalid entry Error Print report? Print payreportСЩЄsжа˜П Щ ШйРцЬh)aЏNЊ?i‘џџџџ`чGХX–юЊGPтVBE6.DLL  џџџџT ˆ  џџџџ Ј  џџџџS Шiш ,SELECT * FROM payments PSELECT * FROM payments WHERE paid < 1200  RSELECT * FROM payments WHERE paid >= 1200hrU€€€ џџџџџџџџџџџџ trU€€€€~| Q ‰) ™ i™Бё ™Q С1y Й‘с‘  0 ќЦ˜  ЈH'€ў' ў'Рў'рў:џNџџ:0џN џ џ:PџN@џ@џ 1hџ6@џ џџрўРў ў€ўЅhџMPџ@@џ @џќіpўpў:Pџ]ћ4~Cdџяpў:Pџ]ћ4™Cdџяpў:Pџ]ћ4ДCdџя3'рў'џ:0џ N џ џѕ@:Pџ N@џ@џ 6@џ џџрў§•7'рў'џ:0џ N џ џѕ4:PџN@џ@џ^ фpbџ6@џ џџрўkbџчѕЧk1'џ%ldџF0џ%ѕ:Pџ%lў$ `lў ˜lўž1'џ%ldџF0џ%ѕ:Pџ%lў$ `lў ˜lў§• €€€@@ @€ €€€@€€€`dOo^Q8fJviQfdimOYkf^JviQfdim`JMidfJv`QbmofOJmQ`JMidOJmJJMMQkkfJUQkOJmJLJkQkSdi`k `dOo^Qk iQ^JmYdbkWYfkiQfdimk kMiYfmk kvkiQ^ mJL^Qk+kh+ifJviQfdim`kvkJMMQkkdL[QMmk`kvkJMQk`kvkdL[QMmk`kvkhoQiYQk`kvkiQ^JmYdbkWYfkfJv`QbmkJMMQkk^Jvdom`kvkOLko``JivYbSdokQiOQSYbQO SHARED\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*\G{4AFFC9A0-5F99-101B-AF4E-00AA003F0F07}#9.0#0#E:\Program Files\Microsoft Office\Office\MSACC9.OLB#Microsoft Access 9.0 Object LibraryИ*\G{00020430-0000-0000-C000-000000000046}#2.0#0#c:\windows\SYSTEM\StdOle2.Tlb#OLE Automation*\G{00000201-0000-0010-8000-00AA006D2EA4}#2.1#0#C:\PROGRAM FILES\COMMON FILES\SYSTEM\ADO\msado15.dll#Microsoft ActiveX Data Objects 2.1 Library џџџџџџ\?;џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ[8BQHBQYCFBPJEZ_PXPCHKGECTUCDC0;3b9d4360џџModule1џџТbJ џџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџD]B6ƒивŒРuС'џџџџџџџџ`€єџIŒ8џAccess€џand €џas€џCall€џCase*€џCurrency=€џdimD€џElseG€џEndH€џendifQ€џf_€џIfj€џintegerƒ€џnew†€џNothingЃ€џselectЇ€џsingleЏ€џSubВ€џThen VBAїтWin16С~Win32MacГВVBA6­#Student‚mstdole“`adodbsВ Module1b _EvaluateйtkstrNum№+intnum§hstrraise@udbы\ €џConnectionкиrstа €џRecordsetкцfldмŽFieldќ3€џConnectionStringНђ €џadCmdTableЮ§InputBoxЯ ValнтMsgBox—R€џFields7Љ€џValueфK €џApplicationЅ*€џDoCmdЦЇtest4ЋconnuПcmdі~Commandд]€џProviderѓ€џActiveConnectionЄ‹ CommandTexteExecuteYЭnewtestІЯconnect\Щ strconnect›qdriverZщ €џџџ_B_var_driverФcmdb!ГdbqХ‚ €џџџ_B_var_dbqж?SourceGЖoptionsЇ“studentsЪр secondtestTFcnn1џЙ rstEmployeesDѓstrCnnZ№varDateВЋ €џCursorTypeр €џadOpenKeysetї€џLockType}г€џadLockOpti@€џH  @€ @€ @€          €€€€€€oQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQ@S_@X_џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџРQ_€R_@ъ„oQџџџџџџџџџўџџџџџžšЊ  @€ @€ @€ @€ @€ @€ @€ @€ @!!!!!!!!! ! ! ! !!!!!!!!!!!!!$!% !& !' !( !) !* !+ !, !- !. !/ !0 !1 !2 !3 !4€!:€!;€!<€!8€!9€!=€!>€!?€!@€!A€!B€!5€!6€!7€!C€!D€!E!!!! !! !!!!!!"!#џџџџџџџRoot Entryџџџџџџџџ BкРС'VBAџџџџџџџџ BкРС BкРСVBAProjectџџџџ BкРС BкРСVBAџџџџџџџџ BкРС BкРСdirџџџџџџџџџџџџ!__SRP_0џџџџ #__SRP_1џџџџџџџџџџџџ&B__SRP_2 џџџџ(ўџџџ  !"#$%ўџџџ'ўџџџ)*+,-./0123456789:;<=>?@ўџџџBCDEFGHIJKLMNOPўџџџRSTUVўџџџўџџџўџџџўџџџўџџџ\]^_`abcdefghijklmnopqrstuvwxyz{|}~€В€0* pH"dфDTrˆip<@j= B \?;” J< r€stdole>stdo€le f%\*\G{00€020430-C 0046}#2.0#0#c:\windows\SYSTEM\StdOle2.Tlb#OLE Autom`ation^ЯADODB> ADOе€BC™€€C…D1C10-8CAA006D2EA4C1CC:\PROGRAM FILES\COpMMON„L€9\msado15.dll#Microsoft ActiveX Data Objects 2.1 LРibrary€H"‚Ь‚[€ ModuРle1GЈduЊ1€ BQHBQYCFBPJEZ_PXPCHKGECTUCDC28AQHBA@YCF@PJEZ_PPXРCРKGРCTUm@ DРA@€‚1~J BEС,*Тb! +BB“K*mџџџџrU€€€~~~~~~~~~~a бO5іpЂыд­АВ +™  фџџџџ A iџџџџpџџџџAџџЙБЙ™СModule1TripяРF@C:\PROGRAM FILES\COMMON FILES\MICROSOFT SHARED\VBA\VBA6\VBE6.DLLVBA щџџџџ Ё0 ЩџJ™_ЏNЊ? 3E:\Program Files\Microsoft Office\Office\MSACC9.OLBAccess џџџџ 1Ё@0РFc:\windows\SYSTEM\StdOle2.Tlbstdole џџџџ9P€Њm.ЄžšЬ  €    џE220A321A3215C" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] Module1=22, 22, 518, 290, Z Module1Module1Ьamџ  ф*\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\PROGRAM FILES\COMMON FILES\MICROSOFT SHARED\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*\G{4AFFC9A0-5F99-101B-AF4E-00AA003F0F07}#9.0#0#E:\Program Files\Microsoft Office\Office\MSACC9.OLB#Microsoft Access 9.0 Object LibraryИ*\G{00020430-0000-0000-C000-000000000046}#2.0#0#c:\windows\SYSTEM\StdOle2.Tlb#OLE Automation*\G{00000201-0000-0010-8000-00AA006D2EA4}#2.1#0#C:\PROGRAM FILES\COMMON FILES\SYSTEM\ADO\msado15.dll#Microsoft ActiveX Data Objects 2.1 Library џџџџџџ\?;џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ[8BQHBQYCFBPJEZ_PXPCHKGECTUCDC0;3b9d4360џџModule1џџТbJ џџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџD]B6ƒивŒРuС'џџџџџџџџ`€єџIŒ8џAccess€џand €џas€џCall€џCase*€џCurrency=€џdimD€џElseG€џEndH€џendifQ€џf_€џIfj€џintegerƒ€џnew†€џNothingЃ€џselectЇ€џsingleЏ€џSubВ€џThen VBAїтWin16С~Win32MacГВVBA6­#Student‚mstdole“`adodbsВ Module1b _EvaluateйtkstrNum№+intnum§hstrraise@udbы\ €џConnectionкиrstа €џRecordsetкцfldмŽFieldќ3€џConnectionStringНђ €џadCmdTableЮ§InputBoxЯ ValнтMsgBox—R€џFields7Љ€џValueфK €џApplicationЅ*€џDoCmdЦЇtest4ЋconnuПcmdі~Commandд]€џProviderѓ€џActiveConnectionЄ‹ CommandTexteExecuteYЭnewtestІЯconnect\Щ strconnect›qdriverZщ €џџџ_B_var_driverФcmdb!ГdbqХ‚ €џџџ_B_var_dbqж?SourceGЖoptionsЇ“studentsЪр secondtestTFcnn1џЙ rstEmployeesDѓstrCnnZ№varDateВЋ €џCursorTypeр €џadOpenKeysetї€џLockType}г€џadLockOptimisticц< hire_date9fNameRћlNameЄf€џUpdateвќ€џRequeryЋstrgradeВ#gradeŠЂ hire_gradeJ&Itemзz€џCollect microsoft•jetMЃoledb%Ѕ thirdžš <јџџ<ќџџ<џџџџџџ@"Gр ``„џџџџhџџџџџџџџџ`„Ђџџџџdџџџџџџџџџ`„Єџџџџ\џџџџџџџџџ€џџџџџџџџ˜Р`„Оџџџџџџџџџџ8 Цџџџџ`џџџџџџџџџџџџlўHџџџџ џџџџ)Œ @hџџџџџџџџџ`„Ъdџџџџџџџџџ`„Ьbџџџџџџџџџ`„Шџџџџџџџџџџh€ „•џџџџXџџџ@џџџџ% „ЇџџџџTџџџ` %`„шџџџџџџџџџџ№џџџџp% œ€`џџџџџџџџџџџџlџJџџџџ џџџџ''Œ`„Ьџџџџџџџџџџџџ ƒџџџџџџџџџџџџџџџџџџџџШРџџџџ№џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџиџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџxh(Pџџџ џџ џџ@џџџ џџ ШџџџџHџџџџ№pX0џџџ џџ H џџџ џџ pў@@ўџџџџ џџ ˆџџџ џџ џџџџ˜џџџџ`€№ўџџ џџ Ирўџџ џџ џџ@ўџаўџџ џџ Рўџџ џџ @ўџАўџџ џџ џџџџџџџџџџрџџџџјџџџџ0 ўџџ џџ џџџџ№Рўџџ џџ џџџџ€ўџџ џџ џџџџ@ўџpўџџ џџ џџџџи8рџџџџџџџџџџРАlўџџ џџ џџџџР˜Рџџџџ№џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџиџџџџџџџџџџџџџџџџHџџџџ0џџџџџџџџџџџџџџџџџџџџџџџџџџџџ`џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџHџџџџPџџџџXџџџџ`џџџџhџџџџpџџџџxџџџџ€џџџџˆџџџџџџџџ˜џџџџ џџџџЈџџџџА@(xўџџџџ b@ўџtўџџ џџ acџџџџˆџџџџ№џџџџјџџџџџџџџџџџџџџџџџџџџ џџџџ(џџџџ00pўџџ џџ џџџџpўџџ џџ џџџџџџџџџџџџxџџџџ€џџџџˆџџџџџџџџ˜џџџџ џџџџЈџџџџАџџџџИџџџџРџџџџШџџџџаџџџџиџџџџрџџџџшџџџџ№џџџџјџџџџџџџџ€рlўџџ џџ џџџџ€Xtўџџ џџ џџџџ@ўџpўџџ џџ №@ўџlўџџ џџ џџџџ@ўџhўџџ џџ џџџџ`„"tџџџџџџџџџ`„*lџџџџџ@€8`џџџџџџџџџџџџџџџџџџџџџџ„џџџџ(џџџџџџџџџџџџџџџџџџџџ џџџџ(џџџџ0џџџџ8џџџџ@џџџџHџџџџPџџџџXџџџџ`џџџџhџџџџpџџџџHџџџџџџџџџџџџџџџџиџџџџџџџџРАџџџџџџџџЈџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџЈџџџџџџџџџџџџџџџџИ џџџџџџџџџџџџАџџџџџџџџЈџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ№@ўџАўџџ џџ   ўџџ џџ @ўџўџџ џџ duleџџџџ €ўџџ џџ яџџџџˆ|ўџџџџ C:\P@ўџxўџџ џџ FILE@ўџtўџџ џџ BA\Vџџџџ@pўџџ џџ VBA @ўџlўџџ џџ џџџџlўџџ џџ „hџџџXЊ?џџџџ(џџџџа ˜џџџџџџџџџџџџџџџџџџџџ€џџџџџџџџџџџџџџџџџџџџџџџџџџџџјџџџџџџџџџџџџџџџџџџџџџџџџџџџџP\?;$*\Rffff*0;3b9d4360*\R1*#25*\R1*#25*\R1*#98*\R1*#98*\R1*#99*\R1*#18*\R0*#2*\R0*#1*\R0*#f*\R0*#14пўЪC€€B  € >x€P€№€h$Р и€ ј:а€ L.`8ш€ R &x€ "и2 € (€ H h€ >ј 8 X:˜žš   ( ,P 8 ,€ @ € џџџџ@ џџџџh ЭџџxЭџџpџџџџ`–˜џџџџиџџџџhiџџџџHџџџџИџџџџ џџџџ џџџџ( џџџџ0 џџџџx џџџџˆ џџџџx џџџџ  џџџџ џџџџp џџџџИ џџџџР џџџџx џџџџ џџџџџџџџPџџџџˆџџџџHџџџџ џџџџP џџџџј џџџџрџџџџH џџџџx џџџџˆ џџџџЈ џџџџ џџџџџџџџИ џџџџЈ џџџџИ џџџџ  џџџџј џџџџP џџџџ џџџџј џџџџш џџџџш џџџџh џџџџ` џџџџp џџџџ` џџџџx џџџџˆ џџџџ џџџџ0 џџџџ џџџџX џџџџ№ џџџџ џџџџш џџџџ@ џџџџX џџџџџџџџа џџџџр џџџџ`џџџџ8џџџџxџџџџџџџџpџџџџИџџџџаџџџџ№џџџџџџџџ џџџџ џџџџџџџџ(џџџџ€џџџџџџџџ џџџџ№џџџџјџџџџјџџџџиџџџџаџџџџаџџџџрџџџџџџџџH џџџџАџџџџ џџџџаџџџџиџџџџ№џџџџџџџџџџџџџџџџџџџџPџџџџр џџџџ@џџџџ№џџџџ џџџџH џџџџаџџџџ˜џџџџhџџџџИџџџџ8 џџџџ џџџџАџџџџјџџџџ0 џџџџ˜џџџџ џџџџh џџџџH џџџџ џџџџиџџџџx џџџџЈ џџџџШ џџџџј џџџџ€ џџџџ  џџџџР џџџџИ џџџџџџџџx џџџџџџџџш џџџџР џџџџ( џџџџ( џџџџ№џџџџPџџџџp]ђђ ђ8]ђ(ђHр8declare variables and assign address to object variablesЖKџџџџрэ 6!:!.”эЦ .І Ђ$.'Єрopen the recordsetрFenter student ID and amount paid, then convert amount paid to a numberpaidЖ Enter ID:бЖ Student IDб$,'ЖEnter payment:бЖPaymentбЌб $,'ЂџџџџˆІ ЖpaymentsбZ ”бD €бj бn ІB@orwardџџџџшџџџџшрKsearch for ID in ID field, then update the record's Paid and Updated fieldsЖid = ' Ж'бЎ ІB@ЌЖpaid І%2!4 Є Жpaid І%2(4рcalculate total amount paidџџџџ8 ZЖupdated І%2(4vaрassign current dateЖџрsave changes to record ІB@xџџџџрclose the recordseth ІB@BlэА.Ір(disassociate object variable from objectџџџџ]ђhр7calculate balance due, then display appropriate messageЌАЖpaid І%2!4 'О ОЌ œd@d(k k ОЌœЖ Still owes ОбФЖcurrencyбЌ$ЌбA@0Ж Paid in fullбA@0Ж Overpaid ОбФЖcurrencyбЌ$ЌA@0џџџџЈ–€iџџџџ џџџџАџџџџш џџџџш џџџџ˜рdeclare variables]ђђhђир(enter which records to include in reportІЖEnter A(ll), O(we), P(aid)бЖ Which RecordsбЖAб $,'Ш Ь рœ appdk Ш$аъЖAKTЖOKTЖPKTSџџЖ Invalid entryб ж и бдЖErrorбA@0zџџаnџџШр!ask if user wants to print reportІЖ Print report?б к м о бдЖPrintб$0'ЬЖ payreportбм тбо шбф 8B@кЪбЖ payreportбм рбо шбф 8B@крбЖSELECT * FROM payments'шЖ(SELECT * FROM payments WHERE paid < 1200'шЖ)SELECT * FROM payments WHERE paid >= 1200'шџџџџ€рselect appropriate recordsџџџџX џџџџцЕAttribute VB_Name = "Module1" Option Compare Da@tabase`Explicit  Pub FuncdPaymentUpdate () 'declvariables and assign address to object &>Dim strId Aˆs SИng,#k curCuРrrencyF€BalancennTripadodb.Co nnI€†, rs t.sReco0rdse€ƒsSet c = Ap‘aŠ.4tPr>oo*ƒL.= 8New€‰>Œ/'ožš Qry Invalid entry Error Print report? Print payreportСЩЄsжа˜П Щ ШйРцЬh)aЏNЊ?i‘џџџџ`чGХX–юЊGPтVBE6.DLL  џџџџT ˆ  џџџџ Ј  џџџџS Шiш ,SELECT * FROM payments PSELECT * FROM payments WHERE paid < 1200  RSELECT * FROM payments WHERE paid >= 1200hrU€€€ џџџџџџџџџџџџ trU€€€€~| Q ‰) ™ i™Бё ™Q С1y Й‘с‘  0 ќЦ˜  ЈH'€ў' ў'Рў'рў:џNџџ:0џN џ џ:PџN@џ@џ 1hџ6@џ џџрўРў ў€ўЅhџMPџ@@џ @џќіpўpў:Pџ]ћ4~Cdџяpў:Pџ]ћ4™Cdџяpў:Pџ]ћ4ДCdџя3'рў'џ:0џ N џ џѕ@:Pџ N@џ@џ 6@џ џџрў§•7'рў'џ:0џ N џ џѕ4:PџN@џ@џ^ фpbџ6@џ џџрўkbџчѕЧk1'џ%ldџF0џ%ѕ:Pџ%lў$ `lў ˜lўž1'џ%ldџF0џ%ѕ:Pџ%lў$ `lў ˜lў§•Ј4 blџpўhџdџ,lў@џ џџрўРў ў€ўfdџ € ќc=dџ ш4 btџhџdџxџ< xў`џ\џtўpў,џџќўмўМўœў|ўaМўœў|ўa џ:PџN@џ@џ 1xџ6@џ џџрўРў ў€ўB'€ў' ў'Рў'рў(џ:0џN џ џ:PџN@џ@џ 1tџ6@џ џџрўРў ў€ўltџ ёrlџ%'Pџ%ѕѕlxџ*#|ўhџ  /|ўm@џ`џ:Pџ%dџhџ T dџ (`џ 4@џmlџ?0џћ” џ%tў:џ%xўhџ T xў (tў 8)dџ`џxўtў6@џ џ'0џ%'Pџ%hџ Ќ hџ € *`џdџ$ ˜dџ P`џ <)dџ`џ ќc=hџMIа0 btџhџxџ< |ўdџ`џxўtў@џ џџрўРў ў€ўaaarU€€€ џџџџџџџџ$`§џџџџџџџџџџџ$Љ`§џџџџџџџџџџџn§џџџџџџџџџџџnЩё A a™i   0 ќЦ0  8Ф §єdџ dџ „ѕџџџџdџ P §є`џ'ѕџџџџѕѕџџџџldџ§o@џ%:Pџ%`џ  B'€ў' ў'Рў'рў(џ:@џN џ џ__SRP_3џџџџџџџџџџџџAђ_VBA_PROJECT џџџџЦBQHBQYCFBPJEZ_PXPCHKGECTUCDC:џџџџџџџџџџџџ4&PROJECT џџџџQ^:Pџ N0џ0џ 1xџ60џ џџрўРў ў€ўB'€ў' ў'Рў'рў(џ:@џ N џ џ:Pџ N0џ0џ 1pџ60џ џџрўРў ў€ўlxџ хpvџlpџ ёrhџ.'Pџ%ѕѕkvџћ§#|ў*#xў`џ 2|ўxўm0џpў:Pџ%tў`џ Ttў (pў 40џmhџ?@џћ” џ%hў:џ%lў`џ Tlў (hў 8)tўpўlўhў60џ џ'@џ%'Pџ%`џ ЌžšЕd Д_Л Z § Д g  Э ‚ п ~  а s  ­БVџџџџџџџџџџ$PaymentUpdate () џџџџџџџџџџџџџџџџџџџџџџџџ33!џџџџџџџџџџџџџџџџџџџџџџџџџџ DisplayReport()Blob џџџџџџџџ’pPropDataџџџџџџџџџџџџ” 1! щ%€Р щ%€РBlob џџџџ џџџџ•lPropDataџџџџџџџџџџџџ— DirDataџџџџџџџџџџџџ˜XPropDataџџџџџџџџџџџџšDatabases"'$ щ%€Р щ%€Р(PaymentUpdateMacro(DisplayReportMacroijфMSysDb^ЌZЕђ­с@<љЙї№Жс@Paymentsн•!@#>>>22222220 џ@н j{8т@aИj{8т@MSysAccessObjectsн•DDDDDDDDDDB џ €e{.ˆўт@e{.ˆўт@~sq_rpayreportн•4€MR2€KeepLocal T~~~>>>>>>>< џ@ €€€Ђ›‡яnЕс@Ђ›‡яnЕс@PaymentUpdateMacroн•FFFFFFFFFFD џ €€€\› ўт@\› ўт@DisplayReportMacroн•FFFFFFFFFFD џ €€€™эиwЕс@™эиwЕс@PayReportн•œ@#@@@44444442 џ@ €€€\S[ДSАс@\S[ДSАс@Module1н•0000000000. џ€ €ц•uЋђ­с@ц•uЋђ­с@UserDefinedн•A@#DDD88888886 џ@€ €6_tЋђ­с@6_tЋђ­с@SummaryInfoн•z@#DDD88888886 џ@€ €uoЇЩђ­с@Q j{8т@AccessLayoutн•4€MR2€KeepLocal TТ@"†zz:::::::8 џ@€jAxЋђ­с@jAxЋђ­с@SysRelн•.........., џ€jAxЋђ­с@jAxЋђ­с@Scriptsн•0000000000. џ€jAxЋђ­с@jAxЋђ­с@Reportsн•0000000000. џ€jAxЋђ­с@jAxЋђ­с@Modulesн•0000000000. џ€jAxЋђ­с@jAxЋђ­с@Formsн•,,,,,,,,,,* џ€jAxЋђ­с@jAxЋђ­с@DataAccessPagesн•@@@@@@@@@@> џХ9`Ћђ­с@Х9`Ћђ­с@€MSysRelationshipsм—DDDDDDDDDDB џХ9`Ћђ­с@Х9`Ћђ­с@€MSysQueriesм—88888888886 џХ9`Ћђ­с@Х9`Ћђ­с@€MSysACEsм—22222222220 џХ9`Ћђ­с@Х9`Ћђ­с@€MSysObjectsм—88888888886 џХ9`Ћђ­с@Х9`Ћђ­с@€MSysDbн•\@#:::......., џ@Х9`Ћђ­с@Х9`Ћђ­с@€Relationshipsм—<<<<<<<<<<: џХ9`Ћђ­с@Х9`Ћђ­с@€Databasesм—44444444442 џХ9`Ћђ­с@Х9`Ћђ­с@€Tablesм—.........., џbтФІxh ˆ иp 4јx€€ €  6А€ џџџџ0€ џџџџ€ џџџџB 8 € p €ˆ € .  Tа € @  H  X  А  h  0а  x  2 ˆ  83  Ш а € (и J  ( ,P 8 ,€ @ € џџџџ@ џџџџh ЭџџxЭџџpџџџџ`–˜џџџџиџџџџhiџџџџHџџџџИџџџџ џџџџ џџџџ( џџџџ0 џџџџx џџџџˆ џџџџx џџџџ  џџџџ џџџџp џџџџИ џџџџР џџџџx џџџџ џџџџџџџџPџџџџˆџџџџHџџџџ џџџџP џџџџј џџџџрџџџџH џџџџx џџџџˆ џџџџЈ џџџџ џџџџџџџџИ џџџџЈ џџџџИ џџџџ  џџџџј џџџџP џџџџ џџџџј џџџџш џџџџш џџџџh џџџџ` џџџџp џџџџ` џџџџx џџџџˆ џџџџ џџџџ0 џџџџ џџџџX џџџџ№ џџџџ џџџџш џџџџ@ џџџџX џџџџџџџџа џџџџр џџџџ`џџџџ8џџџџxџџџџџџџџpџџџџИџџџџаџџџџ№џџџџџџџџ џџџџ џџџџџџџџ(џџџџ€џџџџџџџџ џџџџ№џџџџјџџџџјџџџџиџџџџаџџџџаџџџџрџџџџџџџџH џџџџАџџџџ џџџџаџџџџиџџџџ№џџџџџџџџџџџџџџџџџџџџPџџџџр џџџџ@џџџџ№џџџџ џџџџH џџџџаџџџџ˜џџџџhџџџџИџџџџ8 џџџџ џџџџАџџџџјџџџџ0 џџџџ˜џџџџ џџџџh џџџџH џџџџ џџџџиџџџџx џџџџЈ џџџџШ џџџџј џџџџ€ џџџџ  џџџџР џџџџИ џџџџџџџџx џџџџџџџџш џџџџР џџџџ( џџџџ( џџџџ№џџџџPџџџџp]ђђ ђ8]ђ(ђHр8declare variables and assign address to object variablesЖKџџџџрэ 6!:!.”эЦ .І Ђ$.'Єрopen the recordsetрFenter student ID and amount paid, then convert amount paid to a numberpaidЖ Enter ID:бЖ Student IDб$,'ЖEnter payment:бЖPaymentбЌб $,'ЂџџџџˆІ ЖpaymentsбZ ”бD €бj бn ІB@orwardџџџџшџџџџшрKsearch for ID in ID field, then update the record's Paid and Updated fieldsЖid = ' Ж'бЎ ІB@ЌЖpaid І%2!4 Є Жpaid І%2(4рcalculate total amount paidџџџџ8 ZЖupdated І%2(4vaрassign current dateЖџрsave changes to record ІB@xџџџџрclose the recordseth ІB@BlэА.Ір(disassociate object variable from objectџџџџ]ђhр7calculate balance due, then display appropriate messageЌАЖpaid І%2!4 'О ОЌ œd@d(k k ОЌœЖ Still owes ОбФЖcurrencyбЌ$ЌбA@0Ж Paid in fullбA@0Ж Overpaid ОбФЖcurrencyбЌ$ЌA@0џџџџЈ–€iџџџџ џџџџАџџџџш џџџџш џџџџ˜рdeclare variables]ђђhђир(enter which records to include in reportІЖEnter A(ll), O(we), P(aid)бЖ Which RecordsбЖAб $,'Ш Ь рœ appdk Ш$аъЖAKTЖOKTЖPKTSџџЖ Invalid entryб ж и бдЖErrorбA@0zџџаnџџШр!ask if user wants to print reportІЖ Print report?б к м о бдЖPrintб$0'ЬЖ payreportбм тбо шбф 8B@кЪбЖ payreportбм рбо шбф 8B@крбЖSELECT * FROM payments'шЖ(SELECT * FROM payments WHERE paid < 1200'шЖ)SELECT * FROM payments WHERE paid >= 1200'шџџџџ€рselect appropriate recordsџџџџX џџџџцЕAttribute VB_Name = "Module1" Option Compare Da@tabase`Explicit  Pub FuncdPaymentUpdate () 'declvariables and assign address to object &>Dim strId Aˆs SИng,#k cur €Payments!!!  €  G €џ  € G яY N Y ˜Y _DataIDƒџџџџџџџџџџџџќџџџџџшџџџџRР­_‰YџџџџAOIndexџџa€ number|= Input@Box(pr@ЃtР5Ent@ID:!6titlС:St§Х"ФœРE‚„HI РDefaul@0„‡Val(ЧD'sear@ch for?iBnAfiel…>uУТХШp's P@FBJiЭd  sƒA…vF"iЬcri€>ia Aid@ь'" &УТ@Ц& "'юq€'calculРпq@UtalЩY  s‚( Eid").@Юugа+ Ч Ѓ Ю'фxр mt !ѓ ЃI ‹ ŠЂsav€e changРƒП`c\ #$cШbDzdueDLdisp@lay apРFpЫ€Ž mрUagФ €= 1200 r-х{.F6Ь"cIfЁ> 0 ThencMsg@U FUStill8 ow A5Рimaрt(expž`ŠрpфurФ , У€;#)фcyeYElaЏ a}‹=Ža bLРQfxullФDС "іO tAv џїB рVIfC$Eh'clИose(aЦЈХOC Єothing  'р< OociЁ]9ЌЧ f †DЪУ Г!eе ! иD#GРReportи С$гWhich„ЕЁУ1hдSel!кзin`tAnsw@˜€Iэ`™gEžфЇwЁ EМЃPinclР› р7rТƒ  зœA(ll), O(weщРP(Ž)NЈ_uTЭ Є 9P"AХ(0N_" Љ5єhs $Cƒ ўUQqR™ ФRб!BА?“1 DP‰SELECT * FиROM`dђ…sH,3O??nts WHERE’i <{B@^P_Ÿ › Y>ГEmo7§:Invafl0^ptryp štons:=vbOKсx + vbIn€fEв‰%Err„orl Exit6šГ‘0Ѓ ѓP\k if us)waсŸ@X SА{Y'ч+= S Й—yPrа+Ё3?P ƒ& YesNoђ >>>>>>>>>> ПaИj{8т@aИj{8т@€MSysRelationshipsм—DDDDDDDDDDB џaИj{8т@aИj{8т@€MSysQueriesм—88888888886 џaИj{8т@aИj{8т@€MSysACEsм—22222222220 џaИj{8т@aИj{8т@€MSysObjectsм—88888888886 џaИj{8т@aИj{8т@€MSysDbн•.........., џaИj{8т@aИj{8т@€Relationshipsм—<<<<<<<<<<: џaИj{8т@aИj{8т@€Databasesм—44444444442 џaИj{8т@aИj{8т@€Tablesм—.........., џЛv1 €   џ  рhЁыџœHP OfficeJet Series 600 Printer7”я€d,,HP OfficeJet Series 600 PrinterLPT1ф і ,,ьH1winspoolHP OfficeJet Series 600 PrinterLPT1:џd27d eМž€о Arial§e24§fœ€§g37§jgцhтџ§m5<Ci шTimes New Roman§n7=j ъTimes New Roman§o3:Al ъTimes New Roman§p4§ŸмID§™`БпReportHeaderчqС‚сєвŒРuС'ўd28`<a<b c de„м Label8нSpain TripоTimes New Romanъ qС‚сєвŒРuС'§›`•п"PageHeaderSectionчњpС‚сєвŒРuС'џd`<a<bоcd e„žмID_LabelнIDфDetachedLabelъqС‚сєвŒРuС'§d`Va<bžcd e„žмLastName_LabelнLast NameфDetachedLabelъqС‚сєвŒРuС'§d`˜ a<bdcd e„žмFirstName_LabelнFirst NameфDetachedLabelъqС‚сєвŒРuС'§d7`Аa<bHcd e„žмPaid_LabelнPaidфDetachedLabelъ qС‚сєвŒРuС'§f2`<aYbЖм Line11п qС‚сєвŒРuС'§d7`$a<btcd e„žмLabel14нUpdatedфDetachedLabelъ\qС‚сєвŒРuС'§˜`Гп DetailчћpС‚сєвŒРuС'џm`<a<bоc,e8мIDнIDњqС‚сєвŒРuС'§m`Va<bžc,eƒkмLastNameнLastNameњqС‚сєвŒРuС'§m`˜ a<bdc,e’kмFirstNameнFirstNameњqС‚сєвŒРuС'§m0`ьa<bHc,kмPaidнPaidо*$#,##0.00;($#,##0.00)њqС‚сєвŒРuС'§m`$a<bќc,kмUpdatedнUpdatedоShort DateњRqС‚сєвŒРuС'§œ`п"PageFooterSectionчќpС‚сєвŒРuС'џm;`<a№bаc,i jМм Text9н =Now()оLong Dateњ qС‚сєвŒРuС'§m;`„a№bаc,i jМkм Text10нH="Page " & [Page] & " of " & [Pages]њ qС‚сєвŒРuС'§f2`<a№b$œм Line12пqС‚сєвŒРuС'§š`пReportFooterчqС‚сєвŒРuС'§їъЭЌ—џџџџаЗ@ВћвŒРuС'™ReportHeaderdLabel8›PageHeaderSectiondID_LabeldLastName_LabeldFirstName_LabeldPaid_LabelfLine11dLabel14˜ Detailm IDm LastNamem FirstNamem PaidmUpdatedœPageFooterSectionmText9mText10fLine1TypeInfoџџџџџџџџџџџџŠ™DirDataџџџџџџџџџџџџ‘Scripts# BкРС BкРС0џџџџџџџџ BкРС BкРСќK[@€ €€@@€@†Ь!b†Ь!b†ќкbнђe J_ctLLS@LLpQiQџH_Q_0__0G_HoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQ@S_@X_џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџРQ_€R_@ъ„oQџџџџџџџџџўџџџџџžšK[ N Y аЯрЁБс>ўџ ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ§џџџ 5 12ўџџџ !"#$%&'()*+,-./0ўџџџ364<ўџџџ789:;=>@?AўџџџBўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџRoot Entryџџџџџџџџ BкРС'VBAџџџџџџџџ BкРС BкРСVBAProjectџџџџ BкРС BкРСVBAџџџџџџџџ BкРС BкРСdirџџџџџџџџџџџџ!__SRP_0џџџџ #__SRP_1џџџџџџџџџџџџ&B__SRP_2 џџџџ(ўџџџ  !"#$%ўџџџ'ўџџџ)*+,-./0123456789:;<=>?@ўџџџBCDEFGHIJKLMNOPўџџџRSTUVўџџџўџџџўџџџўџџџўџџџ\]^_`abcdefghijklmnopqrstuvwxyz{|}~€В€0* pH"dфDTrˆip<@j= B \?;” J< r€stdole>stdo€le f%\*\G{00€020430-C 0046}#2.0#0#c:\windows\SYSTEM\StdOle2.Tlb#OLE Autom`ation^ЯADODB> ADOе€BC™€€C…D1C10-8CAA006D2EA4C1CC:\PROGRAM FILES\COpMMON„L€9\msado15.dll#Microsoft ActiveX Data Objects 2.1 LРibrary€H"‚Ь‚[€ ModuРle1GЈduЊ1€ BQHBQYCFBPJEZ_PXPCHKGECTUCDC28AQHBA@YCF@PJEZ_PPXРCРKGРCTUm@ DРA@€‚1~J BEС,*Тb! +BB“K*mџџџџrU€€€~~~~~~~~~~a бO5іpЂыд­АВ +™  фџџџџ A iџџџџpџџџџAџџЙБЙ™СModule1TripяРF@C:\PROGRAM FILES\COMMON FILES\MICROSOFT SHARED\VBA\VBA6\VBE6.DLLVBA щџџџџ Ё0 ЩџJ™_ЏNЊ? 3E:\Program Files\Microsoft Office\Office\MSACC9.OLBAccess џџџџ 1Ё@0РFc:\windows\SYSTEM\StdOle2.Tlbstdole џџџџ9P€Њm.ЄžšK[Бˆ_:ыФ›sNY  Y4C:\PROGRAM FILES\COMMON FILES\SYSTEM\ADO\msado15.dllADODB џџџџ1Љ` PaymentUpdate DisplayReport  4Enter A(ll), O(we), P(aid) Which Records A AllQry O OweMoneyQry P PaidInFullQry Invalid entry Error Print report? Print payreportСЩЄsжа˜П Щ ШйРцЬh)aЏNЊ?i‘џџџџ`чGХX–юЊGPтVBE6.DLL  џџџџT ˆ  џџџџ Ј  џџџџS Шiш ,SELECT * FROM payments PSELECT * FROM payments WHERE paid < 1200  RSELECT * FROM payments WHERE paid >= 1200hrU€€€ џџџџџџџџџџџџ trU€€€€~| Q ‰) ™ i™Бё ™Q С1y Й‘с‘  0 ќЦ˜  ЈH'€ў' ў'Рў'рў:џNџџ:0џN џ џ:PџN@џ@џ 1hџ6@џ џџрўРў ў€ўЅhџMPџ@@џ @џќіpўpў:Pџ]ћ4~Cdџяpў:Pџ]ћ4™Cdџяpў:Pџ]ћ4ДCdџя3'рў'џ:0џ N џ џѕ@:Pџ N@џ@џ 6@џ џџрў§•7'рў'џ:0џ N џ џѕ4:PџN@џ@џ^ фpbџ6@џ џџрўkbџчѕЧk1'џ%ldџF0џ%ѕ:Pџ%lў$ `lў ˜lўž1'џ%ldџF0џ%ѕ:Pџ%lў$ `lў ˜lў§•Ј4 blџpўhџdџ,lў@џ џџрўРў ў€ўfdџ € ќc=dџ ш4 btџhџdџxџ< xў`џ\џtўpў,џџќўмўМўœў|ўaМўœў|ўa џ:PџN@џ@џ 1xџ6@џ џџрўРў ў€ўB'€ў' ў'Рў'рў(џ:0џN џ џ:PџN@џ@џ 1tџ6@џ џџрўРў ў€ўltџ ёrlџ%'Pџ%ѕѕlxџ*#|ўhџ  /|ўm@џ`џ:Pџ%dџhџ T dџ (`џ 4@џmlџ?0џћ” џ%tў:џ%xўhџ T xў (tў 8)dџ`џxўtў6@џ џ'0џ%'Pџ%hџ Ќ hџ € *`џdџ$ ˜dџ P`џ <)dџ`џ ќc=hџMIа0 btџhџxџ< |ўdџ`џxўtў@џ џџрўРў ў€ўaaarU€€€ џџџџџџџџ$`§џџџџџџџџџџџ$Љ`§џџџџџџџџџџџn§џџџџџџџџџџџnЩё A a™i   0 ќЦ0  8Ф §єdџ dџ „ѕџџџџdџ P §є`џ'ѕџџџџѕѕџџџџldџ§o@џ%:Pџ%`џ  B'€ў' ў'Рў'рў(џ:@џN џ џ__SRP_3џџџџџџџџџџџџAђ_VBA_PROJECT џџџџЦBQHBQYCFBPJEZ_PXPCHKGECTUCDC:џџџџџџџџџџџџ4&PROJECT џџџџQ^:Pџ N0џ0џ 1xџ60џ џџрўРў ў€ўB'€ў' ў'Рў'рў(џ:@џ N џ џ:Pџ N0џ0џ 1pџ60џ џџрўРў ў€ўlxџ хpvџlpџ ёrhџ.'Pџ%ѕѕkvџћ§#|ў*#xў`џ 2|ўxўm0џpў:Pџ%tў`џ Ttў (pў 40џmhџ?@џћ” џ%hў:џ%lў`џ Tlў (hў 8)tўpўlўhў60џ џ'@џ%'Pџ%`џ ЌžšK[@€ @ ќc=`џ ќc=dџФ4 bpџdџ`џxџ@ |ўxўtўpўlўhў0џ џџрўРў ў€ўfpџdџ`џxџ< |ўxўtўpўlў0џ џџрўРў ў€ўfID="{EAA41D83-C5A7-11D2-818B-885B04C10627}" Module=Module1 HelpFile="" Name="Trip" HelpContextID="0" VersionCompatible32="393222000" CMG="1012D0D6D4D6D4D6D4D6D4" DPB="787AB83BB93BB93B" GC="E0E220A321A3215C" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] Module1=22, 22, 518, 290, Z Module1Module1Ьamџ  ф*\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\PROGRAM FILES\COMMON FILES\MICROSOFT SHARED\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*\G{4AFFC9A0-5F99-101B-AF4E-00AA003F0F07}#9.0#0#E:\Program Files\Microsoft Office\Office\MSACC9.OLB#Microsoft Access 9.0 Object LibraryИ*\G{00020430-0000-0000-C000-000000000046}#2.0#0#c:\windows\SYSTEM\StdOle2.Tlb#OLE Automation*\G{00000201-0000-0010-8000-00AA006D2EA4}#2.1#0#C:\PROGRAM FILES\COMMON FILES\SYSTEM\ADO\msado15.dll#Microsoft ActiveX Data Objects 2.1 Library џџџџџџ\?;џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ[8BQHBQYCFBPJEZ_PXPCHKGECTUCDC0;3b9d4360џџModule1џџТbJ џџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџD]B6ƒивŒРuС'џџџџџџџџ`€єџIŒ8џAccess€џand €џas€џCall€џCase*€џCurrency=€џdimD€џElseG€џEndH€џendifQ€џf_€џIfj€џintegerƒ€џnew†€џNothingЃ€џselectЇ€џsingleЏ€џSubВ€џThen VBAїтWin16С~Win32MacГВVBA6­#Student‚mstdole“`adodbsВ Module1b _EvaluateйtkstrNum№+intnum§hstrraise@udbы\ €џConnectionкиrstа €џRecordsetкцfldмŽFieldќ3€џConnectionStringНђ €џadCmdTableЮ§InputBoxЯ ValнтMsgBox—R€џFields7Љ€џValueфK €џApplicationЅ*€џDoCmdЦЇtest4ЋconnuПcmdі~Commandд]€џProviderѓ€џActiveConnectionЄ‹ CommandTexteExecuteYЭnewtestІЯconnect\Щ strconnect›qdriverZщ €џџџ_B_var_driverФcmdb!ГdbqХ‚ €џџџ_B_var_dbqж?SourceGЖoptionsЇ“studentsЪр secondtestTFcnn1џЙ rstEmployeesDѓstrCnnZ№varDateВЋ €џCursorTypeр €џadOpenKeysetї€џLockType}г€џadLockOptimisticц< hire_date9fNameRћlNameЄf€џUpdateвќ€џRequeryЋstrgradeВ#gradeŠЂ hire_gradeJ&Itemзz€џCollect microsoft•jetMЃoledb%Ѕ thirdžšK[Й•sP,сПNY  YtestІgcnn%€џџџ_B_var_ConnectionGfilenamejУfile%№bookљљtut05ћОt4-_ac}\ strConStringЪo€џDefaultDatabaseO€џџџ_B_var_Recordsetžрcnn2Кadmin†Ј€џџџ_B_var_strGradeљы keyvaluesb€џFindn№criteria7Ї€џSearchDirectionr…€џadSearchForward. FindfirstM= €џMoveFirstN studentid$t skiprecordsˆ]€џadSearchBackward•ЈSee_г€џIndexёПind1Ÿrst2šj€џMove>y numrecordsystartО€џadBookmarkFirstїvFilterД;lastnameкє rptStudents‚|€џReport$€џOpenDataAccessPage+ŠOpenDataAccessPagё €џOpenReportьД reportnameГviewаI €џacViewPreviewТ2€џReportsыМ €џadCmdText#comandЄФretrieverecordsetv€џџџ_B_var_retrieverecordsetƒOarysw)Єarys Earyu_B_var_CommandXatempRЊ OpenReporѓ_€џOpenFormЗOpenForsГwhereжwhereconditionrп€џFormNameПI€џacNormalЁ† €џacPreviewoщvieўуviŒ_vm€џacFormDSІб UpdatePaidр9strIdJ` cnnDatabaseй rstStudentЖ3cnnDataњц€џadLockPessimisticн9ionptutЮ%promptmtitleђ~€џDefaultОыstrPaidбхsngPaidxrstrecВ! €џџџ_B_var_rstrec[œcurPaidН€џџџ_B_var_ActiveConnectionž/intIDТStr—е _B_var_StrЈ’ rststudentsDi€џџџ_B_var_rststudentsІZCallUpdatePaid?P€џCurrentProject$Ъ€џџџ_B_var_cnnDatabaseeЪ€џFullNameаž connectio‡KconnectiЉ—connecyЮconneВPconJcoг\cZ cnndatabasй cnndatabaкщcnndatab§эcnndatocnndaž‰cnndКcnв\msgboѓ €џџџ_B_var_msgbo|З currentprojec  currentproje@ž currentprojVt currentpro c currentprcurrentpvѓ€џCurrenteБcurrenёecurrecurr#рcur,€cuй\ cnndatabsee€џџџ_B_var_CursorType@N €џProperties+test2їc€џadOpenForwardOnly†D adoendynamicr €џadOpenDynamicSy €џadOpenStaticšЭ cnnStudentiLfldPaidЫ _B_var_Datev  TripUpdate‘ЖCallTripUpdate№Ь cnnpaymentsUcnnTripјš rstPayments є€џџџ_B_var_cnnpaymentsn7CallPaymentUpdateVѓ Ќ(PaymentUpdateW^€џџџ_B_var_PaymentUpdateѕ1 TripCя strPaymentж’ curPayment;уrstPays0­ €џџџ_B_var_Openгlmsgoxyѕ €џџџ_B_var_msgoxfЙmsgbos’R €џџџ_B_var_msgbos;Э CreateObjectјŠ createobjec'j€џџџ_B_var_createobjec‰[€џџџ_B_var_LockTypeЋFinwŽ€џџџ_B_var_Nothing$S curBalanceЏN €џџџ_B_var_IfPђ _B_var_Formatр expressionxс Ќ(DisplayReport`щstrWhichRecordsВ€strQueryM? intAnswerдU €џџџ_B_var_Select'EUCase5  _B_var_UCaseaЮbuttonsх]vbOKOnlyѕВ vbInformationВnvbYesNo vbExclamation…ШvbDefaultButton2ДСvbYesa? €џacViewNormal R filtername•Хfrom~  strSelect%џџHџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ џџџџџџџџџџ џџџџ €№„дџџџџlD [ТbџџЖџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџ|џџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ€<џџ6 џџџџLџџџџ<џџx€P€№€h$Р и€ ј:а€ L.`8ш€ R &x€ "и2 € (€ H h€ >ј 8 X:˜žšK[ N-- Y h ˆ иp 4јx€€ €  6А€ џџџџ0€ џџџџ€ џџџџB 8 € p €ˆ € .  Tа € @  H  X  А  h  0а  x  2 ˆ  83  Ш а € (и J  ( ,P 8 ,€ @ € џџџџ@ џџџџh ЭџџxЭџџpџџџџ`–˜џџџџиџџџџhiџџџџHџџџџИџџџџ џџџџ џџџџ( џџџџ0 џџџџx џџџџˆ џџџџx џџџџ  џџџџ џџџџp џџџџИ џџџџР џџџџx џџџџ џџџџџџџџPџџџџˆџџџџHџџџџ џџџџP џџџџј џџџџрџџџџH џџџџx џџџџˆ џџџџЈ џџџџ џџџџџџџџИ џџџџЈ џџџџИ џџџџ  џџџџј џџџџP џџџџ џџџџј џџџџш џџџџш џџџџh џџџџ` џџџџp џџџџ` џџџџx џџџџˆ џџџџ џџџџ0 џџџџ џџџџX џџџџ№ џџџџ џџџџш џџџџ@ џџџџX џџџџџџџџа џџџџр џџџџ`џџџџ8џџџџxџџџџџџџџpџџџџИџџџџаџџџџ№џџџџџџџџ џџџџ џџџџџџџџ(џџџџ€џџџџџџџџ џџџџ№џџџџјџџџџјџџџџиџџџџаџџџџаџџџџрџџџџџџџџH џџџџАџџџџ џџџџаџџџџиџџџџ№џџџџџџџџџџџџџџџџџџџџPџџџџр џџџџ@џџџџ№џџџџ џџџџH џџџџаџџџџ˜џџџџhџџџџИџџџџ8 џџџџ џџџџАџџџџјџџџџ0 џџџџ˜џџџџ џџџџh џџџџH џџџџ џџџџиџџџџx џџџџЈ џџџџШ џџџџј џџџџ€ џџџџ  џџџџР џџџџИ џџџџџџџџx џџџџџџџџш џџџџР џџџџ( џџџџ( џџџџ№џџџџPџџџџp]ђђ ђ8]ђ(ђHр8declare variables and assign address to object variablesЖKџџџџрэ 6!:!.”эЦ .І Ђ$.'Єрopen the recordsetрFenter student ID and amount paid, then convert amount paid to a numberpaidЖ Enter ID:бЖ Student IDб$,'ЖEnter payment:бЖPaymentбЌб $,'ЂџџџџˆІ ЖpaymentsбZ ”бD €бj бn ІB@orwardџџџџшџџџџшрKsearch for ID in ID field, then update the record's Paid and Updated fieldsЖid = ' Ж'бЎ ІB@ЌЖpaid І%2!4 Є Жpaid І%2(4рcalculate total amount paidџџџџ8 ZЖupdated І%2(4vaрassign current dateЖџрsave changes to record ІB@xџџџџрclose the recordseth ІB@BlэА.Ір(disassociate object variable from objectџџџџ]ђhр7calculate balance due, then display appropriate messageЌАЖpaid І%2!4 'О ОЌ œd@d(k k ОЌœЖ Still owes ОбФЖcurrencyбЌ$ЌбA@0Ж Paid in fullбA@0Ж Overpaid ОбФЖcurrencyбЌ$ЌA@0џџџџЈ–€iџџџџ џџџџАџџџџш џџџџш џџџџ˜рdeclare variables]ђђhђир(enter which records to include in reportІЖEnter A(ll), O(we), P(aid)бЖ Which RecordsбЖAб $,'Ш Ь рœ appdk Ш$аъЖAKTЖOKTЖPKTSџџЖ Invalid entryб ж и бдЖErrorбA@0zџџаnџџШр!ask if user wants to print reportІЖ Print report?б к м о бдЖPrintб$0'ЬЖ payreportбм тбо шбф 8B@кЪбЖ payreportбм рбо шбф 8B@крбЖSELECT * FROM payments'шЖ(SELECT * FROM payments WHERE paid < 1200'шЖ)SELECT * FROM payments WHERE paid >= 1200'шџџџџ€рselect appropriate recordsџџџџX џџџџцЕAttribute VB_Name = "Module1" Option Compare Da@tabase`Explicit  Pub FuncdPaymentUpdate () 'declvariables and assign address to object &>Dim strId Aˆs SИng,#k curCuРrrencyF€BalancennTripadodb.Co nnI€†, rs t.sReco0rdse€ƒsSet c = Ap‘aŠ.4tPr>oo*ƒL.= 8New€‰>Œ/'ožšK[v1pen the &r <„.OSource:="pAХs", AЮve‡e:=Ф), _ƒ С/@)sorTyp@adForwardOnlyР, LockСPmimistiJcУ'~er@fu"d@ IDCymount paid,/n conv`ert aGa€ number|= Input@Box(pr@ЃtР5Ent@ID:!6titlС:St§Х"ФœРE‚„HI РDefaul@0„‡Val(ЧD'sear@ch for?iBnAfiel…>uУТХШp's P@FBJiЭd  sƒA…vF"iЬcri€>ia Aid@ь'" &УТ@Ц& "'юq€'calculРпq@UtalЩY  s‚( Eid").@Юugа+ Ч Ѓ Ю'фxр mt !ѓ ЃI ‹ ŠЂsav€e changРƒП`c\ #$cШbDzdueDLdisp@lay apРFpЫ€Ž mрUagФ €= 1200 r-х{.F6Ь"cIfЁ> 0 ThencMsg@U FUStill8 ow A5Рimaрt(expž`ŠрpфurФ , У€;#)фcyeYElaЏ a}‹=Ža bLРQfxullФDС "іO tAv џїB рVIfC$Eh'clИose(aЦЈХOC Єothing  'р< OociЁ]9ЌЧ f †DЪУ Г!eе ! иD#GРReportи С$гWhich„ЕЁУ1hдSel!кзin`tAnsw@˜€Iэ`™gEžфЇwЁ EМЃPinclР› р7rТƒ  зœA(ll), O(weщРP(Ž)NЈ_uTЭ Є 9P"AХ(0N_" Љ5єhs $Cƒ ўUQqR™ ФRб!BА?“1 DP‰SELECT * FиROM`dђ…sH,3O??nts WHERE’i <{B@^P_Ÿ › Y>ГEmo7§:Invafl0^ptryp štons:=vbOKсx + vbIn€fEв‰%Err„orl Exit6šГ‘0Ѓ ѓP\k if us)waсŸ@X SА{Y'ч+= S Й—yPrа+Ё3?P ƒ& YesNoђ (((([Payments].[Paid])>=1200)))Ю7­вqЖс@аљpС‚сєвŒРuС'бџL ЬUНЄъЇХв‹ˆ[С'<љЙї№Жс@Paymentsс§Pa2ћвŒРuС'НЄъЇХв‹ˆ[С'IDzШGDав‹ˆ[С'НЄъЇХв‹ˆ[С'LastNameModules BкРС BкРС0џџџџ BкРС BкРСPropDataџџџџџџџџџџџџY DirDataџџџџџџџџџџџџZReportsџџџџџџџџ BкРС BкРС0џџџџ BкРС BкРСBlob џџџџџџџџџџџџ[} PropDataџџџџ‰‚ƒ„…†‡ˆўџџџўџџџ‹ŒŽўџџџўџџџ“ўџџџўџџџ–ўџџџўџџџ™ўџџџўџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџžšK[ N Y џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ{ШGDав‹ˆ[С'НЄъЇХв‹ˆ[С'FirstNameU^ўЎєвŒРuС'НЄъЇХв‹ˆ[С'Paid;qС‚сєвŒРuС'НЄъЇХв‹ˆ[С'UpdatedмPaymentsнStudent Tripч Arialъ8     рhЁыџœHP OfficeJet Series 600 Printer7”я€d,,HP OfficeJet Series 600 PrinterLPT1ф і ,,ьH1winspoolHP OfficeJet Series 600 PrinterLPT1:џd27d eМž€о Arial§e24§fœ€§g37§jgцhтџ§m5<Ci шTimes New Roman§n7=j ъTimes New Roman§o3:Al ъTimes New Roman§p4§ŸмID§™`БпReportHeaderчqС‚сєвŒРuС'ўd28`<a<b c de„м Label8нSpain TripоTimes New Romanъ qС‚сєвŒРuС'§›`•п"PageHeaderSectionчњpС‚сєвŒРuС'џd`<a<bоcd e„žмID_LabelнIDфDetachedLabelъqС‚сєвŒРuС'§d`Va<bžcd e„žмLastName_LabelнLast NameфDetachedLabelъqС‚сєвŒРuС'§d`˜ a<bdcd e„žмFirstName_LabelнFirst NameфDetachedLabelъqС‚сєвŒРuС'§d7`Аa<bHcd e„žмPaid_LabelнPaidфDetachedLabelъ qС‚сєвŒРuС'§f2`<aYbЖм Line11п qС‚сєвŒРuС'§d7`$a<btcd e„žмLabel14нUpdatedфDetachedLabelъ\qС‚сєвŒРuС'§˜`Гп DetailчћpС‚сєвŒРuС'џm`<a<bоc,e8мIDнIDњqС‚сєвŒРuС'§m`Va<bžc,eƒkмLastNameнLastNameњqС‚сєвŒРuС'§m`˜ a<bdc,e’kмFirstNameнFirstNameњqС‚сєвŒРuС'§m0`ьa<bHc,kмPaidнPaidо*$#,##0.00;($#,##0.00)њqС‚сєвŒРuС'§m`$a<bќc,kмUpdatedнUpdatedоShort DateњRqС‚сєвŒРuС'§œ`п"PageFooterSectionчќpС‚сєвŒРuС'џm;`<a№bаc,i jМм Text9н =Now()оLong Dateњ qС‚сєвŒРuС'§m;`„a№bаc,i jМkм Text10нH="Page " & [Page] & " of " & [Pages]њ qС‚сєвŒРuС'§f2`<a№b$œм Line12пqС‚сєвŒРuС'§š`пReportFooterчqС‚сєвŒРuС'§їъЭЌ—џџџџаЗ@ВћвŒРuС'™ReportHeaderdLabel8›PageHeaderSectiondID_LabeldLastName_LabeldFirstName_LabeldPaid_LabelfLine11dLabel14˜ Detailm IDm LastNamem FirstNamem PaidmUpdatedœPageFooterSectionmText9mText10fLine1TypeInfoџџџџџџџџџџџџŠ™DirDataџџџџџџџџџџџџ‘Scripts# BкРС BкРС0џџџџџџџџ BкРС BкРС2šReportFooterPayReportџџџџџџџџџџџџџџџџџџџџџџџџ33!џџџџџџџџџџџџџџџџџџžšK[ @€џџџџџџџџ$PaymentUpdate () џџџџџџџџџџџџџџџџџџџџџџџџ33!џџџџџџџџџџџџџџџџџџџџџџџџџџ DisplayReport()Blob џџџџџџџџ’pPropDataџџџџџџџџџџџџ” 1! BкРС BкРСBlob џџџџ џџџџ•lPropDataџџџџџџџџџџџџ— DirDataџџџџџџџџџџџџ˜XPropDataџџџџџџџџџџџџšDatabases"'$ BкРС BкРС(PaymentUpdateMacro(DisplayReportMacroijфMSysDb0џџџџ&% BкРС BкРСBlob џџџџџџџџџџџџўџџџDirDataџџџџџџџџџџџџ›CustomGroupsџџџџ(џџџџ BкРС BкРСDataAccessPages џџџџџџџџџџџџ BкРС BкРСџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџш џџџџш џџџџ˜рdeclare variables]ђђhђир(enter which records to include in reportІЖEnter A(ll), O(we), P(aid)бЖ Which RecordsбЖAб $,'Ш Ь рœ appdk Ш$аъЖAKTЖOKTЖPKTSџџЖ Invalid entryб ж и бдЖErrorбA@0zџџаnџџШр!ask if user wants to print reportІЖ Print report?б к м о бдЖPrintб$0'ЬЖ payreportбм тбо шбф 8B@кЪбЖ payreportбм рбо шбф 8B@крбЖSELECT * FROM payments'шЖ(SELECT * FROM payments WHERE paid < 1200'шЖ)SELECT * FROM payments WHERE paid >= 1200'шџџџџ€рselect appropriate recordsџџџџX џџџџцЕAttribute VB_Name = "Module1" Option Compare Da@tabase`Explicit  Pub FuncdPaymentUpdate () 'declvariables and assign address to object &>Dim strId Aˆs SИng,#k curCuРrrencyF€BalancennTripadodb.Co nnI€†, rs t.sReco0rdse€ƒsSet c = Ap‘aŠ.4tPr>oo*ƒL.= 8New€‰>Œ/'o žšЦ  @€€€€€€€€€€€ DateUpdate FlagsForeignNameIdLvLvExtraLvModule LvPropName OwnerParentIdRmtInfoLongRmtInfoShortTypeƒџџџџnџџџџiџџџџџџџџƒџџџџџџџџџџџџџџџџџџYџџџџYџџџџIdParentIdName        џџHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQHoQРы_Аь_џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@ъ_ы_@ъ„oQџџџџџџџџџўџџџџџžš‚vY N Y џџ Y ё_< Y (Y Y IDLastNameFirstNamePaidUpdatedƒџџџџRџџ>џџ џџџџRџџ>џџ џџ  >R‰YџџџџPrimaryKeyџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ§џџџ   *" !(#$%&')1+ўџџџ,-./02<=456789:;ўџџџ>?@ўџџџAўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџRoot Entryџџџџџџџџ2pиРС@QVBAџџџџџџџџ@ gиРС@ gиРСVBAProjectџџџџ @ gиРС@ gиРСVBAџџџџџџџџ@ gиРС@ gиРСdirџџџџџџџџџџџџ(__SRP_0џџџџ ї__SRP_1џџџџџџџџџџџџ%B__SRP_2 џџџџ'ўџџџ  !"#$ўџџџ&ўџџџ()*+,-./01234567ўџџџ9:;<=>?@ABCDEFGўџџџIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~ўџџџ€$В€0* pH‚dфInternetCoursesQH@  =­ | €ЕхС9 J< 9stdole>stdoleP f%\*\G{00020А430-C 0046}#2.0#0#C:\WINDOWS\SYSTEM\STDOLE2.TLB# Automation/gADO DB> AЈDO€BC™€.€CD1C10-8CAA006 D2EA4C1CPROGRAM FILES\COpMMON„L€9\msado15.dll#Microsoft ActiveX Data Objects 2.1 LРibrary€H"в‚ƒN€ ModuРle1GЈduЊ1€ FFGLDDJEZWKEZ_NEOUEFHZDRSHWG28AFGLР@DJEZWKТ_NРOU@FHA@DRS@W›@ AР€1~Z–Р|BС,*џЄџ!+BB“K*mџџџџrU€€€€~~~~~~~~~~~_ й LЎп<вг­БліЄЁ  фџџџџџџџџџџџџџџџџџџџџџџџџџџЙЙСЁСModule1ProfChouяРF@C:\PROGRAM FILES\COMMON FILES\MICROSOFT SHARED\VBA\VBA6\VBE6.DLLVBA ёџџџџ Љ0 ЩџJ™_ЏNЊ? 3C:\Program Files\Microsoft Office\Office\MSACC9.OLBAccess џџџџ 9Љ@0РFC:\WINDOWS\SYSTEM\STDOLE2.TLBstdole џџџџA‰P€Њm.Є4C:\PROGRAM FILES\COMMON FILES\SYžšЛv1STEM\ADO\msado15.dllADODB џџџџ1Љ` PostScoresCallPostScores  Enter name: Posted By Professor ChouСЩЄsжа˜П Щ ШйРцЬh)aЏNЊ?IqџџџџqК’y>б˜Н`}AБуЋі?б˜Н`}A`чGХX–юЊGPт Posted On   By  message7Rб(aЏNЊ?k‹>џ‘ЏNЊ?tХpYŒыЭ‡Њ?Caption HTML (*.html) .htmVBE6.DLL ёџџџџT ˆIЈ ёџџџџb И Report100 .htmltest \c:\my documents\vba book\tut09\access\test.txt a:\tut09\access\ 4/9/02InternetCourses 4/9/02rU€€€ џџџџџџџџџџџџџџџџtrU€€€ џџџџџџџџ$`§џџџџџџџџџџџ$Љ`§џџџџџџџџџџџn9™ yЁб 1Y A 0 ќЦ№  0 ќЦ0  h№H'”ў'Дў'дў'єў:$џNџџ:DџN4џ4џ:dџNTџTџ 1xџ6Tџ4џџєўдўДў”ў/Œўў$ ˜ў QŒў[ˆўtџўўˆ„ўы=€ўtџ $'Dџ%'dџ%ѕ>€ўFTџ%ў$ `ў ˜ ў5Tџ:dџ Tџ Tџћя4џ:Dџ ћяџlxџF$џћяєў%xў:џ%|ўŒў€ўtџ $>€ўFдў%ў$ Xў $Œў ,|ў $xўў›)ўŒў|ўxў6 Tџ4џџдўєўў$ `QўtўQ€ўtџ $pўtџ $:$џ%cDџ%lpў*F4џ%:dџ%>€ўFTџ%ѕtў Ј /pў6Tџ4џ)€ўtџ $ѕ>€ўFTџ%ѕtў , 5Tџќcќјtў tџў‹„ўy5T №8 ˆў„ўtўtџxџ@ €ўpўўŒў|ўxўTџ4џџєўдўДў”ўaa__SRP_3џџџџџџџџџџџџ8Ъ_VBA_PROJECT џџџџH› FFGLDDJEZWKEZ_NEOUEFHZDRSHWG:џџџџџџџџџџџџEPROJECT џџџџНurU€€€€~| љС  ™qСщ9™ yЁб 1YQ A Љ hьH'”ў'Дў'дў'єў:$џNџџ:DџN4џ4џ:dџNTџTџ 1xџ6Tџ4џџєўдўДў”ў/Œўў$ ˜ў QŒў[ˆўtџўўˆ„ў ч=€ўtџ $ 'Dџ%'dџ%ѕ>€ўFTџ%ў$ `ў ˜ ў5Tџ‚ *#€ў *#|ўlxџ*F4џ%pў:dџ%tўŒўxўtџ $ >xўFTџ%ў$ Xў $Œў ,tў $pўў›2€ў|ў)ўŒўtўpў6Tџ4џў$ `Qўlў[€ўtџ $ |ўtџ $ '$џ%ќfDџ%l|ў*#xў*F4џ%:dџ%>€ўFTџ%ѕlў Ј 2|ўxў6Tџ4џ)€ўtџ $ ѕ>€ўFTџ%ѕlў , 5Tџќcќјlў tџў‹„ў yь8 ˆў„ўlўtџxџD€ў|ўxўўŒўtўpўTџ4џџєўдўДў”ўD §•( blџ fЬamџ  ф*\G{000204EF-0000-0000-C000-00000000€€w  ЩŽ[$ыВyB ж › € €€€@ `dOo^Q8fJviQfdimOYkf^JviQfdim`JMidfJv`QbmofOJmQ`JMidOJmJJMMQkkfJUQkOJmJLJkQkSdi`k `dOo^Qk iQ^JmYdbkWYfkiQfdimk kMiYfmk kvkiQ^ mJL^Qk+kh+ifJviQfdim`kvkJMMQkkdL[QMmk`kvkJMQk`kvkdL[QMmk`kvkhoQiYQk`kvkiQ^JmYdbkWYfkJMMQkk^Jvdom`kvkOLko``JivYbSdokQiOQSYbQOџџџџџџџџƒN8FFGLDDJEZWKEZ_NEOUEFHZDRSHWG0539c1e5b5џџModule1џџџџ– џџџџџџ(џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџxJЎп<вг­БліЄЁџџџџџџџџш€L[џ`/Access €џAs=€џDimC€џEachG€џEndH€џendifR€џFalseT€џForY€џFunction_€џIfb€џInВ€џThenД€џTrueР€џWithVBAїтWin16С~Win32MacГВVBA6­#Project1 stdole“`ProfChou@^ADODBsВModule1b €џ_Evaluateй PostReportsъšstrNam )strNameыZrptXЕZ rptToPostр accessobjecft№, €џAccessObjectњњInputBoxЯ promptmtitleђ~€џDefaultОы €џџџ_B_var_ForjL €џApplicationЅ*€џCurrentProject$Ъ €џAllReports€џDoCmdЦЇ €џOpenReportьД €џacViewDesignBm reportnameГviewаI€џReportsыМItemзzrpttopos&ЛrpttopoцЩrpttop:xrpttoФrpttБZrptЌЯrpџ^ri€џReport$RepoE€џControlsЬK€џCaptionx€џOutputTo—` objecttype9в€џacOutputReport’K objectnameуФ outputformat]  €џacFormatHTML}й outputfile9i autostartЗз OutputTotm† OutputTotoтY ojecttype EClos”Џ€џacReport%А€џSave’а€џacSaveNoDы rpttopose рCallPostReportsъє _B_var_Datev  PostScoresЖhCallPostScores–Žxo aobToPost@е €џџџ_B_var_IfPђtest4Ћ templatefileвaX applicatioz*€џџџ_B_var_applicatioф˜€џџџ_B_var_ControlsU# objetname ЇCloм~InternetCourses1)џџHџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ˜џџџџџџџџџџ џџџџџџџџ №д(џџџџ$ ƒNcNџџЖџџ‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œЗ >т@SP2PhilipsSonia0&З @т@SP1PatelSudha,"@KL ;т@SH1HammerSue*$€[ 7т@PH1HandelPaul,$€„€1т@NG1GorskiNancy.$€„€1т@LT