Hallo an alle!
Ich habe folgende Vorstellung, komme allerdings nicht weiter.
In einem Schadenprotokoll kann man 3 Bilder einfügen.
Diese können irgendwo auf dem PC gespeichert sein.
Um aber nun die Verfügbarkeit der Bilder zu gewährleisten möchte ich folgendes ändern.
Bild auf PC wählen
gewähltes Bild soll beim Speichern im UserForm in einen Hauptordner kopiert werden und der Pfad soll sich automatisch zum Hauptordner ändern und in die Tabelle speichern.
Bsp.
Auswahl: C:\Bilder\Testbild_1.jpg
Textbox1: C:\Bilder\Testbild_1.jpg
Kopieren nach: D:\Schadenbilder\SN_Bild_1.jpg
D:\Schadenbilder\SN_Bild_1.jpg muss dann in die Tabelle gespeichert werden.
Vielen Dank für Eure Hilfe
Ich habe folgende Vorstellung, komme allerdings nicht weiter.
In einem Schadenprotokoll kann man 3 Bilder einfügen.
Diese können irgendwo auf dem PC gespeichert sein.
Um aber nun die Verfügbarkeit der Bilder zu gewährleisten möchte ich folgendes ändern.
Bild auf PC wählen
Code:
Private Sub Bild1_Durchsuchen_Click()
Dim fileToOpen As String
fileToOpen = Application.GetOpenFilename("Bild 1 (*.jpg;*bmp;*gif;*png;*tif),*.jpg,*bmp,*gif,*png,*tif")
txt_Bild1 = fileToOpen
End Sub
gewähltes Bild soll beim Speichern im UserForm in einen Hauptordner kopiert werden und der Pfad soll sich automatisch zum Hauptordner ändern und in die Tabelle speichern.
Bsp.
Auswahl: C:\Bilder\Testbild_1.jpg
Textbox1: C:\Bilder\Testbild_1.jpg
Kopieren nach: D:\Schadenbilder\SN_Bild_1.jpg
D:\Schadenbilder\SN_Bild_1.jpg muss dann in die Tabelle gespeichert werden.
Vielen Dank für Eure Hilfe