Modern healthcare requires a modern cloud. View this brief video to understand how the Concerto Cloud for Healthcare can help your organization.
Dim Db As Database Dim old_RST As Recordset Set Db = CurrentDb Set old_RST = Db.OpenRecordset("tbl_OldValues", dbOpenDynaset) Dim image1_Src As String Dim image1_Dst As String Dim fname1 As String Dim pfname1 As String Dim picpath As String Dim fs Set fs = CreateObject("Scripting.FileSystemObject") old_RST.MoveFirst picpath = old_RST![docPath] image1_Src = Me.Form1 '(This is a text box on the form holding the source location) image1_Dst = picpath '(This is the default destination location saved in a settings table) fs.CopyFile image1_Src, image1_Dst 'This is line that errors! fname1 = FileNameFromPath(Me.Form1) pfname1 = picpath & fname1
Join the community of 500,000 technology professionals and ask your questions.