Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

Mit VBA-Code ein Verzeichnis erstellen

Frage Microsoft

Mitglied: DockMaster-de

DockMaster-de (Level 1) - Jetzt verbinden

17.01.2015, aktualisiert 21:14 Uhr, 1206 Aufrufe, 2 Kommentare

Hallo,

ich habe mit MS Access 2010 eine Datenbank und ein Frontend. Daten werden über ein Formular eingegeben.
Ich möchte zu jedem Datensatz ein Verzeichnis auf einem Server anlegen lassen wo ich Dokumente zum Datensatz
ablegen kann.

Beim drücken des Buttons soll folgendes geschehen:

1. Überprüfung ob das Verzeichnis vorhanden ist ==> ja, Verzeichnis öffnen
2. Überprüfung ob das Verzeichnis vorhanden ist ==> nein, Verzeichns anlegen und Verzeichnis öffnen

So sollte es dann aussehen \\server\verzeichnis\...\ID-Nr.

Leider habe ich keine VBA Kentnisse

Können die Profis mir ein paar Codebeispiele zur Verfügung stellen?


have a nice day...

DockMaster
Mitglied: 114757
17.01.2015, aktualisiert um 23:08 Uhr
01.
Dim fso, objShell, strPath 
02.
strPath = "\\server\verzeichnis\" & Me.ID 
03.
set objShell = CreateObject("WScript.Shell") 
04.
Set fso = CreateObject("Scripting.FilesystemObject") 
05.
if not fso.FolderExists(strPath) then 
06.
    fso.CreateFolder strPath 
07.
End if 
08.
objShell.Run "explorer.exe /e," & strPath 
09.
Set fso = Nothing 
10.
Set objShell = Nothing
Zeile 2 ist anzupassen, ebenso wie der Name des Feldes in der die ID steht.

Gruß jodel32
Bitte warten ..
Mitglied: DockMaster-de
18.01.2015, aktualisiert um 03:30 Uhr
Hallo jodel32,

hiermit gebe ich dir ein virtuelles Bier aus!
Geiler Code....

Besten Dank für die Hilfe

Gruss aus Bochum

DockMaster
Bitte warten ..
Ähnliche Inhalte
VB for Applications
gelöst VBA Code Änderung Access 2010 (6)

Frage von Dr.Cornwallis zum Thema VB for Applications ...

VB for Applications
gelöst Excel VBA Code (2)

Frage von specialuser zum Thema VB for Applications ...

Windows Installation
Wie erstelle ich ein kostenloses Code Sign Zertifikat? (6)

Frage von Yanmai zum Thema Windows Installation ...

Microsoft Office
VBA Code zum Kopieren von einzelnen Zellen in Excel (3)

Frage von SebastianL zum Thema Microsoft Office ...

Neue Wissensbeiträge
Ubuntu

Ubuntu 17.10 steht zum Download bereit

(3)

Information von Frank zum Thema Ubuntu ...

Datenschutz

Autofahrer-Pranger - Bewertungsportal illegal

(8)

Information von BassFishFox zum Thema Datenschutz ...

Windows 10

Neues Win10 Funktionsupdate verbuggt RemoteApp

(8)

Information von thomasreischer zum Thema Windows 10 ...

Microsoft

Die neuen RSAT-Tools für Win10 1709 sind da

(2)

Information von DerWoWusste zum Thema Microsoft ...

Heiß diskutierte Inhalte
Windows 10
Seekrank bei Windows 10 (18)

Frage von zauberer123 zum Thema Windows 10 ...

Windows 10
Windows 10 Fall Creators Update Fehler (13)

Frage von ZeroCool23 zum Thema Windows 10 ...

Router & Routing
gelöst Getrenntes Routing bei VoIP und Daten (12)

Frage von Hobbystern zum Thema Router & Routing ...