Receive instant 1:1 support from technology experts, using our real-time conversation and whiteboard interface. Your first 5 minutes are always free.
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
|Normalization of a table||19||69|
|Getting Error that Table or View Doesn't Exist with my Pass Through Query in MS Access 2007||4||18|
|I am working on a project management and would like to track the time spent on project task.||10||39|
|Access 2003 query lost it's only join||7||26|