Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
VBA - Ordner erstellen über Access-Formular-Button
zurück: Excel-AddIn Funktionen in Access nutzen? weiter: Inhalt email aus Outlook in Access importieren Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
little_s
Im Profil kannst Du frei den Rang ändern


Verfasst am:
12. Apr 2007, 09:06
Rufname:

VBA - Ordner erstellen über Access-Formular-Button - VBA - Ordner erstellen über Access-Formular-Button

Nach oben
       Version: Office 2003

Bevor jemand sagt ich solle erst das Forum durchstöbern ...hab ich schon, aber irgendwie funktionierts bei mir nicht. Sad Meine VBA-Kenntnisse sind auch leider noch sehr beschränkt Sad Sad

Folgendes Problem:
Ich habe ein Formular mit einem Button "Speichern". Beim Speichern soll ein Ordner angelegt werden, dessen Namen die ID (AutoWert) des gerade angelegten Datensatzes ist.

Der bisherige Code lautet:
Code:
'Prozedur für das Anlegen eines Ordners des jeweiligen Probanden
Sub VerzeichnisAnlegen()
    On Error Resume Next
    MkDir "S:\AUSTAUSCH\DB_Prob\imgs\" & Me!Prob_ID
End Sub
   
Private Sub Bttn_Prob_speichern_Click()
On Error GoTo Err_Bttn_Prob_speichern_Click
    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
    DoCmd.GoToRecord , , acNewRec
    'Verzeichnis anlegen für den jeweiligen Probanden
    VerzeichnisAnlegen
Exit_Bttn_Prob_speichern_Click:
    Exit Sub
Err_Bttn_Prob_speichern_Click:
    MsgBox Err.Description
    Resume Exit_Bttn_Prob_speichern_Click
End Sub
Es wird aber kein Ordner angelegt und Fehlermeldung kommt auch keine.

Kann mir jemand helfen? HELP
jens05
Moderator


Verfasst am:
12. Apr 2007, 09:13
Rufname:
Wohnort: ~~~~~


AW: VBA - Ordner erstellen über Access-Formular-Button - AW: VBA - Ordner erstellen über Access-Formular-Button

Nach oben
       Version: Office 2003

Hallo,
lass mal das On Error Resume Next weg, und nenne uns die evtl. Fehlermeldung.
Falls z.B. der Ordner imgs nicht existent ist, muss der vorher angelegt werden.

_________________
mfg jens05 Wink
Lennynero
Im Profil kannst Du frei den Rang ändern


Verfasst am:
12. Apr 2007, 09:15
Rufname:

AW: VBA - Ordner erstellen über Access-Formular-Button - AW: VBA - Ordner erstellen über Access-Formular-Button

Nach oben
       Version: Office 2003

Wo befindet sich "Sub VerzeichnisAnlegen() ", und wenn du dich mit F8 durchtastest... welchen Wert hat dann Me!Prob_ID in der Sub?
little_s
Im Profil kannst Du frei den Rang ändern


Verfasst am:
12. Apr 2007, 09:30
Rufname:

AW: VBA - Ordner erstellen über Access-Formular-Button - AW: VBA - Ordner erstellen über Access-Formular-Button

Nach oben
       Version: Office 2003

little_s am 12. Apr 2007 um 09:21 hat folgendes geschrieben:
Also ich hab das On Error Resume Next mal rausgenommen ...als Fehlermeldung kommt Fehler beim Zugriff auf Pfad/Datei.

Das Sub VerzeichnisAnlegen() befindet sich im VBA-Code des Formulars genau über dem Code für den Button "Speichern"

Das mit der F8-Taste hab ich nicht ganz verstanden Confused

little_s am 12. Apr 2007 um 09:25 hat folgendes geschrieben:
ach doch ...also mit der F8-Taste kommt "Me!Prob_ID = Null" wenn man mit der Maus drüber geht. Kann aber eigentlich nicht sein, da in dem Feld was drin steht.

ach Danke Leute ...hab den Fehler durch bissl rumprobieren gefunden.

hab mal die Zeile
Code:
    DoCmd.GoToRecord , , acNewRec
auskommentiert und schon funktioniert es. Smile

Nun kommt aber dieser Fehler, wenn der Ordner schon da ist. Kann man das irgendwie abfangen?
jens05
Moderator


Verfasst am:
12. Apr 2007, 10:10
Rufname:
Wohnort: ~~~~~

AW: VBA - Ordner erstellen über Access-Formular-Button - AW: VBA - Ordner erstellen über Access-Formular-Button

Nach oben
       Version: Office 2003

