MVEs are more concerned with the satisfaction of those they help than with the considerable points they can earn. They are the types of people you feel privileged to call colleagues. Join us in honoring this amazing group of Experts.
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
|UK Date format in MS Access||4||25|
|rECORD SET NOT UPDATEABLE||21||61|
|Intermec PC43d label printer that prints to file folder goes offline after reboot. MS Access VBA Application.||7||31|
|Create a Scheduled Job in MSSQL from MS ACCESS and VBA||5||21|