MS-Office-Forum

Zurück   MS-Office-Forum > Microsoft Access & Datenbanken > Microsoft Access
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads
Themen-Optionen Ansicht
Alt 11.01.2019, 21:42   #1
cs1896
Neuer Benutzer
Neuer Benutzer
Standard Acc2016 - Anlage aus Steuerelement auf Server speichern

Hallo,

ich habe in meiner DB Bilder mit Felddatentyp Anlagen gespeichert. Ich möchte die DB nun umstellen auf automatisches Anzeigen der Bilder in einem Bild-Steuerelement. Ausgelesen werden diese aus dem Serverlaufwerk: "WDMyCloud_Public_Shared Pictures_DB_ArtikelBilder" (Der Eintrag erkennt die Backlash-Zeichen irgendwie nicht an). Diese Funktion habe ich bereits eingerichtet und funktioniert auch.

Nun möchte ich per VBA die bisher in der DB gespeicherten Bilddateien aus dem Anlagefeld in obigen Ordner speichern, um mir das manuelle Speichern Unter zu ersparen. Da ich mit VBA erst begonnen habe, reicht mir erst einmal ein Code, den Speichervorgang per Schaltfläche aus dem aktuellen Datensatz heraus durchzuführen. Der Dateiname setzt sich zusammen aus [ArtikelName] & [ArtikelNr]&".png" im Formular frm_ArtikelDetailansicht (tbl_Artikel). Stellt evtl. das Leerzeichen im vom Serverhersteller vorgegebenen Ordnerpfad Shared Pictures ein Problem dar? Für eure Unterstützung bei der Code-Erstellung wäre ich dankbar.
cs1896 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 11.01.2019, 21:56   #2
elmar
MOF Guru
MOF Guru
Standard

Das Backlash-Zeichen wird von der Forensoftware gerne "verschluckt". Versuche es mal mit der doppelten Eingabe: C:Testzweimal

Hier zum Thema Inhalte von Anlagefeldern verwalten: Du bekommst 6 Tage kostenlosen Zugriff, wenn Du den Newsletter anforderst.

__________________

WIN 7 PROF 64, ACCESS 2003 und 2019 auf anderen Rechner mit Win 10 Wissenswertes: ACCESS-FAQ
Hilfreiche Antworten kann es nur bei verständlichen Fragen geben! Anleitung dazu: Hier klicken | Auch hilfreich: Einführung in die Datenbank Microsoft Access. | Die Nachteile von Nachschlagefeldern

Geändert von elmar (11.01.2019 um 22:12 Uhr). Grund: TIPP zum Thema
elmar ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 12.01.2019, 20:03   #3
cs1896
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Danke für den Tipp. Habe den Code angepasst:

Private Sub cmd_SpeichernUnter_Click()
Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim rstDateien As Recordset2
Dim fld As DAO.Field2
Dim strArtikelname As String
Dim strArtikelpfad As String
Dim strSpeicherOrtName As String
Set db = CurrentDb
strArtikelpfad = "MyCloud_Public_Shared Pictures_DB_Artikelbilder"
strArtikelname = "Dateiname" & [ArtikelID] & ".png"
strSpeicherOrtName = strArtikelpfad & strArtikelname
Set rst = db.OpenRecordset("SELECT ArtikelBild FROM tbl_Artikel WHERE ArtikelID = " & Me!ArtikelID, dbOpenDynaset)
Set rstDateien = rst.Fields("ArtikelBild").Value
Set fld = rstDateien.Fields("FileData")
fld.SaveToFile strSpeicherOrtName
End Sub
cs1896 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 10:10 Uhr.


Partner und Co.
Access-Paradies -Alles rund um die Datenbank Microsoft Access -Code -Programme-Tools -Tipps   Kostenlose Tipps & Tricks, Downloads und Programme   www.kulpa-online.com - Tipps - Tricks - Tutorials - Meinungen - Downloads uvm...   vb@rchiv · Willkommen in der Welt der VB Programmierung   Access-Garhammer - Hier finden Sie jede Menge Beispiel-Datenbanken zu Access und mehr ...   mcseboard.de   Die Top Seite für Excel-VBA-Makros uvm.

Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.

Copyright ©2000-2018 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günter Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.