Hallo,
dazu könnte man mit Dir() prüfen ob der Ordner bereits existiert.
Code:
'Prozedur für das Anlegen eines Ordners des jeweiligen Probanden
Sub VerzeichnisAnlegen()
    On Error Resume Next
    If Dir(""S:\AUSTAUSCH\DB_Prob\imgs\" & Me!Prob_ID, vbDirectory) = "" Then
        MkDir "S:\AUSTAUSCH\DB_Prob\imgs\" & Me!Prob_ID
    End If
End Sub

_________________
mfg jens05 Wink
little_s
Im Profil kannst Du frei den Rang ändern


Verfasst am:
12. Apr 2007, 10:16
Rufname:

AW: VBA - Ordner erstellen über Access-Formular-Button - AW: VBA - Ordner erstellen über Access-Formular-Button

Nach oben
       Version: Office 2003

Super

Vielen Dank Smile Smile Smile
Floesen
Gast


Verfasst am:
25. Apr 2014, 09:38
Rufname:

AW: VBA - Ordner erstellen über Access-Formular-Button - AW: VBA - Ordner erstellen über Access-Formular-Button

Nach oben
       Version: Office 2003

Hallo, auch wenn dieses Thema bereits etwas älter ist, habe ich noch mal eine Frage dazu.

Ich habe gleiches vor und möchte einen Ordner (im Windows Explorer) durch einen Knopfdruck anlegen lassen.
Bei mir kommt dieselbe Fehlermeldung "Fehler beim Zugriff auf Pfad/Datei".
Ich verstehe leider nicht was mit Auskommentierung der Zeile
DoCmd.GoToRecord , , acNewRec gemeint ist.
Könnt ihr mir evtl. helfen?

Vielen, vielen Dank vorab!
MissPh!
Office-VBA-Programmiererin


Verfasst am:
25. Apr 2014, 12:54
Rufname:
Wohnort: NRW


AW: VBA - Ordner erstellen über Access-Formular-Button - AW: VBA - Ordner erstellen über Access-Formular-Button

Nach oben
       Version: Office 2003

Hallo,

du kannst nicht zuerst auf einen neuen Datensatz springen und anschließend auf Me!Prob_ID zugreifen.
Wenn du unbedingt auf einen neuen Datensatz springen willst, dann nach dem Anlegen des Ordners.

_________________
Gruß MissPh!
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Access Tabellen & Abfragen: Fremdschlüssel erstellen? 1 chica 11122 05. Feb 2006, 18:28
cablit Fremdschlüssel erstellen?
Keine neuen Beiträge Access Tabellen & Abfragen: Aus Ordner aktuallisieren! 1 Darth_Kane 582 07. Dez 2005, 20:49
blicki Aus Ordner aktuallisieren!
Keine neuen Beiträge Access Tabellen & Abfragen: Code erstellen 2 Frosch73 578 30. Nov 2005, 14:32
Frosch73 Code erstellen
Keine neuen Beiträge Access Tabellen & Abfragen: 1:1-Beziehung erstellen / Fehlermeldung 3201 6 Silvercreast 2196 17. Okt 2005, 04:55
Timbo 1:1-Beziehung erstellen / Fehlermeldung 3201
Keine neuen Beiträge Access Tabellen & Abfragen: Sport Statistik erstellen 5 Tep 1928 29. Sep 2005, 16:42
stpimi Sport Statistik erstellen
Keine neuen Beiträge Access Tabellen & Abfragen: Beziehung mit Mastertabelle erstellen 1 Mucro 2910 23. Sep 2005, 19:23
stpimi Beziehung mit Mastertabelle erstellen
Keine neuen Beiträge Access Tabellen & Abfragen: unlöschbaren Datensatz erstellen 1 Vincent_Vega 899 15. Aug 2005, 21:45
stpimi unlöschbaren Datensatz erstellen
Keine neuen Beiträge Access Tabellen & Abfragen: beziehungen erstellen ? 5 _nadine_ 667 09. Aug 2005, 15:20
MasterPRO beziehungen erstellen ?
Keine neuen Beiträge Access Tabellen & Abfragen: Abfragen Alternative zu DOMWERT erstellen 3 Gast 1013 29. Jul 2005, 15:32
Willi Wipp Abfragen Alternative zu DOMWERT erstellen
Keine neuen Beiträge Access Tabellen & Abfragen: Beziehungsproblem bzw. erstellen von Tabellen 24 Katja2 1988 20. Jul 2005, 22:25
Katja2 Beziehungsproblem bzw. erstellen von Tabellen
Keine neuen Beiträge Access Tabellen & Abfragen: Datensaetze erstellen 3 ITHeiko 777 24. Jun 2005, 12:54
Willi Wipp Datensaetze erstellen
Keine neuen Beiträge Access Tabellen & Abfragen: In Abfrage einen Standardwert erstellen 6 AchimL 3166 28. Mai 2005, 16:00
AchimL In Abfrage einen Standardwert erstellen
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Access Tabellen