Need to prompt to save file from VBA if file exists
I have a function to create and save a PDF file. The file name is the company name + the date. The creates a "request " file. If two requests are amde for the same day, the first file gets overwritten. How do I prompt the user if the file name already exists?
Function email_binder()
Dim db As Database
Dim rs As DAO.Recordset
Dim MyOutlook As Outlook.Application
Dim MyMail As Outlook.MailItem
Dim address As String
Dim EmailTo As String
Dim EmailCc As String
Dim EmailSubject As String
Dim EmailMsg As String
Dim EmailAttach As String
Dim DisplayEmail As Boolean
Dim spar1 As String
Dim spar2 As String
Dim spar3 As String
Dim spar4 As String
Dim Cust As String
Dim strAttachment As String
Dim strReport As String
On Error Resume Next
Cust = Form_Client.Text82
address = Form_Client.Text115
Set db = CurrentDb
Set rs = db.OpenRecordset("SELECT * " & _
"FROM info " & _
"WHERE id = 1")
Just encountered an issue. This code works fine in Access 2010, but on an Access 2016 machine, it gives an error "Access has stopped working" and closes the application. Any ideas?
' file exists