Suche | Statistiken | Benutzerliste | Access-FAQ | Datenschutz Foren
donkarl Forum
donkarl Forum ->  Themen -> Access -> Diskussion ansehen

Du bist als Gast eingelogt. ( Anmelden | Registrieren )
  • Insert Into mit Fehler 3167
  • Klauzi9908.10.18 09:53
       └ RE: Insert Into mit Fehler 3167 PeterDoering08.10.18 12:57
          └ RE: Insert Into mit Fehler 3167 Klauzi9909.10.18 10:19
             └ Lösung Gefunden Klauzi9909.10.18 14:47
  • Access und Windows Server 2016
  • Axelander26.09.18 08:30
       └ RE: Access und Windows Server 2016 Karl Donaubauer26.09.18 13:50
          └ RE: Access und Windows Server 2016 Axelander26.09.18 14:44
             └ RE: Access und Windows Server 2016 Marzer26.09.18 20:23
                └ RE: Access und Windows Server 2016 Axelander27.09.18 08:55
  • Access Stammtisch München am 13.09.2018 (Do)
  • StefanWirrer11.09.18 15:01
  • Windows 10 und Access 2016
  • Marzer24.08.18 16:35
       └ RE: Windows 10 und Access 2016 PeterDoering25.08.18 16:26
  • Unterordner in bestehende Ordner Anlegen
  • AccessNeuling20.08.18 11:58
       └ RE: Unterordner in bestehende Ordner Anlegen<... Karl Donaubauer21.08.18 15:39
  • URL in Textbox mit Rich-Text-Format
  • Marzer14.08.18 18:07
  • Einladung zum 32. Access-Stammtisch Hannover am 15...
  • KlausWerther14.08.18 10:21
  • Access Stammtisch München am 09.08.2018 (Do)
  • StefanWirrer07.08.18 14:49
  • Access-Stammtisch Rhein-Main
  • Martin Asal31.07.18 13:37
  • zip und verschlüsseln
  • Greiff31.05.18 14:56
       └ RE: zip und verschlüsseln PeterDoering31.05.18 15:32
       └ RE: zip und verschlüsseln wilo05.06.18 17:23
       └ gelöst: zip und verschlüsseln Greiff25.07.18 15:32
  • Access Stammtisch München am 12.07.2018 (Do)
  • StefanWirrer11.07.18 13:04
  • Undefinierte Funktion (Fehler 3085)
  • sks29.06.18 17:17
       └ RE: Undefinierte Funktion (Fehler 3085) PeterDoering04.07.18 09:49
          └ RE: Undefinierte Funktion (Fehler 3085) sks04.07.18 12:24
             └ Microsoft Desktop Apps sks10.07.18 06:12
  • sendobject nicht verfügbar
  • Greiff18.06.18 15:24
       └ RE: sendobject nicht verfügbar Marzer19.06.18 21:02
          └ RE: sendobject nicht verfügbar Greiff20.06.18 15:40
       └ RE: sendobject nicht verfügbar Greiff09.07.18 20:00
  • mehrere Primärschlüssel
  • fraloh09.07.18 17:46
       └ RE: mehrere Primärschlüssel PeterDoering09.07.18 18:44
          └ RE: mehrere Primärschlüssel fraloh09.07.18 18:59
  • Änderung in der Syntax von XPath
  • Marzer25.06.18 10:47
       └ RE: Änderung in der Syntax von XPath PeterDoering04.07.18 09:50
    Karl Donaubauer
    Gesendet: 21.08.18 15:39
    Betreff: RE: Unterordner in bestehende Ordner Anlegen



    Elite Veteran

    Beiträge: 868
    5001001001002525
    Ort: Wien
    Hallo, Andreas!

    AccessNeuling - 20.08.18

    Bisher habe ich in unserer DB Unterordner über folgenden VBA Code angelegt. Das Problem ist nur der Ordner ist mittlerweile so groß das es Minuten dauert bis ein Ordner angelegt wird.
    ...

    Zukünftig möchte ich die Ordner wie folgt anlegen lassen.
    Ordner mit Name des Auftrags ist vorhanden dann Unterordner anlegen. Bedeutet es muss geprüft werden ist der Ordner des Auftrags vorhanden falls ja Unterordner anlegen falls nicht Auftragsordner anlegen und dann die Unterordner.

    Alle Aufträge habe eine ID und einen txt Auftrag...
    ...

    Wäre das nicht einfach sowas?

    strpfad = "\\Pfadangabe\" & Me!txt_Auftrag

    If Dir(strpfad, vbDirectory) = "" Then

    MkDir strpfad

    strpfad = "\\Pfadangabe\" & Me![txt_Auftrag] & " - " & [Baugruppe] & " -Nr. " & [Teile Nr]
    MkDir strpfad

    strpfad = "\\Pfadangabe\" & Me![txt_Auftrag] & " - " & [Baugruppe] & " -Nr. " & [Teile Nr] & "\Messblatt"
    MkDir strpfad

    strpfad = "\\Pfadangabe\" & Me![txt_Auftrag] & " - " & [Baugruppe] & " -Nr. " & [Teile Nr] & "\Prüfprotokoll"
    MkDir strpfad

    strpfad = "\\Pfadangabe\" & Me![txt_Auftrag] & " - " & [Baugruppe] & " -Nr. " & [Teile Nr] & "\Übergabe und interne Unterlagen"
    MkDir strpfad

    strpfad = "\\Pfadangabe\" & Me![txt_Auftrag] & " - " & [Baugruppe] & " -Nr. " & [Teile Nr] & "\Unterbaugruppen"
    MkDir strpfad

    Else

    strpfad = "\\Pfadangabe\" & Me![txt_Auftrag] & " - " & [Baugruppe] & " -Nr. " & [Teile Nr]
    If Not Exist_Ordner(strpfad) Then
    Create_Ordner (strpfad)
    End If

    strpfad = "\\Pfadangabe\" & Me![txt_Auftrag] & " - " & [Baugruppe] & " -Nr. " & [Teile Nr] & "\Messblatt"
    If Not Exist_Ordner(strpfad) Then
    Create_Ordner (strpfad)
    End If

    strpfad = "\\Pfadangabe\" & Me![txt_Auftrag] & " - " & [Baugruppe] & " -Nr. " & [Teile Nr] & "\Prüfprotokoll"
    If Not Exist_Ordner(strpfad) Then
    Create_Ordner (strpfad)
    End If

    strpfad = "\\Pfadangabe\" & Me![txt_Auftrag] & " - " & [Baugruppe] & " -Nr. " & [Teile Nr] & "\Übergabe und interne Unterlagen"
    If Not Exist_Ordner(strpfad) Then
    Create_Ordner (strpfad)
    End If

    strpfad = "\\Pfadangabe\" & Me![txt_Auftrag] & " - " & [Baugruppe] & " -Nr. " & [Teile Nr] & "\Unterbaugruppen"
    If Not Exist_Ordner(strpfad) Then
    Create_Ordner (strpfad)
    End If

    End If

    Wobei der Else-Teil davon ausgeht, dass deine Prozeduren Exist_Ordner und Create_Ordner einfache Dir-Prüfungen und MKDir-Befehle ausführen. Wie man im If-Teil sieht, lohnen sich für solche Einzeiler aber kaum eigene Prozeduren.


    -----
    Servus
    Karl
    *********
    Access-Entwickler-Konferenz: https://www.donkarl.com/?aek - Jetzt anmelden für 19./20.10. in Nürnberg
    Access DevCon Vienna: https://www.donkarl.com/devcon
    Access Forever: https://www.accessforever.org
    Access News: https://www.youtube.com/playlist?list=PLVCeBbJIMDvdJ8ghMbEakJ6_EQyvy...
    Top of the page Bottom of the page


    Seite: < 22 23 24 25 26 27 ... 28 29 30 31 32 33 34 ... >
    Suche in diesem Forum
    Druckfreundliche Version
    (Alle Cookies von dieser Seite löschen.)