Standard Jet DBnb` Ugr@?~1y0̝cßFNBo7М("`{61߱`C ;3y[V!|*|eY⦂f_Љ$g'DeFx -bT4.0dv YĀĀĀS  Y  Ā Y Y  Y Y  Y  Y  Y   Y Ā Y  Y  Y  Y 2Y  Y   Y  Y ConnectDatabaseDateCreateDateUpdate FlagsForeignNameIdLvLvExtraLvModule LvPropName OwnerParentIdRmtInfoLongRmtInfoShortTypeYYIdParentIdName        OYZ`LSY Y Y  Y 2ACMFInheritableObjectIdSID  AtYObjectId YZ`LSY  Y Y Y  Y  Y Y  Y AttributeExpressionFlagLvExtra Name1 Name2ObjectId Ordernzf edY"ObjectIdAttribute -YZ`LSY Y Y  Y  Y  Y  Y  Y ccolumn grbiticolumnszColumnszObject$szReferencedColumn$szReferencedObjectszRelationship ĀƂ ĀƂ ĀƂYYYszObject$szReferencedObjectszRelationshipYv1b N  : k & W  C t/ @@I@2@@˜H0 @ "|  bJ`Q+QuYm+kh+MmQMWbYhoQ<`JMidqQikYdbbdmYb^Ykm+kh+MfJmYQbmYOQuJ`f^Q6^Yb\fJmYQbmkbJ`QmdfJmYQbmkoLSdi`#Md`Ld>+fJmYQbm+koLSdi`Md`Ld>+miQJm`QbmkoLSdi`Md`Ld@qJ^oQkSid`JMd`LdLdu'OioUfYQMWJimSidbmbdi`J^fJmYQbmkfJmYQbmkmQkmMdbmid^kkoLSdi`8JUUiQUJmQ/koLSdi`8+koLSdi`koLSdi`:dbQ`JbvdbQ/?OkoLSdi`:+OioUSdi`koLSdi`:+kQMdbOkoLSdi` mQMWbYhoQ8`JMidqQikYdbOYJ^dULduk!mQMWbYhoQ8`dOo^QLJkYMqQikYdbOYJ^dULdu"mQMWbYhoQ8+miQJm`QbmSdi`okQOLv`JMidOYJ^dULduSdi`#mQMWbYhoQ8+miQJm`QbmSdi`okQOLv`dOo^QOYJ^dULduSdi`$mQMWbYhoQ:SYbOiQMdiOokYbUsYxJiO7%mQMWbYhoQ:`JMidqQikYdbSYbOiQMdiOkmQMWbYhoQ:`dOo^QLJkYMqQikYdbSYbOiQMdiOmQMWbYhoQ<`JMidqQikYdbbdmYb^YkmkmQMWbYhoQ<`dOo^QqQikYdbbdmYb^YkmomQMWbYhoQ<+OioUSdi`okQOLv`JMidqQikYdbmQMWbYhoQ<+OioUSdi`okQOLv`dOo^QqQikYdbmQMWbYhoQ>`JMidqQikYdbiobmY`QkmQMWbYhoQ>`dOo^QqQikYdbiobmY`QomQ`f+Sdi`+md+JOO+miQJm`Qbm+OJmJkf^YmJOOiQkk kf^YmbJ`Q ^JLQ^kfJmYQbmk fJmYQbmk+MdfvSid`Sdi` fJmYQbmk+kJqQJkiQfdim iQfdim8iQfdim:JOObQsOioUJomdQuQMMd`Ld@MdbOYmYdbJ^`JMidSYbOfJmYQbmSidbmM^dkQbJ`Q+QbmQibJ`Q+QuYmiQSiQkWOdMmdiMd`LdmQMWbYhoQ8MJbMQ^LommdbmQMWbYhoQ8d\LommdbmQMWbYhoQ:JSmQiofOJmQmQMWbYhoQ:MoiiQbmmQMWbYhoQ<M^dkQmQMWbYhoQ<OioUob^dJOmQMWbYhoQ<bdmYb^YkmmQMWbYhoQ>dfmYdb mQMWbYhoQ>dfmYdbsidbU!JO`Yb"OJmJJMMQkkfJUQkOJmJLJkQkSdi`k `dOo^Qk iQ^JmYdbkWYfkiQfdimk kMiYfmk kvkiQ^ mJL^Qk+kh+MMd`Ld8kmdiYbUJbYO+kh+MOioUYO;#+kh+MMd`Ld<O^dd\of+kh+MOdMmdiYO;$+kh+MMd`Ld>^Yb\OioUkmdmiQJm`QbmkoLSdi`+kh+MOioUYO7+kh+MMd`Ld>^Yb\OioUkmdmiQJm`QbmkoLSdi`+kh+MQ`LQOOQO87+kh+MMd`Ld@qJ^oQkSid`JMd`LdLdu+kh+MOioUYO;+kh+MMd`Ld@qJ^oQkSid`JMd`LdLdu+kh+MfJmYQbmYO;+kh+MOioUfYQMWJim+kh+MQ`LQOOQO6+kh+MfJmYQbmkmQkmMdbmid^k+kh+MmYm^Q+kh+MfJmYQbmk+kh+MOdMmdiUQbOQi+kh+MkoLSdi`8JUUiQUJmQ+kh+MQ`LQOOQO8C+kh+MkoLSdi`:dbQ`JbvdbQ+kh+MOioUSdi`CSc+kh+MkoLSdi`:dbQ`JbvdbQ+kh+MkQMdbOkoLSdi`CSc +kh+MmQMWbYhoQ:`JMidqQikYdbSYbOiQMdiO+kh+MOdMmdiYO +kh+MmQMWbYhoQ:`JMidqQikYdbSYbOiQMdiO+kh+MOioUYO +kh+MmQMWbYhoQ:`JMidqQikYdbSYbOiQMdiO+kh+Mbd+miQJm`Qbm +kh+MmQMWbYhoQ:`JMidqQikYdbSYbOiQMdiO+kh+MkQ^QMmfJmYQbm +kh+MmQMWbYhoQ<`JMidqQikYdbbdmYb^Ykm+kh+MOdMmdiYO`kvkJMQk`kvkdL[QMmk`kvkhoQiYQk`kvkiQ^JmYdbkWYfkJMMQkk^Jvdom`kvkOL @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @           !"#$% !"#$%&' ( ) * + ,-./0123456789:;<=> ?!@"A#B$CDEFGHIJKL M N O P QRSTUVWXYZ[\]^_`abcd e f g h ijklmnopqrstuv w2x2y2z2{2|2}2~222 2 2 2 2 22222222222222222999999 9 9 9 9999999!%);99999  5 c      !"+,-./012 3 4 5 6 7 8 9 : ; < = > ? @ A B C D E FGHIJKLMNOPQRSTU      !"#$%&'()*+,-./012345678 9 : ; <!=!>!?!@"A"B"C"D#E#F#G#H$I$J$K$L%M%N%O%P&Q&&&'''''(( ( ( ( )")#)$)%*&*'*(*)+*+++,+-,.,/,0,1-2-3-4-5.6.7.8.9.:/;/</=/>/?0@0A0B0C0D1E1F1G1H1I2J2K2L2M2N3333O3P4444455 5 5 5 6 6666777778888899999 :!:":#:$:%;&;';(;);*<+<,<-<.</=0=1=2=3=4>5>6>7>8>9?:?;?<?=?>@?@@@AABACADAEAFBGBHBIBJBKCLCMCNCOCPDQDDDDEEEEEF F F F F GGGGGHHHHHIIIIIJJJJ J!K"K#K$K%K&L'L(L)L*L+M,M-M.M/M0N1N2N3N4N5O6O7O8O9O:P;P<P=P>PQQQQQRRRR R S S S SSTTTTTUUUUUVVVVVWW W!W"W#X$X%X&X'X(Y)Y*Y+Y,Y-Z.Z/Z0Z1Z2[3[4[5[6[7\8  !#$%&'()* : Qd-s.301M357B B B B B  BCCCCCC CDDDDDDEEEEE E!E "EF#F%F&F'F(F)F*F +F$G,G.G/G0G 1G-H2H4H5H3I6I8I9I:I;II?I@I AI7JBJDJEJFJGJCKHKJKKKILLLNLOLPLLLMMMMMMNN N N NO OOOO PPPPP PQQQQQQ QRR R!R"R#R $RS%S'S(S)S&T*T,T-T.T/T 0T+U1U3U4U5U6U 7U2V8V:V;VV9W?WAWBWCWDW EW@XFXHXIXJXKXLX MXGYNYPYQYRYSYOZTZZZZZU[[[[[ [\ \ \ \ ]]]]^^^^____````aa a!ab"b$b%b#c&c(c)c'd*d,d+  @OdMmdikOYJUbdkYkOioUkmiQJm`QbmfJmYQbmkOYJUbdkYkiQSQiQbMQiQSQiQbMQ:iQSQiQbMQ<iQSQiQbMQ> OYJUbdkYkOYJUbdkYkmiQJm`QbmmiQJm`QbmmiQJm`QbmmiQJm`QbmmiQJm`Qbm @@ OdMmdikOdMmdikOdMmdikOioUkfJmYQbmkfJmYQbmkfJmYQbmk&d _ Z g  r  s$ FRz~4ė͎@ė͎@Technique 2 - Find RecordwvF@f@Technique 2 - Find RewvF@f@Technique 2 - Find Record using wizardnnnnnnnnnnl ŪeP@f@Technique 1_(treatment form used by module dialog box form) 0OtF@f@Technique 1_(Treatment form used by macro dialog box form) rF@f@Technique 1 module basic version- Dialog Boxzzzzzzzzzzx .6P@f@Technique 1 macro version- Dialog boxllllllllllj qF@f@Subform 2_(second subform)VVVVVVVVVVT NlF@(@Subform 2_(drug form)LLLLLLLLLLJ 1iF@(@Subform 2 - One-Many-OneRRRRRRRRRRP @ojF@(@Subform 1_(subform)HHHHHHHHHHF @hF@(@Subform 1 - AggregateLLLLLLLLLLJ 9`9wG@`@Patients22222222220 qgF@`@Normal.........., F@`@drug pie chart>>>>>>>>>>< \@`@Combo 5 - values from a combo boxddddddddddb  `VeF@`@Combo 4_(treatment subform)XXXXXXXXXXV  jxG@=@Combo 4_(patient_subform)TTTTTTTTTTR  "G@=@Combo 4- link patients name to patient subform~~~~~~~~~~|  dF@=@Combo 4- Link drugs to treatment Subformrrrrrrrrrrp  YcF@=@Combo 3 - DLookupDDDDDDDDDDB #aF@=@Combo 2 - AutoLookupJJJJJJJJJJH 3@=@Combo 1 - Storing an IDPPPPPPPPPPN  !11@ )Ϗ@AccessLayout4MR2KeepLocal T!bRzz:::::::8 @+@+@SysRel.........., 5+@5+@Scripts0000000000. @+@@+@Reports0000000000. +@+@Modules0000000000. @+@@+@Forms,,,,,,,,,,* @@DataAccessPages@@@@@@@@@@> MSysRelationshipsDDDDDDDDDDB MSysQueries88888888886 MSysACEs22222222220 MSysObjects88888888886 p@MSysDb@:::......., @Relationships<<<<<<<<<<: Databases44444444442 Tables.........., f%uQ +  a  2 ADI JKAB<͎@͎@~sq_cCombo 3 - DLooBk@k@~sq_cCombo 3 - DLookup~sq_cdoctorID4MR2KeepLocal Thhhhhhhf @9@ | +@O"]@Admin$ @8,,,,,,,,,* ?EF?@÷@technique 4 option wrongRRRRRRRRRRP >+s@÷@technique 4 optionFFFFFFFFFFD =Gɴm@{·@technique 3 notinlistLLLLLLLLLLJ <~kU@{·@technique 3 drug unloadPPPPPPPPPPN ;{ym@{·@technique 3 closeDDDDDDDDDDB :v3Z@{·@technique 2 currentHHHHHHHHHHF 9L@{·@technique 2 afterupdatePPPPPPPPPPN 8 P@W·@technique 1 ok buttonLLLLLLLLLLJ 7ɨP@W·@technique 1 cancel buttonTTTTTTTTTTR 6@@refresh doctor comboJJJJJJJJJJH 5 ʓG@W·@name_exit44444444442 4@ G@W·@name_enter66666666664 3@W·@frontclose66666666664 2ە@W·@findpatient88888888886 1Pc&@4_·@conditional macroDDDDDDDDDDB 0+m@4_·@combo 50000000000. /G@4_·@autoexec22222222220 .nA@nA@add new drug::::::::::8 -CA@4_·@Report20000000000. ,Hk@F@4_·@Report10000000000. + :\/@4_·@Patients_saveasreportLLLLLLLLLLJ *쭻/@!·@Patients_copyfromformLLLLLLLLLLJ )3@!·@Labels Patients@@@@@@@@@@> (-NnS@!·@split name66666666664 '0"T@!·@split address<<<<<<<<<<: &c0@!·@temp_form_to_add_treatment_data``````````^ %@OyF@@Technique 4 module version- Runtimehhhhhhhhhhf $j6n@@TEchnique 4 macro version-Runtimeddddddddddb #OxF@@Technique 3_(drug form used by module version)~~~~~~~~~~| "dU@@Technique 3_(drug form used by macro version)||||||||||z !@UwF@@Technique 3 module version- Not in Listppppppppppn  xaU@@Technique 3 macro version- not in listnnnnnnnnnnl 'M@@Technique 2 module basic version- Find Record||||||||||z r@@Technique 2 macro version- Find recordnnnnnnnnnnl Q~JV x Z <  r T 6  j ) u >  ` + Mw'L.aX{]/vX:V8L  GL__DrugID!!! OL__patientid''' OL  L GKDrugs K  GK K GJ([__DrugID] = DrugID)4 'JTreatmentSubform 1 - AggregateMM# J  GJ__DrugID!!! OJ J GI [family name], 'Igender=Forms!Patients!gender; 'I[Doctors].[gender]1 gI [Doctors].[Internal telephone]= gI[Doctors].[Title]0 gI[Doctors].[Initials]3 gI[Doctors].[Given name]5 gI[Doctors].[Family name]6 gI[Doctors].[DoctorID]3 gIDoctors I I GHPatients.Title- gHPatients!!! H H GG  [Drug name]* gGTreatment_PatientIDN@C77 oG [Drug name]* gGall_info!!! G G GF  patientid( 'Fgender% gF[date of birth]. gF[family name], gF[given name]+ gF patientid( gFpatients!!! F F GE  [Drug Name]* 'E[cost per packet]0 gE [Drug Name]* gEDRugID% gEDrugs E GE E GD([__DRugID] = DRugID)4 'DtreatmentCombo 4- Link drugs to treatment Subformss# D  GD__DRugID!!! OD D GC  [Drug Name]* 'C [DRug Name]* gC [drugID]' gCDRugs C GC C GB Doctors.[Family Name]4 'BDoctors.[Family Name]4 gBDoctors.[DoctorID]1 gB DOCTORS B GB  B GA  [Drug Name]* 'A [Drug Name]* gA [DrugID]' gADrugs A GA A Gi O,E L J $ I)0A=FL[WDfoAZL͎@L͎@~sq_ctemp_form_to_add_treatZjt@< kt@~sq_ctemp_form_to_add_treatment_data~sq_cDrug4MR2KeepLocal T|||||||z @9XDatePart('w',[Date start course])Format([Date of Birth],"dddd mmmm d ")[Example 02 query using multiple tables].Gender[Example 02 query using multiple tables].[Drug name]Avg([Example 02 query using multiple tables].Dosage)Avg([Example 02 query using multiple tables].Dosage)[Example 02 query using multiple tables].Gender[Example 02 query using multiple tables].[Drug name]Patients.PatientID = Treatment.PatientIDAvg(IIf([Gender]='f',[dosage],Null))Avg(IIf([Gender]='m',[dosage],Null))IIf(IsNull([Town]),"unknown town",[town])IIf([Gender]='m','male','female')[Cost per packet]/[tablets per packet](((Count(Patients.PatientID))>2))(((Count(Patients.PatientID))>3))DAvg([tablets per packet],"drugs","[cost per packet]>.5")(((Patients.[Family name]) Like [first few letters of surname] & "*") AND ((Patients.Town)=[which town]))(((Patients.[Family name]) Like "m*") AND ((Patients.Postcode) Like "B[A-S]# *"))(((Patients.Town) In ("bristol","bath","keynsham")))((Patients.Town="bristol" Or Patients.Town="bath" Or Patients.Town="keynsham"))((Patients.Town="bristol")) OR ((Patients.Gender="f"))((Patients.[Family name] Between "b" And "l") AND (Patients.[Date of Birth] Between #01/1/60# And #12/31/69#) AND (Patients.PatientID Between 10 And 20))((Drugs.[Drug name]>"d") AND (Drugs.[Tablets per packet]>50))(((Patients.PatientID)<=10) AND ((Patients.Gender)="f") AND ((Patients.[Date of Birth])=#11/22/42#))Patients.PatientID = Treatment.PatientIDPatients.PatientID = treatment.PatientIDDoctors.DoctorID = Treatment.DoctorIDPatients.PatientID = Treatment.PatientID[given Name] & " " & [family Name][given Name] & " " & [family Name][given Name] & " " & [family Name][given Name] & " " & [family Name][Patients].[Given name]&" "& [Patients].[Family name][Patients].[Family name] &", "&[given name](([__patientid] = patientid)) AND ([__DrugID] = DrugID)SUM([all_info].[Treatment].[PatientID])"VpF( qS5  h 8 w I  h J  v X :  R 4  |^@"N0a* No/iK-Q' QZ Z GY[Family name], gY[Given name]+ gY [DoctorID]) gYDoctors Y Y GX D@ 'Xtown = "bristol"/ 'XNameD@% oXPatients.[patientID]3 gXpatients!!! X GX X GW [family Name], 'Wtown <> "bristol"0 'WNameD@% oWPatients.[patientID]3 gWpatients!!! W W GV [family Name], 'Vtown = "bristol"/ 'VNameD@% oVPatients.[patientID]3 gVpatients!!! V V GU  [drug Name]* 'U [drugID]' gU [drug Name]* gUdrugs U GU U GT [family Name], 'T [doctorID]) gT[family Name], gTdoctors T GT T GSj@ gS[Patients].[PatientID]5 gSPatients!!! S S GR  [drug Name]* 'R [drugID]' gR [drug Name]* gRdrugs R GR R GQ [family Name], 'Q [doctorID]) gQ[family Name], gQdoctors Q GQ Q GP [family name], 'PV@ gP[Patients].[PatientID]5 gPPatients!!! P P GO[patientid]=[selectpatient]: 'OCount([patientid])1 gOtreatment### O O GN [drug name]* gNdrugid% gNdrugs N N GM[family name], gM doctorid' gMdoctors M M GL n@ 'L Treatment Details (Extended form)Subform 2 - One-Many-OneS @@  @@@@@@Md`Ld8kmdiYbUJbYO'Md`Ld:Jomd^dd\of'Md`Ld<O^dd\of'Md`Ld>^Yb\OioUkmdmiQJm`QbmkoLSdi`#Md`Ld>^Yb\fJmYQbmkbJ`QmdfJmYQbmkoLSdi`#Md`Ld>+fJmYQbm+koLSdi`Md`Ld>+miQJm`QbmkoLSdi`Md`Ld@qJ^oQkSid`JMd`LdLdu'OioUfYQMWJimSidbmbdi`J^fJmYQbmkfJmYQbmkmQkmMdbmid^kkoLSdi`8JUUiQUJmQ/koLSdi`8+koLSdi`koLSdi`:dbQ`JbvdbQ/?OkoLSdi`:+OioUSdi`koLSdi`:+kQMdbOkoLSdi` mQMWbYhoQ8`JMidqQikYdbOYJ^dULduk!mQMWbYhoQ8`dOo^QLJkYMqQikYdbOYJ^dULdu"mQMWbYhoQ8+miQJm`QbmSdi`okQOLv`JMidOYJ^dULduSdi`#mQMWbYhoQ8+miQJm`QbmSdi`okQOLv`dOo^QOYJ^dULduSdi`$mQMWbYhoQ:SYbOiQMdiOokYbUsYxJiO7%mQMWbYhoQ:`JMidqQikYdbSYbOiQMdiOkmQMWbYhoQ:`dOo^QLJkYMqQikYdbSYbOiQMdiOmQMWbYhoQ<`JMidqQikYdbbdmYb^YkmkmQMWbYhoQ<`dOo^QqQikYdbbdmYb^YkmomQMWbYhoQ<+OioUSdi`okQOLv`JMidqQikYdbmQMWbYhoQ<+OioUSdi`okQOLv`dOo^QqQikYdbmQMWbYhoQ>`JMidqQikYdbiobmY`QkmQMWbYhoQ>`dOo^QqQikYdbiobmY`QomQ`f+Sdi`+md+JOO+miQJm`Qbm+OJmJkf^YmJOOiQkk kf^YmbJ`Q ^JLQ^kfJmYQbmk fJmYQbmk+MdfvSid`Sdi` fJmYQbmk+kJqQJkiQfdim iQfdim8iQfdim:JOObQsOioUJomdQuQMMd`Ld@MdbOYmYdbJ^`JMidSYbOfJmYQbmSidbmM^dkQbJ`Q+QbmQibJ`Q+QuYmbJ`Q+QuYmdiMd`LdmQMWbYhoQ8MJbMQ^LommdbmQMWbYhoQ8d\LommdbmQMWbYhoQ:JSmQiofOJmQmQMWbYhoQ:MoiiQbmmQMWbYhoQ<M^dkQmQMWbYhoQ<OioUob^dJOmQMWbYhoQ<bdmYb^YkmmQMWbYhoQ>dfmYdb mQMWbYhoQ>dfmYdbsidbU!JO`Yb"OJmJJMMQkkfJUQkOJmJLJkQkSdi`k `dOo^Qk iQ^JmYdbkWYfkiQfdimk kMiYfmk kvkiQ^ mJL^Qk+kh+MMd`Ld8kmdiYbUJbYO+kh+MOioUYO;#+kh+MMd`Ld<O^dd\of+kh+MOdMmdiYO;$+kh+MMd`Ld>^Yb\OioUkmdmiQJm`QbmkoLSdi`+kh+MOioUYO7+kh+MMd`Ld>^Yb\OioUkmdmiQJm`QbmkoLSdi`+kh+MQ`LQOOQO87+kh+MMd`Ld@qJ^oQkSid`JMd`LdLdu+kh+MOioUYO;+kh+MMd`Ld@qJ^oQkSid`JMd`LdLdu+kh+MfJmYQbmYO;+kh+MOioUfYQMWJim+kh+MQ`LQOOQO6+kh+MfJmYQbmkmQkmMdbmid^k+kh+MmYm^Q+kh+MfJmYQbmk+kh+MOdMmdiUQbOQi+kh+MkoLSdi`8JUUiQUJmQ+kh+MQ`LQOOQO8C+kh+MkoLSdi`:dbQ`JbvdbQ+kh+MOioUSdi`CSc+kh+MkoLSdi`:dbQ`JbvdbQ+kh+MkQMdbOkoLSdi`CSc +kh+MmQMWbYhoQ:`JMidqQikYdbSYbOiQMdiO+kh+MOdMmdiYO +kh+MmQMWbYhoQ:`JMidqQikYdbSYbOiQMdiO+kh+MOioUYO +kh+MmQMWbYhoQ:`JMidqQikYdbSYbOiQMdiO+kh+Mbd+miQJm`Qbm +kh+MmQMWbYhoQ:`JMidqQikYdbSYbOiQMdiO+kh+MkQ^QMmfJmYQbm +kh+MmQMWbYhoQ<`JMidqQikYdbbdmYb^Ykm+kh+MOdMmdiYO`kvkJMQk`kvkdL[QMmk`kvkhoQiYQk`kvkiQ^JmYdbkWYfkJMMQkk^Jvdom`kvkOL/@@@iQSiQkWOdMmdiMd`LdmQMWbYhoQ8MJbMQ^LommdbmQMWbYhoQ8d\LommdbmQMWbYhoQ:JSmQiofOJmQmQMWbYhoQ:MoiiQbmmQMWbYhoQ<M^dkQmQMWbYhoQ<OioUob^dJOmQMWbYhoQ<bdmYb^YkmmQMWbYhoQ>dfmYdb mQMWbYhoQ>dfmYdbsidbU!JO`Yb"OJmJJMMQkkfJUQkOJmJLJkQkSdi`k `dOo^Qk iQ^JmYdbkWYfkiQfdimk kMiYfmk kvkiQ^ mJL^Qk+kh+MMd`Ld8kmdiYbUJbYO+kh+MOioUYO;#+kh+MMd`Ld<O^dd\of+kh+MOdMmdiYO;$+kh+MMd`Ld>^Yb\OioUkmdmiQJm`QbmkoLSdi`+kh+MOioUYO7+kh+MMd`Ld>^Yb\OioUkmdmiQJm`QbmkoLSdi`+kh+MQ`LQOOQO87+kh+MMd`Ld@qJ^oQkSid`JMd`LdLdu+kh+MOioUYO;+kh+MMd`Ld@qJ^oQkSid`JMd`LdLdu+kh+MfJmYQbmYO;+kh+MOioUfYQMWJim+kh+MQ`LQOOQO6+kh+MfJmYQbmkmQkmMdbmid^k+kh+MmYm^Q+kh+MfJmYQbmk+kh+MOdMmdiUQbOQi+kh+MkoLSdi`8JUUiQUJmQ+kh+MQ`LQOOQO8C+kh+MkoLSdi`:dbQ`JbvdbQ+kh+MOioUSdi`CSc+kh+MkoLSdi`:dbQ`JbvdbQ+kh+MkQMdbOkoLSdi`CSc +kh+MmQMWbYhoQ:`JMidqQikYdbSYbOiQMdiO+kh+MOdMmdiYO +kh+MmQMWbYhoQ:`JMidqQikYdbSYbOiQMdiO+kh+MOioUYO +kh+MmQMWbYhoQ:`JMidqQikYdbSYbOiQMdiO+kh+Mbd+miQJm`Qbm +kh+MmQMWbYhoQ:`JMidqQikYdbSYbOiQMdiO+kh+MkQ^QMmfJmYQbm +kh+MmQMWbYhoQ<`JMidqQikYdbbdmYb^Ykm+kh+MOdMmdiYO+kh+MmQMWbYhoQ<`JMidqQikYdbbdmYb^Ykm+kh+MOioUYO+kh+MmQMWbYhoQ<`JMidqQikYdbbdmYb^Ykm+kh+MfJmYQbmYO+kh+MmQMWbYhoQ<`dOo^QqQikYdbbdmYb^Ykm+kh+MOdMmdiYO+kh+MmQMWbYhoQ<`dOo^QqQikYdbbdmYb^Ykm+kh+MOioUYO+kh+MmQMWbYhoQ>`JMidqQikYdbiobmY`Q+kh+MLiYkmd^fJmYQbm+kh+MmQMWbYhoQ>`JMidqQikYdbiobmY`Q+kh+MbdbLiYkmd^fJmYQbm+kh+MmQMWbYhoQ>`dOo^QqQikYdbiobmY`Q+kh+MfJmYQbmYO+kh+MmQ`f+Sdi`+md+JOO+miQJm`Qbm+OJmJ+kh+MOdMmdi+kh+MmQ`f+Sdi`+md+JOO+miQJm`Qbm+OJmJ+kh+MOioU+kh+MmQ`f+Sdi`+md+JOO+miQJm`Qbm+OJmJ+kh+MfJmYQbm+kh+SMd`Ld8kmdiYbUJbYO;+kh+SMd`Ld<O^dd\of;+kh+SMd`Ld>+fJmYQbm+koLSdi`+kh+SMd`Ld@qJ^oQkSid`JMd`LdLdu;+kh+SfJmYQbmk+kh+SfJmYQbmkmQkmMdbmid^k+kh+SkoLSdi`8JUUiQUJmQC+kh+SkoLSdi`8+koLSdi`+kh+SkoLSdi`:dbQ`JbvdbQCSc +kh+SkoLSdi`:+OioUSdi` +kh+SmQMWbYhoQ:`JMidqQikYdbSYbOiQMdiO +kh+SmQMWbYhoQ<`JMidqQikYdbbdmYb^Ykm +kh+SmQMWbYhoQ<`dOo^QqQikYdbbdmYb^Ykm +kh+SmQMWbYhoQ<+OioUSdi`okQOLv`JMidqQikYdb+kh+SmQ`f+Sdi`+md+JOO+miQJm`Qbm+OJmJ+kh+i^JLQ^kfJmYQbmk+kh+ifJmYQbmk+kJqQJkiQfdimJUQ+iJbUQJ^^+YbSdLJO+OQkYUbMdobmfJmYQbmkSdiiQfdim8OYJUbdkYkOdMmdikOioUkOioUkJomd^dd\ofSdi`QuJ`f^Q68hoQivokYbUmWQkdimdfmYdbJbOmdfqJ^oQk`kvkJMQk`kvkdL[QMmk`kvkhoQiYQk`kvkiQ^JmYdbkWYfkJMMQkk^Jvdom`kvkOLdm-T s U 7   a C % m O 1  c E '  Q 3  uE' a1sU%aCqIMcso  GnCountOfPatientIDCount(Patients.PatientID)X11 onPatients!!! n Gn Gn n GmDoctorsTreatmentJ@ =1 mDrugsTreatment!Drugs.DrugID = Treatment.DrugIDZ- mPatientsTreatmentP@?3! m Treatment.** gm Patients.*) gm Drugs.*& gm Doctors.*( gmTreatment### mPatients!!! mDrugs mDoctors m Gm Gm m GlPatients!!! l  Gl l GkPatients!!! k  Gk k GjTreatment### j  Gj j GiDrugs i  Gi i Ghtreatment### h  Gh h Ggtreatment### g  Gg g GfTreatment### f  Gf f GeDrugs e  Ge e GdPatients!!! d  Gd d GcTreatment### c  Gc c GbDrugs b  Gb b GaPatients!!! a  Ga a G`Patients!!! `  G` ` G_Treatment### _  G_ _ G^Patients!!! ^  G^ ^ G]Treatment### ]  G] ] G\treatment### \  G\ \ G[[Family name], g[[Given name]+ g[ [PatientID]* g[Patients!!! [ [ GZ[Tablets_per_packet]3 gZ [Drug name]* gZ [DrugID]' gZDrugs V!OEN 2 .M{ K @ I?I@I AI7JBJDJEJFJGJCKHKJKKKILLLNLOLPLLLMMMMMMNN N N NO OOOO PPPPP PQQQQQQ QRR R!R"R#R $RS%S'S(S)S&T*T,T-T.T/T 0T+U1U3U4U5U6U 7U2V8V:V;VV9W?WAWBWCWDW EW@XFXHXIXJXKXLX MXGYNYPYQYRYSYOZTZZZZZU[[[[[ [\ \ \ \ ]]]]^^^^____````aa a!ab"b$b%b#c&c(c)c'd*d,d+0 @ @ @ @ @ @ @ @ @ @ @ @ @ @QQQQ QRR R!R"R#R $RS%S'S(S)S&T*T,T-T.T/T 0T+U1U3U4U5U6U 7U2V8V:V;VV9W?WAWBWCWDW EW@XFXHXIXJXKXLX MXGYNYPYQYRYSYOZTZZZZZU[[[[[ [\ \ \ \ ]]]]^^^^____````aa a!ab"b$b%b#c&c(c)c'd*d,d-d+e.e0e1e/f2f4f5f3g6g8g9g7h:hi@iAi?jBjDjEjCkFkHkIkGlJlLlMlKmNmPmQmRmSmTmUmVmWmXmYmZm[m\mOn]n_n`nanbn^oco.o.o.o.o.o.o.o.o. o. o. o. o. o.o.o.p.p.p.p .p.q.q.q.q.q.q.q.q.q.q.q. q.r.!r.#r.$r.%r.&r.'r.(r.)r.*r.+r."s.,s..s./s.0s.1s.2s.-2Y N Y Y Y age_rangeage_minage_maxYPrimaryKeyv1 3 zfSGd71-> =F61-70 3<51-60 )241-50 (31-40 21-30  11-20  1-10 0   @6886 88:6:8<6<8>6>8@6@8B6B8D6D82Y[[\N Y d Y d Y d Y dnameaddress hobby1 hobby2dvg J Smith A B C GriggBuckingham Palaceswimmingmotor racing:,"Prof X Y Z BloggsChez Nous Westoncycling11(A B Smith1 High St The Hollow Clifton Bristolmotor racingswimmingND6  cYN""Y Y Y  Y dPatientIDDoctorIDDate seendiagnosis <"$ Ys " " Y%YY DoctorsDiagnosis"PatientsDiagnosisPrimaryKeyv1@!^1 @pregnant" -@nothing wrong, @-@asthma +@broken arm&`+@headache" &PF@bad leg  @ @sickness"+@headache"h !@ +#  @# FP&#+`# +# -@# -## <Y N&& Y  Y P Y ( Y  Y  Y  Y DoctorIDFamily nameGiven nameInitials Title$Internal telephone gendereogFq&(yY!YY.rB.rCPrimaryKeyv1 % Y G i 2  SparrowSimonSJDr3863m&$ SprattLancelotLGHSir3865m*(" TennantPaulPKMr2467m%# HudsonSarahSWDr2356f%# TurnerGrahamGADr2368m&$MortimerJamesJRDr2240m'%RajahRajeshARHDr3745m&$ ReidLizEADr2365f! DeVriesAdrianAFMr3874m'%DochertyErnestETMr3872m(& SmedleyCyrilJCMr2367m&$CollinAndrewALDr2235m&$MaitlandClaireCJDr2234f(&  % @ '''''''' ' '  '  '  '  Y $N** Y  Y PY Y  DrugIDDrug name$Tablets per packetCost per packetx*,*-YYY.rCdidPrimaryKeyv1  ) mK'_4 #{Gz?Liquorice allsorts$ 333333?Gobstoppers ?Starballs 2(\?M&Ms )\(?Spanglesq= ףp?Polo mints2333333?Smartiesףp= ?Jelly beans Gz?Mars barsQ?Opal fruitsHzG?Marshmallows ffffff?Creme eggsd\(\?Dolly*mixtures  ) @ ++++++++ + +  +  +  +  ) @ ++++++++ + +  +  +  + (P~P i' n * w Y ; w Y ;  \ 0  LQ' Jy[=r.lN d)Yv Patients.[Family name]5 gv Patients.[Given name]4 gv Patients!!! v  Gv  Gv  v  Gu l@ 'u Patients.Gender. gu Patients.Town, gu Patients.[Family name]5 gu Patients.[Given name]4 gu Patients!!! u  Gu  Gu  u  Gt 2@ 't Patients.PatientID1 gt Patients.[Date of Birth]7 gt Patients.[Family name]5 gt Patients.Initials0 gt Patients!!! t  Gt  Gt  t  Gs z@  's Drugs.[Cost per packet]6 gs Drugs.[Tablets per packet]9 gs Drugs.[Drug name]0 gs Drugs s  Gs  Gs  s  Gr @  'r Patients.[Date of Birth]7 gr Patients.Gender. gr Patients.[Family name]5 gr Patients.Title- gr Patients.PatientID1 gr Patients!!! r  Gr  Gr  r  Gq DrugsTreatment!Drugs.DrugID = Treatment.DrugIDZ- q PatientsTreatmentP@ ?3! q Drugs.[Drug name]0 gq Treatment.Dosage/ gq Patients.Gender. gq Drugs q Treatment### q Patients!!! q  Gq  Gq  q  Gp  Patients.[Family name]5 'p  Patients.*) gp Patients!!! p  p  Go drugstreatment!drugs.DrugID = treatment.DrugIDZ- o PatientstreatmentP@ ?3! o Patients.[Date of Birth]7 go Patients.Gender. go Patients.Initials0 go Patients.[Given name]4 go Patients.[Family name]5 go drugs.[Cost per packet]6 go drugs.[Drug name]0 go  treatment.** go treatment### o Patients!!! o drugs o  Go  Go      @@  +kh+MmQMWbYhoQ<`dOo^QqQikYdbbdmYb^Ykm+kh+MOdMmdiYO+kh+MmQMWbYhoQ<`dOo^QqQikYdbbdmYb^Ykm+kh+MOioUYO+kh+MmQMWbYhoQ>`JMidqQikYdbiobmY`Q+kh+MLiYkmd^fJmYQbm+kh+MmQMWbYhoQ>`JMidqQikYdbiobmY`Q+kh+MbdbLiYkmd^fJmYQbm+kh+MmQMWbYhoQ>`dOo^QqQikYdbiobmY`Q+kh+MfJmYQbmYO+kh+MmQ`f+Sdi`+md+JOO+miQJm`Qbm+OJmJ+kh+MOdMmdi+kh+MmQ`f+Sdi`+md+JOO+miQJm`Qbm+OJmJ+kh+MOioU+kh+MmQ`f+Sdi`+md+JOO+miQJm`Qbm+OJmJ+kh+MfJmYQbm+kh+SMd`Ld8kmdiYbUJbYO;+kh+SMd`Ld<O^dd\of;+kh+SMd`Ld>+fJmYQbm+koLSdi`+kh+SMd`Ld@qJ^oQkSid`JMd`LdLdu;+kh+SfJmYQbmk+kh+SfJmYQbmkmQkmMdbmid^k+kh+SkoLSdi`8JUUiQUJmQC+kh+SkoLSdi`8+koLSdi`+kh+SkoLSdi`:dbQ`JbvdbQCSc +kh+SkoLSdi`:+OioUSdi` +kh+SmQMWbYhoQ:`JMidqQikYdbSYbOiQMdiO +kh+SmQMWbYhoQ<`JMidqQikYdbbdmYb^Ykm +kh+SmQMWbYhoQ<`dOo^QqQikYdbbdmYb^Ykm +kh+SmQMWbYhoQ<+OioUSdi`okQOLv`JMidqQikYdb+kh+SmQ`f+Sdi`+md+JOO+miQJm`Qbm+OJmJ+kh+i^JLQ^kfJmYQbmk+kh+ifJmYQbmk+kJqQJkiQfdimJUQ+iJbUQJ^^+YbSdLJO+OQkYUbMdobmfJmYQbmkSdiiQfdim8OYJUbdkYkOdMmdikOioUkOioUkJomd^dd\ofSdi`QuJ`f^Q68hoQivokYbUmWQkdimdfmYdbJbOmdfqJ^oQkQuJ`f^Q6:hoQivokYbU`o^mYf^QmJL^QkQuJ`f^Q6<hoQivokYbUkQ^QMmYdbMiYmQiYJQuJ`f^Q6hoQivokYbUMiYmQiYJYbOYSSQiQbmMd^o`bkQuJ`f^Q6@dfQiJmdidiokYbUMiYmQiYJYbkJ`QMd^o`b QuJ`f^Q6@JdfQiJmdi^Y\QokYbUMiYmQiYJYbkJ`QMd^o`b2QuJ`f^Q6BhoQivokYbU^Y\Q2QuJ`f^Q6DmQkmYbUSdiob\bdsbqJ^oQk2QuJ`f^Q6Ffid`fmQOhoQiv2QuJ`f^Q6HhoQivokYbUJUUiQUJmQhoQivSobMmYdbk2QuJ`f^Q6HJhoQivokYbUOd`JYbJUUiQUJmQSobMmYdbk2QuJ`f^Q86MJ^Mo^JmYdbdbJUidof2QuJ`f^Q88kQmmYbUMiYmQiYJdbJUUiQUJmQhoQiYQk2QuJ`f^Q88JJbdmWQiUidofMiYmQiYJQuJ`f^Q2QuJ`f^Q8:hoQivokYbUJiYmW`QmYM2 QuJ`f^Q8<obYhoQqJ^oQk2 QuJ`f^Q8>MWJiJMmQiSobMmYdb2 QuJ`f^Q8@YYS2 QuJ`f^Q8@JYYSsYmWbo^^qJ^oQk2 QuJ`f^Q8BUidofYYS2QuJ`f^Q8BJMidkkmJLJ^mQibJmYqQmdUidofYYS2QuJ`f^Q8DOJmQSdi`Jm2QuJ`f^Q8DJOJmQSobMmYdbk2QuJ`f^Q8DL`diQOJmQSobMmYdbk2QuJ`f^Q8FOJmQMJ^Mo^JmYdb2QuJ`f^Q8FJd^OQkmJbOvdobUQkm2QuJ`f^Q8HiJbUQdSqJ^oQk2QuJ`f^Q:6bQkmQOhoQiv2QuJ`f^Q:8QJMWOioU2QuJ`f^Q:8fQiMQbmMdkm2QuJ`f^Q:8mdmJ^Mdkm2QuJ`f^Q:8JfQiMQbmMdkm2QuJ`f^Q::OioUkbdmokQOYbmiQJm`Qbmob`JmMWQOhoQiv2QuJ`f^Q::JOioUkbdmokQOYbmiQJm`QbmokYbUQuYkmkdfQiJmdi2QuJ`f^Q::LOioUkbdmokQOYbmiQJm`QbmokYbUYbdfQiJmdi2QuJ`f^Q:<kh^MiQJmQmJL^Q2QuJ`f^Q:<okYbUSYQ^OQufiQkkYdbkYbSYQ^OQufiQkkYdbk9`kvkJMMQkkdL[QMmk9`kvkJMQk`kvkY`QuMd^o`bk9`kvkdL[QMmk`kvkhoQiYQk`kvkiQ^JmYdbkWYfkJMMQkk^Jvdom`kvkOL3 @ @ @ @ @ @ @ @ @ @ @ @ @ @d+e.e0e1e/f2f4f5f3g6g8g9g7h:hi@iAi?jBjDjEjCkFkHkIkGlJlLlMlKmNmPmQmRmSmTmUmVmWmXmYmZm[m\mOn]n_n`nanbn^oco.o.o.o.o.o.o.o.o. o. o. o. o. o.o.o.p.p.p.p .p.q.q.q.q.q.q.q.q.q.q.q. q.r.!r.#r.$r.%r.&r.'r.(r.)r.*r.+r."s.,s..s./s.0s.1s.2s.3s.4s.-t.5t.7t.8t.9t.:t.;t.t.6u.?u.Au.Bu.Cu.Du.Eu.Fu.Gu.Hu.@v.Iv.Kv.Lv.Mv.Nv.Ov1v1v.Jw1w1w1w1w1w1w1 w1 w1x1 x1 x1x1x1x1x1x1x1 y1y1y1y1y1y1y1y1y1z1z1z1 z1!z1"z1#z1$z1%z1&z1{1'{1){1*{1+{1,{1-{1(|1.|10|11|12|1/}13}15}16}17}18}19}1:} 1;} 1<} 1=}14~1>~1@~1A~1B~1C~1D~1E~ 1F~ 1G~ 1H~ 1I~ 1J~1?1K1L$QaC%t; k . g I + _ & g 9 y @  vjL$jL.^F( g]3wY;  Patients.Town, g Patients!!!   G  G    G~  Patients.Town, '~  DCount(Patients.PatientID): /~  B@ '~  Patients.Town, g~  Patients.Town, g~ (((Patients.Town) Like "B*"))< '~ countCount(Patients.PatientID)B o~ Patients.Town, g~ Patients!!! ~  G~  G~  ~  G}  DCount(Patients.Town)5 /}  DCount(Patients.PatientID): /}  Patients.Town, g} CountOfTownCount(Patients.Town)I'' o} Number of patientsCount(Patients.PatientID)\55 o} Patients.Town, g} Patients!!! }  G}  G}  }  G| average no when packet costs more than 50pr@qee o| Drugs |  G|  |  G{ most in packetMax([Tablets per packet])T-- o{ average no of tabletsAvg([tablets per packet])b;; o{ Drugs {  G{  G{  {  Gz @ 'z Patients.Town, gz Patients.[Family name]5 gz Patients.[Given name]4 gz Patients.Initials0 gz Patients!!! z  Gz  Gz  z  Gy (((Patients.Town) Is Null)): 'y Patients.Town, gy Patients.[Family name]5 gy Patients.PatientID1 gy Patients!!! y  Gy  Gy  y  Gx @ 'x Patients.Postcode0 gx Patients.[Family name]5 gx Patients.Initials0 gx Patients!!! x  Gx  Gx  x  Gw h@ 'w Patients.Town, gw Patients.[Family name]5 gw Patients.[Given name]4 gw Patients!!! w  Gw  Gw  w  Gv @ 'v Patients.Town, g;7O V  KS 3 / +IxXTF40,D$]Ah9h9͎@h9͎@`Example 23 SQL create tableVVVVVVVVVVV h9͎@h9͎@Example $2>@!u0@`Example 23 SQL create table@dXXXXXXXXXV v@3@Example 22a Drugs not used in treatment (using exists operator)@@ @@m9@%t1@Example 22 Drugs not used in Treatment (unmatched query)Y@@@ @ U G@h.@Example 21a percent cost2@@j^^RRRRRRRP @`vCS G@BS@Example 21 total costY@@@dXXLLLLLLLJ @ @+ƛF@O*@Example 21 each drugY@ @@bVVJJJJJJJH @`GzF@J@Example 20 nested queryY@ @@h\\PPPPPPPN @ *F@"@Example 19 Range of valuesY@ @@nbbVVVVVVVT @`m9@4]@Example 18a oldest and youngestc@ @ xll```````^ @ @-m9@.@Example 17b more date functionsY@@ xll```````^ @`m9@f-@Example 17a date functionsY@@ nbbVVVVVVVT @4m9@~>@Example 17 date format@@ fZZNNNNNNNL @m9@"j@Example 16a Crosstab alternative to group iif@@|||||||z @6m9@w@Example 16 group iif0@@bVVJJJJJJJH @ o m9@@Example 15 iifY@@VJJ>>>>>>>< @gVF@Ft@Example 14 character function@@thh\\\\\\\Z @m9@sf@Example 13 unique values@@j^^RRRRRRRP @`y}m9@:@Example 12 query using arithmetic@@|ppdddddddb @` m9@xp@Example 11a another group criteria exampleY@ @vvvvvvvt @ } ?4m9@uY]t@Example 10 calculation on a group@ |@ |ppdddddddb @|dX@z@Example 09a query using domain aggregate functions@ @ @{`m9@^X@Example 09 query using aggregate query functions@ @ @zPm9@-_y@Example 08 prompted query@@l``TTTTTTTR @yO\m9@ʴr@Example 07 testing for unknown values@@xxlllllllj @ w>-@-@Example 05a operator like using criteria in same column@@ @07 @ @ @ @ @ @ @ @ @ @ @ @ @ @s.4s.-t.5t.7t.8t.9t.:t.;t.t.6u.?u.Au.Bu.Cu.Du.Eu.Fu.Gu.Hu.@v.Iv.Kv.Lv.Mv.Nv.Ov1v1v.Jw1w1w1w1w1w1w1 w1 w1x1 x1 x1x1x1x1x1x1x1 y1y1y1y1y1y1y1y1y1z1z1z1 z1!z1"z1#z1$z1%z1&z1{1'{1){1*{1+{1,{1-{1(|1.|10|11|12|1/}13}15}16}17}18}19}1:} 1;} 1<} 1=}14~1>~1@~1A~1B~1C~1D~1E~ 1F~ 1G~ 1H~ 1I~ 1J~1?1K1M1N1O1P44 4 4 41L4444 4 4 4 4 4444444444444444444 4!4"4#44$4&4'4(4)4*4+4%4,4.4/4041424344454647 484-494;4<4=4>4?4@4A 4B 4C4:4D4F4G4H4I4J4K4L4E4M4O4P555554N5555 5 5 5  5  55555555.Qn5 lN& `  r T & u G  x Z <  w 9  ZiKN] >nDt2V8  G  G    G Year Format([date of birth],"yyyy")E o formatted dateN@#9-- o Patients.[Date of Birth]7 g Patients.[Family name]5 g Patients!!!   G  G    G  ^@" g  h@! g Row Summaryh@ 3'' o The Valueh@/## o ^@ g h@ g Example 02 query using multiple tables]]]   G  G    G  Drugs.[Drug name]0 g DrugsTreatment!Drugs.DrugID = Treatment.DrugIDZ-  PatientsTreatmentP@?3!  femaledoseH@1%% o maledoseH@-!! o Drugs.[Drug name]0 g Drugs  Treatment###  Patients!!!   G  G    G using nznz([town],"unknown town")H!! o using isnullR@5)) o Patients.Town, g Patients!!!   G  G    G Patients.PatientID1 g Patients.Gender. g gendernameB@1%% o Patients!!!   G  G    G first letter capitalisedStrConv([addr1],3)aAA o townsUCase([Town])6 o Patients!!!   G  G    G Patients.Town, g Patients!!!   G  G    G "((Drugs.[Tablets per packet]>0))? ' cost_per_tabletL@;// o Drugs.[Cost per packet]6 g Drugs.[Tablets per packet]9 g Drugs.[Drug name]0 g Drugs   G  G    G  Count(Patients.PatientID)8 '  B@ '  Patients.Town, g ((Patients.Gender="f"))6 ' countCount(Patients.PatientID)B oRHwY;  A  u G  [ ) I  m = o0`#V8I iK-c9}_A#& G  GDrugsTreatment!Drugs.DrugID = Treatment.DrugIDZ- total cost^@ 61%% oDrugs Treatment###  G G  Gpercent[drug_cost]/[total cost]E o"[Example 21 each drug].drug_cost? gD@ 6 g Example 21 total cost;;;  Example 21 each drug999  G G   G Drugs.[Drug name]0 gDrugsTreatment!Drugs.DrugID = Treatment.DrugIDZ- drug_cost^@ 6/## oDrugs.[Drug name]0 gDrugs Treatment###  G G  G t@ 6 ' DrugsTreatment!Drugs.DrugID = Treatment.DrugIDZ-  Treatment.Dosage/ g Drugs.[Drug name]0 g Treatment###  Drugs   G  G    G  age_range.age_range2 g @6 ' CountOfPatientIDCount(Patients.PatientID)X11 o age_range.age_range2 g age_range###  Patients!!!   G  G    G oldest^@6) o youngest^@6-!! o Patients!!!   G  G    G ageyL@6% o monthsF@6) o ageT@6# o Patients.[Date of Birth]7 g Patients.[Family name]5 g Patients!!!   G  G    G  D@6 g  B@6 g CountOfPatientIDCount(Treatment.PatientID)Y11 o dayD@6# o daynoB@$' o Treatment###   G  G    G yearYear([Date of Birth])< o monthMonth([Date of Birth])? o dayDay([date of birth])9 o Patients.[Date of Birth]7 g Patients!!! LVALz6P * @ T Vt0v2SELECT Patients.PatientID, [Patients].[Given name] & " " & [Patients].[Family name] AS patient, [Doctors].[Title] & " " & [Doctors].[Family name] AS doctor, Diagnosis.[Date seen] as date_happening, Diagnosis.diagnosis FROM Patients INNER JOIN (Doctors INNER JOIN Diagnosis ON Doctors.DoctorID = Diagnosis.DoctorID) ON Patients.PatientID = Diagnosis.PatientID Doctors.DoctorID = Treatment.DoctorID[given Name] & " " & [family Name](((Treatment.[Date start course]) Between [Forms]![Technique 1 module basic version- Dialog Box]![begin Date] And [Forms]![Technique 1 module basic version- Dialog Box]![end Date]))Patients.PatientID = Treatment.PatientID[given Name] & " " & [family Name][given Name] & " " & [family Name](((Treatment.[Date start course]) Between [Forms]![Technique 1 macro version- Dialog Box]![begin Date] And [Forms]![Technique 1 macro version- Dialog Box]![end Date]))Patients.PatientID = Treatment.PatientID[given Name] & " " & [family Name]DateDiff('d',[date start course],[date end course])create table Drugssql( DrugID text(6) constraint drugtableconstraint primary key, Drugname text(40) not null, Tablets_per_packet integer, Cost_per_packet currency);drugid not in (select drugid from Treatment )not exists(select * from Treatment where Drugs.DrugID = Treatment.DrugID)[Example 21 total cost].[total cost]Sum([Dosage]*[cost per packet]*[doses per day])[Example 21 each drug].[Drug name]Sum([Dosage]*[cost per packet]*[doses per day])((Treatment.Dosage=(select max([dosage]) from treatment)))(((DateDiff('m',[DATE OF BIRTH],Now())/12) Between [AGE_MIN] And [AGE_MAX]))Max(DateDiff('d',[Date of Birth],Now())/365.25)Min(DateDiff('d',[Date of Birth],Now())/365.25)DateDiff('yyyy',[Date of Birth],Now())DateDiff('m',[Date of Birth],Now())DateDiff('d',[Date of Birth],Now())/365.25Format([Date start course],'dddd')DatePart('w',[Date start course])Format([Date start course],'dddd')3: @ @ @ @ @ @ @ @ @ @ @ @ @ @1N1O1P44 4 4 41L4444 4 4 4 4 4444444444444444444 4!4"4#44$4&4'4(4)4*4+4%4,4.4/4041424344454647 484-494;4<4=4>4?4@4A 4B 4C4:4D4F4G4H4I4J4K4L4E4M4O4P555554N5555 5 5 5  5  55555555555555555555 5"5#5$5%5&5'5( 5)5!5*5,5-5.5/505152535+54565758595:5;5< 5=555>5@5A5B5C5D5E5F5?5G5I5J5K5L5M5N5H5O5Q88888888 8 8 5P8 8 8 8888888 888888888888 8!88"8$8#8%8'8(8)8*8+8,8&OrBe y [ =  R g I ! d F ( a C % S+qmO!^y[=qp+ nY GYtown="Bristol"- 'Yname [given name]&" "&[family name]E oY patientid( gYpatients!!! Y GY Y G YDCount(Treatment.DrugID)8 / YD@6 gYj@6 'YPatientsTreatmentP@6?3! YCountOfOrder IDCount(Treatment.DrugID)T// oYNameD@6% oYTreatment### YPatients!!! Y GY GY Y G YdCount(Treatment.DrugID)8 / YD@6 gYN@6 'YPatientsTreatmentP@6?3! YCountOfOrder IDCount(Treatment.DrugID)T// oYNameD@6% oYTreatment### YPatients!!! Y GY Y GDrugsTreatment!Drugs.DrugID = Treatment.DrugIDZ- day_times_doseo_days]*[doses per day]T-- ono_daysf@6+ oTreatment.[Doses per day]8 gDrugs.[Drug name]0 gDrugs Treatment###  G G  GhT@6 gh h GZ@6 'Drugs.[Drug name]0 gDrugs.DrugID+ gDrugs  G  G@6 'Drugs.[Drug name]0 gDrugs.DrugID+ gDrugs  G  G((Treatment.DrugID Is Null)); 'DrugsTreatment!Drugs.DrugID = Treatment.DrugIDZ- Drugs.[Drug name]0 gDrugs.DrugID+ gTreatment### Drugs  G G  G H@ 6 g Drugs.[Drug name]0 gDrugsTreatment!Drugs.DrugID = Treatment.DrugIDZ- percent[cost]/[total cost]@ ocost!Sum([dosage]*[cost per packet])F oDrugs.[Drug name]0 gTreatment### Drugs Example 21 total cost;;;  G;}$ M@ , KP 0 v  q`Մ*=`Y?lt@3Y?lt@3lt@~sq_ctemp_form_to_add_treatment_data~sq_cDoctor4MR2KeepLocal T~ @U ^Bt@tCt@~sq_cTechnique 3 module version- Not in List~sq_cdrugID4MR2KeepLocal T @Rv@v@~sq_cTechnique 3 macro version- not in list~sq_cdrugID4MR2KeepLocal T @NYQ@YYQ@~sq_cTechnique 2 macro version- Find record~sq_cDrugID4MR2KeepLocal T @KvVܖ@vVܖ@~sq_cSubform 2 - One-Many-One~sq_cdrug form4MR2KeepLocal Txxxxxxxv @HiҲu@ڲu@~sq_cPatients test controls~sq_cTitle4MR2KeepLocal Tlllllllj @Dfpu@wpu@~sq_cCombo 4- Link drugs to treatment Subform~sq_cEmbedded14MR2KeepLocal T @AIb@lȡb@~sq_cCombo 1 - Storing an ID~sq_cDRugID4MR2KeepLocal Tpppppppn @Bx@(@Patients test controlsNNNNNNNNNNL `k\1 @`k\1 @Reference466666666664 iY1 @iY1 @Reference366666666664 ".G@".G@Reference266666666664 @O0@@O0@Reference44444444442 ȥTy@ȥTy@PatientsDiagnosisDDDDDDDDDDB g.b@g.b@DrugsTreatment>>>>>>>>>>< UvqTy@UvqTy@DoctorsDiagnosisBBBBBBBBBB@ :Y3 @d5 @treatments and diagnosis@`@j^^RRRRRRRP @gF@6}0@Treatment Details (Extended form)@@|ppdddddddb @1;+@凭T@TreatmentVcR@@@44444442 @)n@)n@test split address@@^RRFFFFFFFD @ɉu@.9u@technique 4 form nonbristol@@ pddXXXXXXXV @ רu@U<$@technique 4 form bristolo@@ j^^RRRRRRRP @hF@TP@technique 1 module form@@@ h\\PPPPPPPN @䷳+@ɥTy@Patients}@>>>22222220 @sej.@MSysIMEXSpecs<<<<<<<<<<: ?j.@?j.@MSysIMEXColumns@@@@@@@@@@> ;Ƌ͎@_͎@MSysAccessObjectsDDDDDDDDDDB O G@RQ/@Example 23 using field expressions in field expressions@@@ @7 @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @555555555555 5"5#5$5%5&5'5( 5)5!5*5,5-5.5/505152535+54565758595:5;5< 5=555>5@5A5B5C5D5E5F5?5G5I5J5K5L5M5N5H5O5Q88888888 8 8 5P8 8 8 8888888 888888888888 8!88"8$8#8%8'8(8)8*8+8,8-8.8/8&8082838485868788 89 8:818;8=8>8?8@8A8B8C8D 8E 8F8<8G8I8J8K8L8M8H8N      !"#$%&'()+,-. / 0* YN<<oY Y DataID<YAOIndexv1K;[`<0K 0˄ctLLS@LLz̄`΄̈́̄ĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀńƄ τMSysAccountsh߃x߃П xK;[ࡱ>  '$  !Root Entry6mRVBA 6VBAProject=> 6VBA 6& +,-./03IC456789:;<=>?@ABDREFGHJ`KLMNOPQSiTUVWXYZ[\]^_awbcdefghjxklmnopqrstuvyz{|}~Root Entry6mRVBA 6VBAProject=> 6VBA 6IVXHLREJJCHDPDMOPINXMDGVLHNH:Forms ~B20DBBBlob & +,-./03IC456789:;<=>?@ABDREFGHJ`KLMNOPQSiTUVWXYZ[\]^_awbcdefghjxklmnopqrstuvyz{|}~ 23CB0 31CB0 30CB0 29CB0 28CB0 27CB0 26CB0 25CB0 24CB0 22CB0 21CB0 20CB0 19CB0 18CB0 16CB0 15CB0 14CB0 13CB0 12CB0 11CB0 10CB0 9CB0 8CB0 7CB0 6CB0 5CB0 4CB0 3CB0 2CB0 1CB0 0CB0 32CB0 32CB0e1Contents of one "unit" of producder)Quantity_Per_Unitd25U`wab6ceox,% and set value of drug ID combo box. B0cghijXk ۱@ treatmentHelv8 hApple LaserWriter II NTX TD[ od,Xe`!K;[)@Apple LaserWriter II NTXpscriptLPT1: dbc(#x 10CB0 12CB0 13CB0 14CB0 15CB0 16CB0 17CB0r][Forms]![Combo 5 - values from a coijColumn](4)MSysDb Drug na Drug_namem`\bE kDate start courseDate0((Dͬ ՠI`͘Detail0d Label7d Text0h Commandformexith Commandexitmacr 10CB0 12CB0 13CB0 14CB0 15CB0 16CB0 17CB0r][Forms]![Combo 5 - values from a coijColumn](4)MSysDb Drug na Drug_namem`\bE kDate start courseDate0((Dͬ ՠI`͘Detail0d Label7d Text0h Commandformexith Commandexitmacr   ) * !"#$%&'(,+.-5/012346798:;<>=A@QBCDEFGHIJKLOM PfVRSTUWXY[Z\e_`abcd]fghijkmnopqrstuvwxyz{|}~PropData TypeInfo DirData# rPropData k   PropDataTypeInfo18Blob rEight, the AfterUpdate event procedure for the option group sets the RowSource property of the list box and requeries the list.responds by letting yͬ ^%T4 `U(Detail0koptionUSiButton132d Text133iBK;[utton134d Text135nPatientIDd Text138d Text139PTechnique 2 - Find Record using wizardJTechnique 4 module v  ! " # $ % & ' ( ) * + - . / 0 1 2 3 4 5 6 7 8 9 : ; < ? @ A C D E F G H I J K L O P Q S T U V W X Y Z [ \ ] ^ _ ` c d f g h i j k l m n o p q r s v w y z { | } ~  ersion- RuntimeFTEchnique 4 macro version-Runtime`Technique 3_(drug form used by module version)^Technique 3_(drug form used by macro version)RTechnique 3 module version- Not in ListPTechnique 3 macro version- not in list^Technique 2 module basPropData TypeInfo 17PIBlob  ic version- Find RecordPTechnique 2 macro version- Find recordzTechnique 1_(treatment form used by module dialog box form)xTechnique 1_(Treatment form used by macro dialog box form)\Technique 1 module basic version- Dialog BoxNTechnique 1 macro vPropData TypeInfo 19Blob ,       !"#$%&'()*+,/012456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^abcdefghjklmnopqrstuvwxyz{|}~ 23CB0 31CB0 30CB0 29CB0 28CB0 27CB0 26CB0 25CB0 24CB0 22CB0 21CB0 20CB0 19CB0 18CB0 16CB0K;[ 15CB0 14CB0 13CB0 12CB0 11CB0 10CB0 9CB0 8CB0 7CB0 6CB0 5CB0 4CB0 3CB0 2CB0 1CB0 0CB0 32CB0 32CB0e1Contents of one "unit" of producder)Quantity_Per_Unitd25U`wab6ce ersion- Dialog boxPatientsBtemp_form_to_add_treatment_data8Subform 2_(second subform).Subform 2_(drug form)4Subform 2 - One-Many-One *Subform 1_(subform) .Subform 1 - Aggregate 0Patients test controls Normal  drug pie chartFCombo 5 - valXHHKBZKXNLOEZ_SLEQOFFYMIZPEH:SJAcessVBADataPROJECT?^ PROJECTwmZ(#xXAttribute VB_Name = "split address" Option Compare Database`Ex`cit FuncZget_A(full, line) Dim t As Sng'_&(1 To (10) $iIn tegeruor i/ Fi)Nexv=  %If InH(, Chr(13) 0 Then- .1 %Else: Do While'> 0$ TLeft>Dh- 1 dMid+ 2r i + 1=Loop End pIf ]LA Ci > 3?MsgBox ("got moathan Ams"`  D E tle,2Þ@B"I@K E tG ãKl(k ?       -LK;[)*+,.|/0123M56789:;<=>?@ABCDEFGHIJKXNOPQRSTUVYZ[\]^_`abcdefghijklnopqrs}                   ! " # $ % & ) , - . / 0 1 4 5 6 7 8 9 : ; < = ? @ A G H I J ID="{C9DEEC3F-2685-11D4-80D6-006008552884}" DocClass=Form_Technique 1 module basic version- Dialog Box/&H00000000 DocClass=Form_Technique 1_(Treatment form used by macro dialog box form)/&H00000000 DocClass=Form_Patients/&H00000000 DocClass=Form_Technique 4 module version- Runtime/&H00000000 DocClass=Form_Technique 2 - Find Record using wizard/&H00000000 DocClass=Form_Technique 3 module version- Not in List/&H00000000 DocClass=Form_Technique 3_(drug form used by module version)/&H00000000 DocClass=FpjTorm_Technique 2 macro version- Find record/&H00000000 DocClass=Form_Technique 2 module basic version- Find Record/&H00000000 DocClass=Form_Technique 1 macro version- Dialog box/&H00000000 DocClass=Form_Technique 1_(treatment form used by module dialog box form)/&H00000000 DocClass=Form_Technique 3 macro version- not in list/&H00000000 DocClass=Form_Technique 3_(drug form used by macro version)/&H00000000 DocClass=Form_TEchnique 4 macro version-Runtime/&H00000000 DocClass=Report_Patients_saveasreport/&H00000000 Module=split name Module=split address DocClass=Form_front1/&H00000000 Name="treatment" HelpContextID="0" VersionCompatible32="393222000" CMG="5250E3E6CEEACEEACEEACEEA" DPB="393B88ED89ED89ED" GC="202291D292D2922D" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] Form_Technique 1 module basic version- Dialog Box=0, 0, 0, 0, C Form_Technique 1_(Treatment form used by macro dialog box form)=0, 0, 0, 0, C Form_Patients=44, 44, 672, 503, Form_Technique 4 module version- Runtime=0, 0, 0, 0, C Form_Technique 2 - Find Record using wizard=0, 0, 0, 0, C Form_Technique 3 module version- Not in List=0, 0, 0, 0, C Form_Technique 3_(drug form used by module version)=0, 0, 0, 0, C Form_Technique 2 macro version- Find record=154, 154, 782, 613, Form_Technique 2 module basic version- Find Record=154, 154, 266, 492, Form_Technique 1 macro version- Dialog box=0, 0, 0, 0, C Form_Technique 1_(treatment form used by module dialog box K;[form)=0, 0, 0, 0, C Form_Technique 3 macro version- not in list=0, 0, 0, 0, C Form_Technique 3_(drug form used by macro version)=0, 0, 0, 0, C Form_TEchnique 4 macro version-Runtime=176, 176, 804, 635, Report_Patients_saveasreport=154, 193, 782, 652, C split name=0, 0, 628, 459, split address=22, 22, 650, 481, Z Form_front1=0, 0, 0, 0, C 28, 459, split address=22, 22, 650, 481,Form_Technique 1 module basic version- Dialog BoxForm_Technique 1 module basic version- Dialog BoxForm_Technique 1_(Treatment form used by macro dialog box form)Form_Technique 1_(Treatment form used by macro dialog box form)Form_PatientsForm_PatientsForm_Technique 4 module version- RuntimeForm_Technique 4 module version- RuntimeForm_Technique 2 - Find Record using wizardForm_Technique 2 - Find Record using wizardForm_Technique 3 module version- Not in ListForm_Technique 3 module version- Not in ListForm_Technique 3_(drug form used by module version)Form_Technique 3_(drug form used by module version)Form_Technique 2 macro version- Find recordForm_Technique 2 macro version- Find recordForm_Technique 2 module basic version- Find RecordForm_Technique 2 module basic version- Find RecordForm_Technique 1 macro version- Dialog boxForm_Technique 1 macro version- Dialog boxForm_Technique 1_(treatment form used by module dialog box form)Form_Technique 1_(treatment form used by module dialog box form)Form_Technique 3 macro version- not in listForm_Technique 3 macro version- not in lirU yp18pQp@4 98ttt@8 98xxx@ <y8rrr @@QY9|||@DQY)9@H y@L@P pppy0   <X@P q/@TI  @X ppp@\ /rrr@` /ttt@d1/@h1+@l1vvvI@p1'@t1!!WK;[W\$x! Qxoh%! \5hU$$  xh\$x! Qxoh%! \5h$$  xh\$x! Qxoh%! \5h$$  xh\$x! Qxoh%! \5h$$  xh\$x! Qxoh%! \5h$$  xh\$x! Qxoh%! \5h$$  xh8K!:h%x$ `x DxJx! T'4%cD%ch%QxoT%d$ `d @d5T!:h%x$ `x Dx3'':DN$$:hNTT 6T$x$ `x (x rI$  $xdT$p!:h%x$ `x DxJx! T'4%cD%ch%QxoT%d$ `d @d5THp$  xdTTTTTTl88 orU \$`n8`X !1&&**8`\ !1&&**8`` !1&&**$A`$`$`__SRP_3a__SRP_4 __SRP_5N__SRP_6b n@@11@D@H vvv@L1Q@P1i@T1@X1@\1@`1@d1@h V@l1@p1K;[@ tA 1\I@x1@ |A Y\@ A  @ A I@ A  @ A )@ I@ A i @ ppp@ rrr@ ttt@ A ^I WWW0   0 @  |K7-'X%'h%x$ `x Lx<''$'4T xx ,>TFD x6D4$ 4x|$  $TxD4$0   0   0 X  0   0   0 h  K<Cx*'D%'T%lxFd%t$ `t t<''' @ tt ,>@F0 t60  9s|( x$@t0 t| (rU ( XY1A Ar*irr@ 4A 1+ttt@ 8A Y+vvv@ <A +xxx@@ ppp@D <|||@H !k@L@P a=~~~@T +rrr@ XA <zzz @ \A WI@` qWvWW0   0 @  0   0   0   KRCx@'0%ltF@%'P%lxF`%p$ `p `p<''' , pp ,>,F p6  O, txK;[$,p 4<X\0W\$x! Qxoh%! 5ham$$ xhhx! x xJ'4%'D%'T%x! |Qxod%t$ `t @t5diHh$ xtd@PmTqchDn|qu 3 (ugf sd brU l$`$A`$` $` $` $A` n @< !@@1 $@D aa!rrr@H ppp@L ay!ttt@P a!vvv@T a!xxx@X a!zzz@\ a!|||@`1"@d@h19"@l @p ai"@t1"@7'':@N00$:`NPP^pz6P0 kz9$'`%$ ` 7(%'%( %(@%(`%$ ` 4<'%' %'@%:`%$ ` `W F %:@%:`%$ T $  L  $ ,)e @(t,P08Xi  rU iq.qAq@41!/     !"#$%&'()+,-./0123456789:;<=>?@ABCDEFGHJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~@8  @<  @@1c@DQYI/@H1Yd@L ! K;[@P q/@TI  @X ppp@\ /rrr@` /ttt@d1/@h1+@l1vvvI@p1'@t1!!WW0   0   0   0   0 `  0 `  0   0   TTTTTl88  XrU $` $A`8`X !1&&**8`\ !1&&**8`` __SRP_7 __SRP_8 *__SRP_9Iz__SRP_a n !1&&**$A`$`$`n@D ppp@H 9ttt@ Lyrrr pCx*dt! |t d(T]3t5dC lx*1xQ lx*1x lx*1xlxt! t tt! t t8(xtdDLXyWd0)'h%x$ `x ,xr0$ xl $'h%x$ `x x*'X%:h%x$ `x xQL:X%PT:h%x$ Tx $T LP $ L )xTPLyT:h%x Lx $ QTo$%4:8%HL:X%P$ TP $L LH $ 4,) xPLH45$ h $ (xTPLH4$l $'h%x$ `x x*'X%:h%x$ `x xQL:X%PT:h%x$ Tx $T LP $ L )xTPLyT:h%x Lx $ QTo$%4:8%HL:X%P$ TP $L LH K;[$ 4,) xPLH45$ph $ (xTPLH4$DTTH rU XY1gAgf@4 @8 ppp@<1arrr@@1yvvv@D zzzgd0+:h%x$ `x ,x0$ x4X@P19(@TIyWd0)'h%x$ `x ,x0$ xl $'h%x$ `x x*'X%:h%x$ `x xQL:X%PT:h%x$ Tx $T LP $ L )xTPLyT:h%x Lx $ QTo$%4:8%HL:X%P$ TP $L LH $ 4,) xPLH45$h $ (xTPLH4$l $'h%x$ `x x*'X%:h%x$ `x xQL:X%PT:h%x$ Tx $T LP $ L )xTPLyT:h%x Lx $ QTo$%4:8%HL:X%P$ TP $L LH $ 4,) xPLH45$h $ (xTPLH4$DTTHbrU P(`8!&n|||@8@< vvv@@1@D11@H1@L1Q@P1i@T1@X1@\1@`1 K;[@d1@h1@l1@ pA   @t V@ xA I @ |A   @1xxx@ A i  @ A ) @ I@ ppp@ rrr@ ttt W    0   0 @  0   0   0   px|8TxD4$|K7-'X%'h%x$ `x Lx<''$'4T xx ,>TFD x6D4$ 4x|$ $TxD4$|K7-'X%'h%x$ `x Lx<''$'4T xx ,>TFD x6D4$ 4x|$ $TxD4$KA7((F%'8%(H%(X%(h%x$ `x 4x<'''$ xx ,>$F x6 >$ $$xHLPT\8rU  %y$Y1a%Y&1&I&i#ii@4  !@8 qi  @< !@@1 $@D aa!rrr@H ppp@L ay!ttt@P a!vvv@T a!xxx@X a!zzz@\ a!|||@`1"@d@h19"@l1~~~@p ai"@t1" K;[ @7'':@N00$:`NPP^pz6P0 kz9$'`%$ ` 7(%'%( %(@%(`%$ ` 4<'%' %'@%:`%$ ` `W F %:@%:`%$ T $  L  $ ,) @(t,P08X xh\$x! Qxoh%! \5h$$ xh\$x! Qxoh%! \5h$$ xh8K!:h%x$ `x DxJx! T'4%cD%ch%QxoT%d$ `d @d5T!:h%x$ `x Dx3'':DN$$:hNTT 6T$x$ `x (x r$ $xdT$p!:h%x$ `x DxJx! T'4%cD%ch%QxoT%d$ `d @d5THp$ xdTLLLLLH\\ P arU , `0&nJ cF( kJP; JdF 41hpJ8lhF4 $ $(]46$4#P;/8lhF4 $ $(]u6$\lhF4 $ $("hM@  `#kJP;/6$X $ 'lhF4$__SRP_b__SRP_cf __SRP_df __SRP_e #*f ("hM@ `1h6 $ kJpJ lhkJP; kJ+''':4N$$ 6$4"PFlX@lPTye L 1h$$kx4X08XirU  Y1(yjq)1&I&Q* )j 'Qjj@4 Y'ppp@81q'rrr@< a'zzz@@1qivvv@ DA '|||  @H '~~~@L1 (@P19(@TI  y W  d0)'h%x$ `x ,x0$ xl $'h%x$ `x x*'X%:h%x$ `x xQL:X%PT:h%x$ Tx $ K;[T LP $ L )xTPLyT:h%x Lx $ QTo$%4:8%HL:X%P$ TP $L LH $ 4,) xPLH45$h $ (xTPLH4$l $'h%x$ `x x*'X%:h%x$ `x xQL:X%PT:h%x$ Tx $T LP $ L )xTPLyT:h%x Lx $ QTo$%4:8%HL:X%P$ TP $L LH $ 4,) xPLH45$h $ (xTPLH4$DTTHxh\$x! Qxoh%! 5h$$ xh\$x! Qxoh%! 5h$$ xhp8x! Qxoh%! 5hx! x x8$ xhp8x! Qxoh%! 5hx! x x8$ xhp8x! Qxoh%! 5hx! x x8$ xh@!:h%x$ `x DxKx! |c4%cD%fh%QxoT%d$ `d @d5Tx! x xC$x! x $Td! |d T4)dx6$T!:h %x$ `x Dx;3'':D N$$@:h NTT 6T$x$ `x (x@$ $xdT$@!:h%x$ `x DxKx! |c4%cD%fh%QxoT%d$ `d @d5Tx! x xC$x! x $Td! |d T4)dx6$T!:h %x$ `x Dx;3'':D N$$@:h NTT 6T$x$ `x (x@$ $xdT$LLLLLHH\\rU `$ ` $A ` ( `8!&nq`'@l`lh  1h5@lh      !"#$%&'()+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_abcdefghijklmnopqrstuvwxyz{|}~/ldF0hMP@@  @ `1d6@ '@lh  F 5@t ldFPl l4ldh@ PD'L:\<(,"l l6<D'L:\<(,"l 6<&:\<(L]u5<A':\<(L" 6< lr ,l<p :Ll)<:L,(]u5,h2<:L,"l   l5, pp,l\, aP zzz@T /ppp@X /@\  rrr  @`1/K;[@d1+@h  @l1'  W    W    \$x! Qxoh%! 5hC $$ xh\$x! Qxoh%! 5h$$ xh\$x! Qxoh%! 5h$$ xh\$x! Qxoh%! 5h$$ xhp8x! Qxoh%! 5hx! x xF8$ xhp8x! Qxoh%! 5hx! x x8$ xhp8x! Qxoh%! 5hx! x x8$ xh@!:h%x$ `x DxKx! |c4%cD%fh%QxoT%d$ `d @d5Tx! x xC$x! x $Td! |d T4)dx6$T!:h %x$ `x Dx;3'':D N$$@:h NTT 6T$x$ `x (x@$ $xdT$@!:h%x$ `x DxKx! |c4%cD%fh%QxoT%d$ `d @d5Tx! x xC$x! x $Td! |d T4)dx6$T!:h %x$ `x Dx;3'':D N$$@:h NTT 6T$x$ `x (x@$ $xdT$LLLLLHH\\TPLH4$rU  l 1Y11#A3A1 4i31l2Yl l@41!!@81!/@<QY2vvv@@ !@D q/@H1|||I@LI  @P zzz@T /ppp@X /@\  rrr @`1/@d1+@h qi@l1' WW\$x! Qxoh%! 5h$$ xh\$K;[x! Qxoh%! 5h$$ xh\$x! Qxoh%! 5h$$ xh\$x! Qxoh%! 5h$$ xhp8x! Qxoh%! 5hx! x x8$ xhp8x! Qxoh%! 5hx! x x8$ xhp8x! Qxoh%! 5hx! x x8$ xh@!:h%x$ `x DxKx! |c4%cD%fh%QxoT%d$ `d @d5Tx! x xC$x! x $Td! |d T4)dx6$T!:h %x$ `x Dx;3'':D N$$@:h NTT 6T$x$ `x (x@$ $xdT$@!:h%x$ `x DxKx! |c4%cD%fh%QxoT%d$ `d @d5Tx! x xC$x! x $Td! |d T4)dx6$T!:h %x$ `x Dx;3'':D N$$@:h NTT 6T$x$ `x (x@$ $xdT$LLLLLHH\\ 0 __SRP_f`n __SRP_10J__SRP_11__SRP_12rU x$` $A`8`X !1&&**8`\ !1&&**8`` !1&&**$A`$`$`$`n$@D aa!rrr@H ppp@L ay!ttt@P a!vvv@T a!xxx@X a!zzz@\ a!|||@`1"@d@h19"@K;[l1~~~@p ai"@t1"@7'':@N00$:`NPP^pz6P0 kz9$'`%$ ` 7(%'%( %(@%(`%$ ` 4<'%' %'@%:`%$ ` `W F %:@%:`%$ T $  L  $ ,)T @(t,P08X xh\$x! Qxoh%! \5h$$ xh\$x! Qxoh%! \5h$$ xh8K!:h%x$ `x DxJx! T'4%cD%ch%QxoT%d$ `d @d5T!:h%x$ `x Dx3'':DN$$:hNTT 6T$x$ `x (x rI$ $xdT$p!:h%x$ `x DxJx! T'4%cD%ch%QxoT%d$ `d @d5THp$ xdTLLLLLH\\ $(rU Y1!my6ImstForm_Technique 3_(drug form used by macro version)Form_Technique 3_(drug form used by macro version)Form_TEchnique 4 macro version-RuntimeForm_TEchnique 4 macro version-RuntimeReport_Patients_saveasreportReport_Patients_saveasreportsplit namesplit namesplit addresssplit addressForm_front1Form_front1it namesplit addressspl@4 @8 ppp@<1arrr@@1yvvv@D zzzgd0+:h%x$ `x ,x0$ x4X a!vvv@T a!xxx@X a!zzz@\ a!|||@`1"@d@h19"@l1~~~@p ai"@t1"@7'':@N00$:`NPP^pz6P0 kz9$'`%$ ` 7(%'%( %(@%(`%$ ` 4<'%' %'@%:`%$ ` `W F %:@%K;[:`%$ T $  L  $ ,) @(t,P08X (xTPLHrU P(`8!&ny6L9F@4 @8 ppp@<1arrr@@1yvvv@D zzzgd0+:h%x$ `x ,x0$ x4X@P19(@TIyWd0)'h%x$ `x ,x0$ xl $'h%x$ `x x*'X%:h%x$ `x xQL:X%PT:h%x$ Tx $T LP $ L )xTPLyT:h%x Lx $ QTo$%4:8%HL:X%P$ TP $L LH $ 4,) xPLH45$h $ (xTPLH4$l $'h%x$ `x x*'X%:h%x$ `x xQL:X%PT:h%x$ Tx $T LP $ L )xTPLyT:h%x Lx $ QTo$%4:8%HL:X%P$ TP $L LH $ 4,) xPLH45$h $ (xTPLH4$DTTHrU~| );qPNAO PlJ cF( kJP; JdF 41hpJ8lhF4 $ $(]46$4#P;/8lhF4 $ $(]u6$\lhF4 $ $("hM@  `#kJP;/6$X $ 'lhF4$("hM@ `1h6 $ kJpJ lhkJP; kJ+''':4N$$ 6$4"PFlX@lP h$$k@P19(@TIyWd0)'h%x$ `x ,x0$ xl $'h%x$ `x x*'X%:h%x$ `x xQL:X%PT:h%x$ Tx $T LP $ L )xTPLyT:h%x Lx $ QTo$%4:8%HL:X%P$ TP $L LH $ 4,) xPLH45$h $ (xTPLH4$l $'h%x$ `x x*'X%:h%x$ `x xQL:X%PT:h%x$ Tx $T LP $ L )xTPLyT:h%x Lx $ K;[QTo$%4:8%HL:X%P$ TP $L LH $ 4,) xPLH45$h $ (xTPLH4$DTTHrU ,`//nA3__SRP_13f __SRP_14$__SRP_154J__SRP_16V      !"#%&'()*+,-./012356789:;<=>?@ABCDEFGHIJKLMNOPQRSTUWXYZ[\]^_`abcdefghiklmnopqrstuvwxyz{|}~A1 4i31L2YLIE@41!!@81!/@<QY2vvv@@ !@D q/@H1|||I@LI  @P zzz@T /ppp@X /@\  rrr @`1/@d1+@h  @l1' WW\$x! Qxoh%! 5h:$$ xh\$x! Qxoh%! 5hA$$ xh\$x! Qxoh%! 5ha$$ xh\$x! Qxoh%! 5hc$$ xhp8x! Qxoh%! 5hx! x x8$ xhp8x! Qxoh%! 5hx! x x8$ xhp8x! Qxoh%! 5hx! x x8$ xh@!:h%x$ `x DxKx! |c4%cD%fh%QxoT%d$ `d @d5Tx! x xC$x! x $Td! |d T4)dx6$T!:K;[h %x$ `x Dx;3'':D N$$@:h NTT 6T$x$ `x (x@$ $xdT$@!:h%x$ `x DxKx! |c4%cD%fh%QxoT%d$ `d @d5Tx! x xC$x! x $Td! |d T4)dx6$T!:h %x$ `x Dx;3'':D N$$@:h NTT 6T$x$ `x (x@$ $xdT$LLLLLHH\\%x$ `x DxrU~| );;aNNAO< :Pl P1hCdlhrlhq`'@l`lh  1h5@lh/ldF0hMP@@  @ `1d6@ '@lh  F 5@t ldFPl l4ldh@ PD'L:\<(,"l l6<D'L:\<(,"l 6<&:\<(L]u5<A':\<(L" 6< l ,l<p :Ll)<:L,(]u5,h2<:L,"l   l5, pp,l\, a|K7-'X%'h%xrU (`/(`/(`/n  !@8   @< !@@1 $@D aa!rrr@H ppp@L ay!ttt@P a!vvv@T a!xxx@X a!zzz@\ a!|||@`1"@d@h19"@l1~~~@p ai"@t1"@7'':@N00$:`NPP^pz6P0 kz9$'`%$ ` 7(%'%( %(@%(`%$ ` 4<'%' %'@%:`%$ ` `W F %:@%:`%$ T $  L  $ ,) @(t,P08X@h1rU HI Y1K;[ f fyf@4 a) rrr@ 8A i ||| @ <A  ~~~I@@  @D  @H ppp@L1Yxxx@P1yttt@TsWP  <'8%'H%'X%:h%x$ `x `xDP$ xd0)'h%x$ `x ,x0$ x8<Px (xrU `$` $A` n@4 @8 ppp@<1__SRP_17jz__SRP_18__SRP_19__SRP_1a!zarrr@@1yvvv@D zzzgd0+:h%x$ `x ,x0$ x4XI@ PA  @ TA )@X I@ \A i @` ppp@d rrr@h ttt@l1@p vvv@t1|||@x1K;[@|@11@1Q@1i@1@1@1W|K7-'X%'h%x$ `x Lx<''$'4T xx ,>TFD x6D4$ 4x|$ $TxD4$|K7-'X%'h%x$ `x Lx<''$'4T xx ,>TFD x6D4$ 4x|$ $TxD4$|K7-'X%'h%x$ `x Lx<''$'4T xx ,>TFD x6D4$ 4x|$ $TxD4$|K7-'X%'h%x$ `x Lx<''$'4T xx ,>TFD x6D4$ 4x|$ $TxD4$KA7((F%'8%(H%(X%(h%x$ `x 4x<'''$ xx ,>$F x6 >$ $$xHLPT\8x$rU $` $A` $` $` $` $A` rU x Y1A h Xq]IYh^)aIaa&)baaggig@41@81@<1@ @A  @ DA I@ HA  @ LA )@P I@ TA i @ XA ^I@\1_@` ppp@d rrr@h ttt@l1|||@p1@t11K;[@x1xxx@|1Q@ vvv@1i@ V@1@@1@ A 1\I@1@1@1@ A Y\ WWW|K7-'X%'h%x$ `x Lx<''$'4T xx ,>TFD x6D4$ 4x|$ $TxD4$|K7-'X%'h%x$ `x Lx<''$'4T xx ,>TFD x6D4$ 4x|$ $TxD4$|K7-'X%'h%x$ `x Lx<''$'4T xx ,>TFD x6D4$ 4x|$ $TxD4$|K7-'X%'h%x$ `x Lx<''$'4T xx ,>TFD x6D4$ 4x|$ $TxD4$KA7((F%'8%(H%(X%(h%x$ `x 4x<'''$ xx ,>$F x6 >$ $$xxK3)'h%x$ `x ,x<''$'Dd xx ,>dFT x6TD$ 0xx$ $dxTD$KACx/'D%'T%lxFd%t$ `t t<''' @ tt ,>@F0 t60  >|(x$@t0 lKCx$lp$ \p 0 Qltp+cL%lxF\%p$ `p p5',%'<%'L%'\%p$ `p lp:(t X f\%>(F%p$ `p p5<'''( pp ,>(F p6 ,xt((plKO*tx$ \x , t d )xtx$ `x <x<'' '@p xx ,>pF` x6`@  L|$ (pxt`@ K< Cx*'D%'T%lxFd%t$ `t t<''' @ tt ,>@F0 t60  9|(x$@t0 !t  tWd 4xt5dO:0P:T%t L t $QPod@ @ %xt6d@ xWd%  5dl(x tPd@ @DHK;[LT X T 6T$x$ `x (x@$ $xdT$@!:h%x$ `x DxKx! |c4%cD%fh%QxoT%d$ `d @d5Tx! x xC$x! $` $`$`$A ` $ `nh%x$ `x Lx<''$'4T xx ,>TFD x6D4$ 4x|$ $TxD4$|K7-'X%'h%x$ `x Lx<''$'4T xx ,>TFD x6D4$ 4x|$ $TxD4$|K7-'X%'h%x$ `x Lx<''$'4T xx ,>TFD x6D4$ 4x|$ $TxD4$|K7-'X%'h%x$ `x Lx<''$'4T xx ,>TFD x6D4$ 4x|$ $TxD4$KA7((F%'8%(H%(X%(h%x$ `x 4x<'''$ xx ,>$F x6 >$ $$x8rU ah)Qhhh@4 91xxx@8QY|||@< y@@@D ppp@H 9ttt@ Lyrrr pCx*dt! |t d(T]3t5dC lx*1xQ lx*1x lx*1xlxt! t tt! t t=8(xtdDLX@X I@ \A i @` ppp@d rrr@h ttt@l1@p vvv@t1|||@x1@|@11@1Q@1i@1K;[@1@1W|K7-'X%'h%x$ `x Lx<''$'4T xx ,>TFD x6D4$ 4x|$ $TxD4$|K7-'X%'h%x$ `x Lx<''$'4T xx ,>TFD x6D4$ 4x|$ $TxD4$|K7-'X%'h%x$ `x Lx<''$'4T xx ,>TFD x6D4$ 4x|$ $TxD4$|K7-'X%'h%x$ `x Lx<''$'4T xx ,>TFD x6D4$ 4x|$ $TxD4$KA7((F%'8%(H%(X%(h%x$ `x 4x<'''$ xx ,>$F x6 >$ $$xHLPT\8rU X$`n L4RHHKBZKXNLOEZ_SLEQOFFYMIZPEH:: TGHKBZKXNLOEZ_SLEQOFFYMIZPEH:8;TeUHHKBZKXNLOEZ_SLEQOFFYMIZPEH:<DZGHKBZKXNLOEZ_SLEQOFFYMIZPEH::#p     !"#$%&'()*+,./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~LE@4 a) rrr@ 8A i ||| @ <A  ~~~I@@  @D  @H ppp@L1yttt@P1Yxxx@TsWP  <'8%'H%'X%:h%x$ `x `xrDP$ xd0)'h%x$ `x ,xc0$ x8<PrU h1#Y1!i1 Iih@4 qi@8  @< K;[vvv@@  rrrI@D  !@H1!!@L A!ppp@P aa!xxx@T ay!zzz@X a!|||@\ a!~~~@` a!@d a!@h !@l1"@p19"@t ai"@x1"@|1@ W\$x! Qxoh%! 5h$$ xhhx! x xJ'4%'D%'T%x! |Qxod%t$ `t @t5dHh$ xtd@PTxD4$|K7-'rU $`$A`n @);HaKIKAqAPPQ1QQ)R)SiRS TOTqTUU J*!K=@4 a=~~~@8 +rrr@ <A <zzz @@ <|||@ DA 1+ttt@H ppp@L@ PA Y+vvv@ TA +xxxmWK^+'''<:lN\\ 6\<)'l%$ ` ,<'''<  ,>F\ 6\< [$ $\<xK3)'h%x$ `x ,x<''$'Dd xx ,>dFT x6TD$ 0xx$ $dxTD$xK3)'h%x$ `x ,x<''$'Dd xx ,>dFT x6TD$ 0xx$ $dxTD$0   xK3)'h%x$ `x ,x<''$'Dd xx ,>dFT x6TD$ 0xx$  $dxK;[TD$DT<8 0 tpx0 @ 0   DT<8xK3)'h%x$ `x ,x<''$'Dd xx ,>dFT x6TD$ 0xx$ $dxTD$DT<8DT<8@rU ,Y1AU TTqTaKUYk X j*jj@ 4A 1+ttt@ 8A Y+vvv@ <A +xxx@@ ppp@D <|||@H !k@L@P a=~~~@T +rrr@ XA <zzz @ \A WI@` qWvWWK^+'''<:lN\\ 6\<)'l%$ ` ,<'''<  ,>F\ 6\< [$ $\<xK3)'h%x$ `x ,x<''$'Dd xx ,>dFT x6TD$ 0xx$ $dxTD$xK3)'h%x$ `x ,x<''$'Dd xx ,>dFT x6TD$ 0xx$ $dxTD$LKCx3'' :P N@@xM`@^1p6@ lp3Z@ :` N  @ ''':P  6@ +''' :`N@@ 6@ )'`%$ ` ,<'''   ,>F@ 6@  L0tpx0 @ xK3)'h%x$ `x ,x<''$'Dd xx ,>dFT x6TD$ 0xx$ $dxTD$KRCx@'0%ltF@%'P%lxF`%p$ `p `p<''' , pp ,>,F p6  O,tx$,p 4<X\0K;[LT X rU l$`$A`$` $` __SRP_1f__SRP_20$&__SRP_21__SRP_22%)r$` $A` n@< vvv@@  rrrI@D  !@H1!!@L A!ppp@P aa!xxx@T ay!zzz@X a!|||@\ a!~~~@` a!@d a!@h !@l1"@p19"@t ai"@x1"@|1@ W\$x! Qxoh%! 5h$$ xhhx! x xJ'4%'D%'T%x! |Qxod%t$ `t @t5dHh$ xtd@PA i rU !8I)5Y1 l4ll@4 a) rrr@ 8A i |||  @ <A  ~~~I @@  @D  @H ppp@L1yttt@P1Yxxx@Ts W P  <'8%'H%'X%:h%x$ `x `xDP$ xd0)'h%x$ `x ,xK;[0$ x8<PrU `$ ` $A ` n qM7M)G@4 Y'ppp@81q'rrr@< a'zzz@@1 vvv@ DA '||| !@H '~~~@L1 (@P19(@TI!!y!W!!d0)'h%x$ `x ,xn0$ xl $'h%x$ `x x*'X%:h%x$ `x xQL:X%PT:h%x$ Tx $T LP $ L )xTPLyT:h%x Lx $ QTo$%4:8%HL:X%P$ TP $L LH $ 4,) xPLH45$h $ (xTPLH4$l $'h%x$ `x x*'X%:h%x$ `x xQL:X%PT:h%x$ Tx $T LP $ L )xTPLyT:h%x Lx $ QTo$%4:8%HL:X%P$ TP $L LH $ 4,) xPLH45$h $ (xTPLH4$DTTHrU #aqm)Qm18mqm@4 98ttt@8 98xxx@ <y8rrr "@@QY9|||@DQY)9@H y@L@P pppy"Cx*dt! |t d(T]3t5dC lx*1xQ lx*1x lx*1xlxt! t tt! t t8(xtdD<XrU "\$"`nA111K. LD@41   ) * !"#$%&'(,+.-5/012346798:;<>=A@QBCDEFGHIJKLOMPfVRSTUWXY[Z\e_`abcd]fghijkmnopqrstuvwxyz{|}~ues from a combo box:ComboK;[ 4_(treatment subform)6Combo 4_(patient_subform)`Combo 4- link patients name to patient subformTCombo 4- Link drugs to treatment Subform&Combo 3 - DLookup,Combo 2 - AutoLookup2Combo 1 - Storing an IDfront front1!!@81!/@<QYI/@@ !@D q/@H1vvvI#@LI# ### #@P ppp@T /rrr@X /ttt@\  ##@`1/@d1+@h  @l1'#W####W###\$x! Qxoh%! \5h$$ xh\$x! Qxoh%! \5h|$$ xh\$x! Qxoh%! \5h$$ xh\$x! Qxoh%! \5h$$ xh\$x! Qxoh%! \5h$$ xh\$x! Qxoh%! \5h$$ xh8K!:h%x$ `x DxJx! T'4%cD%ch%QxoT%d$ `d @d5T!:h%x$ `x Dx3'':DN$$:hNTT 6T$x$ `x (x r$ $xdT$p!:h%x$ `x DxJx! T'4%cD%ch%QxoT%d$ `d @d5THp$ xdTLLLLLH\\ $ ` ,rU %Y1An99nm@4:AA:@8Y:appp@<Y:avvv@@Y:aI8$W$$$$|K7-'X%'h%x$ `x Lx<''$'4T xx ,>TFD x6D4$ 4x|$ $TxD4$|K7-'X%'h%x$ `x Lx<''$'4T xx ,>TFD x6D4$ 4K;[x|$ $TxD4$|K7-'X%'h%x$ `x Lx<''$'4T xx ,>TFD x6D4$ 4x|$ $TxD4$|K7-'X%'h%x$ `x Lx<''$'4T xx ,>TFD x6D4$ 4x|$ $TxD4$KA7((F%'8%(H%(X%(h%x$ `x 4x<'''$ xx ,>$F x6 >$ $$x8rU $L$$`$A$`$$`$$`$$` n@81q'rrr@< a'zzz@@1 vvv@ DA '||| %@H '~~~@L1 (@P19(@TI%%y%W%%d0)'h%x$ `x ,xo0$ xl $'h%x$ `x x*'X%:h%x$ `x xQL:X%PT:h%x$ Tx $T LP $ L )xTPLyT:h%x Lx $ QTo$%4:8%HL:X%P$ TP $L LH $ 4,) xPLH45$ih $ (xTPLH4$l $'h%x$ `x x*'X%:h%x$ `x xQL:X%PT:h%x$ Tx $T LP $ L )xTPLyT:h%x Lx $ QTo$%4:8%HL:X%P$ TP $L LH $ 4,) x12/AIHKBZKXNLOEZ_SLEQOFFYMIZPEH: BGHKBZKXNLOEZ_SLEQOFFYMIZPEH:'3~" CHHKBZKXNLOEZ_SLEQOFFYMIZPEH:NEGHKBZKXNLOEZ_SLEQOFFYMIZPEH:.1oWK;[      !"#$%&'()*+,-./012456789:;<=>?@ABCDEFGHIJKLMNOPQTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}'__SRP_1b__SRP_1c " __SRP_1d-b __SRP_1e-WF __SRP_23n __SRP_24(+__SRP_253_VBA_PROJECT*,@9      !"#$%&()*+,-./0123456789;<=>?@ABCDEFGHIJKLMNOPQRSUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~dir> __SRP_00?__SRP_1$__SRP_2 0>   !"#R%&'()*+,-./123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`bcdefghijklmnopqrstuvwxyz{|}~0* pHd treatmenDt0@ = p A J<  DAO>BDAO *\G{00025E04-:0C  0046}#3.5#0#\\CSE-NT1\APPS32\MS\`\dao2535.tlb#Microsoft  2.5/ Compatibility LibraryBOstdole>`stdoleXf\X043UQ-X2.0XC:\WINNT\SystemXSTDOLE2.TLB# AutomJLon/VBIDE> VBIDjECCE157C5.3CProgram Files\BmonGKShared\VBA6E6EXT.O+G Visual Basic for Applic1s ExtxensEY+E1@Form_Technique 1 module bversion- Dialog BoxGb frm_TgchniquU@  oouEo as@cP vrBoU@ -@D@a@ og@BxBGHKBZKXNLOEZ_SLEQOFFYMIZPEH28AGH KhZ@XNLOjZ&SEQFFYMqZP@zHB@+*{ K;[,IR"(B+B? N_(Tdm used by ma d(box)G~(_TrU&aamn Tf .sd&bymaTc o`d*b`xe)D,E^,nE_,_,+a`_,@mB,PZ`sG@_8UA"iD"sHH)JFEGE4mFlRuntimeGW k48m !d?qjR`Ei qe#K#K###tQ#=#j#2 -@nd Record`iing wizardGV>g2$F `n REcGUaeunw`zfrN$N$$bo2o1,QZ3N$Not inustGvXZ3$pYNUPtpiZ Uit%QYQEYYYY,733_(drugYn8 YAFB"mm3Pe("r5jXnXo;oWTTmm0m 88 front1GffeE1T IVXHLREJJCHDPDMOPINXMDGVLHNUDzI0;XLp8ETJCDNDU@yOpI{XDVP&HOz IMWi OWoE 2x6WFi0Fr2FoEet{aE vGA{GcEZZv2WOAYG00_j[jb`V_UZ'YCHFz%F2(Q1I"Y1 /&*@&&݀G?;1Y'o&C%F?%Fp???HAqm8?D=_(6YϲWY;tIeP&tRAJϲɲ9Z,I_\I_OEZ_SLQOFYMIBPHH1q$P, Hc2"( +  split addre ssG$plit adresnAIHKBZKXNLOEZ_SLEQOFFYMIZPEPH28AAHKBKXLN3M f!1c2Form_Technique 3_(drug f used by macro version) Gkor mTqch"n|qu 3 (ugTf sdQ bymcU$ov ri1n)OH1OH OMj&NEN4 J-RuntimeGpKEK4ZB-RMni@\eEREREYEEAlReport_Patients_saveasrUBG¹R@zp„tU@Pt@et_aAa@ U^>U?IB/y1 Bna>(ZnmcX~Xb lamY not in listGVFB8rU~~~~~~~~~~~~g    A  (PLH45$0h $ (xTPLH4$DTTHd Uja]r :{-@^ni? Bs\$L$L$$M$`7 $<`, 3 { ExMEam  *\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*\G{4AFFC9A0-5F99-101B-AF4E-00AA003F0F07}#9.0#0#C:\Program Files\Office2000\Office\msacc9.olb#Microsoft Access 9.0 Object Library*\G{00025E04-0000-0000-C000-000000000046}#3.5#0#\\CSE-NT1\APPS32\MSAPPS\DAO\dao2535.tlb#Microsoft DAO 2.5/3.5 Compatibility Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINNT\System32\STDOLE2.TLB#OLE AutomationZ*\G{0002E157-0000-0000-C000-000000000046}#5.3#0#C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6EXT.OLB#Microsoft Visual Basic for Applications Extensibility 5.3 A     E8BGHKBZKXNLOEZ_SLEQOFFYMIZPEH0841c695ffbForm_Technique 1!K;[ module basic version- Dialog Box 8EGHKBZKXNLOEZ_SLEQOFFYMIZPEH0:41c695ff!~Form_Technique 1_(Treatment form used by macro dialog box form)a8HGHKBZKXNLOEZ_SLEQOFFYMIZPEH0541cfe9e9)Form_PatientsJF0)8KGHKBZKXNLOEZ_SLEQOFFYMIZPEH0<41c695ffaPForm_Technique 4 module version- Runtime=FHQ8NGHKBZKXNLOEZ_SLEQOFFYMIZPEH0I41c696bcVForm_Technique 2 - Find Record using wizard2F`8QGHKBZKXNLOEZ_SLEQOFFYMIZPEH0>41c695ff{XForm_Technique 3 module version- Not in List7Fx 8TGHKBZKXNLOEZ_SLEQOFFYMIZPEH0@41c695fffForm_Technique 3_(drug form used by module version)8F 8IVXHLREJJCHDPDMOPINXMDGVLHNH0:41cff704Form_front1i 8ZGHKBZKXNLOEZ_SLEQOFFYMIZPEH0A41cff70bVForm_Technique 2 macro version- Find record8CHHKBZKXNLOEZ_SLEQOFFYMIZPEH0B41cff70bdForm_Technique 2 module basic version- Find Record 18FHHKBZKXNLOEZ_SLEQOFFYMIZPEH0B41c695ffTForm_Technique 1 macro version- Dialog box q 8IHHKBZKXNLOEZ_SLEQOFFYMIZPEH0D41c695ffForm_Technique 1_(treatment form used by module dialog box form)c2q8AIHKBZKXNLOEZ_SLEQOFFYMIZPEH0F41cff70bsplit addressM 8OHHKBZKXNLOEZ_SLEQOFFYMIZPEH0f41adf86cdForm_Technique 3_(drug form used by macro version)j8 8RHHKBZKXNLOEZ_SLEQOFFYMIZPEH0G41cff70bLForm_TEchnique 4 macro version-RuntimePY8UHHKBZKXNLOEZ_SLEQOFFYMIZPEH0F41c696008Report_Patients_saveasreportyh8XHHKBZKXNLOEZ_SLEQOFFYMIZPEH0E41cff70bsplit name 8LHHKBZKXNLOEZ_SLEQOFFYMIZPEH0l41adf86cVForm_Technique 3 macro version- not in list  h x`H80Ʌ&`U(Ʌ&`U(Ʌ&`U(Ʌ&`U(Ʌ&`U(Ʌ&`U(Ʌ&`U(d8ҸɅ&`U(Ʌ&`U(Ʌ&`U(Ʌ&"K;[`U(tFƫ@֨PɅ&`U(Ʌ&`U(Ʌ&`U(Ʌ&`U( Ʌ&`U(HX7-:C*ffAccessand As=DimGEndRFalse_IfslinexLongnameNotorThenTrueVBAWin16~Win32MacVBA6# treatmentDAOutility1J1Form_Technique 1 module basic version- Dialog Box _Evaluate Button4_ClickkVisibleDoCmdƧOpenFormacFormDS Button5_Click)?Form_Technique 1_(Treatment form used by macro dialog box form) Form_UnloadCancelA_FORM| Form_Patients|Button42_Click+Err_Button42_Click GoToRecordM6A_FIRSTExit_Button42_Click%MsgBoxRButton43_Click?sErr_Button43_Click A_NEXTUExit_Button43_Click5:Button44_ClickOErr_Button44_Click\ A_PREVIOUSu Exit_Button44_ClickƁButton45_ClickErr_Button45_ClicklJA_LASTExit_Button45_ClickֹCommandfind_Click9Err_Commandfind_Click/ DoMenuItem&e acFormBar acRecordsMenu6 acMenuVer70XExit_Commandfind_ClickErro Description (Form_Technique 4 module version- Runtime9optionUS_AfterUpdateuC SQLSourceʟoptionUSEj PatientID! RowSource2RequeryForm_Technique 2 - Find Record Form_Current selectPatientselectpatient_AfterUpdateSetFocus FindRecordxe,Form_Technique 3 module version- Not in ListdrugID_NotInListNewDatax_Response NewCategorya TruncateNameGTitle~ MsgDialogFSave A_FORMBARjA_EDITŗ A_UNDOFIELD- A_MENU_VER20A_NORMAL3QA_ADD@Forms.Technique 3_(drug form used by module version) Drug name=BDATA_ERRCONTINUE3Form_Technique 3_(drug form used by module version)Button23_ClickqForm_AfterUpdate SelectObjects^'Technique 3 module version- Not in List)DRugID Form_frontM  Button1_ClickErr_Button1_ClickTExit_Button1_Click Commandexit_ClickErr_Commandexit_ClickXExit_Commandexit_ClickCommandformexit_ClickErr_Commandformexit_Click.Exit_Commandformexit_ClickL~Commandexitform2_ClickErr_Commandexitform2_ClickjExit_Commandexitform2_Click9}+Form_Technique 2 macro version- Find recordForm_BeforeUpdateP-Form_MouseDownnButtonShiftXoYlForm_MouseMovea Form_MouseUpPatientID_AfterUpdateQPatientID_ChangeFormFindRecord_ErrK GoToControl PFormFindRecord_EndJac}\ CancelEventURselectpatient_Changeҧ2Form_Technique 2 module basic version- Find Record~E no_treatments }acEntire acSearchAllA acCurrentEvbOKOnly vbInID="{C9DEEC3F-2685-11D4-80D6-006008552884}" DocClass=Form_Technique 1 module basic version- Dialog Box/&H00000000 DocClass=Form_Technique 1_(Treatment form used by macro dialog box form)/&H00000000 DocClass=Form_Patients/&H00000000 DocClass=Form_Technique 4 module version- Runtime/&H00000000 DocClass=Form_Technique 2 - Find Record using wizard/&H00000000 DocClass=Form_Technique 3 module version- Not in List/&H00000000 DocClass=Form_Technique 3_(drug form used by module version)/&H00000000 DocClass=FL)oW%"12*+,./0123M56789:;<=>?@ABCDEFGHIJKXNOPQRSTUVYZ[\]^_`abcdefghijklntopqr#K;[suvwz{orm_Technique 2 macro version- Find record/&H00000000 DocClass=Form_Technique 2 module basic version- Find Record/&H00000000 DocClass=Form_Technique 1 macro version- Dialog box/&H00000000 DocClass=Form_Technique 1_(treatment form used by module dialog box form)/&H00000000 DocClass=Form_Technique 3 macro version- not in list/&H00000000 DocClass=Form_Technique 3_(drug form used by macro version)/&H00000000 DocClass=Form_TEchnique 4 macro version-Runtime/&H00000000 DocClass=Report_Patients_saveasreport/&H00000000 Module=split name Module=split address DocClass=Form_front/&H00000000 Name="treatment" HelpContextID="0" VersionCompatible32="393222000" CMG="1517A43D6C3670367036703670" DPB="0A08BB4CB14DB14DB1" GC="FFFD4E5BB6A5AAA6AAA655" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] Form_Technique 1 module basic version- Dialog Box=0, 0, 0, 0, C Form_Technique 1_(Treatment form used by macro dialog box form)=0, 0, 0, 0, C Form_Patients=44, 44, 672, 503, Form_Technique 4 module version- Runtime=0, 0, 0, 0, C Form_Technique 2 - Find Record using wizard=0, 0, 0, 0, C Form_Technique 3 module version- Not in List=0, 0, 0, 0, C Form_Technique 3_(drug form used by module version)=0, 0, 0, 0, C Form_Technique 2 macro version- Find record=154, 154, 782, 613, Form_Technique 2 module basic version- Find Record=154, 154, 266, 492, Form_Technique 1 macro version- Dialog box=0, 0, 0, 0, C Form_Technique 1_(treatment form used by module dialog box۸.jHo̍xME SLS S< <$<<<<<(<,<0<4<8<<<N0{54251E45-0934-11D3-80A5-006008552884} @ @`8@  `h@ %@ % %@@@@@@@xpx @h @X @H @8 @xx @h @H@@`h  (x @h (@pA" H @P @$K;[N< 0 "8 (@ )h x AHide the dialog but leave it open for the other Treatment form to:access. Me refers to the form in which the code is running (9Then open the Treatment form in datasheet view (acformds);Technique 1_(Treatment form used by module dialog box form)  B@o@"Close this dialog if user cancels. B@BoxAttribute VB_Name = "Form_Technique 1 module basic version- Dialog Box" " Bas0{54251E45-0934-11@D3-80A06008552884} >GlobalSpacI False dCr eatab= Tru PredeclaIdՁ"Expose/Templat@eDerivCustomizD $P Sub Button4_Click() 'Hide the d leave it open fororqwment m to#access. Me xref m in whichco9is running Me.VisiRs/(Th "A)T[d_sheet view (acAds8DoCmd.O2I "_(LuabyEDox:@)", acADSOEndAVZ5ZCl@y?>if @r cancels.B,B Lrse_LabelDosageK| Dos8d[E form)=0, 0, 0, 0, C Form_Technique 3 macro version- not in list=0, 0, 0, 0, C Form_Technique 3_(drug form used by macro version)=0, 0, 0, 0, C Form_TEchnique 4 macro version-Runtime=176, 176, 804, 635, Report_Patients_saveasreport=154, 193, 782, 652, C split name=0, 0, 628, 459, split address=22, 22, 650, 481, Z Form_front=0, 0, 0, 0, C split address=22, 22, 650, 481,Form_Technique 1 module basic version- Dialog BoxForm_Technique 1 module basic version- Dialog BoxForm_Technique 1_(Treatment form used by macro dialog box form)Form_Technique 1_(Treatment form used by macro dialog box form)Form_PatientsForm_PatientsForm_Technique 4 module version- RuntimeForm_Technique 4 module version- RuntimeForm_Technique 2 - Find Record using wizardForm_Technique 2 - Find Record using wizardForm_Technique 3 module version- Not in ListForm_Technique 3 module version- Not in ListForm_Technique 3_(drug form used by module version)Form_Technique 3_(drug form used by module version)Form_Technique 2 macro version- Find recordForm_Technique 2 macro version- Find recordForm_Technique 2 module basic version- Find RecordForm_Technique 2 module basic version- Find RecordForm_Technique 1 macro version- Dialog boxForm_Technique 1 macro version- Dialog boxForm_Technique 1_(treatment form used by module dialog box form)Form_Technique 1_(treatment form used by module dialog box form)Form_Technique 3 macro version- not in listForm_Technique 3 macro version- not in listForm_Technique 3_(drug form used by macro version)Form_Technique 3_(drug form used by macro version)Form_TEchnique 4 macro version-RuntimeForm_TEchnique 4 macro version-RuntimeReport_Patients_saveasreportReport_Patients_saveasreportsplit namesplit namesplit addresssplit addressForm_frontForm_frontit namesplit addressspBlob lTypeInfoF %K;[ PropData$%E IVXHLREJJCHDPDMOPINXMDGVLHNH:     JI !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHNKLMORPQSXUgVWYiZ\]^_`bcde^hlamn~qstuvwxyz{|}~FHHKBZKXNLOEZ_SLEQOFFYMIZPEH: HGHKBZKXNLOEZ_SLEQOFFYMIZPEH:024&/IHHKBZKXNLOEZ_SLEQOFFYMIZPEH:@#KGHKBZKXNLOEZ_SLEQOFFYMIZPEH:/7  __SRP_23n __SRP_24(+__SRP_253_VBA_PROJECT*,y>9p*jTAIHKBZKXNLOEZ_SLEQOFFYMIZPEH: BGHKBZKXNLOEZ_SLEQOFFYMIZPEH:'3~" CHHKBZKXNLOEZ_SLEQOFFYMIZPEH:NEGHKBZKXNLOEZ_SLEQOFFYMIZPEH:.1dir: __SRP_0?__SRP_1$__SRP_2 0>   !"#R&K;[%&'()*+,-./123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`bcdefghijklmnopqrstuvwxyz{|}~      !"#$%&'()*+,-./012456789:;<=>?@ABCDEFGHIJKLMNOPQTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}'W)NCb׌~J%T4 `U(7s@~IXxME PSLS S<<<<<N0{54251E4A-0934-11D3-80A5-006008552884} (( "`h@@i$ `% %  % x h `` A 2 " 8 *@*+p  )Use database order for string comparisonslog bo#Close the dialog box when finished. &Technique 1 - Dialog Box B@BoXPAttribute VB_Name = "Form_Technique 1_(Treatment fl used by macro dialog box:)" " Bas0{54251E4A-0934-11D3-80A5-00600855 2884} >GlobalSpacIFalse d"CablTru PredecdlaId"EHxpok= /TemplateD0eriv~CustomizD$Option Comp@ Datab 'Udorder sng cisons P=A Sub Unload(Cancel As Integ(er) 'Cbli th2when finished. A @DoCmd. A_FORM, "!Ȁ - DCBoxh EndA"%x$ `x ,x<''$'Dformationn*Form_Technique 1 macro version- Dialog box@Form_Technique 1_(treatment form used by module dialog box form)d+Form_Technique 3 macro version- not in listނ2Form_Technique 3_(drug form used by macro version)+&Form_TEchnique 4 macro version-RuntimeEReport_Patients_saveasreport 0 split name get_initialsEfullnameОrest part_initialsX get_surname:reduce get_title& split addressu get_addressʎ fulladdresshU address_lineOk E V$F9/Yf`U([v=BIxME SLS S< <$<<<<<(<,<0<4<8<<<'K;[N0{66D5DFF0-DFC6-11D3-80CB-006008552884}  @`8@  `h@ %@ % %@@@@@@XHpxHpx @h @X @H @8 XXH(x x h p@xA" H @P @L< 0 "8 (@ )h x AHide the dialog but leave it open for the other Treatment form to:access. Me refers to the form in which the code is running (9Then open the Treatment form in datasheet view (acformds):Technique 1_(Treatment form used by macro dialog box form)  B@B@lo@"Close this dialog if user cancels. B@Bno toxAttribute VB_Name = "Form_Technique 1 macro version- Dialog box"D Bas0{66D5DFF0-DFC6-11D3-80CB-0060085@52884} |G lobalSpacIFalse dCreatab"lTru Pr@edeclaId"Expose_TemplateDerivCustomi6zD$P Sub Button4_Click() 'Hide the dut leave it open forEor Twment m to#access. Me ref m in whichco9is running Me.V8isiR/(Th_ "A)d_sheet vie w (acAds8DoCmd.&O2 "H_(eLuabyDDox:)", acDSAOEndVˁY5YCly?#=if r cancels.A+B L< <$<<<8tkEc2 () EJFI.˝B6A߉>W*@lm l6xME, @[LS S<"`@  F`@/ NX`@>h@%@,%(,%@@@ `@(K;[L `@Z`Xx h`@j`Xx t` % `@~  `@ `Xx X `@ `x  `   `  8@hXX  H\44 0x @h @X XT @D @4 @$ @ p X \4  x @h @X XT @D @4 @$ @   ` \4@ x @h @X 8 XT @D @4 @$ @   \4    Xx @h @X T D @4 @$ @  X\4x @h @X @H @8 @( p$ @ @ @ @ ` 4x @h @d @T @D @4 8$ @  \4t @d @T @D p@ @0 @ @ @ 0H\4p @l @\ @L @< @, p( @ @ @ @ )K;[@\4x @t p @` @P @ @0 0 @  4t @d @T @D p@ @0 @ @ @ @xt @d @T (P @@ @0  @  @@2 " 8@ -H `h p<  " -  <x  "  -  ( 0<8 @ " HP -X px <  "  7  < " 08  )@ PX `<hx "   /  < "   (0 8$H+X 5p:  < "  *   < 0 8" HP X `*  < "  0 !,O(Xh " x    "   (0 8@P Xh)Use database order for string comparisonsnt ,8 0 B@.o d2|, \!^A@42poh@8X : B@.<8|08( \!^A@4<o@ B B@.D|@DoH J B@.*K;[Lx|pHh \!^A@4LPoHP8 T V X B@RZ|P \!^A@4Zo \!^A@4 X  B@B| \!^A@4o]Labels Patients'X X \ B@Z@|80 \!^A@4o]0]HPatients'X &!.  X B@ B@  ! B@| \!^A@4ho`Xh &!(B@v B@*RDT| \!^A@4pxoph8]conditional macro'X X B@| \!^A@4o* Find the record that matches the control.]@ !!.[PatientID] = "$ B@ ! (o0(Xh  B@.H|@8 \!^A@4 o  T  X B@R T  X B@R|  \!^A@4o+Attribute VB_Name = "Form_Patien ts" Bas0{54251E27-0934-11D3-80A5-006008552884} |Global!SpacFalse dCreatablTru Predecl2aId"Ex0pose_TemplateDerivCust0omizD$Option Com2p@ DT 'Udorder for s!ng cisons P=A Sub Button42_Click() On ErrGoTo_  DoCmDd.Rec: ,A_FIRSBTExit :O B rr M sgBoxA .D`escri?R8esuP EndE;3;(;NEX;ߛ; ;;4;;PREVIOU~S _< _ 0 _!Z5_4d^LAZdmandf8ind9DoMenuItem acBar,@C{s, 2!|acVer70"4 "_#C#g#}cl#d#CAndlaxbelabi"mDocBAs SBstErL s "OpenReport Iview #  h_Qrcibqprint_ &ruDoMgMy17 qe|Set T= Screen.ActPSelectObjP=TQ,iS04ntOut/ L1,.n, TwqOO_u XoBd5$uO?'E-ousControl.FocuwF@ZNexpKE\//(C d5dz?D*/.CBECcondi al m0acrogRunMA'*1B   T  bo59_A@fterUp eA'  the rthattchesr`"3rs!@:>p= Me.xhet.inɑrs.First "[tBID]! &!\(Me![; 9 ]@aBookmark@O4=adr?PVq D acNewp a9OIm__X oeq1dTteE11EditS8^6? y >   IFalse d"CablTru PredecdlaId"EHxpok= /TemplateD0eriv~CustomizD$Option Comp@ Datab 'Udorder sng cisons P=A Sub Unload(Cancel As Integ(er) 'Cbli th2when finish     !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~$VdC[-%f`U(>|8@0J(xME PSLS S<<<<<N0{66D5E001-DFC6-11D3-80CB-006008552884} 08 "`h@@i$ `+K;[% % % 1 \Bx h ``(A 2 " 8 *@*+p  )Use database order for string comparisons#Close the dialog box when finished. &Technique 1 - Dialog Box B@BoXPAttribute VB_Name = "Form_Technique 1_(treatment fl used by module dialo g box<)"D Bas0{66D5E001-DFC6-11D3-80CB-0060085@52884} >G lobalSpacIFalse% dCab= Tru PredeclaId!"Expol= /TemplateDerivCustomizD$Option Comp@ Datab ' Udorder sng cisons 0 P=A Sub Unload(Cancel As Integer) 'Cli thwhen finished. A DoCmd. A_FORM, B" - DyBoxh EndA"$8+KE=FnD{DTOoS^%T4 `U(:CEpjsxME P[LS S<<<<<N0{54251E5E-0934-11D3-80A5-006008552884} (` b`D@`dxB@.X% %` % @ P   8t @d  @T D oc XX A"  v 2 *   :  F`    ]@mSELECT DISTINCTROW patients.[patientID], [given Name] & ' ' & [family Name] AS Name FROM patients WHERE town 'd+ Set criteria to match option group choice. f0 d = 'bristol' 'd<d d <> 'bristol' 'dk d,ORDER BY [given Name] & ' ' & [family Name];'d@Set the RowSource property of the list box and requery the list. d h(j hB@lo0(WAttribute VB_Name = "Form_Technique 4 module version- Runtime"  Bas~0{54251E5E-0934-11D3-80A5-006008552884} |GlobalSpacAIFalse dC@reatab= Tru Pre declaId"Expose_TemplateDerivCustomizD$P Su b optUS_AfterUpd () Dim SQLSourvAs rSng SELECT DISTINCTROW patients.[ID], [g\n ] & '& [family AS FROMF WHERE `town g"' Set cri @1ia match7 group choice2.C If?`1 ThenC>4,K;[& "= 'briUl'A E'AV<>nd` If ORDER BYL;DADthe RowDoproperty of Al2 box a!reryI[PCol.G=DŽ. C5E @P ER|ٳSGoKze`U(uUKpxME LHHKBZKXNLOEZ_SLEQOFFYMIZPEH:K'NGHKBZKXNLOEZ_SLEQOFFYMIZPEH:46 OHHKBZKXNLOEZ_SLEQOFFYMIZPEH:IQGHKBZKXNLOEZ_SLEQOFFYMIZPEH:59<SLS S<0<4<<<<< <$<(<,<8<<<N0{85889565-E2F6-11D3-80CB-006008552884}  |`@@i~ `i`z``x`t`r%@ %p %H0` @P D@@ 0 @ T @ `( cr` t @ M@ e( Ex@ .0h xHA"    B(D7p"  0 : $P7` @H<W  :X ` h x]< Display message box asking if user wants to add a new drug.Do you want to add a new drug?$drug Not In List$4'   User chose Yes.* Remove new name from drug ID combo box so4 control can be requeried when user returns to form. B@     B@R9 Open Add Category form and set the Category Name value..Technique 3_(drug form used by module version)   B@ ~ ")4 Continue without displaying default error message. 'korAttribute VB_Name = "Form_Technique 3 macro version- not in -K;[list" Bas0{85889565-E2F6-11D3-80CB-006008552884} |@GlobalSpacIFalse dCreataDblTru Predecla Id"Expo se/TemplateDerivCustomlizD$P Sub drugID_NotInL(NewD\ As Sng, respon Intege r) Dim C&gor&y, inc ؇ it/MsgDialog/' Dis@;y message box asking if user wants to add a n4ew6. )= Box("Do0 youO?", 36, "HB H In H" ?If>= 6 ThenE ' U%chp Yes!$A' Remove+nfrom- ID@ combo:so control can be@griwAC@returnCfHDoCmd.xSav@ DoMenuItem A_FORMBAR,EDITUNDOFI ELD, MENU_VER20D I' Op@AaF and set the F†value( "H_(1# d b`BoduI$)6A_NALAADDc'a s![ ]![De 4]uId '' C 4inwith`out dWUdefault eprrorYfm= DATA_ERRCONTINUE,E )If!SubA8E2Fza U[B?N.6 y MܾxME P[LS S<<<<<N0{54251E4F-0934-11D3-80A5-006008552884}  p@`h@  t`4@ %@ %n %@@@@@@p(X@`(xX(x @h pPHxp8x @t 0(d @T 8D @xA "  JX ` "h Bp @  J (DWhen user changes records, set the combo box in the header to match. h'ro@;When user selects a product in the combo box, set the focuschoice:to the Patient ID field and then find the selected record. hB@v r B@xoAttribute VB_Name = "Form_Technique 2 - Find Record using wizard" Bas0{54251E4F-0934-11D3-80A5-006008552884} |@GlobalSpacIFalse dCreataDblTru Predecla Id"Expo se/TemplateDerivCustomǀD$ P Sub Current() 'Whener cha@nges rs, set the combo @box inheadto m atch.%selectPati 2w[ID] E܀E OpC_AfterUpd/*H( s a propduct$F(-focus8*1&ID field a$nC@>|  Ej+1$Gd<@m`U(u#^K.A4FXxME .K;[[LS S<,<0<<<<< <$<(<4<8<<<N0{8588956D-E2F6-11D3-80CB-006008552884} h @`h@$ `@( "`@, i$ %@P % %p@@@@x(x @h x .x ra@h nP@X 2.PXT ra@P R @L ib@H e @8 ib(4 @$ @ 8 rx e @h ME@X .0XT ar@P 1.@L ra@H Ba@8 pl(@4 @$ @ X(`0$A28 " @ )HX " ` $h:*xQy "  8 ,0 $`:*pQy  *Use database order for string comparisons.@ B@Bo @ B@ &(Technique 3 module version - Not in List B@ ""B@l " ")o2 Select the main form, requery drug ID combo box,% and set value of drug ID combo box. B@ &'Technique 3 module version- Not in List B@ ""B@l " ")oTAttribute VB_Name = "Form_Technique 3_(d rug fX used by macro version)"  Bas0{8588956D-E2F6-11D3-80CB-006008552884} >GlobalSpacAIFalse dCreatablTru PredeclaId!"Expog= /TemplateDerivzCustomiz#D$Opt Comp@ DTP 'Udorder sng ciso`ns. #Slicit PFJ Sub Button23_Ck()  DoCmd.Clm EndAfter4Up#e Sav@RSelectObj@ A_FORM, "H` moduaĂ - Not in List@vs![W ]![DRugID].Re@ry6u MeDUnload(Cancel As Int0egerV!' D the:Q, r* IDArbo box ,acset valof |^bb?1e@9-1a1 E7FlxtD7ET%T4 `U(0* pHd treatmenDt0@ = p #A J<  DAO>BDAO *\G{00025E04-:0C  0046}#3.5#0#\\CSE-NT1\APPS32\MS\`\dao2535.tlb#Microsoft  2.5/ Compatibil/K;[ity LibraryBOstdole>`stdoleXf\X043UQ-X2.0XC:\WINNT\SystemXSTDOLE2.TLB# AutomJLon/VBIDE> VBIDjECCE157C5.3CProgram Files\BmonGKShared\VBA6E6EXT.O+G Visual Basic for Applic1s ExtxensEY+EkUX!D lxME SLS S<0<4<<<<< <$<(<,<8<<<N0{54251E54-0934-11D3-80A5-006008552884}  |`@@i~ `i`z the``xfocu`t Pat`ren f%@ %zp %@P@(` P @@ 0 @  @ (h( h @ H   h x HA"   B(D7p"  0 : $P7` @H<W  :X ` h x]< Display message box asking if user wants to add a new drug.Do you want to add a new drug?$drug Not In List$4'   User chose Yes.* Remove new name from drug ID combo box so4 control can be requeried when user returns to form. B@     B@R9 Open Add Category form and set the Category Name value..Technique 3_(drug form used by module version)   B@ ~ ")4 Continue without displaying default error message. 'kogAttribute VB_Name = "Form_Technique 3 module version- Not in List" Bas0{54251E54-0934-11D3-80A5-006008552884} |GlobalSpacIFalse dCreatab= Tru Predecl2aId"Ex0pose/TemplateDerivCustomizD$P Sub dr ugID_InA(NewD\ As Sng, respon Integer) Dim C&gory,znc s it/MsgDialog/' Dis@;y message box asking if user wants to add a newM6. )=1@Form_Technique 1 module bversion- Dialog BoxGb frm_TgchniquU@  oouEo as@cP vrBoU@ -@D@a@ og@BxBGHKBZKXNLOEZ_SLEQOFFYMIZPEH28AGH KhZ@XNLOjZ&SEQFFYMqZP@zHB@+*{,IR"(B+B? N_(Tdm used by ma d(box)G~(_TrU&aamn Tf .sd&bymaTc o`d*b`xe)D,E^,nE_,_,+a`_,@mB,PZ`sG@_8UA"iD"sHH)JFEGE4mFlRuntimeGW k48m !d?qjR`Ei qe#K#K###tQ#=#j#2 -@nd Record`iing wizardGV>g2$F `n REcGUaeunw`zfrN$N$$bo2o1,QZ30K;[N$Not inustGvXZ3$pYNUPtpiZ Uit%QYQEYYYY,733_(drugYn8 YAFB"mm3Pe("r5jXnXo;oWTTmm0m 88pWfron`$VfeE2IVXHLREJJCHDPDMOPINXMDGPVLHNzI;XEL@8EJCUDpNDyOpIUP{XDV &HCz? i W?E 2xiWFiFrF?EePtK1EuoF{FcZZ9_vo2;E`XG0/j+jb0V/%ZXCHOFJ%O_Fo2(Q1IX1/& *@lkгž&&dbaTEgko&%F?%Fp??? :qP=%?D=_(XǟǑtIeP&t"!J ZI_ \I_Q<Z_SLEQOFAYMIPHH1qF$P, c2"( +  split addressG$plit adre snAIHKBZKXNLOEZ_SLEQOFFYMIZPEH(28AAHKBKXNO/M fH!1c2Form_Technique 3_(drug f used by macro version)GkormTqchDn|qu 3 (ugf sd bymc$ov rbin)ObHOHR OMj&NEN4 J-Runt0imeGpKEEK4ZB-RMnUi@\eERER%EYEEAlReport_Patients_saveasrBG¹R@zp„t@Pt@eJt_aAa@ U^>U>I$/y1 Bna>(ZnmcX~X™ lamY not in listGVFB8 UjrU~~~~~~~~~~~~g    A  (PLH45$0h $ (xTPLH4$DTTHda]r :{-@^ni? Bs\$L$L$$M$`7 $<``, 3 { ExMEam  *\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*\G{4AFFC9A0-5F99-101B-AF4E-00AA003F0F07}#9.0#0#C:\Program Files\Office2000\Office\msacc9.olb#Microsoft Access 9.0 Object Library*\G{00025E04-0000-0000-C000-000000000046}#3.5#0#\\CSE-NT1\APPS32\MSAPPS\DAO\dao2535.tlb#Microsoft DAO 2.5/3.5 Compatibility Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINNT\System32\STDOLE2.TLB#OLE AutomationZ*\G{0002E157-0000-0000-C000-000000000046}#5.3#0#C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6EXT.OLB#Microsoft Visual Basic for Applications Extensibility 5.3 #A     i`ChrK~stdole`VBIDEAFormDetail0, FormHeader  FormFooterTPatientID_Label= DrugID_LabelDoctorID_LabelDate_start_courseDate_start_course_Label7uDate_end_courseDate_end_course_LabelDosageK| Dosage_LabelP FrequencyFrequency_Label Doses_per_dayqDoses_per_day_Label)Label17GLabel19I no_treatmentDoctorIDULabel22gBox61Text1~Text3~Button4]Button5]Text7~Text8~End_Date1K;[^ Begin_DateIClickText0~CountOfOrder_IDText4~ FormHeader1Text12rText13rText15r Family_name4+Text17r Given_nameFText19rInitialsXText21rText23rGender@Text25r Date_of_Birth Text27rAddr1yText29sAddr2yTownText33sCountyG8Text35!sPostcodeText37#sCountryText39%s TelephoneQText41BsButton42Button43Button44But [LS S<,<0<<<<< <$<(<4<8<<<N0{54251E59-0934-11D3-80A5-006008552884}  @`h@ `@ "`@ i$ %@tyP % %p@[E@@@@@@x (x @h  x @h @X hXT @P @L @H @8 (4 @$ @ P x @h @X 0XT @P @L @H (h@8 (4 @$  HX(A28 "@ )HX "` $h:*xQy "  8 ,0 $`:*pQy  *Use database order for string comparisons.@ B@Bo @ B@ &(Technique 3 module version - Not in List B@ ""B@l " ")o2 Select the main form, requery drug ID combo box,% and set value of drug ID combo box. B@ &'Technique 3 module version- Not in List B@ Categ ""B@l8 " ")oPAttribute VB_Name = "Form_Technique 3_(d rug fX used by module version)" " Bas0{54251E59-0934-11D3-80A5-00600855 2884} >GlobalSpacIFalse dCreatab = Tru Pr@edeclaId"Expoh= /TemplateDeriv{CustomizD$Opt Comp@ DCT 'UdAorder Bsng cisons. #Slicit  PFJ Sub Button23_Ck() DoCmd.Clm EndAfterUp#e Sav@RSel@ectObj@ A_FORM, 2K;["̂ - Not in List@vs![W  ]![DRug@ID].Rery6uMeDUnload(CancE8BGHKBZKXNLOEZ_SLEQOFFYMIZPEH0841c695ffbForm_Technique 1 module basic version- Dialog Box 8EGHKBZKXNLOEZ_SLEQOFFYMIZPEH0:41c695ff!~Form_Technique 1_(Treatment form used by macro dialog box form)a8HGHKBZKXNLOEZ_SLEQO  Ey%)bJxYwbM`U(}6@+PSxME SLS S<,<0<<<<< <$<(<4<8<<<N0{62A677E0-E84D-11D3-80CC-006008552884} *@`@ 6`@ >`@  F`@/ N`@ >h@%@ % %@@@@@@ X8 \4@ x @h X@X XT @D @4 @$ @    \40@ x @h X@X XT @D @4 @$ @   X \49@ x @h X@X 0XT @D @4 @$ @    \4 @ x @h X@X XT @D @4 @$ @   x X\4@ x @h @X @H @8 8   X( @ @$ :e@ @ ( @ 3K;[P @@AL2 "8@ -H `h p<  " -  <x  " -  ( 0<H P "X` -h  <8  " 7  < 0)Use database order for string comparisons,8 0 B@.2|, \!^A@42poh@8X : B@."<8|08( \!^A@4'<o@ B B@.D|@ \!^A@4DoH J B@.Lx|pHhLPoHP8 T V X B@RZ|P \!^A@4Zo \!^A@45 SAttribute VB_Name = "Report_Patients_saveasrT"  Basf0{62A677E0-E84D-11D3-80CC-006008552884} |GlobalxSpacAIFalse dCreatablTru PredeclaId"Expose_Templat@eDerivCustomizD$Option Comp@ DT 'Udorder for sng cisons  P=A Sub Button42_Click() On ErrGoToF_ D oCmd.Rec: ,A_FIRSTExizt :CAB rr MsgBoxA .DescriÂ?Resu@P EndE;>3;(;NEX;; ;;4;;PREVIOUS _<_ 0 _!Z5_4d^LAZd?mandfind9DoMenuItem acFormBar,@C{"s, 2!|acVer70"4 "_#C##< Display message box asking if user wants to add a new drug.Do you want to add a new drug?$drug Not In List$4'   User chose Yes.* Remove new name from drug ID combo box so4 control can be requeried when user returns to form. B@     B@R9 Open Add Category form and set the Category Name value..TechniqueFFYMIZPEH0541cfe9e9)Form_PatientsJF0)8KGHKBZKXNLOEZ_SLEQOFFYMIZPEH0<41c695ffaPForm_Technique 4 module version- Runtime=FHQ8NGHKBZKXNLOEZ_SLEQOFFYMIZPEH0I41c696bcVForm_Technique 2 - Find Record using wizard2F`8QGHKBZKXNLOEZ_SLEQOFFYMIZPEH0>41c695ff{XForm_Technique 3 module version- Not in List7Fx 8TGHKBZKXNLOEZ_SLEQOFFYMIZPEH0@41c695fffForm_Technique 3_(drug form used by module version)8F 8IVXHLREJJCHDPDMOPINXMDGVLHNH0:41cff704Form_fronti 8ZGHKBZKXNLOEZ_SLEQOFFYMIZPEH0A41cff70bVForm_Technique 2 macro version- Find record8CHHKBZKXNLOEZ_SLEQOFFYMIZ4K;[PEH0B41cff70bdForm_Technique 2 module basic version- Find Record 18FHHKBZKXNLOEZ_SLEQOFFYMIZPEH0B41c695ffTForm_Technique 1 macro version- Dialog box q 8IHHKBZKXNLOEZ_SLEQOFFYMIZPEH0D41c695ffForm_Technique 1_(treatment form used by module dialog box form)c2q8AIHKBZKXNLOEZ_SLEQOFFYMIZPEH0F41cff70bsplit addressM 8OHHKBZKXNLOEZ_SLEQOFFYMIZPEH0f41adf86cdForm_Technique 3_(drug form used by macro version)j8 8RHHKBZKXNLOEZ_SLEQOFFYMIZPEH0G41cff70bLForm_TEchnique 4 macro version-RuntimePY8UHHKBZKXNLOEZ_SLEQOFFYMIZPEH0F41c696008Report_Patients_saveasreportyh8XHHKBZKXNLOEZ_SLEQOFFYMIZPEH0E41cff70bsplit name 8LHHKBZKXNLOEZ_SLEQOFFYMIZPEH0l41adf86cVForm_Technique 3 macro version- not in list  h x`H80Ʌ&`U(Ʌ&`U(Ʌ&`U(Ʌ&`U(Ʌ&`U(Ʌ&`U(Ʌ&`U(d8ҸɅ&`U(Ʌ&`U(Ʌ&`U(Ʌ&`U(tFƫ@֨PɅ&`U(Ʌ&`U(Ʌ&`U(Ʌ&`U( Ʌ&`U(HX7-:C*ffAccessand As=DimGEndRFalse_IfslinexLongnameNotorThenTrueVBAWin16~Win32MacVBA6# treatmentDAOutility1J1Form_Technique 1 module basic version- Dialog Box _Evaluate Button4_ClickkVisibleDoCmdƧOpenFormacFormDS Button5_Click)?Form_Technique 1_(Treatment form used by macro dialog box form) Form_UnloadCancelA_FORM| Form_Patients|Button42_Click+Err_Button42_Click GoToRecordM6A_FIRSTExit_Button42_Click%MsgBoxRButton43_Click?sErr_Button43_Click A_NEXTUExit_Button43_Click5:Button44_ClickOErr_Button44_Click\ A_PREVIOUSu Exit_Button44_ClickƁButton45_ClickErr_Button45_ClicklJA_LASTExit_Button45_ClickֹCommandfind_Click9Err_Commandfind_Click/ DoMenuItem&e acFormBar acRecordsMenu6 acMenuVer70XExit_Commandfind_ClickErro Description (Form_Technique 4 module version- Runtime9optionUS_AfterUpdateuC SQLSourceʟoptionUSEj PatientID! RowSource2RequeryForm_Technique 2 - Find Record Form_Current selectPatientselectpatient_Af5K;[terUpdateSetFocus FindRecordxe,Form_Technique 3 module version- Not in ListdrugID_NotInListNewDatax_Response NewCategorya TruncateNameGTitle~ MsgDialogFSave A_FORMBARjA_EDITŗ A_UNDOFIELD- A_MENU_VER20A_NORMAL3QA_ADD@Forms.Technique 3_(drug form used by module version) Drug name=BDATA_ERRCONTINUE3Form_Technique 3_(drug form used by module version)Button23_ClickqForm_AfterUpdate SelectObjects^'Technique 3 module version- Not in List)DRugID Form_frontM  Button1_ClickErr_Button1_ClickTExit_Button1_Click Commandexit_ClickErr_Commandexit_ClickXExit_Commandexit_ClickCommandformexit_ClickErr_Commandformexit_Click.Exit_Commandformexit_ClickL~Commandexitform2_ClickErr_Commandexitform2_ClickjExit_Commandexitform2_Click9}+Form_Technique 2 macro version- Find recordForm_BeforeUpdateP-Form_MouseDownnButtonShiftXoYlForm_MouseMovea Form_MouseUpPatientID_AfterUpdateQPatientID_ChangeFormFindRecord_ErrK GoToControl PFormFindRecord_EndJac}\ CancelEventURselectpatient_Changeҧ2Form_Technique 2 module basic version- Find Record~E no_treatments }acEntire acSearchAllA acCurrentEvbOKOnly vbInformationn*Form_Technique 1 macro version- Dialog box@Form_Technique 1_(treatment form used by module dialog box form)d+Form_Technique 3 macro version- not in listނ2Form_Technique 3_(drug form used by macro version)+&Form_TEchnique 4 macro version-RuntimeEReport_Patients_saveasreport 0 split name get_initialsEfullnameОrest part_initialsX get_surname:reduce get_title& split addressu get_addressʎ fulladdresshU address_linei`ChrK~stdole`VBIDEAFormDetail0, FormHeader  FormFooterTPatientID_Label= DrugID_LabelDoctorID_LabelDate_start_courseDate_start_course_Label7uDate_end_courseDate_end_course_LabelDosageK| Dosage_LabelP FrequencyFrequency_Label Doses_per_dayqDoses_per_day_Label)Label17GLabel19I no_treatmentDoctorIDULabel22gBox61Text1~Text3~Button4]Button5]Text7~Text8~End_Date^ Begin_DateIClickText0~CountOfOrder_IDText4~ FormHeader1Text12rText13rText15r Family_name4+Text17r Given_nameFText19rInitialsXText21rText23rGender@Text25r Date_of_Birth Text27rAddr1yText29sAddr2yTownText33sCountyG8Text35!sPostcodeText37#sCountryText39%s TelephoneQText41BsButton42Button43Button44Buttoton45 FormFooter2 Commandfind\ Button132Text133 Button134Text135Text138Text139 AfterUpdate FormHeader0Text131Box103~Box102}Box101|Box100{Box99IBox98HText43Ds English_NameˮText48IsQuantity_Per_UnitText49JsText50fsText110Box121 Product_NameӋText123Text126Text129 FormFooter1Date start course%Date end coursez0 Doses per daymCurren45 FormFooter2 Commandfind\ Button132Text133 Button134Text135Text138Text139 AfterUpdate FormHeader0Text131Box103~Box102}Box101|Box100{Box99IBox98HText43Ds English_NameˮText48IsQuantity_Per_UnitText49JsText50fsText110Box121 Product_NameӋText123Text126Text129 FormFooter1Date start course%Date end coursez0 Doses per daymCurrente Unit_Price6K;[ NotInListDetail1- Drug_Name*Text11rText14rBox20=Button23Text24rtablets_per_packetcost_per_packetICommandformexitCommandexitmacrox.Commandexitform2O MouseDowns MouseMovevMouseUpChange bristoloption:lnonbristoloption optionpatient3bristolPatientLabel141nonbristolpatientReport$ Form_Form16Command0Command0_ClickF[Err_Command0_ClickScreenIPreviousControlFindNextuExit_Command0_Click<"ValueK5_B_var_Technique 3_(drug form used by module version)Itemz_B_var_Drug nameKControlsK._B_var_Technique 3 module version- Not in ListZZ _B_var_DrugID8X acritical vbCritical+}optionpatient_AfterUpdate|BrestnameLstartstartingCommandcloseiconwCommandcloseicon_Click2Err_Commandcloseicon_Click=Exit_Commandcloseicon_ClickmLabel7,CommandmailmergeCommandmailmerge_ClickKErr_Commandmailmerge_Click;H stDocNamez OpenReport acPreviewoExit_Commandmailmerge_Click Box94strmsgG& vbOKCancelx?vbOK%strinputInputBox betweensGText10r _B_var_Format _B_str_MidX _B_var_LeftQ_B_var_restnameտ _B_var_Midp _B_var_reduceV _B_var_Chr\; _B_var_Do _B_var_WhileIf IsNumeric$*msgQ _B_var_msgbr respondse[ _B_var_IfP _B_var_DatevCombo47\&Doctor_of_same_gender_Label doctorgenderaLabel12BCommandpatientsWCommandpatients_ClickErr_Commandpatients_Click.stLinkCriteriaYExit_Commandpatients_Click CommandclosekCommandclose_Clickk?Err_Commandclose_Clickx\Exit_Commandclose_Click CommandlabelCommandlabel_ClickGDErr_Commandlabel_ClickQExit_Commandlabel_ClickCommandprint_tablecCommandprint_table_Click.Err_Commandprint_table_Click MyForm ActiveForm>acTablePrintOut.acFormExit_Commandprint_table_Click Command53ACommand53_Click@Err_Command53_Click7Exit_Command53_Click Command54BCommand54_Click'Err_Command54_ClickRunMacroXExit_Command54_Click gLabel56discountmCombo57&Given_name_LabelCombo59&Combo59_AfterUpdateXVrs_ RecordsetClone FindFirstM=StrBookmarkC _B_var_StrLabel129yLabel14D_B_var_Combo59*DRugID2DrugIDo"Label38 drugidbuffer. CommandaddCommandadd_ClickpsErr_Commandadd_Click4acNewRecYExit_Commandadd_Click CommanddeleteICommanddelete_ClickkErr_Commanddelete_Click] acEditMenuExit_Commanddelete_Click#+Form_Technique 2 - Find Record using wizard Form_front1 Commandchart_ClicklErr_Commandchart_ClickExit_Commandchart_ClickpLabel16F -.  /a   ${!)$  % +, 0D`hJ `hJ 7K;[ i @i`iEi xME (SLS S<N0{0BC8E8CD-A0D5-49DD-85B3-F3A70E6092CD}(% p   x`b`h\j`in J (`X` `Xx0(q2 "8@ HH    "     ("08  @ PX `hx " (* *H2P    "       "(0 8@ HX px  "     ()Use database order for string comparisonsXMD08>you pressed the closed door button to see some useful examplesA@4 B@B7SX|PH \!^A@4F0o(p B@B| \!^A@4o B@B| \!^A@4ox]0H`P Do you want the Day of the week?'b b dday of week or month$4'  f Today is Zddd$A@4k%now lets see the rest of the databaseA@4 B@B`|XP \!^A@48o0xL  B@BN|L \!^A@4No]]Patients'X X  B@|x \!^A@4`oX(H]h pie chart'XiD X B@| \!^A@4oҳAttribute VB_Name = "Form_front"D Bas0{0BC8E8CD-A0D5-49DD-85B3-F3A70E6@092CD} |8K;[G lobalSpacFalse dCreatab"lTru Pr@edeclaId"Expose_TemplateDerivCustomizD$Optio@n Comp@ DT 'Udorder for sng cisons` P=A Sub Button1_Click() On ErrGoTo-_  MsgBox "yo@u presxt he cl~do - to s ee souseful exaeshDoC0md.CExitK: sA- rr&0.DescriMpResu! p End I@\mande%J )Q8 T9 e:N;:@m; < r 1!Heicon٨ lel  f.fDpatients dKAr 6Doc€F67LinkCritsa53lst3PJfO8pen1,p;, st C  %__ u|C 7Vi?0c/(jрichart V|x_!Xs9:pi ~JRunMacrp~ hyom~CustomizD$Opt Comp@ D3T   @fEx$ith  8 1H XCancel h Qx  NewDataResponseButtonShiftXY : Y:fullname fulladdresslineresponse!! fulladdresslineresponse!Ynte Unit_Price NotInListDetail1- Drug_Name*Text11rText14rBox20=Button23Text24rtablets_per_packetcost_per_packetICommandformexitCommandexitmacrox.Commandexitform2O MouseDowns MouseMovevMouseUpChange bristoloption:lnonbristoloption optionpatient3bristolPatientLabel141nonbristolpatientReport$ Form_Form16Command0Command0_ClickF[Err_Command0_ClickScreenIPreviousControlFindNextuExit_Command0_Click<"ValueK5_B_var_Technique 3_(drug form used by module version)Itemz_B_var_Drug nameKControlsK._B_var_Technique 3 module version- Not in ListZZ _B_var_DrugID8X acritical vbCritical+}optionpatient_AfterUpdate|BrestnameLstartstartingCommandcloseiconwCommandcloseicon_Click2Err_Commandcloseicon_Click=Exit_Commandcloseicon_ClickmLabel7,CommandmailmergeCommandmailmerge_ClickKErr_Commandmailmerge_Click;H stDocNamez OpenReport acPreviewoExit_Commandmailmerge_Click Box94strmsgG& vbOKCancelx?vbOK%strinputInputBox betweensGText10r _B_var_Format _B_str_MidX _B_var_LeftQ_B_var_restnameտ _B_var_Midp _B_var_reduceV _B_var_Chr\; _B_var_Do _B_var_WhileIf IsNumeric$*msgQ _B_var_msgbr respondse[ _B_var_IfP _B_var_DatevCombo47\&Doctor_of_same_gender_Label doctorgenderaLabel12BCommandpatientsWCommandpatients_ClickErr_Commandpatients_Click.stLinkCriteriaYExit_Commandpatients_Click CommandclosekCommandclose_Clickk?Err_Commandclose_Clickx\Exit_Commandclose_Click CommandlabelCommandlabel_ClickGDErr_Commandlabel_ClickQExit_Commandlabel_ClickCommandprint_tablecCommandprint_table_Click.Err_Commandprint_table_Click MyForm ActiveForm>9K;[acTablePrintOut.acFormExit_Commandprint_table_Click Command53ACommand53_Click@Err_Command53_Click7Exit_Command53_Click Command54BCommand54_Click'Err_Command54_ClickRunMacroXExit_Command54_Click gLabel56discountmCombo57&Given_name_LabelCombo59&Combo59_AfterUpdateXVrs_ RecordsetClone FindFirstM=StrBookmarkC _B_var_StrLabel129yLabel14D_B_var_Combo59*DRugID2DrugIDo"Label38 drugidbuffer. CommandaddCommandadd_ClickpsErr_Commandadd_Click4acNewRecYExit_Commandadd_Click CommanddeleteICommanddelete_ClickkErr_Commanddelete_Click] acEditMenuExit_Commanddelete_Click#+Form_Technique 2 - Find Record using wizard Form_front1 Commandchart_ClicklErr_Commandchart_ClickExit_Commandchart_ClickpLabel16F /  a   {! )$ % +, -.0DForm_Technique 2 macro version- Find recordForm_Technique 2 macro version- Find recordForm_Technique 2 module basic version- Find RecordFor(<<< <P ``@@ I   `@  I  ` @  I @\ `x%x`^qh``h` d```F``8@ @l P X@ @0 (  XhXp l \ @L < @, 8 X @ @     8l `H`L @< , @  PPd ee3f1k3l3m5b@ i nj o3bl pe`f`o Detail0m7U;`ab:K;[e PatientID PatientID-Number automatically assigned to new product.d5U` abcText0 Patient ID:m7`aXb# eo kdate start courseDate start course Long Datedate_start_coursed5]`aXbcText1Date start course:o5U9`cde] hn"";"";"";"";"10";"40"DRugIDDrugID Table/QueryISELECT DISTINCTROW [DrugID], [Drug Name] FROM Drugs ORDER BY [Drug Name];0Same as DrugID in Drugs table.x"SELECT DISTINCTROW [DrugID], [Drug Name] FROM Drugs ORDER BY [Drug Name];";"Drugs";"";"DrugID";"Drug Name";"PrimaryKey"d5U`abcText2Drugr:d5U`abcXText4ONOTE: Drug field displays Drug names from the Drugs table but saves ID numbers.\  < @,ͬ &*I`U(Detail0mPatientIDd Text0d Text1oDrugIDd Text2PropDataCE-TypeInfo.!1BJHBBBlob 3 d Text4DoctorID Date end course Dosage Frequency Doses per daymdate_start_courseDate start course @ HP0cghixj|k,/@.Drugs (AutoLookup form)Helv8 hApple LaserWriter II NTX TD[ od,Xe`!)@Apple LaserWriter II NTXpscriptLPT1: dbcd ee3f1k3l3m5b@ i nj o3bl pe`f`hDetail0 m7U;`axbePatientIDPatientIDZNumber automatically assigned to new product.d5U` axbc Text0Patient ID:m7U`a(b# eo k"Date start course"Date start courseLong Date"Date_start_coursed5U` a(bTc Text1Start course:o5U9`cde] hn*"";"";"";"";"10";"80" DrugID DrugIDTable/QueryxSELECT DRugID, [Drug Name] FROM Drugs ORDER BY [Drug Name];0NSame as Supplier ID in Suppliers table."SELECT DRugID, [Drug Name] FROM Drugs ORDER BY [Drug Name];";"Drugs";"";"DRugID";"Drug Name";"PrimaryKey"d5U` abc Text2 Drug:m7U`apekdrug NameDrug namedrug_Named5U` apbEc Text3Drug Name:m7U`a ekcostCost per packetd5U` a b*c Text4 Cost:d5U`a@ bc Text5NOTE: Form is based on the Drugs(autolookup form) query, which uses AutoLookup. When you select a treatment, the patients details, Drug Name and cost fields are automatically looked up and filled in.m7U`aXkpatientnameF=[Given name] & ' ' & [family name]d5U`aXb;K;[c Text15 name:m7U`abfek Gender Genderm or f onlyd5Uabc Text17Gender:m7U`axe)kDate of BirthDate of Birth d/m/yy\Must be less than or equal to the current dateDate_of_Birthd5U` axbc Text18Date of Birth:iiiPropDataGI_TypeInfo`62LBBBlob i0 ͬ (ow`U(Detail0mPatientIDd Text0mDate_start_courseDate start coursed Text1oDRugIDd Text2mDrug_NameDrug named Text3m costd Text4d Text5m patientnamed Text15mGenderd Text17mDate_of_BirthDate of Birthd Text18DoctorIDDate end courseDosageFrequencyDoses per dayCost per packetFamily nameGiven nameInitials`0c7!ghlij+k U2Ų@TreatmentHelv8 hApple LaserWriter II NTX TD[ od,Xe`!)@Apple LaserWriter II NTXpscriptLPT1: dbcd ee3f1k3l3m5b@ i nj o3bl pe`f`< Detail0m7U;`abePatientIDPatientIDpatientIDd5U` abc Text0PatientID:m7U`aXbeo k DrugID DrugID drugidd5U`aXbc Text1Drug ID:m7U`abk phone=DLookUp("[Internal telephone]","[Doctors]","[DoctorID] = " & [Forms]![Combo 3 - Dlookup]![DoctorID])d5U` abc Text4Phone Ext:o5U9`cde# n*"";"";"";"";"10";"80"doctorIDDoctorIDTable/QuerySELECT DISTINCTROW Doctors.[DoctorID], Doctors.[Family Name] FROM DOCTORS ORDER BY Doctors.[Family Name];0<"SELECT DISTINCTROW Doctors.[DoctorID], Doctors.[Family Name] FROM DOCTORS ORDER BY Doctors.[Family Name];";"DOCTORS";"";"DoctorID";"Family Name";"PrimaryKey"d5U` abc Text6Doctor:d5U`apbc Text7TNOTE: Patient name based on<K;[ lookup from patient table, Drug Name looked up from Drug table, Phone extension field displays a looked up value based on the selected doctor.m7U`abkname݀=DLookUp("[given name]","[patients]","patientid=" & [patientid])d5U` abc Text9 name:m7U`ahbczkdrug namev=DLookUp("[Drug name]","[Drugs]","[Drugid] = " & [DrugID])drug_named5U` afbcLabel11Drug name:ro version- Fin{66D5DF57-DFC6-11D3-80CB-006008552884}ͬ%T4 `U(Detail0mPatientIDd Text0mDrugIDd Text1mPhoned Text4d Text6d Text7m named Text9 Date start courseDate end courseDosageFrequencyDoses per dayoPropDataKMTypeInfox3FVPBBBlob \DoctorIDd Label11mDrug_NameDrug name0cghjTk<h@Helv8 hApple LaserWriter II NTX TD[ od,Xe`!)@Apple LaserWriter II NTXpscriptLPT1: dbcd ee3f1k3l3m5b@ i nj o3bl pe`f`hDetail0o5U9`cdhe"";"";"";"";"10";"40"DRugID Table/QueryISELECT DISTINCTROW [drugID], [DRug Name] FROM DRugs ORDER BY [Drug Name];0"Same as DrugID in treatment table.x"SELECT DISTINCTROW [drugID], [DRug Name] FROM DRugs ORDER BY [Drug Name];";"DRugs";"";"drugID";"DRug Name";"PrimaryKey"d5U`@ahbcText2Drug:p3U`Fa(b/cd Embedded1 Form.Combo 4_(treatment subform)DRugIDDRugIDd5U`:ab(cText3 Treatments:d5U`fa bcText4gNOTE: Treatments are displayed in the subform based on the Drug selected in the unbound Drug combo box.e Module=split address Name="treat0" VersionCompatible32="393222000" CMG="ͬs&*I`U(Detail0oDrugIDd Text2pEmbedded1d Text3d Text4CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] For0c ghj k 1Ų@Helv8PropDataOQTypeInfo4TBBBlob  hApple LaserWriter II NTX TD[ od,Xe`!)@Apple LaserWriter II NTXpscriptLPT1:=K;[ dbcd ee3f1k3l3m5b@ i nj o3bl pe`f`hDetail0o5U9`cdhe"";"";"";"";"10";"40" patientID Table/QuerySSELECT DISTINCTROW [patientID], [family Name] FROM patients ORDER BY [family Name];0$Same as patientID in patients table."SELECT DISTINCTROW [patientID], [family Name] FROM patients ORDER BY [family Name];";"patients";"";"patientID";"family Name";"PatientID"d5U`@ahbcText2Patient:p3U`a(b cd Embedded1Form.combo 4_(patient_subform) patientid patientidd5U`:abcText3 Patient info:d5U`fa bcText4jNOTE: details are displayed in the subform based on the patient selected in the unbound patient combo box. door button to see someDialog BoxForm_Techn used by macro dialog box form)Form_ͬ&*I`U(Detail0oPatientIDd Text2pEmbedded1d Text3d Text4Form_PatientsForm_Technique 4 module version- 0`c`'g hij$kPatientsHelv hApple LaserWriter II NTX TD[PropDataSUTypeInfo5RZXBBBlob  od,Xe`!)@Apple LaserWriter II NTXpscriptLPT1: dbcd ee3f1k3l3m5b@ i nj o3bl pe`f`@ Detail0m7U`axe Patient ID PatientID-Number automatically assigned to new product. Patient_IDd5U`0axbcText0 PatientID:m7`aXeVk Given name Given name Given_named5]aXbdcText7 Given name:m7`aekInitialsInitialsd5]ab9cText8 Initials:m7U`aekTitleTitled5U`abgcText9Title:m7`aekGenderGender m or f onlyd5]abcText10Gender:m7`aXetk Family name Family name Family_named5_`aXbcText11 Family name:m7U`pae)k Date of Birth Date of Birthd/m/yy.Must be less than or equal to the current date Date_of_Birthd5` abcText12Date of Birth:address)H"` $h:*xͬ%T4 `U(Detail0mPatient_IDPatient IDd Text0mGiven_nameGiven named Text7mInitialsd Text8mTitled Text9m Genderd Text10m Family_nameFamily named Text11m Date_of_BirthDate of Birthd Text12PatientIDAddr1Addr2PropDataWYTypeInfo6\BBBlob lTownCountyPostcodeCountryTelephone dbcd ee3f1k3 0`c!ghij$k treatmentHelv h>K;[Apple LaserWriter II NTX TD[ od,Xe`!)@Apple LaserWriter II NTXpscriptLPT1: dbcd ee3f1k3l3m5b@ i nj o3bl pe`f`@ Detail0m7U`ae Product IDDrugID-Number automatically assigned to new product. Product_IDd5U`0abcText0Drug ID:m7U`a8eo k Product NameDate start course Product_Named5U`0a8bTcText1 start course:m7`ae6kQuantity Per UnitDosage&(e.g., 24-count case, 1-liter bottle).Quantity_Per_Unitd5]`6abCcText2Dosage: &*I`U('2 B 8 @ HPXp/  B  D D&8 APp xT[ Eշ` SL5dBjKE%T4 `U(Pͬ%T4 `U(Detail0mProduct_IDProduct IDd Text0mProduct_NameProduct Named Text1mQuantity_Per_UnitQuantity Per Unitd Text2PatientIDDRugID DoctorID Date start course Date end course Dosage FrequencyDoses per dayAp0cghij2kL -L@ Treatmentcombo 5He                        " $ % & ' ( ) * + 0 1 2 3 4 5 6 7 8 9 : ; < = ? @ A B C D E F G H I J K L M N O R S T V W X Y Z [ \ ] ^ _ ` a b c f g h i j l m n o p q r s t u v w x y z { | } ~  lv8 hApple LaserWriter II NTX TD[ od,Xe`!)@Apple LaserWriter II NTXpscriptLPT1: dbcd ee3f1k3l3m5b@ i nj o3bl pe`f`hDetail0 m7U`a(b# eo kdate start courseDate start course Long Datedate_start_coursed5U` a(bTcText1 Start course:o5U9`cde] hn/"";"";"";"";"";"#,##0.00;-#,##0.00";"10";"40"DrugIDDrugID Table/QueryWSELECT DISTINCT DRugID, [Drug Name], [cost per packet] FROM Drugs ORDER BY [Drug Name];0;1440combo 5"SELECT DISTINCT DRugID, [Drug Name], [cost per packet] FROM Drugs ORDER BY [Drug Name];";"Drugs";"";"DRugID";"Drug Name";"PrimaryKey"d5U` abcText2Drug:m7U`apek Drug Namecombo 5 Drug_Named5U` apbEcText3 Drug Name:m7U`a ekcost per packetcost_per_packetd5U` a b*cText4Cost:d5U`a@ bcText5NOTE: Form is based on the Drugs(autolookup form) query, which uses AutoLookup. When you select a treatment, the patients details, Drug Name and cost fields are automatically looked up and filled in.m7U`aXbk patientnamed5UaXbc Text15name:m7U`abfekGender m or f onlyd5UabcText17Gender:m7U`axe)k Date of Birthd/m/yy.Must be less than or equal to the current date Date_of_Birthd5U` axbc?K;[Text18Date of Birth:o5U9`bcdxeh+"";"";"";"";"";"";"";"d/m/yy";"";"";"4";"4" PatientID PatientID Table/Querycselect patientid,[given name],[family name],[date of birth],gender from patients order by patientid288;1080;1080;720;720combo 5d5U` axbcText0 Patient ID:current dateDate_of_bc Text18Date of BiPropData_a TypeInfo 8dBlob MͬsxG`U(Detail0d Text0d Text1oDrugIDd Text2d Text3d Text4d Text5d Text15mGenderd Text17mDate_of_BirthDate of Birthd Text18DoctorIDDate end courseDosageFrequencyDoses per daymdate_start_courseDate start coursemDrug_NameDrug namem cost_per_packetcost per packetoPatientIDm patientnameend Box("Do y ouO?", `36, "H“Iē?If>= 6 ThenE '$ U%chp Yj(9jJ2 """)))000___UUUMMMBBB999 ```( +9%I;/]E:IS+!!lYQGj2ga1aS {Cg..&YQFh.IRAccessObjSiteData&8OlePres000  !#$%3O&Q444%|Vf3OPQࡱ;   Drugs Usage'4%3OQ'44  ࡱ; 88ࡱ FMicrosoft Graph 5.0GBiff5MSGraph.Chart.5ࡱ;   ""#,##0;\-""#,##0""#,##0;[Red]\-""#,##0""#,##0.00;\-""#,##0.00!""#,##0.00;[Red]\-""#,##0.003*0_-""* #,##0_-;\-""* #,##0_-;_-""* "-"_-;_-@_-*)'_-* #,##0_-;\-* #,##0_-;_-* "-"_-;_-@_-;,8_-""* #,##0.00_-;\-""* #,##0.00_-;_-""* "-"??_-;_-@_-2+/_-* #,##0.00_-;\-* #,##0.00_-;_-* "-"??_-;_-@_-"$"#,##0_);\("$"#,##0\)"$"#,##0_);[Red]\("$"#,##0\) "$"#,##0.00_);\("$"#,##0.00\)%""$"#,##0.00_);[Red]\("$"#,##0.00\)52_("$"* #,##0_);_("$"* \(#,##0\);_("$"* "-"_);_(@_),)_(* #,##0_);_(* \(#,##0\);_(* "-"_);_(@_)=:_("$"* #,##0.00_);_("$"* \(#,##0.00\);_("$"* "-"??_);_(@_)41_(* #,##0.00_);_(* \(#,##0.00\);_(* "-"??_);_(@_)1Arial1Arial1xArial1Arial1Arial=q  8R3,&SCK;[TU Drug nameTreatment_PatientID Creme eggs@Liquorice allsorts@ M&Ms@ Opal fruits@ Polo mints0@Smarties*@WY,'/= ; >X4hп33Q Treatment_PatientIDQQ3       4E4D FA 1 3O  ; 3-" H\-3OF%3OQ423  44$%j#SjJu3lJA7e ,N, QdoV YC6r3w_GqC-}zn#&s[ Rp$L 6n{DuqVJ4H2Aph6B"}3%6Z\H"BMXR ӕ$sVo<gX .YLg:}ߚ=VCq8SeFMjLZc"LeN?Pppiiiwwwfxю7Tvpxd?2}Dx#$_`,19م>w؁V!0ȳypQit|45'  "ArialSr-"System-'- !-'- !-'- --   Ru8a `- ` u 8a-  8a- 8a`-` mi8a- miR8a---'--- !---'--- %   2  Drugs Usage---'--- !---'--- !---'--- dI   2 O3---'--- !---'--- .  2 "5---'--- !---'---    2 2---'--- !---'---   2 3---'--- !---'--- ya  2 g16---'--- !---'---DK;[ 8  2 #13---'--- !-- ---'--- ---'--- --     .2  Creme eggs .---'--- ---'---  `-  ` d ] ."2 gLiquorice allsorts.---'--- ---'--- -    . 2 M&Ms  .---'--- ---'---Table/QuerySELECT [Drug name], SUM([all_info].[Treatment].[PatientID]) AS [Treatment_PatientID] FROM [all_info] GROUP BY [Drug name];MSGraph.Chart.5&Microsoft Graph 5.0PropDatace TypeInfo! D9bjhBlob # ࡱ; ͬ (ow`U(Detail0rEmbedded00c!ghxij$k0.Ų@Helv8 hApple LaserWriter II NTX TD[ od,Xe`!)@Apple LaserWriter II NTXpscriptLPT1: dbcd ee3f1k3l3m5b@ i nj o3bl pe`f`@ Detail0-  2 ` Drugs UsageͬK`U(Detail0' -ͬ l,[`U(FormHeaderDetaPropDatagi, TypeInfo- 110lBlob EK;[_0cgp@PatientsPatients test controlsHelv8 hApple LaserWriter II NTX TD[ od,Xe`!)@Apple LaserWriter II NTXpscriptLPT1:dbceAriale1f5g1237hgAriali1ghj16ghk1l23:m4b@ Arialn2Arialo2bArialp5e`fr35ziArial{5eArial`@@ FormHeader`)rrDetail0m7U`labt e@ PatientID PatientIDMust be uniqued25U`abcPatientID Label PatientIDPatientID_Labelm7U`labt ep k Family name Family name Family_named25U`abcFamily name Label Family nameFamily_name_Labelm7U`labek Given name Given name Given_named25U`abcGiven name Label Given nameGiven_name_Labelm7U`labdedkInitialsInitialsd25U`abcInitials LabelInitialsInitials_Labelm7U`laP bekGenderGender m or f onlyd25U`aP bc Gender LabelGender Gender_Labelm7U`la0 bek Date of Birth Date of Birthd/m/yy.Must be less than or equal to the current date Date_of_Birthd25U`a0 bcDate of Birth Label Date of BirthDate_of_Birth_Labelm7W`ahbekAddr1Addr1d25]`ahbc Addr1 LabelAddr1 Addr1_Labelm7W`aHbekAddr2Addr2d25]` aHbc Addr2 LabelAddr2 Addr2_Labelm7W`a(bek TownTownd25]`@a(bc Town LabelTown Town_Labelm7W`abek CountyCountyd25]` abc County LabelCounty County_Labelm7W`abek PostcodePostcode>LL09\ 0LL;0;" "d25]`@abcPostcode LabelPostcodePostcode_Labelm7W`a bek CountryCountryIn case of visitorsd25]` a bc Country LabelCountry Country_Labelm7W`a bhehk Telephone TelephoneOnly digits and spaces allowed999999999999999;0;" "d25]` a bcTelephone Label TelephoneTelephone_Labelo5Ucldpehn"";"";"10";"10"TitleTitle Table/Query$SELECT Patients.Title FROM Patients;d25U`apbc Title LabelTitle Title_Labelr367Ua bc(dg OLEUnbound28URࡱ>   !"#$%&'Root Entry F`U~@Ole 1TableCompObjFK;[j   FMicrosoft Word Document MSWordDocWord.Document.89q;O n&WordMicrosoft Word  System    -@Times New RomanSwgwJ - .2  Double click [$@$NormalmH <A@<Default Paragraph Fontr  rrrrtqt@\\CSE-NT1\HP LaserJet 4M PlusNe01:winspoolHP LaserJet 4M Plus\\CSE-NT1\HP LaserJet 4M Plusps XXA4 7 6''''\\CSE-NT1\HP LaserJet 4M Plusps XXA4 7 6''''v r`@GTimes New Roman5Symbol3& Arial"hBfBfQ!r0cbThis demonstrates that Access will open a Word document when it is attached to a control on a formshaplandshaplandGK;[ObjectPool`U~`U~OlePres000WordDocumentAccessObjSiteData&8:<***%%%*.u.2 uc This demonstrates that Access will open a Word document when it is attached to a control on a form3* *%A** %% *%<%%% <**%*%O****%*A%*<*%* %%%*%**%%*****%*A.-q rbjbjt+t+ " AAr] AI U a$PD  X5 ~Double click: This demonstrates that Access will open a Word document when it is attached to a control on a form rHK;[rr P/ =!"#$%88SummaryInformation( DocumentSummaryInformation8 Oh+'0$0<P dp   cThis demonstrates that Access will open a Word document when it is attached to a control on a formhis shaplandnsthaphap Normal.dott shaplandtt2apMicrosoft Word 8.0h@F#@ ~@Xk/ ~QIK;[՜.+,D՜.+, hp  ?University of Bristolec1 cThis demonstrates that Access will open a Word document when it is attached to a control on a form TitlecThis demonstrates that Access will open a Word document when it is attached to a control on a formJK;[ 6> _PID_GUIDAN{ADE56601-5C64-11D3-80B9-006008552884};O* &  n&WordMicrosoft Word  System    -@Times New RomanSwgwJ - .2  Double click:<***%%%*.u.2 uc This demKK;[onstrates that Access will open a Word document when it is attached to a control on a form3* *%A** %% *%<%%% <**%*%O****%*A%*<*%* %%%*%**%%*****%*A.-;OWord.Document.8Microsoft Word 97`@@ FormFooterPropDatakm. TypeInfo/ 11fvpBlob > pil0mPatientIDd PatientID_LabelPatientID LabelmFamily_nameFamily named Family_name_LabelFamily name LabelmGiven_nameGiven named Given_name_LabelGiven name LabelmInitialsd Initials_LabelInitials Labelm Genderd Gender_LabelGender Labelm Date_of_BirthDate of Birthd Date_of_Birth_LabelDate of Birth LabelmAddr1d Addr1_LabelAddr1 LabelmAddr2d Addr2_LabelAddr2 LabelmTownd Town_LabelTown LabelmCountyd County_LabelCounty LabelmPostcoded Postcode_LabelPostcode LabelmCountryd Country_LabelCountry LabelmTelephoned Telephone_LabelTelephone LabeloTitled Title_LabelTitle LabelrOLEUnbound28 FormFooter<**%*%O****%*A%*0cg h i` jH'k.Ų@DrugsHelv8 hApple LaserWriter II NTX TD[ od,Xe`!)@Apple LaserWriter II NTXpscriptLPT1: dbcd ee3f1k3l3m5b@ i nj o3bl pe`f`Detail0p3U`@ab>c Embedded1Form.Subform 1_(subform)DrugIDDrugIDd5U`@abc Text3 Treatments:m7U;` abekDrugIDDrugID.Number automatically assigned to new supplier.d5U`@abcText4Drug ID:m7U` aXe k DRug Name Drug name DRug_Named5U`@aXbcText5 Drug Name:m7`@ a8bkField6=[Embedded1].[Form]![DrugCount]d5]`:a8b cText7Number of Treatments:d5U`axbcHText9ݐNOTE: Main form displays a value calculated from subform detail records. Subform performs the aggregate in a control in its footer (not shown).PropDataoqP TypeInfoQ 12tBlob U ͬ ֭K`U(Detail0pEmbedded1d Text3mDrugIDd Text4mDrug_NameDrug named Text5mField6d Text7d Text9 Tablets per pLK;[acket Cost per packet0c!ghxj(&kt@ TreatmentHelv8 hApple LaserWriter II NTX TD[ od,Xe`!)@Apple LaserWriter II NTXpscriptLPT1: dbcd ee3f1k3l3m5b@ i nj o3bl pe`f` FormHeader0`Detail0m7U` aeDrug IDDrugID-Number automatically assigned to new product.Drug_IDd5U`abcText0Drug ID:m7U` aXeo kDosageDosaged5U`aXbTcText1Dosage:m7U` ae6k Doses per day Doses per day Doses_per_dayd5U`abcText2Doses per day:` FormFooter1m7U`@ ah DrugCount=Count([drugid])d5U`ahbcText4Count:ͬҭK`U(FormHeader0Detail0mDrug_IDDrug IDd Text0mDosaged Text1mDoses_per_dayDoses per dayd Text2PropDatasud TypeInfoe r13rzxBlob k FormFooter1m DrugCountd Text4 PatientID DRugID DoctorIDDate start courseDate end courseFrequency0abcK$ghipj,%kPr.Ų@PatientsPatients and Treatmentsd7ei14bcgXj14bcgXm9gX`Detail0m57U`aMb e} Family Name Family name Family_Named25U7`aMbcText2 Family Name:m57U`a6bekCountryTownd25U7`a6bc2  ()Use database order for string comparisons' ''       'F$kh  b  $'  $ 'B $ 'i`    $'     $'  b    $' ' ip] '  Text4Town:p3U4`awb"cd drug formForm.Subform 2_(drug form) drug_formd25U7`aKb'cText6Select a drug...f3U`ab!Line7m7U`a bckDRugID=[drug form].[Form]![DRugID]p3U4a b"cdSecond SubformForm.Subform 2_(second subform)patientid;DrugIDpatientid;DrugIDSecond_Subformd25U7`aS bcText14...to see the treatmentsd5U7`@abwcXText19NOTE: The main form is bound to Patients, first subform to Drugs, second subform to Treatment Details. Since subforms can only be linked to values on the main form, the second subform is linked to the first through a hidden calculated control on the main form.m7U`<aeVk Given name Given name Given_named25U`DabPcLabel20 Given name:m7U`abekInitialsInitialsd25U` abcLabel21 Initials:m7U` abekGenderGender m or f onlyd25U`2abcLabel22Gender:m7U`ab ek PatientID PatientIDMust be uniqued25U`ablcLabel23 PatientID:d25U`abcLabel25Select a patient...demonstrates that Access will open a Wordttached to a control on a formMK;[ͬK`U(Detail0mFamily_nameFamily named Text2mCountryd Text4d Text6f Line7m DRugIDp Second_SubformSecond Subformd Text14d Text19TitleDate of BirthAddr1Addr2PropDatawy TypeInfo ?14|Blob  TownCountyPostcodeTelephonepdrug_formdrug formmGiven_nameGiven named Label20mInitialsd Label21mGenderd Label22m PatientIDd !Label23d "Label25 0c{ ghij$k7Drugsd7ei14bcgXj14bcgXm9gX` FormHeader1`Detail0m7U;`axb eOrder IDDrugIDGeneral Number!Unique order number from invoice.Order_IDd5U``axbcText7Drug ID:m7U;`abe&k Order Date Drug name Medium Date Order_Dated5U`abvcText9 drugname:m07U;`aHbepk Required DateTablets per packetGeneral Number Required_Dated5U`iaHbcText11Tablets per packet:m7U;`abeRk Shipped DateCost per packet#,##0.00;-#,##0.00 Shipped_Dated5U`wabcText13cost per packet:` FormFooter2     JI !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHNKLMORPQSXUgVWYiZ\]^_`bcde^hlamn~qstuvwxyz{|}~ͬ;%T4 `U(FormHeader1Detail0mOrder_IDOrder IDd Text7mOrder_DateOrder Dated Text9mRequired_DateRequired Dated Text11mShipped_DateShipped Dated Text13 FormFooter2 DRugID Drug Name Tablets per packetCost per packet03abcX g#hij()kh0@!Treatment Details (Extended form)Helv8 hApple LaserWriter II NTX TD[ od,Xe`!)@Apple LaserWriter II NTXpscriptLPT1: dbcHelve3f1k3l3m5HelvnHelvo3Helvp` FormHeader0`Detail1e35]`abcBox15m57U;`3 abeuDoctorIDDoctorIDGeneral NumberOrders.Get Unit Price MS Sans Serifd25U`(ab9c,eText0 DoctorID: MS Sans Serifm57U`8abe)k Unit PriceDosage>=00You must enter a price for each product ordered.0.00 MS Sans Serif Unit_Priced25U`KabceText1Dosage: MS Sans Serifm57` abekQuantity FrequencyGeneral Number>03You must enter a value for number of units ordered.1 MS Sans Serifd25]`%abceText2 frequency: MS Sans Serifm 57U`Fabe kDR NameDR name MS Sans SerifDR_NNK;[amed25U`abceText5Doctor: MS Sans Serifm 57`Dabkcostcost$#,##0.00;($#,##0.00) MS Sans Serifd25U`PabXceText7cost: MS Sans Serifm7U`namb\ek PatientID PatientIDLinks to Patients tabled5UambcLabel33 PatientID:m7U`jabekDrugIDDrugIDLinks to Drugs tabled5U`abXcLabel34DrugID:` FormFooter2m7U`aOrder Subtotal =Sum([cost])$#,##0.00;($#,##0.00) MS Sans SerifOrder_Subtotald5U`ab8cText25Order Subtotal: MS Sans Serif.2  Creme eggs ---'-ͬ@%T4 `U(FormHeader0Detail1eBox15mDoctorIDd Text0m Unit_PriceUnit Priced Text1m Quantityd Text2m DR_NameDR Named Text5mcostd PropData TypeInfo 16Blob  Text7FormFooter2mOrder_SubtotalOrder Subtotald Text25Drug NameDosageFrequencymPatientIDd Label33mDRugIDd Label34t].[PatientID]) AS [Treat 0abcg+hiSj1k~ Treatmenttemp d7ee1bRcRi14bcgj14bcgm49bcgn25cdho27efj`. FormHeader1d25]7`ab cdText12tempd257`aqb cdText13temp`Detail0m7U`E abHe'kDate start courseDate start coursed/m/yyDefault = todayDate_start_coursed5U`5abcText31Date start course:o5U`b c9 dqeDoctorDoctorID Table/Query