Private Sub Run_Report_Click() Dim db As Database Dim path_RST As Recordset Dim path_STR As String Dim image1_Src As String Dim image1_Dst As String Dim fname1 As String Dim pfname1 As String Dim msg As Integer Dim msg2 As Integer Dim fs Set db = CurrentDb Set path_RST = db.OpenRecordset("tbl_Path", dbOpenDynaset) Set fs = CreateObject("Scripting.FileSystemObject") image1_Src = path_RST![path] image1_Dst = "F:\" fs.CopyFile image1_Src, image1_Dst fname1 = Right(path_RST![path], (Len(path_RST![path]) - 30)) pfname1 = image1_Dst & fname1 msg = MsgBox("The copy of this spreadsheet you are viewing has been saved to your (F:) drive and named: " & fname1, vbOKOnly, "Working Copy") FollowHyperlink pfname1 End Sub
|Send a .ZPL file to a network printer from Access||8||48|
|Operation must use an updatable query||4||24|
|Would like Regex to return a string array with no duplicates.||3||27|
|MS Access - update query inner join will not work with long text field||11||15|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
12 Experts available now in Live!