Standard Jet DBnb` Ugr@?~1y0̝cßFNa7>ޜ(p,`7{6߱nC53Wy[/|*|%rf_Љ$g'DeFx -bT4.0dv YS  Y   Y Y  Y Y  Y  Y  Y  r Y s Y E Y a Y d Y 2Y  Y   Y  jY ConnectDatabaseDateCreateDateUpdate FlagsForeignNameIdLvLvExtraLvModule LvPropName OwnerParentIdRmtInfoLongRmtInfoShortTypeniYYIdParentIdName        OYLSY Y Y  Y 2ACMFInheritableObjectIdSID YObjectId YSY  Y Y Y  Y  Y Y  Y AttributeExpressionFlagLvExtra Name1 Name2ObjectId Ordernzf edY"ObjectIdAttribute -YSY Y Y  Y  Y  Y  Y  Y ccolumn grbiticolumnszColumnszObject$szReferencedColumn$szReferencedObjectszRelationship   YYYszObject$szReferencedObjectszRelationshipYv1b N  : k & W  C t/   @@  @ @`JYboS+OQmJY^koS+^YkmQdfQbOYJ^dUOJmJJMMQkkfJUQkOJmJLJkQkSdi`k `dOo^Qk iQ^JmYdbkWYfkiQfdimk kMiYfmk kvkiQ^ mJL^Qk iQkkdoiMQb+kh+M`JYb+kh+MoS+OQmJY^k+kh+SoS+OQmJY^k`kvkJMMQkkdL[QMmk`kvkJMQk`kvkdL[QMmk`kvkhoQiYQk`kvkiQ^JmYdbkWYfkiQkkdoiMQbJMMQkk^Jvdom`kvkOLko``JivYbSdokQiOQSYbQO6  @ @ @          )t  @ @ @ @ @ @ @ @ @,,,,,,,,, , , , ,,,,,,,,,,,,,$,% ,& ,' ,( ,) ,* ,+ ,, ,- ,. ,/ ,0 ,1 ,2 ,3 ,4,5,6,7,8,9,:,@,A,B,>,?,C,D,E,F,G,H,;,<,=),I),J),K,,,, ,, ,,,,!,",#  @ @              d _ Z g  ~  k  D8)}wL@YL@RessourcenYI@/BBB66666664 @F.iL@F.iL@MSysAccessObjectsYDDDDDDDDDDB o0#wL@o0#wL@~sq_fUF_DetailsY4MR2KeepLocal T@@@@@@@> @z(wL@z(wL@~sq_cMain~sq_cUF_DetailsY4MR2KeepLocal TRRRRRRRP @ hޏwL@1uYL@#RessourcenY @0@/|@-\PPD8888886 ` {cxL@{cxL@OpenDialogY66666666664  'uwL@'uwL@UF_ListeY@.>>>22222220 @ -#wL@-#wL@UF_DetailsY@.BBB66666664 @ AwL@AwL@MainY@@/666*******( @ wwL@wwL@UserDefinedYA@.DDD88888886 @ wwL@wwL@SummaryInfoY@.DDD88888886 @ ǂwwL@ǂwwL@MSysRelationshipsXDDDDDDDDDDB ǂwwL@ǂwwL@MSysQueriesX88888888886 ǂwwL@ǂwwL@MSysACEsX22222222220 ǂwwL@ǂwwL@MSysObjectsX88888888886 ǂwwL@X[!xL@MSysDbY:@.:::......., @ǂwwL@ǂwwL@RelationshipsX<<<<<<<<<<: ǂwwL@ǂwwL@DatabasesX44444444442 ǂwwL@ǂwwL@TablesX.........., _ ZX Ressourcen%%%   G  G([__RIndex] = RIndex)4 'RessourcenMain--%   G__RIndex!!! O  G [Ressourcen].[Titel]3 ' Ressourcen.*+ g Ressourcen%%%     G YNY Y DataID(YAOIndexv1?K[^MwctLLS@LL( @PMSysAccounts|Y\h @\S@  afeh^^eQ0]`\Q0h`ga@dpcbLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL0l@kijPMSysObjects_Y\      {Y\K[ࡱ>  !s "G#3%&'()*+,-./012456k89:;<=>?@ABCDEFlIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijmrnopqtxuvwy{z|}~Root Entry%0*KVBA0*0*VBAProject0*0*VBA0*0*dir__SRP_0-__SRP_1$__SRP_2   !"#$%&'()*+-./013456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefhijklmnopqrstuvwxyz{}~0* pHdCSV_Import_in_SeminarDes@igner@T@  = + nǠ[I %<9stdole>stdole h%^*\G{00020430-C 0046}#2.0#0#C:\WINDOWS\system32\e2.tlb#OLE Autom`ation0hADODB> ADOՀBDDE1D10-8DAA006D2EA4D1DProgramme\Gemeinsame Dateien\SN\adoH\ms21OMicrosoft ActiveXa Objects 2.1 LibraryIDAO>DA\ Z25E0цZ00-O5OZ-'Shared\@360.DL L# 3.6D. -š {z *Form_MainG rm_Mai nNTXPDBFEUBRI@XOKOCGQUTTVYM28ATXPpFEUBRI XHKCGQT@ VY@AH@1­B,+98"B(BJ+B0UF_LiG+1U_L2e3CPVWLA LDHMU3RSYQVGAIIM(TML3C2VW@AD'M-3RS.QVU3A8I1TLJ 3LYla`OpenDia@logGOTpsn*i1lgdXCIOZELFUJWLDEUCQZRQKOQPROOFcXC`OZ1L UJ"D3JC0Z4Q2Q5R3O2r7o^6!0C1brU~~~~~~s K*mrU~~~~~~~~~~~~~~~~~~~~~~~~~  !t[,6;Mș   A  q a aK[a )0   1 Form_Main Form_UF_Liste OpenDialogCSV_Import_in_SeminarDesignerF /C:\PROGRA~1\GEMEIN~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA i `J_N? )C:\Programme\Office2000\Office\MSACC9.OLBAccess a p0FC:\WINDOWS\system32\stdole2.tlbstdole Hilfsmittel Ym.6C:\Programme\Gemeinsame Dateien\System\ado\msado21.tlbADODB a^F?C:\Programme\Gemeinsame Dateien\Microsoft Shared\DAO\DAO360.DLLDAO q!&5KCK _YA;"ӾwC:EM3L7!յMZޓ%@C7?TitelInhaltAutorQuelleSC7? Detailbereich31?FormDauer Form_Current \ɤs h)aN? Main(aN? RIndex]协N?tpY?BuAԅE+!py#gcD.0HFLpA*MJ<OhPFT((LEC7? btn_csvFilePC7? UF_DetailsAC7?Bezeichnungsfeld2Bezeichnungsfeld1RIndexUF_Liste Formularkopf Formularfubtn_Exitbtn_csvFile_Clickbtn_Exit_Click Form_Load h`GXGP "C:\Eigene Dateien Datei speichern BSeminarDesigner CSV-Datei (*.csv) *.mdb ,,LL, $,0<HGetOpenFileName comdlg32.dll GetOpenFileNameA )YGetSaveFileName GetSaveFileNameA )9 DateiOeffnenDateiSpeichern ((Pi lL .csv* SELECT Ressourcen.* FROM Ressourcen ORDER BY Ressourcen.Titel, Ressourcen.Inhalt;qm.Um. 0#8#18#19#25#900 m.  Titelm. # //Lm. Inhalt Autor Quelle Hilfsmittel DauerVBE6.DLL   k     8 $Alle Dateien (*.*) *.*fĤIx8<  X   x i    S %M"kSLJLF?81V4H61m.Sm.Qm. -# 2 0 ( * Datenstze in Datei  gespeichert (Import-File erstellt  gespeichertForm_UF_Liste_xxx!H_ FI0=\s1jqGrk1v[:<@WB5DuNw.1N)W)a()GÔ*:$Q8JA'5B 0K[    )   (  8  H 9 XDateiDialogStruktur Verzeichnis FenstertitelDateitypIFilter FilterIndex DefaultExtFileName DialogTitlehwndOpenFile strFilterstrDescriptionvarItemstrItemrU x q ! I 1Y @4)aQrrr@8)aivvv@<)azzz@@)a~~~@Dppp@H)a@L 1 @P)aIldx! Qxo8%H:L%\`:d%t$ Tt $` L\ $H,)t`\H58Tl$  $xt`\H8LXrU \$`n1Ppa4,`000` __SRP_3,Y__SRP_4 2. __SRP_5g __SRP_6 |000qnrU %  q 1 9Q )qYAQq q Y a@ 4   @8  ~~~@<9 a zzz@@9  xxx@D)a @H  |||@L 1@Pppp@T rK[rr@X1 ttt@ \ Q vvvIsWL^ #l*#h*#d #`*TCXXC\\ F4D2lhd`\XT#D4 4:$ ]A54D:$ 4D$ l= t :$ 4'%'%$%lt l=p/l ($D#l]/ln 1d 1`@:$N44 >d#l>`#h*F 2lhd`64 lp   4kN3:$%  0Qo4 54 :$Qi4:$%  0 D4`#l #h*F2lh)543:$%  0Qo4 54:$4t4:$%  0 D4`#l F:/l)643:$%  0Qo4 54[:$4t4:$%  0 D4`#l F:/l)643:$%  0Qo4 54:$4t4:$%  0 D4`#l F:/l)643:$%  0Qo4 54:$4Qt4:$%  0 D4`#l F:/l)643:$%  0Qo4 54:$4i4:$%  0 D4`#l F/l)64%@4 4 54($4  c p =P'T't: N:$!4D:$^#i4D6 4tTHH 0 pxtDDHlhd`\XT4tT0 0  T x$ `x Tx $  x4\LHrU h$` $A` $` n @ 8  vvvI@< rrr@@A i xxx@DA  zzz@Ha @L ! |||@P 1@Tppp@X  ~~~@\ tttsW0 dH  0 0  T x$ `x Tx $  x48PHrU~|  1 i 0 p  (KZCK[*#h #d*#`*#\ #X*'2 hd`\X 2)'8 #h #d*' 2hd58 #h*' /h 2 1 #h*'/h' #h #d*1t2hd' #h #d*1p2hd L  T  ltT ltJ lpT$ lpJ( T, T0 4 8 : @ D TH0^q< lqlllUE #hMH@8 8`1x/h58<'''h  , >hF8 68 WT <xi0lt p 4 hd`\X8f:L%\`:d%t$ Tt $` L\ $H,)t`\H58Tl$  $xt`\H8LX RIndex]协__SRP_79_VBA_PROJECT $CPVWLALDHMUIFEURSYQVGAIIMTML:gNTXPDBFEUBRIFEUXOKOCGQUTTVYM:72rU P,p!4,iPp!4,`Qq000` Qq000n9Yq0` 00(!` nRes,F{zYlX)a()GÔ*:$C:EM3LQ8JA'5B xQ8JA'5B )a()GÔ*:$ME([LS S6Lam *\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\PROGRA~1\GEMEIN~1\MICROS~1\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*\G{4AFFC9A0-5F99-101B-AF4E-00AA003F0F07}#9.0#0#C:\Programme\Office2000\Office\MSACC9.OLB#Microsoft Access 9.0 Object Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\system32\stdole2.tlb#OLE Automation"*\G{00000201-0000-0010-8000-00AA006D2EA4}#2.1#0#C:\Programme\Gemeinsame Dateien\System\ado\msado21.tlb#Microsoft ActiveX DataK[ Objects 2.1 Library *\G{00025E01-0000-0000-C000-000000000046}#5.0#0#C:\Programme\Gemeinsame Dateien\Microsoft Shared\DAO\DAO360.DLL#Microsoft DAO 3.6 Object Libraryn[I{z8NTXPDBFEUBRIFEUXOKOCGQUTTVYM0=495bc3f11Form_Main98H8CPVWLALDHMUIFEURSYQVGAIIMTML01495bc7baAForm_UF_ListeYl(L8XCIOZELFUJWLDEUCQZRQKOQPROOF0;495bc2dbvOpenDialog^6Hr7hH(x5ibC=S9ͯJ uJ d/IPm%E(pK Access AsDElseGEndHendifTFor_IfyloopThenwith VBAWin16~Win32MacVBA6#Projekt1A stdole` CSV_Import_in_SeminarDesignerT` ADODBsForm_Formular1> _EvaluateForm Detailbereichu Formularkopf Formularfubtn_Exit<btn_Exit_ClickQErr_btn_Exit_ClickDoCmdƧQuit9Exit_btn_Exit_ClickGMsgBoxRErro Description  Form_MainNBezeichnungsfeld1 8Bezeichnungsfeld2 8UF_Listea Form_Load{ClickMaximizeFy UF_Details  Form_UF_ListeTitel}Bezeichnungsfeld08InhaltLAutorQQuellezBezeichnungsfeld3 8 HilfsmittelbBezeichnungsfeld4 8DauerN7Bezeichnungsfeld5 8RIndex Form_CurrentFormsMain,CurrenteItemzControlsK btn_csvFileCbtn_csvFile_ClickXdlgOpen! Application* FileDialogTitle~AllowMultiSelectShowModul1 OpenDialog(tagOPENFILENAMEy lStructSize/r hwndOwner hInstance  strFilterӥstrCustomFilterژnMaxCustFilter` nFilterIndexcstrFile XnMaxFile strFileTitle nMaxFileTitleym strInitialDir/(strTitleflagso nFileOffsetInFileExtension9 strDefExtHA lCustData'5lpfnHooklpTemplateNametaht_apiGetOpenFileNameOFN) comdlg32.dll?aht_apiGetSaveFileName*CommDlgExtendedErrorsahtOFN_READONLYkahtOFN_OVERWRITEPROMPTahtOFN_HIDEREADONLY4ahtOFN_NOCHANGEDIRahtOFN_SHOWHELPahtOFN_NOVALIDATEFAahtOFN_ALLOWMULTISELECTahtOFN_EXTENSIONDIFFERENTahtOFN_PATHMUSTEXIST ahtOFN_FILEMUSTEXISTWahtOFN_CREATEPROMPTֶahtOFN_SHAREAWAREahtOFN_NOREADONLYRETURN5ahtOFN_NOTESTFILECREATEahtOFN_NONETWORKBUTTON.ahtOFN_NOLONGNAMESCahtOFN_EXPLORERWahtOFN_NODEREFERENCELINKS[ahtOFN_LONGNAMESTestItlngFlags ahtAddFilterItem4ahtCommonFileOpenSave2H InitialDir1Filter; FilterIndex˟ DialogTitle߄Hex GetOpenFileq varDirectoryAvarTitleForDialog. varFileName IsMissingOpenFileIsNullTrimNull DefaultExtyFileNamejhwnd/ strFileNameefResult hWndAccessApp vbNullSK[tringstrDescriptiondvarItem vbNullCharYstrItemintPosr _B_var_LeftQ _B_var_HexU _B_var_CurDirT _B_var_Stringӊ(!DateiDialogStrukturN lpstrFilterlpstrCustomFilter lpstrFileVlpstrFileTitlep4lpstrInitialDirr lpstrTitleo lpstrDefExt_(GetOpenFileName]?(GetSaveFileNameW(OFN_ALLOWMULTISELECT(OFN_CREATEPROMPT^9(OFN_ENABLEHOOK(OFN_ENABLETEMPLATEO(OFN_ENABLETEMPLATEHANDLE. (OFN_EXPLORERL(OFN_EXTENSIONDIFFERENT(OFN_FILEMUSTEXISTٽ(OFN_HIDEREADONLY (OFN_LONGNAMES=U(OFN_NOCHANGEDIR͙(OFN_NODEREFERENCELINKSv(OFN_NOLONGNAMES(OFN_NONETWORKBUTTON(OFN_NOREADONLYRETURN(OFN_NOTESTFILECREATEDs(OFN_NOVALIDATE(OFN_OVERWRITEPROMPT(OFN_PATHMUSTEXIST (OFN_READONLY!(OFN_SHAREAWARE(OFN_SHAREFALLTHROUGH((OFN_SHARENOWARN4 (OFN_SHAREWARNd (OFN_SHOWHELP (DateiOeffnen Verzeichnis{ FenstertitelWErr_DateiOeffnenDateitypDateiname_mit_PfadV DateinameO RueckwerteChrK~Space Exit_DateiOeffnenV(DateiSpeichern#LErr_DateiSpeichernoExit_DateiSpeichernPath2Pfad, _B_var_Pfad _B_str_Chrm# _B_str_CurDir  _B_str_Space Microsoft Datenbanken?bmdb!_B_var_Datenbanken D _B_var_ifPRight  _B_var_Right9 _B_var_OpenlStrConvx'_B_var_StrConv{ vbUnicode DAOdb\rs_ Recordseta_rs# stDocNamezsSQL/i`JStartJJEndCWertSendKeysNWait CurrentDbS OpenRecordset| dbOpenDynaset  dbReadOnly SetOptionRunSQL MoveFirstNEOFFROM~  RessourcenbfORDERABY\ _B_var_sSQLOh__B_var_hhString>_B_var_hStringReplacefFields7ValueKMoveNextL!zhler0 _B_var_zhlerkvbOKOnlyForm_UF_Liste_xxxv; _B_var_Chr\;lA w 1 6JS*$0bbLLL<,<0<4<8<<<N0{C0B43A43-1A45-4D14-8DF5-33844CA5FC8E} x(%LX`(+0 %@ % @VZic ForA@x s@t @d FF@` 10@(\ AA@XL 9.@H gr@8 e2@( \M00x\pn[I$*\Rffff*01495bc7ba*\R1*#39*\R1*#8f*\R1*#91*\R1*#92*\R1*#98*\R1*#99r4v8z<~@pDHLP K["d0x0oh V Z"\)VPAttribute VB_Name = "Form_UF_Lis te" Bas0{C0B43A43-1A45-4D14-8DF5-33844CA5FC8E} |Global!SpacFalse dCreatablTru Predecl2aId"Ex0pose_TemplateDerivCust0omizD$Option Com2p@ DT  P&* Sub Current()  s!Main!RIndex] End $ l= tID="{983D4822-A7F1-4F80-863C-CFB62EE6E718}" DocClass=Form_Main/&H00000000 DocClass=Form_UF_Liste/&H00000000 Module=OpenDialog Name="CSV_Import_in_SeminarDesigner" HelpContextID="0" VersionCompatible32="393222000" CMG="9E9C6FB291CED4D2D4D2D4D2D4D2" DPB="DDDF2CEF542F552F552F" GC="1C1EED30136E146E1491" [Host E 8e {z98dSLJLF?8pA*MJ<O1V4H6x1V4H6꓆SLJLF?8MElTP@SLS SL6LL LL)L!LLLLLL "" Then ;)&D0CSet >= Cur@rentDbKsSQLSELECT Ressourcen.* FROMH OR@DER BYI T itel,IInhalt;cAX=.Open5X(A,ADy:n@xt; K[ -zhlM= 0 ; Output y#1A@nt #1,V2L55VY25N&Conv("0#8#19#2 5#900lvbUnicode \13iB10$);WirsA$.MoveF8irsJdDo WhW Not .EOF/`AIsNull(!b/)"@h_;-#2eE')e'Reyce \#[//""" nd If/u?  Hg`_G&#_ E_ :Autor?? ?;= 0g,Quell@mNY1?#_V( <(<< L<,<0<4<8<<<hhz0h|H1.h~`rahx hߡh7hC ʘBC ʘH0BʘLXBʘP@BʘTB@p@p Hh0XX X`0@ h x @ @0 H @ 8  ?@ P,*@T@ @H @` P @x @ @ H @ 0@ @ 2.1#`tnsam P @@ (   +p` k OOi\  i^ ib hl PROG N~1\MI\VBA6\(*VBA  I(` @P h@  @0 fice@ LB@ @ @ 0@ C:@ dole@ @ \Gem em\a@ AD @p ` H|@P cXq(@ 0Pxormerurrentx\ɀ`h h)ax@d M@T ?@D x@4 tŀ$ 0HhhX0H0l X?zeichn`\ eich`L ularFormu`< xit_For`, ` _HEM` ile_p h`0 1ialogn` 0X P/ n[I$*\Rffff*0;495bc2db(*\Rffff*0;495bc2db\0*\R0*#14*\R0*#19*\R0*#13*\R0*#11*\R0*#f  (08@HPX`hpx HH      0 @ P `p        0 @ P K[` p B  x    4 B  H^` J X Nh    $ " @ $` ( " (  ,  P (p & . & &  @ (X ( ,    8 X  (x $     F@ X 6`    ,   4 P h  Bp   D   6@ x  @       (  8  H &X        4 ( 0 8 @ H X ` B h p  x    4  BC  (p @\8 HjP `  ( H FX) 6   ,( Xp 4x  B'  D8'  6   @ 8 H X h x          0   04E@x  <  ^^0^H^`^x^^^^^^^ ^8^P^h^^^^^p.`fr]$0 in ]$ Xion,]$ ed t]$@ not]$unch]$]$cour]$@ ]$ess ]$ h]$etz ]$n]$ro]$ ]$]$]$H]$0]$p]$X]$@]$]$]$]$]p`]]] ]8'b. Dateitypen in der Auswahlliste des Dateityp'sX Alle Dateienhe bAlle Dateien (*.*)$ j*.*$ j'bal Con Access-Dateitypen b$Microsoft Access-Datenbanken (*.mdb)$ j*.mdb$ j'b bAdd-Ins (*.mda)$ j*.mda$ j'bta bArbeitsgruppen-Dateien (*.mdw)$ j*.mdw$ j'b bMDE-Dateien (*.mde)$ j*.mde$ j'b Word-Dateitypen F Word-Dokumente (*.doc) Dokumentenvorlagen (*.dot)(*.d Rich Text Format (*.rtf)xt Fil Textdateien (*.txt) Schedule+-Kontakte (*.scd)'! Persnliches Adrebuch (*.pab) Outlook-Adrebuch (*.olk)He! MS-DOS Text mit Layout (*.asc) Text mit Layout (*.ans)% HTML Document (*.htm;*.html;*.htx)he o Windows Write (*.wri)bl" Lot K[us 1-2-3 (*.wk1;*.wk3;*.wk4) WordPerfect 6.x (*.wpd;*.doc)ge( Microsoft Excel-Arbeitsmappen (*.xls) Works 3.0 fr Windows (*.wps) f Works 4.0 fr Windows (*.wps)ha Excel-Dateitypen" Textdateien (*.prn;*.txt;*.csv)! QuattroPro/DOS-Dateien (*.wq1)& Microsoft Works 2.0-Dateien (*.wks) dBASE-Dateien (*.dbf) Add-Ins (*.xla;*.xll) Mustervorlagen (*.xlt) Arbeitsbereiche (*.xlw) Tabellen (*.xls)icate " Sicherungsdateien (*.xlk;*.bak) HTML-Dateien (*.html;*.htm)0 Vorgegebenes Verzeichnis \'? Wenn leer, dann soll das aktuelle Verzeichnis verwendet werden L$ j'\ d0 0 ANSI "0" an das bergebene Verzeichnis anhngen \$ j'\(k ^' % Wenn kein Titel bergeben worden istnt y Datei ffnen'^e codx . ANSI "0" an bergebenen Fenstertitel anhngented ^$ j'^l ark < Speicherplatz fr Dateieintrag (mit Pfadangabe) reservierenhtOFN_$ l$ j'd.:="C= Speicherplatz fr Dateieintrag (ohne Pfadangabe) reservierenr: a$ l$ j'fup by /Datenstruktur von DateiDialogStruktur festlegen  (zba (|di9DateiDialogStruktur.hwndOwner = Application.hWndAccessApp b (@ (xten d (if t d (t f ( _ f (ef \ (aves ^ ( 8 6 L 8 : (me (ase (gTit (r th ( As ( par $$'hdl h0 ! !$ j $'Zk`nXzP`H ,!.A@*e n0i(X r]]]. Dateitypen in der Auswahlliste des Dateityp'sj Alle Dateienj bAlle Dateien (*.*)$ j*.*$ j'bG Access-Dateitypen\ Dateityp = Dateityp &' "Arbeitsgruppen-Dateien (*.mdw)" & Chr$(0) & "*.mdw" & Chr$(0).mda)Q Dateityp = Dateityp &' "MDE-Dateien (*.mde)" & Chr$(0) & "*.mde" & Chr$(0) Vorgegebenes Verzeichnis \? Wenn leer, dann soll das aktuelle Verzeichnis verwendet werden L$ j'\dX0 ANSI "0" an das bergebene Verzeichnis anhngente \$ j'\r NTk ^9% Wenn kein Titel bergeben worden ists thDatei speichern'^d. ANSI "0" an bergebenen Fenstertitel anhngenspla ^$ j'^pen/kH< Speicherplatz fr Dateieintrag (mit Pfadangabe) reservieren8$ l$ j'd the s= Speicherplatz fr Dateieintrag (ohne Pfadangabe) reservierene sp$ l$ j'fretrie/Datenstruktur von DateiDialogStruktur festlegenht  (z t (|r 9DateiDialogStruktur.hwndOwner = Application.hWndAccessApp b (0 (le, d (red d ( f ( for f (fi \ (h th ^ ( onal 8 J (.aria (G (jen (' ( ( $&'h h( ! !$ j $'pis, ktzr ,!.A@*iothi`h Xb Dateityp = Dateityp &' "Microsoft Access-Datenbanken (*.mdb)" & Chr$(0) & "*.mdb" & Chr$(0)M Dateityp = Dateityp &' "Add-Ins (*.mda)" & Chr$(0) & "*.mda" & Chr$(0) Dim Dateityp As StringYAttribute VB_Name = "OpenDialog" Option Compare Database`Explicit T$ypDei~St@ruktur8 l$ctSize As LonghwndOwnerInstanc5lpst`rFilt7`i TCustom$nMaxLn IndexN?@N?-\eTxitlJ;InitDi~/flags3A;eOffsetIntegeqExtensq&Def@ %[ 5fnHookQTempl8at K[eBEn d DeclFunc®8GetaLib "comdlg32.dll" Alias "L A" _ (o) ')-Q!Sxavec!I y!Pub OFN_ALLOWMULTISELECT@~&H200 NCREATEPROMPENABLEHOOK p cTEMlPL` 4w HANDLE8XPLORER$0EXTENSIONDIFFE(REN4FILEMUSTEXIS1 HID` ADONLY4LONGNA8MES",s NOC GEDI$P NO CELINKc NONETWORKBUTTONr B"RETUR8uTEST)H  VALID%COVERWRI+RPAT~HK8@e#SHA`WB!(FjTHROUGH`2NO &15]SHOWHELP1 {8Dim "Oeffnen(Verzei0chniaU, F@^utitelMsNn Error GoTzo_2Y typn0_mit_Pfad_Qm Rueckwerate`ci` 's0en in duswa hllis des&'s ' Alz enr1& " (*.*)" & C@hr$(0)" Access-? i "Microsofznbank mdbo@& =@ dd- mdaO[@O O @rbeitsgru.p w?mdw??c&DE"emde' WordA CokumePdoc)"Denvor dotR 6 Text Formatrtfd*ctxeSchedule+-Kontak)scdPersn~h@+Adrebuchpab4POutl-olkMS-DOS 8 Layoru as nsHTML D ocbhtm;T*.PlbxtWindows WFr@EqwriLotus 1-2$-3k1wk:3R40fe@ct 6.xpd W'1Excel-A3&ma!& xlU ks 3.0 fr wp+4/#Ds;"prn` #PPcsv Qua`oPro/qy*wq14 2.0k dBARS.db%A;xla xllder+xl'bTeraewThabe Qn7  Sp.erung"s,xlk`ba%'#i "mVorgbenǠ-XjWIf k]x Th:L1@name__ =*ace$(255 ) >8ohne$94Lrukt@ur vonmDialogSt festleg .lctSize8Len(WhwndOwHner@0&a' Application.hWndAccess@lpstrFil@@Btyp n Index} 1_? |XM|axMXME3el  jInitDiiVerzAnisBe InWflags-OFN_FILEMUSTEXIST Or PATH_# dHIDEREA DONLYLONGNAMESw 0 TfhBYOe±L(eft1 .FQ, s2In$)0 - 1PExhit_:# 0Func@ ErrMsgBox .Des0crip$Resume n O %#en(` As ing, "@g)G Onor GoToA# 'A+DimC f *(C Longan dAuswPahll@esF'A AlJrZq =w & " (*.*)"q"  _- ?atфN*2"Microsoft nbank qmdb@ 'u Add-Ins1 mdao@o/ i &A6# ArbeitsgrupP? w_8mdw__]MDEemde2 qVoҟes^ cG3"G' Wenn leer, n solls a@ea%)verwezt P! !ыCurPl$Gǃdas ͦQ C/ $kH) sTOaO3nO OOOO R LOO)5UO!qSpl }OiOOzOuurtLO Our.OO|}O ^OeLW #<r.nOi_|R7U%OسOOc?)7  I?N_OVERWRITEPROMPT˟teiDialogStruktur.nFileExtension = 0 Date lCust0aLpfnHookJTempl!fName+""y|RueckwertGetSXave)()9If <<> 0 ThenVSpeicher!wLeft).lpstr:, _InChr$(0)) - 1Mu3)" ʘNBX@@%vxtender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] Form_Main=22, 29, 928, 567, Form_UF_Liste=44, 58, 950, 596, OpenDialog=66, 87, 972, 625, Form_MainForm_MainForm_UF_ListeForm_UF_ListeOpenDialogOpenDialogge57`d`f0238=Bb cx8e g hij=;k+AwL@9"[-Nr0 U_!EKYc&X [L@WForms $K[0*0*00*0*Blob PPropDataf0UF_ListeѪ;A=Hni0*X [L@Wf0UF_DetailsK1qHHiOPYL@ѪRessourcen*@k-#wL@Ѫ;A=Hni0*Ѹ UK1qHHiOPYL@Ressourcen&G;SF).Qy&2K1qHHiOPInhaltBe$DEa]K1qHHiOPHilfsmittelRessourcen Ariald2 Tahomam45bg[ Tahoma`e@Detailbereich>"ERiFm 27abP.c| i Inhalt Inhalt&Inhalt der Resource\SuG}zD׫d5]b9c;d e"Bezeichnungsfeld0Inhalt:<C9Km7`.ab cm i kHilfsmittelHilfsmittelvBS֍Q?ޘDetailbereichmInhaltd Bezeichnungsfeld0mHilfsmitteld Bezeichnungsfeld1RIndexTitelAutorQuelle Dauer3D4822-A7F1-4F80-863C-CFB62EE6E71n/&H00000000 DocClass=Form_UF_Liste/&H000UF_Details MainUF_ListelpContextID="0" VersionCompatible32="393222000" CMG="9E9C6FBCmdbars0*0*Modules*&0*0*0('0*0*PropData( LOpenDialogLLijLL)L!LMSysDbLLL?@ABCDEFIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijuvwy{z|}~Forms $0*p*00*p*Blob PPropDataCustomGroups10*0*DataAccessPages 0*0*TypeInfo10*0*Blob .PropData ^p.ͬ pA*MJ<O˘DetailbereichFormularkopfFormularfuh btn_Exitd Bezeichnungsfeld1d Bezeichnungsfeld2pUF_ListepUF_DetailsmRIndexh btn_csvFile]$0238=Bb cJ e gh<ivj"8k4'uwL@_!EKYc& UparCBe21uYL@#RessourcenD~pMf_7qparCBe2xtender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] Form_Main=22, 29, 928, 567, Form_UF_Liste=44, 58, 950, 596, OpenDialog=66, 8K[7, 972, 625, Form_MainForm_MainForm_UF_ListeForm_UF_ListeOpenDialogOpenDialogge57`d`f0238=Bb cx8e g hij=;k+AwL@9"[-Nr0 U_!EKYc&F.iL@Wf0UF_ListeѪ;A=Hni0*F.iL@Wf0UF_DetailsK1qHHiOPYL@ѪRessourcen*@1 n1 H1 1 1 1 1 (1 X1 p1 p1 p1 p1 p1 p1 p1 ^1 1 1 1 1 >1 n1             d !Ressourcen.RIndexRessourcenRessourcen.Titel!Ressourcen.InhaltRessourcen.Autor!Ressourcen.Quelle+Ressourcen.HilfsmittelRessourcen.Dauer1 1 P1 1 1 1uYL@1 1 ^1 Y 1 Y 1 Y 1 Y 1 Y >1 Y n1 YRessourcen1 1 1 1 1 YL@#Ressourcen1  H1 H1  1 P1  1 X1  1 `1 1 h1  (1 p1  X1 x1 H1 1 1 1 1 (1 X1 ^1 Y1 YO1 Y 1 Y 1 Y >1 Y n1 YRessourcen ^1 x 1  1 1  1 1  1 1  1 1  >1 1  n1 1 H1 1 1 1 1 (1 X1  1 1 1  1 81 X1 x1 1 1 1 1  1 1  1 1  1 1  1 1  1 1  1 1  1 1  1 1  1 1  1 1  1 1  1 1  1 1  1 1  1 1  1 1  1 1  1 1  1 1  1 1  1 1  1 1  1 1  1 1  1 1  1 1  1 1  1 1  1 1 (1 1  1 1 1 `H1 1  1 1  $H1 1  H1 1  H1 1  H1 1  1 z 1 1 1 Y1 x1 1 1  1 (1  1 81 X1 H1 1 X1 1 h1 x1  1  1   1  X1  1  d1 Dh1 p1 x1 1 1 1 1 x1 1 1  1 X1 1 1 1 Ressourcen1 PrimaryKey1 1 v 1 1 G01 1 1q 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1  1 1 1 p1 x1 RessourcenH1 x1  1 x1 1 x1 81 p1  1 81 @ H1 1  1 1 1 1 1 H1   1 X1 1 .LVAL>ʾRessourcen#RessourcenMain^3