Search results

It is the full path to the folder not a file

Yes it works when I add the absolute path but not when I removed it and add ..\ and I thought there was a way to fix it for make the DB movable

Yes, but what if I want my code to read the drive no matter where that folder is moved?

Hello all, Here is my code: Private Sub cmdFolderPath_Click() Dim strMainPath As String Dim strFolderPath As String Dim strfolderName As String strfolderName = Me.cboFolders.Column(1) strMainPath = "..\Documents\RMF Photos\" strFolderPath = strMainPath & strfolderName If...

I actually made a mistake so I changed it to acExport but still the same. I changed to QueryDefs as Microsoft required but still with error messages. I'm trying to read more on it.

When I remove the "On Error Resume Next" the error is now that "Query1" already exist and when I step through the the code, I see nothing for "Query1" but strSQLFolder shows the correct value. I'm very confused now

Now it is say that this action (DoCmd.TransferSpreadsheet acImport, , , "Query1") requires a table name?

Here's what comes up in the immediate window: SELECT FolderName,Categories,ThemeName FROM QryPhotosLocationRecords WHERE FolderName='CollegeWmMary' ORDER BY Categories

Hello Guys, I am trying to get a button to export the values in a listbox to excel. After extensive research on this forum and others, I came up with the code below. However, I am getting Error 13 on this line: Set rs = db.CreateQueryDef("Query1", strSQLFolder) What am I doing wrong...

So at this point this works. Thank you for your help.

Ok I am going to check everything and I read on something and just used a FolderExist(). It is working so far so here is the working code but I have to make sure that this will truly work :confused: Function FolderExists(strFilePath As String) As Boolean On Error Resume Next FolderExists =...

It prints that filepath or that filepath with another folder path

It gives me the correct file path (C:\Tunnel.....) BUT it goes straight to the MsgBox even though the folder exist.

Hi. Thank you for responding. I added the Debug.Print and it actually prints the correct FolderName. I don't know how to check that this Directory exist which I believe is my problem

Hi. Thank you for the response. Column(0) is just the FolderID and Column(1) is the folderName. and I just step through the code and it is correct but it is still showing me the MsgBox. When I use If Not IsNull(strFilePath) Then it shows the existing folder but gives me an error for the...

Hello Guys, I am trying to get my code to follow a file path if it exists or just pop-up a msgbox if it doesn't. However now it is just basically showing me the pop up. What am I doing wrong? Here is my code: Private Sub cmdGotoFolder_Click() Dim strFile As String Dim strFilePath As String...

Thank you theDBGuy

I'll read up on the CurrentDB.Execute. Thank you for the ElseIf suggestion

and the Suggestion from theDBGuy Worked. Thank you Guys. Here is the new working code Private Sub cmdAddNewField_Click() Dim strAddFolderNoPath As String Dim strAddFolderAndPath As String Dim strAddCateg As String Dim strAddTheme As String strAddFolderNoPath = "INSERT INTO...

OK then that is my problem. How do I get the code to look at at both fields, make sure they are NOT NULL and then insert those values in the appropriate tables? because the first statements are going into the same table. Me.txtAddCateg + Me.txtAddTheme are not. that's my issue.