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

Du bist als Gast eingelogt. ( Anmelden | Registrieren )
  • 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
  • Eine Beobachtung, keine Fehlermeldung.
  • Marzer16.06.18 16:38
  • Suche Eingabeproblem
  • Greiff08.06.18 14:05
       └ RE: Suche Eingabeproblem Karl Donaubauer08.06.18 17:51
          └ RE: Suche Eingabeproblem Greiff11.06.18 08:39
             └ RE: Suche Eingabeproblem Karl Donaubauer11.06.18 16:01
                └ gelöst Eingabeproblem Greiff11.06.18 16:54
                   └ RE: gelöst Eingabeproblem Karl Donaubauer11.06.18 17:04
                      └ RE: gelöst Eingabeproblem: sich ändern... Greiff12.06.18 09:15
       └ RE: Suche Eingabeproblem PeterDoering11.06.18 08:31
          └ RE: Suche Eingabeproblem Greiff11.06.18 13:08
  • Access-Stammtisch Rhein-Main am Freitag
  • Martin Asal28.05.18 21:44
  • Access in Region Russland
  • MikeMike15.05.18 05:57
       └ RE: Access in Region Russland Karl Donaubauer15.05.18 10:03
          └ RE: Access in Region Russland MikeMike15.05.18 10:13
             └ RE: Access in Region Russland Karl Donaubauer15.05.18 11:07
       └ RE: Access in Region Russland Marzer15.05.18 17:20
          └ RE: Access in Region Russland MikeMike28.05.18 09:07
    AccessNeuling
    Gesendet: 20.08.18 11:58
    Betreff: Unterordner in bestehende Ordner Anlegen


    New user

    Beiträge: 4

    Hallo zusammen,

    mein Name ist Andreas und ich benötige eure Hilfe bei einem VBACode.

    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.

    Private Sub Ablage_erstellen_Click()
    On Error GoTo Ende
    DoCmd.RunCommand acCmdSaveRecord
    Dim strpfad As String
    Dim I As Integer
    strpfad = "\\Pfadangabe\" & Me![txt_Auftrag] & " - " & [Baugruppe] & " -Nr. " & [Teile Nr]
    If Dir(strpfad, vbDirectory) = "" Then
    I = MsgBox("Das Verzeichnis ist nicht vorhanden" & Chr(10) _
    & "Soll es angelegt werden?", vbYesNo)


    If I = vbNo Then Exit Sub

    If I = vbYes Then
    Me!Ablage = "A"

    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
    strpfad = "\\Pfadangabe\" & Me![txt_Auftrag] & " - " & [Baugruppe] & " -Nr. " & [Teile Nr]
    If Not Exist_Ordner(strpfad) Then
    Create_Ordner (strpfad)
    End If


    ' MkDir (strpfad)


    DoCmd.Hourglass True ' Auf die Sanduhr kann auch verzichtet werden
    Sleep 3000 '3 sec
    DoCmd.Hourglass False
    Shell "Explorer.exe " & strpfad, vbNormalFocus
    Else
    MsgBox "Aktion abgebrochen!"
    End If
    Else
    Shell "Explorer.exe " & strpfad, vbNormalFocus
    End If
    DoCmd.RunCommand acCmdSaveRecord
    Me.Refresh
    Ende:
    'MsgBox Err.Description
    End Sub






    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 der Begriff Pfadangabe im VBA Code ist nur ein Platzhalter da ich den Pfad nicht öffentlich machen kann.

    Leider ist es mir bisher nicht gelungen den Code so abzuändern das ich zum gewünschten Ergebniss komme daher wende ich mich an euch mit der Bitte mir bei der Änderung zu helfen.

    Für eure Mühe und Hilfe bedanke ich mich im Voraus

    Gruß Andreas
    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.)