Standard Jet DBnb` Ugr@?~1y0̝cßFNai7֜!($`{6߱fC(=3y[u'|*O|1bf_Љ$g'DeFx -bT4.0dv  @@80SysAccessObjectsLLLLLLLLLLJ  YS  Y   Y Y  Y Y  Y  Y  Y   Y  Y  Y  Y  Y 2Y  Y   Y  Y ConnectDatabaseDateCreateDateUpdate FlagsForeignNameIdLvLvExtraLvModule LvPropName OwnerParentIdRmtInfoLongRmtInfoShortTypeYYIdParentIdName        `w*+a   AcessVBAData3 Forms  `^$+`^$+Cmdbars`^$+`^$+Modules `^$+`^$+  !"#$%&'()*+,6./017C3C3C3CC3" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] e] ijMSysDb   dir_VBA_PROJECT PROJECT-5PROJECTwm2x % Access VBAWin16~Win32MacVBA6# Access9dbDAOADODBsstdole` Application* ReferencesFullPath+MinoraOY>SY Y Y  Y 2ACMFInheritableObjectIdSID  AtYObjectId46}#5.0#0#C:\Program Files\Common Microsoft Shared\w\dao360.dll# 3.6 Object Li`braryH|ADODB>D ADZDB\\C]\10-8\AA006D2EA@4}#2.1\ROGRAM FILES\COMMONSYSTEM\9\msado21.tlbWActiveX DataZs ,\stdole>stdole/h.^/2043\Y -P]2E]WINDOWS\system32\C2)OLE Automation"”am  **\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\office\setup\x86\ship\FILES\PFILES\COMMON\MSSHARED\VBA\VBA6\VBE6.DLL#Visual Basic For Applications,*\G{4AFFC9A0-5F99-101B-AF4E-00AA003F0F07}#9.0#0#C:\office\setup\x86\ship\FILES\PFILES\MSOFFICE\OFFICE11\MSACC.OLB#Microsoft Access 11.0 Object Library*\G{00025E01-0000-0000-C000-000000000046}#5.0#0#C:\Program Files\Common Files\Microsoft Shared\DAO\dao360.dll#Microsoft DAO 3.6 Object Library*\G{00000201-0000-0010-8000-00AA006D2EA4}#2.1#0#C:\PROGRAM FILES\COMMON FILES\SYSTEM\ADO\msado21.tlb#Microsoft ActiveX Data Objects 2.1 Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\system32\stdole2.tlb#OLE Automation N?Reports`^$+`^$+Scripts `^$+`^$+PropData4Databases`^$+`M0`^$+ &+Blob DirData5CustomGroups`^$+`^$+DataAccessPages `^$+`^$+ Y SY  Y Y Y  Y  Y Y  Y AttributeExpressionFlagLvExtra Name1 Name2ObjectId Ordernzf edY"ObjectIdAttributeSYSTEM\9\msado21.tlbWActiveX DataZs ,\stdole>stdole/h.^/2043\Y -P]2E]WINDOWS\system32\C2)OLE Automation"”am  **\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\office\setup\x86\ship\FILES\PFILES\COMMON\MSSHARED\VBA\VBA6\VBE6.DLL#Visual Basic For Applications,*\G{4AFFC9A0-5F99-101B-AF4E-00AA003F0F07}#9.0#0#C:\office\setup\x86\ship\FILES\PFILES\MSOFFICE\OFFICE11\MSACC.OLB#Microsoft Access 11.0 Object Library*\G{00025E01-0000-0000-C000-000000000046}#5.0#0#C:\Program Files\Common Files\Microsoft Shared\DAO\dao360.dll#Microsoft DAO 3.6 Object Library*\G{00000201-0000-0010-8000-00AA006D2EA4}#2.1#0#C:\PROGRAM FILES\COMMON FILES\SYSTEM\ADO\msado21.tlb#Microsoft ActiveX Data Objects 2.1 Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\system32\stdole2.tlb#OLE Automation N?Reports`^$+`^$+Scripts `^$+`^$+PropData4Databases`^$+`M0`^$+ &+Blob DirData5CustomGroups`^$+`^$+DataAccessPages `^$+`^$+ -YSY Y Y  Y  Y  Y  Y  Y ccolumn grbiticolumnszColumnszObject$szReferencedColumn$szReferencedObjectszRelationship   YYYszObject$szReferencedObjectszRelationship  AcessVBAData3 Forms  `^$+`^$+Cmdbars`^$+`^$+Modules `^$+`^$+  !"#$%&'()*+,./0169E49" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] space] ijMSysDbdir_VBA_PROJECT" PROJECT-1PROJECTwm2x %AccessVBAWin16~Win32MacVBA6# Access9dbDAOADODBsstdole`H   ID="{4A9D0C0D-0BD6-11D4-9BD1-00003965D308}" Name="Access9db" HelpContextID="0" VersionCompatible32="393222000" CMG="9C9E2DD3556B596B596B596B59" DPB="383A89EA8AEA8AEA" GC="D4D6651B9DB69EB鱀Yv1b N  : k & W  C t/    $%,-.*+/01234&'()56  !"# @@@@@@H @@@ `dOo^Q8OJmJJMMQkkfJUQkOJmJLJkQkSdi`k `dOo^Qk iQ^JmYdbkWYfkiQfdimk kMiYfmk kvkiQ^ mJL^QkSYbOOof^YMJmQkSdisQJmWQi`kvkJMMQkkdL[QMmk`kvkJMQk`kvkdL[QMmk`kvkhoQiYQk`kvkiQ^JmYdbkWYfksQJmWQiJMMQkk^Jvdom`kvkOLko``JivYbSdokQiOQSYbQOokQiOQSYbQORoot Entry wVBA`^$+wVBAProject`w*+wVBA`w*+adir_VBA_PROJECT PROJECT/5PROJECTwm4  !"#$%&'()*+,-.0123鱀0* pHd Access9dDb0@ = p N? J<  DAO>BDAO *\G{00025E01-:0C  0046}#5.0#0#C:\Program Files\Common Microsoft Shared\w\dao360.dll# 3.6 Object Li`braryH|ADODB>D ADZDB\\C]\10-8\AA006D2EA@4}#2.1\ROGRAM FILES\COMMONSYSTEM\9\msado21.tlbWActiveX DataZs ,\stdole>stdole/h.^/2043\Y -P]2E]WINDOWS\system32\C2)OLE Automation"”am  **\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\office\setup\x86\ship\FILES\PFILES\COMMON\MSSHARED\VBA\VBA6\VBE6.DLL#Visual Basic For Applications,*\G{4AFFC9A0-5F99-101B-AF4E-00AA003F0F07}#9.0#0#C:\office\setup\x86\ship\FILES\PFILES\MSOFFICE\OFFICE11\MSACC.OLB#Microsoft Access 11.0 Object Library*\G{00025E01-0000-0000-C000-000000000046}#5.0#0#C:\Program Files\Common Files\Microsoft Shared\DAO\dao360.dll#Microsoft DAO 3.6 Oc  @ @        VBA`w*+Ӱ  AcessVBAData3 Forms  `^$+`^$+Cmdbars`^$+`^$+Modules `^$+`^$+  !"#$%&'()*+,./0169E49" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] space] ijMSysDbdir_VBA_PROJECT" PROJECT-1PROJECTwm2x %AccessVBAWin16~Win32MacVBA6# Access9dbDAOADODBsstdole`H   ID="{4A9D0C0D-0BD6-11D4-9BD1-00003965D308}" Name="Access9db" HelpContextID="0" VersionCompatible32="393222000" CMG="9C9E2DD3556B596B596B596B59" DPB="383A89EA8AEA8AEA" GC="D4D6651B9DB69EB鱀0* pHd Access9dDb0@ = p N? J<  DAO>BDAO *\G{00025E01-:0C  0046}#5.0#0#C:\Program Files\Common Microsoft Shar  @ @ @ @ @ @ @ @    $%89: ; < =,-.*+/01234&'()567  !"####c  @        $%,-.*+/01234)5678  !"###   d _ Z g  + 9 I m Z G \09wohctLLS@LLХXahpehdh ohahghhh0fhfhMSysAccountsGxgxg  Lud @Lud @AccessLayout?4MR2Keep  Lud @MZ6.@AccessLayout?4MR2KeepLocal T"@zz:::::::8 @ p{* @p{* @Module1?0000000000. Jf @W @Find duplicates for weather? @ @|@|ppdXXXXXXV `Uհ @W @weather?a@<<<0000000. @Zi\@i\@MSysAccessObjects?DDDDDDDDDDB  G@G@UserDefined?A@DDD88888886 @ G@p_X@SummaryInfo?4MR20 Title AuthorCompanyxxx88888886 @K~@K~@SysRel?.........., K~@K~@Scripts?0000000000. K~@K~@Reports?0000000000. K~@K~@Modules?0000000000. K~@K~@Forms?,,,,,,,,,,* K~@K~@DataAccessPages?@@@@@@@@@@> @@MSysRelationships=DDDDDDDDDDB @@MSysQueries=88888888886 @@MSysACEs=22222222220 @@MSysObjects=88888888886 @w_X@MSysDb?@:::......., @@@Relationships=<<<<<<<<<<: @@Databases=44444444442 @@Tables=..........,  YNY Y DataIDYAOIndexv1 ?K[  @@"TwxT SRwohctLLS@LLХXahpehdh ohahghhh0fhfhMSysAccountsGxgxgFggK[ࡱ>  Root Entry 0& LVBA`^$+0&VBAProject`w*+0&VBA`w*+0&  )%-*+./01234568NOPQRSTUVWXYZ[\]^_`abdefrstuvwz|}~AcessVBAData Forms  `^$+G;Cmdbars`^$+`^$+Modules `^$+`^$+Root Entry -^| LVBA`^$+-^|VBAProject`w*+-^|VBA`w*+-^|\ 458:;<=>?@ABCDEFGHI]_`abcdefghijklmopqrtuvwxyz{|}~  ) !"#$&'(*+9:;<=>?@ABCDEFGHIJKLMghijklmnopq__SRP_1DK[AcessVBAData Forms  `^$+G;Cmdbars`^$+`^$+Modules `^$+`^$+DataAccessPages `^$+`^$+0p Tp TDirData,PropData. \ 458]_`abcdefghijklmopqrtuvwxyz{|}~rU~~~~w   ID="{4A9D0C0D-0BD6-11D4-9BD1-00003965D308}" Module=Module1 Name="Access9db" HelpContextID="0" VersionCompatible32="393222000" CMG="3F3D8ED1F22F3533353335333533" DPB="7E7CCF12316E716F716F71" GC="BDBF0C4F748F758F7570" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [WorrU~~~~w   ID="{4A9D0C0D-0BD6-11D4-9BD1-00003965D308}" Module=Module1 Name="Access9db" HelpContextID="0" VersionCompatible32="393222000" CMG="F3F142513155315531553155" DPB="E6E45766B9AAADABADABAD" GC="D9DB688D698D6972" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] Reports`^$+`^$+Scripts `^$+`^$+PropData6Databases`^$+w0`^$+ &+Blob DirData7CustomGroups`^$+`^$+_VBA_PROJECT&'dir PROJECTK[^PROJECTwm _VBA_PROJECT&'dir PROJECTfPROJECTwm rialn2 Arialo247e fXjp Arialz Arial`hDetail0һ Ek[Zh1U2G` ab cmdRun&GenerateRun query"[Event Procedure]Run Query:r=FLL2?]nh1U2C`abicmdClose &CloseClose the form"[Event Procedure]Close Form6p@I2Y]mm47]`XaPb ckzstxtCalledFrom DKER d5]`Ha Module1=22, 29, 604, 344, Z Z Module1=22, 29, 604, 344, Z Module1Module1 C 0* pHd Access9dDb0@ = p fF J<  DAO>BDAO *\G{00025E01-:0C  0046}#5.0#0#C:\Program Files\Common Microsoft Shared\w\dao360.dll# 3.6 Object Li`braryH|ADODB>D ADZDB\\C]\10-8\AA006D2EA@4}#2.1\ROGRAM FILES\COMMONSYSTEM\9\msado21.tlbWActiveX DataZs ,KHOYLZLEEVRZPDHZYFKMNMXRBDR_:76?__SRP_2$%s__SRP_3n PropData__SRP_0__SRP_4^__SRP_5l\stdole>stdole/h.^/2043\Y -P]2E]WINDOWS\system32\C2)OLE Automation"”@Module1G&du'1KHOYLZLEEVRZPDHZYFKMNMXRBDR_28AH@cYLZEEVTRP@iHYFKMNX@BR_MB1B2B,*H!+BB 0239abcP"g h ihjr$kAͷ@/ 0CB0 U Cxtp`@0 W1j1k14m46gT Ax"am  *\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\PROGRA~1\COMMON~1\MICROS~1\VBA\  @ @ @ @!"#$ % & ' ( )*+,-./10234589:;<nfoShortTypeYYIdParentIdName        AvcP=*z @ -  } j C 0  m Z G  o\H5"q^^^^YAOIndex      ?  ?  b6S+1"l+:Ts3jj1vbٙI7Q[_o;ܼJiM;* _nn*7԰)Y ?  ?  b6S+1"l+:Ts3jj1vbٙI7Q[_o;ܼJiM;* _nn*7԰)YiYXp  ? ? b6S+1"l+:Ts3jj1vbٙI7Q[_o;ܼJiM;* _nn*7԰)YiYXp ? ? b6S+1"l+:Ts3jj1vbٙI7Q[_o;ܼJiM;* _nn*7԰)YiYXp ? ? b6S+1"l+:Ts3jj1vbٙI7Q[_o;ܼJiM;* _nn*7԰)YiYXp ? ? b6S+1"l+:Ts3jj1vbٙI7Q[_o;ܼJiM;* _nn*7԰)YiYXp ? ? Tb6S+1"l+:Ts3jj1vbٙI7Q[_o;ܼJiM;* _nn*7԰)YiYXp ? Tb6S+1"l+:Ts3jj1vbٙI7Q[_o;ܼJiM;* _nn*7԰)YiYXp ? U[p+1"l1,@m3')̛vbٙI7Q[_o}'`JJ;* _nn*7԰)YiYXp ? b6S+1"l+:Ts3jj1vbٙI7Q[_o;ܼJiM;* _nn*7԰)YiYXp ? ? ? b6S+1"l+:Ts3jj1vbٙI7Q[_o;ܼJiM;* _nn*7԰)YiYXp ? ? ? b6S+1"l+:Ts3jj1vbٙI7Q[_o;ܼJiM;* _nn*7԰)YiYXp ? : : ? b6S+1"l+:Ts3jj1vbٙI7Q[_o;ܼJiM;* _nn*7԰)YiYXp ? : ? b6S+1"l+:Ts3jj1vbٙI7Q[_o;ܼJiM;* _nn*7԰)YiYXp ? : ? b6S+1"l+:Ts3jj1vbٙI7Q[_o;ܼJiM;* _nn*7԰)YiYXp ? ? b6S+1"l+:Ts3jj1vbٙI7Q[_o;ܼJiM;* _nn*7԰)YiYXp ? : : ? b6S+1"l+:Ts3jj1vbٙI7Q[_o;ܼJiM;* _nn*7԰)YiYXp ? : ? b6S+1"l+:Ts3jj1vbٙI7Q[_o;ܼJiM;* _nn*7԰)YiYXp ? ? : ? b6S+1"l+:Ts3jj1vbٙI7Q[_o;ܼJiM;* _nn*7԰)YiYXp ?  LVALп+ ++++++++++++++++++++++++ m Z G MR2BValidationRuleValidationTextOrientation FilterOrderByOrderByOnNameMapDefaultViewGUIDColumnWidthColumnOrderColumnHiddenDescription FormatInputMaskCaptionDefaultValueRequiredAllowZeroLengthDisplayControlIMEModeIMESentenceMode$UnicodeCompressionSmartTagsDecimalPlaces   | U )XLf AFyհ @Sheet1x -O0!9'%X )XLf AFoutlookٲ%G )XLf AFtemperature߹JHa )XLf AFhumidityЙ| IFى;Tq )XLf AFwinMR2ODBCTimeoutMaxRecordsRecordLocksRecordsetType FilterOrderByOrderByOnOrientationNameMapDefaultViewGUID[ <    MR2ODBCTimeoutMaxRecordsRecordLocksRecordsetType FilterOrderByOrderByOnOrientationNameMapDefaultViewGUID[ <        brGͥgfMR2BValidationRuleValidationTextOrientation FilterOrderByOrderByOnNameMapDefaultViewGUIDColumnWidthColumnOrderColumnHiddenDescription FormatInputMaskCaptionDefaultValueRequiredAllowZeroLengthDisplayControlIMEModeIMESentenceMode$UnicodeCompressionSmartTagsDecimalPlaces   | U )XLf AFyհ @Sheet1x -O0!9'%X )XLf AFoutlookٲ%G )XLf AFtemperature߹JHa )XLf AFhumidityЙ| IFى;Tq )XLf AFwindy2 `EiIg )XLf AFplay    )XLf AFroutlook         m   _temperature  MR2ODBCTimeoutMaxRecordsRecordLMR2 GUIDNameMapZ /4E 6 . U MR2 GUIDNameMapZ /4E 6 . U MR2AccessVersion BuildAuto Compact6Remove Personal Information"Show Values Limit,Show Values in Indexed4Show Values in Non-Indexed*Show Values in Remote.Show Values in Snapshot*Show Values in Server(Themed Form Controls.Use Default Page Folder&Default Page Folder6Use Default Connection File.Default Connection FileRow LimitANSI Query ModeProjVer 08.50 6                '  #MR2( ReplicateProject K[VBA6\VBE6.DLL#Visual Basic For Applications*\G{4AFFC9A0-5F99-101B-AF4E-00AA003F0F07}#9.0#0#C:\Program Files\Microsoft Office\OFFICE11\MSACC.OLB#Microp fF J<  DAO>BDAO *\G{00025E01-:0C  0046}#5.0#0#C:\Program Files\Common Microsoft Shared\w\dao360.dll# 3.6 Object Li`braryH|ADODB>D ADZDB\\C]\10-8\AA006D2EA@4}#2.1\ROGRAM FILES\COMMONSYSTEM\9\msado21.tlbWActiveX DataZs ,\stdole>stdole/h.^/2043\Y -P]2E]WINDOWS\system32\C2)OLE Automation"”#Form_SQL2VBAG  F@'rm_SQL2VZA@BW@LZIROQQMNDUWAHEWHMMIZECI28Akspace] Module1=22, 29, 604, 344, Z ule1=22, 29, 604, 344, Z Module1Module1 C 0* pHd Access9dDb0@ = p fF J<  DAO>BDAO *\G{00025E01-:0C  0046}#5.0#0#C:\Program Files\Common Microsoft Shared\w\dao360.dll# 3.6 Object Li`braryH|ADODB>D ADZDB\\C]\10-8\AA006D2EA@4}#2.1\ROGRAM FILES\COMMONSYSTEM\9\msado21.tlbWActiveX DataZs ,KHOYLZLEEVRZPDHZYFKMNMXRBDR_:,A__SRP_2$%s__SRP_3n PropData__SRP_0__SRP_4f__SRP_5l\stdole>stdole/h.^/2043\Y -P]2E]WINDOWS\system32\C2)OLE Automation"”@Module1G&du'1KHOYLZLEEVRZPDHZYFKMNMXRBDR_28AH@cYLZEEVTRP@iHYFKMNX@BR_MB1B25B,*H!+BB 0239abcP"g h ihjr$kAͷ@/ 0CB0 U Cxtp`@0 W1j1k14m46gT Aam  *\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\Microsoft Office\OFFICE11\MSACC.OLB#Microsoft Access 11.0 Object Library*\G{00025E01-0000-0000-C000-000000000046}#5.0#0#C:\Program Files\Common Files\Microsoft Shared\DAO\dao360.dll#Microsoft DAO 3.6 Object Library*\G{00000201-0000-0010-8000-00AA006D2EA4}#2.1#0#C:\PROGRAM FILES\COMMON FILES\SYSTEM\ADO\msado21.tlb#Microsoft ActiveYN Y  Y Y Y  Y 0outlooktemperaturehumidity windyplaydvI }R'yN# u xtOrientestQ@V@rainyno @T@R@overcastyes("R@V@overcastyes("R@Q@sunnyyes"R@T@rainyyes"@Q@Q@sunnyyes"R@W@sunnyno P@@P@overcastyes("@P@Q@rainyno Q@T@rainyyes"Q@X@rainyyes"T@U@overcastyes("T@V@sunnyno @U@@U@sunnyno  Ϧ\ z3 (((Count(weather.play))>1)): ' weather.play+ gNumberOfDupsCount(weather.play)J)) oplay FieldFirst(weather.play)F%% oweather  G G  GLVALʾeatherFind duplicates for weatherCreate form in Design viewModule1 e^3LVALП ɴMR2BValidationRuleValidationTextOrientation FilterOrderByOrderByOnNameMapDefaultViewGUIDColumnWidthColumnOrderColumnHiddenDescription FormatInputMaskCaptionDefaultValueRequiredAllowZeroLengthDisplayControlIMEModeIMESentenceMode$UnicodeCompressionSmartTagsDecimalPlaces   | UMR2ODBCTimeoutMaxRecordsRecordLocksRecordsetType FilterOrderByOrderByOnOrientationNameMapDefaultViewGUIDDOL <        brGͥgf U )XLf AFW @weather(l^m@%G_ )XLf AFplay MR2ODBCTimeoutMaxRecordsRecordLocksRecordsetType FilterOrderByOrderByOnOrientationNameMapDefaultViewGUIDDOL <        brGͥgf U )XLf AFW @weather(l^m@%G_ )XLf AFplay MR2BValidationRuleValidationTextOrientation FilterOrderByOrderByOnNameMapDefaultViewGUIDColumnWidthColumnOrderColumnHiddenDescription FormatInputMaskCaptionDefaultValueRequiredAllowZeroLengthDisplayControlIMEModeIMESentenceMode$UnicodeCompressionSmartTagsDecimalPlaces   | U )XLf AFyհ @Sheet1x -O0!9'%X )XLf AFoutlookٲ%G )XLf AFtemperature߹JHa )XLf AFhumidityЙ| IFى;Tq )XLf AFwindy2 `EiIg )XLf AFplay    )XLf AFoutlook         m    ux'6EyBy2wtemperature         m  UI;z9]#Pqhumidity         m #'JAB=6b windy        m >iRICvplay         m    (l^m@%G_t LVAL ά(h&xweather[LVALkhDQ 0 d `#?0 00h0 0  <0000  play FieldNumberOfDups00000W @00 0h 0hweather`0P0P00W @5Find duplicates for weather0 0@0 0H000 weather 0 00$080@0H0P0X0h00h00h00h00h00h00h00h00h00h00h00h00h00h00h00h00h00h00h00h00h00h00h00h00h00h00h00h00h00h00x08 00v 000 0 0q 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0(0 h0H00 t000 0 H0h0H00 000x 0H0H0 0( 0000(0080 weatherH0 0 0 @   0 0 0 00 0 0 0H000(00800H0l0 x00|0 0 00h00X0|( 00000000000000000000000000000000}( 0t0t0t0t0t0t0t0t0t0t0t0t0t0t0t0t0t0t0t0t0t0t0t0t0t0t0t0t0t0t00 00  H0 0 0 0H0000 H00K[X Data Objects 2.1 Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\system32\stdole2.tlb#OLE Automation fF8KHOYLZLEEVRZPDHZYFKMNMXRBDR_1Z46bb115bModule125(Hxaȩ`{H\\&RD,{: A Access AsCase.Debug=Dim@doCEachDelseGendTFor_ifbIncinputxLongyloopnotNothingOrOutputSELECTthenTountil VBAWin16~Win32MacVBA6# Access9dbDAOADODBsstdole` Module1b _Evaluate(ConvertTbl2Arffb sTblName|InputBox cn\ Connection(IfNull[valueK NullValueIsNull ExtractPathfullpath+InStrRevĈExtractFilenameWext%Right ExtractFilenametempRFunctiors_ Recordsetfld܎Field3CurrentProject$ adOpenKeysetadLockReadOnlyQ _B_var_forjLFields7ConvertTbl2Arff_CleanUpExit\ConvertTbl2Arff_Error MsgBoxRErroNumber- Description  vbInformationn DataFormatO adOpenStatic adCmdTable rstEmployeesDState adStateOpen=CnxnadChar (FieldType& adVarChar adSmallInt adUnsignedTinyIntg adDBTimeStampisFldTypepintType adVarWChar adCurrency[ adInteger&:adDate_adBigIntadBinaryadBSTR4adLongVarBinaryL adLongVarCharadLongVarWCharUadWCharM adDecimaladDouble adNumericM adTinyIntyadUnsignedBigIntV adUnsignedIntOadUnsignedSmallInt adVarNumericadDBDatefadDBTime adBoolean*ChrK~ _B_var_Chr\;sTblNmsFldNmXvbYesNo vbQuestionvbDefaultButton1vbYesa?vbNo%this̹ Form_SQL2VBANForm_convertSQL2VBA$cmdclose_Click!PzstxtCalledFrom+FormsVisibleDoCmdƧacForm cmdRun_Click intKEYWORDMAX~strLINE intLINEUP@ strCRTEXTbstrSQlFstrInT`lngChar| blnkeyWordqw intKeyWordstrQf5lngEnd/rstrOutP1 strKeyWordvbCrLftxtSQL/Space soft Access 11.0 Object Library*\G{00025E01-0000-0000-C000-000000000046}#5.0#0#C:\Program Files\Common Files\Microsoft Shared\DAO\dao360.dll#Microsoft DAO 3.6 Object Library*\G{00000201-0000-0010-8000-00AA006D2EA4}#2.1#0#C:\PROGRAM FILES\K[COMMAsc!utxtVBA=lstQuery_ClickcmdRunt Enabled۪txtDescolstQuery0ColumnilstQuery_DblClick&CancelFormDetail0,cmdClosejzslblCalledFrom6EClick_B_var_strKeyWordM _B_str_Chrm#ControlsKItemz _B_var_Midp _B_str_Space _B_str_MidXplayS _B_var_DoEOFMoveNextL! _B_var_LeftQFieldType_CleanUpExitFieldType_Error/Trim@ _B_var_TrimmT(TrimAll~sStringsResult ReplacefHasSpace6bResultfsResStr6ch\cZsstrin9sstrisstrX0ssttss'_sjreplac _B_var_replacBDAO *\G{00025E01-:0C  0046}#5.0#0#C:\Program Files\Common Microsoft Shared\w\dao360.dll# 3.6 Object Li`braryH|ADODB>D ADZDB\\C]\10-8\AA006D2EA@4}#2.1\ROGRAM FILES\COMMONSYSTEM\9\msado21.tlbWActiveX DataZs ,\stdole>stdole/h.^/2043\Y -P]2E]WINDOWS\system32\C2)OLE Automation"”#Form_SQL2VBAG  F@'rm_SQL2VZA@BW@LZIROQQMNDUWAHEWHMMIZECI28AWRAMPZI@O@Q@NmUAHTEHM@Zm@CAj1tModule1Major'HB,-4"(B"+BModule1G1duY1.KHOYLZLEEVRZPDHZYFKMNMXRPBDR_.KOTY=ZE&VQ0ZP.H3YFK2MX5@BRJ.00D.!@& -bJ_N?4C 0CB0D14EE18EE18EE18EE18" DPB="DAD86BF4E9F5E9F5E9" G85755E67B1E859A869A8665" [Host Extender Info] &H00000001={L@ $,,)xd@,5p$  xd@,< @) $  L8ijMSysDb ,5}xME)L)!> LLLLON FILES\SYSTEM\ADO\msado21.tlb#Microsoft ActiveX Data Objects 2.1 Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\system32\stdole2.tlb#OLE Automation K[fF8KHOYLZLEEVRZPDHZYFKMNMXRBDR_1Z46bb115bModule12(Hxaȩ`{H\\&RD,{: A Access AsCase.Debug=Dim@doCEachDelseGendTFor_ifbIncinputxLongyloopnotNothingOrOutputSELECTthenTountil VBAWin16~Win32MacVBA6# Access9dbDAOADODBsstdole` Module1b _Evaluate(ConvertTbl2Arffb sTblName|InputBox cn\ Connection(IfNull[valueK NullValueIsNull ExtractPathfullpath+InStrRevĈExtractFilenameWext%Right ExtractFilenametempRFunctiors_ Recordsetfld܎Field3CurrentProject$ adOpenKeysetadLockReadOnlyQ _B_var_forjLFields7ConvertTbl2Arff_CleanUpExit\ConvertTbl2Arff_Error MsgBoxRErroNumber- Description  vbInformationn DataFormatO adOpenStatic adCmdTable rstEmployeesDState adStateOpen=CnxnadChar (FieldType& adVarChar adSmallInt adUnsignedTinyIntg adDBTimeStampisFldTypepintType adVarWChar adCurrency[ adInteger&:adDate_adBigIntadBinaryadBSTR4adLongVarBinaryL adLongVarCharadLongVarWCharUadWCharM adDecimaladDouble adNumericM adTinyIntyadUnsignedBigIntV adUnsignedIntOadUnsignedSmallInt adVarNumericadDBDatefadDBTime adBoolean*ChrK~ _B_var_Chr\;sTblNmsFldNmXvbYesNo vbQuestionvbDefaultButton1vbYesa?vbNo%this̹ Form_SQL2VBANForm_convertSQL2VBA$cmdclose_Click!PzstxtCalledFrom+FormsVisibleDoCmdƧacForm cmdRun_Click intKEYWORDMAX~strLINE intLINEUP@ strCRTEXTbstrSQlFstrInT`lngChar| blnkeyWordqw intKeyWordstrQf5lngEnd/rstrOutP1 strKeyWordvbCrLftxtSQL/Space Asc!utxtVBA=lstQuery_ClickcmdRunt Enabled۪txtDescolstQuery0ColumnilstQuery_DblClick&CancelFormDetail0,cmdClosejzslblCalledFrom6EClick_B_var_strKeyWordM _B_str_Chrm#ControlsKItemz _B_var_Midp _B_str_Space _B_str_MidXplayS _B_var_DoEOFMoveNextL! _B_var_LeftQFieldType_CleanUpExitFieldType_Error/Trim@ _B_var_TrimmT(TrimAll~sStringsResult ReplacefHasSpace6bResultfsResStr6ch\cZsstrin9sstrisstrX0ssttss'_sjreplac _B_var_replac LLLLLPPLLLLLLLL<<<<<<<<<<<<<<<<<<<<<<<<<<<<LPPLLLLLLLLLLLLLLLL<<<<<<<<<<<<<<<<<<<:n>nP`x% % `8kPP  9t hp% <l%+h` k(33Yit Xixi+ ` k i" i$ H8(`pL `*h`d@@X@P@ZD\t^@P< `t(%@i(8 9xpp l%`*t@h, &`@ k @ @ `2p@ @ @ @ @( @@ @X @p @| P@l 8@h @d @8` (&h TN@\ ($@XO $@hT @P @L @J K[@D &8@@ @< (/@8O p/(`N``R\6+T` k i( bPV`Xh`ffx h0Xp p @&l   8 @H ` ` @ \ H ,\ @L @H H  @ D  @( @  @  @P < h ( @ 8  P H P @ 4  @0  X @ bP(XX  8 P `hx P @~f@ h @d 8@b ` 8 P  jvN@h \ @ L f@ < @ , @  @8 @ @ @ @  x &Tz@  ln |bPV@ @  `Tx@&@@8` @P @P@ @h0 @ @ @ PPh` l xP &"HHO@\ @L @< @0, @ @ ( fF$*\Rffff*1Z46bb115b*\R3*#37*\R3*#44*\R3*#41*\R0*#f*\R3*#36*\R3*#35*\R0*#2*\R3*#7*\R0*#1*\R0*#19*\R0*#13*\R3*#31*\R3*#5*\R0*#e*\R0*#11*\R0*#f*\R3*#34*\R3*#1f*\R3*#2*\R3*#0*\R3*#32*\R3*#30*\R1*#af*\R1*#98*\R1*#99*\R0*#14*\R1*#98*\R1*#af*\R3*#34*\R0*#12*\R0*#f*\R3*#37*\R0*#12*\R3*#31*\R0*#19*\R1*#98*\R1*#af*\R3*#34:*\G{000204EF-0000-0000-C000-000000000046}#4.0#9#..\..\..\..\..\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*#f*\R3*#37*\R3*#31*\R0*# K[19*\R3*#35*\R3*#36  4 Fx ( B 40 ,h 6 "  <H `hp  > . ,@(  +x  (  < .\ @0* .  4( Z` ^ @ R8  ` @ :   3! 8x - 0:+ $ o (  #  ( 0#@`h  XpT~x  N@ B `hp+ > \?0$!(!( H4(*q@ Xx&p' J , 0@ H`  #8 @ H#Xx N~ h V B p :8   (XB 7 7 7 07 H  0 T B x ?XPH(]L0Enter table nameweather$']h]] @!..8"   Z D \ 8B@tr fV] < 8!H hJ 8rom 8!` bG 8B@Bjek`.8 * !` bG B@Bjk |LError P!R ( P!T) in procedure ConvertTbl2Arff VA@NJo t ~K K K fK K K K jK vK KT Is variable  a nominal variable?   Nominal Variable$N KT KTstring'hn ~K K K zK K lK K K K K nK KTpnumeric'h |K K KTjDate'h KT {True, False}'hn i $' ]d8 "' k(i ]Xp r i =p@NIf there is a space in given string return a string with quotations around it ]X]] @!.y .8 HA   8B@>1;SELECT [ ]'  FROM [ ]'  GROUP BY [ ];' 8%H$&k0 8!a[play 8B@(play)X h h $'h zx pError P!R ( P!T) in procedure FieldType VA@N  8 8!` bG 8B@Bjk.8  !` bG B@Bjki  /'*{$' K[h h}$'h h 8%H$T,$'hh * $$,'* *'& f@data <Error handling 8 d *'TiX ] ($&'2 2 (k ('*d 8!a < 8!Hk'N]@X'x "$& "$""$ ("$'* N R$T,$'N N R,$'N'N <!"?$ :n>n`x% % `8HPP  9t hp% <l%+h`xH(33Yit Xixi+ ` H i" i$ H8(`pL `*`Xp((@(l  `t(%@i( 9xpp l%`*tP P &`lH ( `*h`2p Xp(@| Xl P @h 8@d  ` h Tt\ $ XO $T @P (XL @J ((D @@ &8ph< /X(8O  /6p`N``R\+T` k i( (x8`Xh`ff@h0XX 0 fX @h @d @b H X NX \ @L @< , @   @  P@  &z H x  @ @ 8  XX nXbPV@ ( @   0 p x `l x 8x \  L @<  , f@ 8  h K[ ` l  X,@@X (H D  `Tx@&@@8` @P @P@ @h0 @ XPV@(l \ @L @< x, @ ` HHO ( fF$*\Rffff*1Z46bb115b*\R3*#37*\R3*#44*\R3*#41*\R0*#f*\R3*#36*\R3*#35*\R0*#2*\R3*#7*\R0*#1*\R0*#19*\R0*#13*\R3*#31*\R3*#5*\R0*#e*\R0*#11*\R0*#f*\R3*#34*\R3*#1f*\R3*#2*\R3*#0*\R3*#32*\R3*#30*\R1*#af*\R1*#98*\R1*#99*\R0*#14*\R1*#98*\R1*#af*\R3*#34*\R0*#12*\R0*#f*\R3*#37*\R0*#12*\R3*#31*\R0*#19  Fx ( B 40 ,h 6 "  <H `hp  > . ,@(  +x  (  < .\ @0* .  4( Z` ^ @ R8  ` @ :   3! 8x - 0:+ $ o (  #  ( 0#@`h  XpT~x  N@ B `hp+ > \?0$(( H(*@ Xx&p' J , 0@ H`  #8 @ H#Xx N~ h V B p :8   (XB    0 H  0 T B x ?XPH(]L0Enter tab K[le nameweather$']h]] @!..8"   Z D \ 8B@tr fV] < 8!H hJ 8rom 8!` bG 8B@Bjek`.8 * !` bG B@Bjk |LError P!R ( P!T) in procedure ConvertTbl2Arff VA@NJo t ~K K K fK K K K jK vK KT Is variable  a nominal variable?   Nominal Variable$N KT KTstring'hn ~K K K zK K lK K K K K nK KTpnumeric'h |K K KTjDate'h KT {True, False}'hn i $' ]d8 "' k(i ]Xp r i =p@NIf there is a space in given string return a string with quotations around it ]X]] @!.y .8 HA   8B@>1;SELECT [ ]'  FROM [ ]'  GROUP BY [ ];' 8%H$&k0 8!a[play 8B@(play)X h h $'h zx pError P!R ( P!T) in procedure FieldType VA@N  8 8!` bG 8B@Bjk.8  !` bG B@Bjki  /'*{$'h h}$'h h 8%H$T,$'hh * $$,'* *'& f@data <Error handling 8 d *'TiX ] ($&'2 2 (k ('*d 8!a < 8!Hk'N]@X'x "$& "$""$ ("$'* N R$T,$'N N R,$'N'N <!"?$ 'R R?$ f @relation  ^!@!`\$ .arff'X f @attribute <!$& $ <!l  <!$hp'Enter the table name to convert to ARFFDo the basic ADO stuffOpen the table using ADO6Create the file name using table name and current path6--------------------Declarations Area-----------------7--------------------Declarations End------------------- X f%Open a file for output'Print the first line of ARFF- @relation-Start a loop to print all the attribute namesSThe function FieldType takes care of nominal, boolean, numeric and string variablesXIf it is a string variable programs asks if it is a nominal variable, if it is a nominal9variable then a SQL query is run to get the unique valuesPrint the @data line[4Run a loop thru all the records to print the records f N N $7Prints each instance 8B@ Move      !"#$%&'()*+,-./01 to next recordMake a clean exitGFind the Access table field types and return equivalent ARFF data typesOIf the field value is Null replace it with optional Nul K[lValue, in this case a ?8Chr(63)="?" Chr(44)= "," Chr(34)="" 'f1Assign an avaialble freefile number to a variable?Use this procedure to convert Access Tables to ARFF data format!Some highlights of this procedure; - Takes care of spaces in Attribute name and data values~~- - Finds unique values of nominal variables % - Assigns equivalent ARFF datatype0 - Replaces missing values with question marks ]@ t'p Note start time 3Succesfully converted an Access table to ARFF file-  X  Time taken:  t p  seconds.A@NH :@$, * $$,'*ces, racket [`*( * $$,'*move *( {*, "Remove special chars from a string * $$,'* ('*rAttribute VB_Name = "Module1" Option Compare Da@tabase`Explicit 'Use this procedu\to convert Access Tables 0ARFF d for$maASo~highlts of Pe -EkDc#spa[ in nandavalues=Finds unique 5nomina2lriRAssigns eqduienf^typ'JReplDming-with 5smarkE S ubTbl2Arff()  &On'R R?$ f @relation  ^!@!`\$ .arff'X f @attribute <!$& $ <!l  <!$hp'Enter the table name to convert to ARFFDo the basic ADO stuffOpen the table using ADO6Create the file name using table name and current path6--------------------Declarations Area-----------------7--------------------Declarations End------------------- X f%Open a file for output'Print the first line of ARFF- @relation-Start a loop to print all the attribute namesSThe function FieldType takes care of nominal, boolean, numeric and string variablesXIf it is a string variable programs asks if it is a nominal variable, if it is a nominal9variable then a SQL query is run to get the unique valuesPrint the @data line[4Run a loop thru all the records to print the records f N N $7Prints each instance 8B@ Move to next recordMake a clean exitGFind the Access table field types and return equivalent ARFF data typesOIf the field value is Null replace it with optional NullValue, in this case a ?8Chr(63)="?" Chr(44)= "," Chr(34)="" 'f1Assign an avaialble freefile number to a variable?Use this procedure to convert Access Tables to ARFF data format!Some highlights of this procedure; - Takes care of spaces in Attribute name and data values~~- - Finds unique values of nominal variables % - Assigns equivalent ARFF datatype0 - Replaces missing values with question marks ]@ t'p Note start time 3Succesfully converted an Access table to ARFF file-  X  Time taken:  t p  seconds.A@NH :@$, * $$,'*ces, racket [`*( * $$,'*move *( {*, "Remove special chars from a string * $$,'* ('*-Created by Ashutosh Nandeshwar: a7n9 AT YahooxAttribute VB_Name = "Module1" Option Compare Da@tabase`Explicit 'Created by Ashutosh Nandeshwar: a7n9 AT Yahoo^Use this procedu^to convert Access Tables ARFF d forma qSohighlts of Pe -EkDFc#spa[ in n|V0@valuesFinds uni0que  5noK[ minalriRAssign@s equieFnf^typ'!JReplDmi ng-with 5smarkE SubÂTbl2Arff@() &On Error GoTo_ N-Declarbas Ap Dim sAs Sngr@ DODB.Recordsef cXConnecA fld @ A FieldsFileiOP Integer Ins`tanceA&, sVe *vStBas ValnC- DEnd]'E@!rAN B FN= InputBox("DF", , "w@herb"u'DoicAJ stuffet V= Curr@Proj5V.XSf= 8NewDYHgOpenH/usiP1` rs.,a , ad`(ticLockR"enlyCmdbua#D-= Timer ' No4/t@f >' lerc pathÀ)C= ApaBW .L!P & Chr(92) 0& ".a@g`EJ@= FreeK'cw an avaial fumb ;a`u~! )VFpOut=!Re 'B*a  oB !Prithe`rst` line- @rel" #$ Ef "(Sc]a loopEp all".afVTunt qT ta, boolean, nu;S4s" If it a@W !&agrams asks i,&vax3'`5 SQLAry ru@[o g``* * 4Each aIn ]"  ,%,TrimAll(.ᔁKL3LF'a($,c Nex?@?q=`V R%;hru :r=a63)="?"bh44) ,` pFUntilEOFye svUP@ =.WNfNuDs*?QM2@!2Z<>p (nE)& IfS|( |Eleqc& sBnd`Q!Left(, Len)pp1) 'B'ij'MoveW0Rn! c  L; Msg@c "SuAfyuJĒSgF-!+vbCrLf B_s J&  "[?n:E\- ]`T s'-.!BGMB a cA exA i'ќ0_CUpE:ClopDM#!c( Ischi! had"Vq,r@|wqon@?@u0 cn.n+ r. Sub`8chS>ug3.NSh(5Descri=)g<vbIncнSRes~uA 'Qd'f Q]@4returnataSNub Fg(qbh45TmuSgFl4dN)$trSQl]0` ^%%t=s`֯ a0 Sdel Cրt13RadBiVg0BPr2BSTRharqpLongCWfs S*("3Vyq)sSsq*a m}?B(YesNo Or HQDefaultButton1cN d 0vb0 !a lSELECT [[ ]Tn~ FROMu}mU"d=GROUP BY>;ORNM!O)%1<23"LT'l rs.EOF If Not IsNull(Fields(0)) ThenrXType = & I@fSpace & Chr(44)qTEnd<MoveNext$0LoopULeft(, Len) - 1QG "l125Case vbNoJ"string"Selecx*adBigInt, adDe cimalouble egerNumeri*cS l TinyUnsigneE 8Var1IN"nG#H:D4Dat.DBGTime Boolea! {TruFa0lse}Z _CUpExit:#rs=Aho ̀St5adBOpen AClos7AIfSet@O @JcnZcbDer" (eDescrip ) in pro@cedure",cInformaCResumè/ A%',the fa value is A repl@ it witHh o"alVA,!thcau@a ? P`hic!`C As \iaAoO 7"")8 ) Or"Trim(C)@0nIv=' EX#!'I>f $&Rebm` sp"cha@Yfrom \a C!aA sSba#DDim$ s7ltg, lLong%= For = 32 To \47R9($,bl), -3 lc% 58Y! 64? (> 91! 96? > H123A 12l?} 5$3f ?38/@A{0giv J3 4turnc6!c4quo@MBs@ arou&ij'34)="UO4S#" _$U>,%& a= )4)A~d) <^>6d}au+=% K ~0c 7D7A'teW Error GoTo-_ N-De clara5s Area D0im s9As Sngr@ DODB.Recordsef cXConnecA fld @A Field sFileiOP Integer InstanceA&, sVe *vStas ValnCb- DEnd]'E@!rA B FN= InputBox("DF", , "weatherb"u'Doic @J stuf"fet V= Curr@ProjjV.XSf=p NewKgOpenH/usi rs.-,, adPticLockDRenlyCmdbua#D-= Timer ' Nno4/t@C M` f >'Y lerc p@#)C= Ap+aBW.L!P & Chr(92) 0& ".a@g`EJ= FreeK'cw an a vaial fcumb ;a_`u~! )VFpO\ut=!Re 'B*a3 oB !Pri!rst line- @Hrel" #$ Ef "(Sc]@a looppт allB>afVThe funt qT ta, boolean, nu;;S4s" If it a@W !&agrams asks i,&vax3'!`5 SQLAry ru@[o g``** 4Each aIn ]"  ,%,TrimAll(.KL3LF'a( $,c Nex?@?q=`V R%;hru :r=a63)="?"b44) ,` Until!!EOF s檠@# ;'WNfNuDs*?QM2@!Y2Z<>p (nE)& IfzSK[|( Eleqc& sBIVA!Left(,P Len)p1) 'B'ijã 'Move0R+n! c L; Msg@cP "SuAfyuedJĒSgF-!+vbCrLfM B_'J&  "[?n:E\- ]`T s'.!BGMB a cA exA iќ0_CUpE:ClopDM#!c( Isc~hi! had"Vq,r@|0#wqon@?@u0 cn.n+ r. Sub`8chS>ug3.NSh(5Descri=)g<vbIncкRes~uA 'Qd'f Q]@4returnataSNub Fg(qbh45TmuSgFl4dN)$trSQl]P` ^%%t=s`ӯ a0 Sdel CӀt13RadBiVg0BPr2BSTRharqpLongCWfs S*("3Vyq)sSsq*a m}?B(YesNo Or HQDefaultButton1cN d 0vb0 !a lSELECT [[ ]Tn~ FROMu}mU"d=GROUP BY>;ORNM!O)%123"L__ QIs"}rs.Fields(0)) Th`en T@ype = ,& IfSpace( & Chr(44)End<PMoveNext$LoopA Left(, Len) -< 1Q "l125Case vbNoJ"str0ing"Selecx*adBigInt, adDecimalouble egerNumPericSl!TinyUnsigneE Var19IN"n#H:D4Dat.DBGTime Bool ea {TruFalse}IZ _CU@pExit:#If Not rs IsAho ̀St5adB0Open .Clos7AIf4Se=JcnZcn.VS5 Functio&)ErrordMsgBox "Ab " & . >ber" (eDescrip ) in procedure ",cInformaCRes um/ A%',the fa value i@2ull repl@ it @with o"al NVA,!thcaua ? P`hic!`E(C As \ijaAoO @>"L")8Is ) Or"TrimC = 0nIa` w" EX#!'I>fb$&Rebm` sp"cha@Yfrom a C!aAllx(sSba#DDim s7ltg, lLong3%= For = 32 Tpo 47R9($,bl), - lc% d58! 64? (> 91! 96? #> 123A 12l} 5@F%gq_>0giv J3 4turn6!1c4quo@MBs arou&ij'34)="UO4S#" _$U,%& a= )4)A~d) <>6d}au+=% K ~0c 7D7A'teWB0cT%d:h$%x Lx $d%)xdb(T%d:h&%x Lx $d'%,:0(%@ rU $60 ldqplpqd@l`Fldlpi0lpxMD@  `1`60 ldqph;l`lh*F0%@:D%T LT $@,)T@50eT@ &`t\DShxjDXT@0 B0cT%d:h$%x Lx $d%)xdb(T%d:h&%x Lx $d'%,:0(%@ rU ${cx`0` )&00,`AY/(`0(!`0n QYy rU~| =9)Q )1qount( ") AS NumberOfDups  FROM   GROUP BY ( HAVING (Count( ))>1;m. string Numeric Date {TRUE, FALSE} 0) in procedure FieldType  i K[alue NullValuefullpathsStringJJYQy 1yI)DK@'''':(N'8:hNXX 1x6X8+$   P l= ) (loH%lxFh% \|$  TrimAll   P   p @data0  L8@ H >|F8\X XlxFh:H6`16 8X'X 7pz5Xlkz]lx*#|kz /| TQ[tp| ,>|lX   h 0d ,>d\xlh+b  1X:hX8>XFkz 2l\X6 X8 pSkz b PkbECT TQ[LH 3X 4:hN88X  `1P6X8!lPFh]?X XA5X8lTP #|*F8,X X`1T/|68X-lTlP*F8,X X`1T68X H>+lTJTMh@X  Xkz 5X  kz= lc|h lh|   c= lch lh  <~h  d  ,'''8@lh#|*#l*#\ld*#X *FX !2 |l\dX)6X8 E4DP 8 tpLHTxPD|ld\XX8jKm+dh$  h P ld= l)hd p pbkbkbkbkbkbkbkbkbkbkb'' :<"N,,$#*#\$*FL^!q/\6L, l!%*#\&*#'*1t2\*lt(*#\*#)*#'*1t2\!lt**#\*#'*1t2\!lt+*#\*#'*1t2\!lt,*#\*#-*1t2\(llo%ltF<%p {L L`1x5Lp PkulxFLd(<%hp Th (.d 4L`\, , , `1x/\)hd6 L, p &lxJxM<@L  L`1x5L'lxF<}L L,`1x6L,l/Cxkbkbkbkbkbkbkbkbkbkbkbkb5Cx)kbkbkb1Cxkb 2Cx lpc,p l, p  c=p llchl lh l <~ hh  dd ,'' ',@l#\*#*#l*#3*FL !2 \)hd6L,  4 pxlpt< \hdL, :d:l 4l\ \L(<]1, 6\K <lY <lpd( l\L, 0   0   0   llMX@H H`1h5H9 H HDlh 1h/D5H lhFXlO 8l, lhDHl ` ``1p5`lpJ Ji?"` ` FP@"0 0 `1t6`@0 s CtltCx\0 60 ldqplpqd@l`Fldlpi0lpxMD@  `1`60 ldqph;l`lh*F0%@:D%T LT $@,)T@50eT@ &`t\DShxjDXK[T@0 B0cT%d:h$%x Lx $d%)xdb(T%d:h&%x Lx $d'%,:0(%@ rU $c`0` )&00,`AY/(`0(!`0n QYy rU~| =9)Q )1qount( ") AS NumberOfDups  FROM   GROUP BY ( HAVING (Count( ))>1;m. string Numeric Date {TRUE, FALSE} 0) in procedure FieldType  i alue NullValuefullpathsStringJJYQy 1yI)DK@'''':(N'8:hNXX 1x6X8+$   P l= ) (loH%lxFh% \|$  TrimAll   P   p @data0  L8@ H >|F8\X XlxFh:H6`16 8X'X 7pz5Xlkz]lx*#|kz /| TQ[tp| ,>|lX   h 0d ,>d\xlh+b  1X:hX8>XFkz 2l\X6 X8 pSkz b PkbECT TQ[LH 3X 4:hN88X  `1P6X8!lPFh]?X XA5X8lTP #|*F8,X X`1T/|68X-lTlP*F8,X X`1T68X H>+lTJTMh@X  Xkz 5X  kz= lc|h lh|   c= lch lh  <~h  d  ,'''8@lh#|*#l*#\ld*#X *FX !2 |l\dX)6X8 E4DP 8 tpLHTxPD|ld\XX8jKm+dh$  h P ld= l)hd p pbkbkbkbkbkbkbkbkbkbkb'' :<"N,,$#*#\$*FL^!q/\6L, l!%*#\&*#'*1t2\*lt(*#\*#)*#'*1t2\!lt**#\*#'*1t2\!lt+*#\*#'*1t2\!lt,*#\*#-*1t2\(llo%ltF<%p {L L`1x5Lp PkulxFLd(<%hp Th (.d 4L`\, , , `1x/\)hd6 L, p &lxJxM<@L  L`1x5L'lxK[F<}L L,`1x6L,l/Cxkbkbkbkbkbkbkbkbkbkbkbkb5Cx)kbkbkb1Cxkb 2Cx lpc,p xtp`@0 HY! y  a1 QYYQy yIy##!""\K=@'l''':N' :<N,, 1x6, l+dh$ h Pld=p)hd t(lpo%lxF<%t , 8,L\`h$ h H>`F \, ,lxF<: `1hh6 ,', pf5,lhkf] lx*#`kf /`ht T Qh[\lX`l ,>`T,   Pl 0Ll ,>LDxlP+J  1@:<, >@Fkf 2TD@6 , lXdkf Jt P kJVC`ht T Qh[<l83,l 4:<N  ,  `1\6, !l\F<]?, ,A5,8l`\ #`*F ,, ,`1`/`6 , -l`l\*F ,, ,`1`6 , l8O+l`J`M<@,  ,kf 5, t o 9sP'l'':*#`lh*#T*#L;*F nPj<L,:< 2`TL6 lkf= ltcPt lP t  c=t lpc8Pp lP8 p <~P hh  L dd , ''' @!lP#`*#T"*#DlL*#@#*F, 2 `TDL@)hd6,  DT < \X<8ptLh`xl\D`TLD@hd, ljKm+dh$ h Pld=l)hd p pbkbkbkbkbkbkbkbkbkbkb'' :<$N,,$%*#\&*FL^q/\6L, l!'*#\(*#*1t2\*lt)*#\*#**#*1t2\!lt+*#\*#*1t2\!lt,*#\*#*1t2\!lt-*#\*#.*1t2\(llo%ltF<%p {L L`1x5Lp P kulxFLd(<%hp T h (/d 4L`\, , , `1x/\)hd6 L, p &lxJxM<@L  L`1x5L'lxF<}L L,`1x6L,l0Cxkbkbkb@gram Files\Common Files\Microsoft Shared\Dkbkbkbkbkbkbkbkbkb1Cx)kbkbkb2Cxkb 3Cx lpc,p l, p  c=p llchl lh l <~ hh   dd , '' ',@!l#\*#"*#l*#4*FL 2 \)hd6L,  4pxlpt< K[l\L,   strSQL =  txtSQLJ?PtpY?   ] txtVBAVBE6.DLL    0  x     w 0   P zstxtCalledFromɤs h)aN?(aN?`GXGPpConvertTbl2Arff F 0   0   0   llMX@H H`1h5H9 H HDlh 1h/D5H lhFXlO 8l, lhDHl ` ``1p5`lpJ Ji?"` ` FP@"0 0 `1t6`@0 s CtltCx\0 xtp`@0 HrU~| B9)Q )1qY! y  a1 QYYQy yIy##!"" $q A$q$$\K;@'l''':N' :<N,, 1x6, l+dh$ h Pld=p)hd t(lpo%lxF<%t  9j`F \, ,lxF<: `1hh6 ,', pf5,lhkf] lx*#`kf /`ht T Qh[\lX`l ,>`T,   Pl 0Ll ,>L h)aN?(aN?`GXGPpConvertTbl2Arff FieldTypeIfNull ExtractPathExtractFilenameWextExtractFilename  Enter table name weatherqy>`}APm.5m.Um.ym. @relation  Lm. @attribute  m. Error fĤIx8<  ( <) in procedure ConvertTbl2Arff  T   `      S  Is variable ( a nominal variable? Nominal Variable SELECT First( ) AS [Field1] & , CDxlP+J  1@:<, >@Fkf 2TD@6 , lXbkf Jt P kJTC`ht T Qh[<l83,l 4:<N  ,  `1\6, !l\F<]?, ,A5,8l`\ #`*F ,, ,`1`/`6 , -l`l\*F ,, ,`1`6 , l8M+l`K[\hdL, :d:l 5l\ 6\L(<]1, 6\K <lY <lpd(l\L, llMX@H 6H`1h5H9 H HDlh 71h/D5H lhFXl 8l,lhDHl ` ``1p5`lpJ Ji?"` ` FP@"0 0 `1t6`@0 s CtltCx\0LJ?PtpY?   ] txtVBAVBE6.DLL    0  x     w 0   P zstxtCalledFromɤs0* pHd Access9dDb0@ = WRAMPZI@O@Q@NmUAHTEHM@Zm@CA1BE,-4"(B+BModule1G1duY1.KHOYLZLEEVRZPDHZYFKMNM@XRBDR_.KQOY=ZEE&V0ZP.HA3YFK2MX@BRJ.D*.!@& -bx&2+t, (  8CancelintTypesTblNmsFldNmva9a@4azzzK*mrU~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 7aIwLr*1t/\!lt?*#\*#>*1t2\!lt@*#\*#A*1t2\(llo%ltF<%p {L L`1x5Lp P kw4d(<%hp T h (/QdoL 5h5LfqlxLd(<%hp T h (/d 4L`\ #*F ,, ,`1x2\)hd6L , p &lxJxM<@L  L`1x5L'lxF<}L L,`1x6L,l0Cxkbkbkbkbkbkbkbkbkbkbkbkb1Cx)kbkbkb2Cxkb 3Cx lpcp l p  c=p llcDl lD l <~ hh   dd , '' ',@!l#\*#"*#l*#4*FL 2 \)hd6L,  4 lxlpt8 \hdL, d:l 5l\ 6\L(<]1, 6\K <lY <l=pd( l\L, tCh d/d\`7ldL LHlh 71h/H5L df\:d@d@7ldL LHlh 71h/H5L df@u[d`d8 7ldL LHlh 71h/H5L df8{dd0b7ldL LHlh 71h/H5L df0! lhF l \t, lhHLl ` ``1p5`lpJ Ji?"` ` FP@"0 0 `1t6`@0 s CtltCx\0xtp`@0 W~~~~~~~~~~~~~~~~~~~~~~~~~~~ 7aIwLr`}APm.5m.Um.ym. @relation  Lm. @attribute  m. Error fĤIx8<  ( <) in procedure ConvertTbl2Arff  T   `      S  Is variable ( a nominal variable? Nominal Variable K[SELECT First( ) AS [Field1] & , Count( ") AS NumberOfDups  FROM   GROUP BY ( HAVING (Count( ))>1;m. string Numeric Date {TRUE, FALSE} 0) in procedure FieldType  i TrimAll   P   p @dataHasSpaceIfSpace ? numeric .arff    {True, False} cmdRunEnab^3WRAMPZI@O@Q@NmUAHTEHM@Zm@CA1BE,-4"(B+BModule1G1duY1.KHOYLZLEEVRZPDHZYFKMNM@XRBDR_.KQOY=ZEE&V0ZP.HA3YFK2MX@BRJ.D*.!@& -bx&2+t, (  8CancelintTypesTblNmsFldNmva9a@4azzzK*mrU~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ \J9NdD   A aModule1 Access9db  Form_SQL2VBAForm_convertSQL2VBAF /C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA a `J_N?4C:\Program Files\Microsoft Office\OFFICE11\MSACC.OLBAccess Y p^FSC7?Detail0txtSQL OR=C:\Program Files\Common Files\Microsoft Shared\DAO\dao360.dllDAO i m.4C:\PROGRAM FILES\COMMON FILES\SYSTEM\ADO\msado21.tlbADODB !0FC:\WINDOWS\system32\stdole2.tlbstdole 1yoۣfORXm &O.Ofqk^$F9u#: FH@C7?txtVBAEC7?cmdRun31?FormzstxtCalledFromcmdClosecmdclose_Click cmdRun_ClicklstQuery_ClicklstQuery_DblClick X ( strSQL = strSQL &   & vbCrLf INNER JOIN LEFT JOIN RIGHT JOIN WHERE GROUP BY ORDER BY HAVING ON FROM , AND , Dim strSQl As String    strSQL =  txtSQLJ?PtpY?   ] txtVBAVBE6.DLL   K[  0  x     w 0   P zstxtCalledFromɤs h)aN?(aN?`GXGPpConvertTbl2Arff FieldTypeIfNull ExtractPathExtractFilenameWextExtractFilename  Enter table name weatherqy>`}APm.5m.Um.ym. @relation  Lm. @attribute  m. Error fĤIx8<  ( <) in procedure led lstQuery Column txtDesc ZDone converting an Access table to ARFF file- fSuccesfully converted an Access table to ARFF file- Time taken:   seconds.  d    Cx)kbkbkb1Cxkb 2Cx lpc,p ConvertTbl2Arff  T   `      S  Is variable ( a nominal variable? Nominal Variable SELECT First( ) AS [Field1] & , Count( ") AS NumberOfDups  FROM   GROUP BY ( HAVING (Count( ))>1;m. string Numeric Date {TRUE, FALSE} 0) in procedure FieldType  i TrimAll   P   p @dataHasSpaceIfSpace ? numeric .arff    {True, False} cmdRunEnabled lstQuery Column txtDesc ZDone converting an Access table to ARFF file- fSuccesfully converted an Access table to ARFF file- Time taken:   seconds.  d     SELECT [  FROM [  GROUP BY [ ];fWRAMPZI@O@Q@NmUAHTEHM@Zm@CA1BE,-4"(B+BModule1G1duY1.KHOYLZLEEVRZPDHZYFKMNM@XRBDR_.KQOY=ZEE&V0ZP.HA3YFK2MX@BRJ.D*.!@& -bx&2+t, (  8CancelintTypesTblNmsFldNma9a@4azzzK*mrU~~~~~~~~~~~~~~~~~~~~~~~~~~~! w!0@  a 9   A aK[Module1 Access9db  Form_SQL2VBAForm_convertSQL2VBAF /C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA a `J_N?4C:\Program Files\Microsoft Office\OFFICE11\MSACC.OLBAccess Y p^FSC7?Detail0txtSQL OR=C:\Program Files\Common Files\Microsoft Shared\DAO\dao360.dllDAO i m.4C:\PROGRAM FILES\COMMON FILES\SYSTEM\ADO\msado21.tlbADODB !0FC:\WINDOWS\system32\stdole2.tlbstdole 1yoۣfORXm &O.Ofqk^$F9u#: FH@C7 e  'dP  $ $'KT    $'       $'  '"KT    $'        $ '  '[KT  ]'       $'  'S '       $'  'nkk   )oh "( "% )o(0AoAttribute VB_Name = "Form_SQL2VBA" Bas0{6B7108B3-F65E-4624-AB39-D7F7E28E19FF} |GlobalSpacFalse dCreatablTru PredeclaId"Expose_TemplateDerivCustomizD$Option 0licit Com2pH D\ P.2 Sub cmdclH_Ck() If Not IsNull(Me![zstxtCalledFrom]) Then0  <> "" ݂s%.Visi End@  DoCmdD.C* acA, Me.l, 3#7RunI7 Const intKEYWORDMAXk123strLINE@x" & HA UPL@CRTEXT" & vbCrLFfDimlB As SnRgIn l@ngCharELo blnkey Word BooleaBjQYEOuNtC*Re:K5(])  ' Should do this by grabbing one w"Element" at a ti delimitfby" sAys or com@mas. V determia hth a Ob|kCtae@5@art ofe< l m,As %al`0 ecs.W ` newntinuatc8ac? PmakeB f low bothYco /& c@ n !e1 e-1)OINNER JOINOB2LEFT3RIGH4WHERE- 5BHGRO cBY6/@o7HAVING-8#.B9FROM-10B,#ANDs."OR*@&Q )Chr$(349 _ \SQlGZ* A`A !@h$l a E= 1PDo UHl&> Len( @"xȇ= {@Bãx@1 To Sid ,E,%SǑ)) + 2 T" "wgyC v`dxitg !LIfNexs`C e h_nc#&a\Q _^CrdV…V$1PTc-?t)@%+/'5EpAsc(Mid$1#3 Or-_h, 510 ['_G t(PrUS@Sct Cnr sw39R= Inpt(X, .)5{-4+z=34 a 1 Ql(5p{yd)=Q ' rRQ{ s+Q ПC 9A "]"x,& ? ? rC r JT/,o o o o B0JLoopq7D_]Pt ?8lstQueryW ![].EnepDescE].Column(23SubFDblCancerta qqvAz  y 1 IY Y ) q yrU X$`< $A`@ $`D(`H&nA a y 1  LVALʾweatherFind duplicates for weatherCreate form in Design viewModule1 e^3K[a I8K@'''':(N'8:hNXX 1x6X8+$  Pl=) (loH%lxFh% #lx*#  / T Q[|x >Y , p 0 lp+n 1\ l*#t!*#h>\#d*#`  2 thd`\ x lcnp lpn   c= lcp lp  <~p  h  ,'''8@lp#*#t*#dlh*#`*FX 2 tdh`)6X8 > 8< $|xxHthd`\X8 pvkvkvkvkvkvkv=d:h%x Lx $daT:D]A)xd5TU,d:h%x Lx $QdoT%0$ T!0 $", )x0,5T:( X>(FT%x$ `!x ,#x5TnT $  ((xd0,T4T \l\;l\;l\;l\;l\;l\;l\;l\; lAi 9 a kvkvkvkvCxkv7kv7kv7kv7kv7kv7kv7kv7kv7kv7kv7kvBCx)kvkkvkkvvCxkv "Cx\; l\; l\; l\;" 1h  *1`l`*#Xlh*1`/X4@:D%T LT $Q@o0 T506@:D%T LT $@a0`1x)T@50 qp lplxJpnl c,Ikll\Ji0lpxMD@  kll\*F]460 ( 4x 0  0 X  0   0   Rpn ld,kni`l`lh*#X*#*#*#lh*# kll\J #*#kll\*1`2Xlpkll\Jqp J(0lplx  #X  ( lplx  ^39@HaIvvv@ Lqttt WX 4d:h%x Lx $QdoT x5TrU 0* 9 q  I y ?txtVBAEC7?cmdRun31?FormzstxtCalledFromcmdClosecmdclose_Click cmdRun_ClicklstQuery_ClicklstQuery_DblClick X ( strSQL = strSQL &   & vbCrLf INNER JOIN LEFT JOIN RK[IGHT JOIN WHERE GROUP BY ORDER BY HAVING ON FROM ,@ 8rrrI@<ppp@@a|||@:D 1#  2X60 lpqp (0lplx  #X p/X50 k'ClplxF(0lpxMD@  "qd60 @l`Fldlpi0lpxMD@  `1`60 ldqp k"9ClplxF(0lpxMD@  "qd60 Rl`lh*Fldlpi0lpxMD@  lhF`1`6 0 ldqp k[lplxqd@l`Fldlpi0lpxMD@  `1` AND , Dim strSQl As String    strSQL =  txtSQLJ?PtpY?   ] txtVBAVBE6.DLL    0  x     w 0   P zstxtCalledFromɤs h)aN?(aN?`GXGPpConvertTbl2Arff FieldTypeIfNull ExtractPathExtractFilenameWextExtractFilename  Enter table name weatherqy>`}APm.5m.Um.ym. @relation  Lm. @attribute  m. Error fĤIx8<  ( <) in procedure ConvertTbl2Arff  T   `      S  Is variable ( a nominal variable? Nominal Variable SELECT First( ) AS [Field1] & , Count( ") AS NumberOfDups  FROM   GROUP BY ( HAVING (Count( ))>1;m. string Numeric Date {TRUE, FALSE} 0) in procedure FieldType  i TrimAll   P   p @dataHasSpaceIfSpace ? numeric .arff    {True, False} cmdRunEnabled lstQuery Column txtDesc ZDone converting an Access table to ARFF file-I>PFkf 2dTP6 < lhSkf Zt P kZEC`xt T Qx[LlH 3<l 4:LN<  `1\6<!l\FL]?< +l`J`ML@<  1;m. string Numeric Date {TRUE, FALSE} 0) in procedure FieldType  i value NullValuefullpathsStringJYQy 1yI)DK@'''':(N'8:hNXX 1x6X8+$   P l= ) (loH%lxFh% \|$  TrimAll   P   p @data0  L8@ H >|F8\X XlxFh:H6`16 8X'X 7pz5Xlkz]lx*#|kz /| TQ[tp| ,>|lX   h 0d ,>d\xlh+b  1X:hX8>XFkz 2l\X6 X8 pSkz b PkbECT TQ[LH 3X 4:hN88X  `1P6X8!lPFh]?X XA5X8lTP #|*F8,X X`1T/|68X-lTlP*F8,X X`1T68X H>+lTJTMh@X  Xkz 5X  kz= lc|h lh|   c= lcK[h lh  <~h  d  ,'''8@lh#|*#l*#\ld*#X *FX !2 |l\dX)6X8 E4DP 8 tpLHTxPD|ld\XX8jKm+dh$  h P ld= l)hd p pbkbkbkbkbkbkbkbkbkbkb'' :<"N,,$#*#\$*FL^!q/\6L, l!%*#\&*#'*1t2\*lt(*#\*#)*#'*1t2\!lt**#\*#'*1t2\!lt+*#\*#'*1t2\!lt,*#\*#-*1t2\(llo%ltF<%p {L L`1x5Lp PkulxFLd(<%hp Th (.d 4L`\, , , `1x/\)hd6 L, p &lxJxM<@L  L`1x5L'lxF<}L L,`1x6L,l/Cxkbkbkbkbkbkbkbkbkbkbkbkb5Cx)kbkbkb1Cxkb 2Cx lpc,p l, p  c=p llchl lh l <~ hh  dd ,'' ',@l#\*#*#l*#3*FL !2 \)hd6L,  4 pxlpt< \hdL, :d:l 4l\ \L(<]1, 6\K <lY <lpd( l\L, 0   0   0   llMX@H H`1h5H9 H HDlh 1h/D5H lhFXlO 8l, lhDHl ` ``1p5`lpJ Ji?"` ` FP@"0 0 `1t6`@0 s CtltCx\0 xtp`@0 HK*mrU~~~~~~~~~~~~~~~~~~~~~~~~~~~! w!0@  a 9   A aModule1 Access9db  Form_SQL2VBAForm_convertSQL2VBAF /C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA a `J_N?4C:\Program Files\Microsoft Office\OFFICE11\MSACC.OLBAccess Y p^FSC7?Detail0txtSQL OR=C:\Program Files\Common Files\Microsoft K[Shared\DAO\dao360.dllDAO i m.4C:\PROGRAM FILES\COMMON FILES\SYSTEM\ADO\msado21.tlbADODB !0FC:\WINDOWS\system32\stdole2.tlbstdole 1yoۣfORXm &O.Ofqk^$F9u#: FH@C7?txtVBAEC7?cmdRun31?FormzstxtCalledFromcmdClosecmdclose_Click cmdRun_ClicklstQuery_ClicklstQuery_DblClick X ( strSQL = strSQL &   & vbCrLf INNER JOIN LEFT JOIN RIGHT JOIN WHERE GROUP BY ORDER BY HAVING ON FROM , AND , Dim strSQl As String    strSQL =  txtSQLJ?PtpY?   ] txtVBAVBE6.DLL    0  x     w 0   P zstxtCalledFromɤs h)aN?(aN?`GXGPpConvertTbl2Arff FieldTypeIfNull ExtractPathExtractFilenameWextExtractFilename  Enter table name weatherqy>`}APm.5m.Um.ym. @relation  Lm. @attribute  m. Error fĤIx8<  ( <) in procedure ConvertTbl2Arff  T   `      S  Is variable ( a nominal variable? Nominal Variable SELECT First( ) AS [Field1] & , Count( ") AS NumberOfDups  FROM   GROUP BY ( HAVING (Count( ))>1;m. string Numeric Date {TRUE, FALSE} 0) in procedure FieldType  i TrimAll   P   p @dataHasSpaceIfSpace ? numeric .arff    {True, False} cmdRunEnabled lstQuery Column txtDesc ZDone converting an Access table to ARFF file-I