Manage projects of all sizes how you want. Great for personal to-do lists, project milestones, team priorities and launch plans.
- Combine task lists, docs, spreadsheets, and chat in one
- View and edit from mobile/offline
- Cut down on emails
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
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
16 Experts available now in Live!