After doing some further digging, I came across the CHDIR function. This allowed me to change the current directory to something other than the source folder. Once I ran this function, I was able to delete the source folder.
I am using FileCopy to copy a PDF file from my local hard drive to a network share.
The FileCopy part works fine but when I go to delete the folder that the source file is stored, it tells me that the file or folder is in use by another program.
One thing that allows me to delete the folder...
I am trying to have a file dialog open to the outlook attachments folder to allow the user to copy the attachment to a file store. When I set the outlook attachment file path as the initialfilename in the dialog, it defaults the initial folder to My Documents. Any thoughts?
Private Sub...
Your right, there really is no reason to query status at all because all records will either be OPEN or CLOSED. Works good. Thanks!
Private Sub FormDef()
If ErrOn Then On Error GoTo ErrorHandler
If Len(cboStatus & vbNullString) = 0 Then
MsgBox ("Choose a Status.")
GoTo...
Parenthesis around the Or criteria worked... Thanks!
Select Case cboStatus
Case "ALL"
strStatus = "and (Status = 'OPEN' or Status = 'CLOSED') "
Case "OPEN"
strStatus = "and Status = 'OPEN' "
Case "CLOSED"...
Can anyone tell me what could be wrong with the SQL string this code generates for strFinal variable???
When it runs, it doesn't take into account the strUser filter when cboStatus case = "ALL"... Cannot figure it out... I included strFinal output below:
Private Sub FormDef()
If ErrOn Then On...
My database is built in Access 2016. When I try to open it, I get the error message "Unrecognized Database Format" followed by the file path. When I click OK, the database closes. It wont let me compact and repair. Decompile switch does not change anything either.
The only thing I can think of...
My apologies if this question has already been asked and if so, I cannot seem to find it.
I am working on building a front-end Access database that will be running on a Windows 10 Tablet.
What I would like to be able to do is trigger the tablet on-screen keyboard that shows up when you click...
I ended up changing the way I lookup the record. It is working good now, thanks for your help!
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim strWO As String
Dim strPoint As String
strWO = Forms!frmdsh_workorder!txtWO
Set db = CurrentDb
strPoint = "GMP's"
Set rs =...
I made the changes that you suggested. When I run the Function now, Access freezes and crashes when I run it like this:
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim WO As String
WO = Forms!frmdsh_workorder!txtWO
Set db = CurrentDb
Set rs = db.OpenRecordset("tblwoinspection"...
I am trying to lookup a record in a recordset. If no match is found then run an append query. I am having trouble coding the findfirst syntax. Any help is appreciated.
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim WO As String
WO = Forms!frmdsh_workorder!txtWO
Set db = CurrentDb...