Replies

That worked. Thanks for all your help.

I think that the main problem I’m having is that I don’t know what I’m doing as far as writing code goes. Here is the code that I’m trying. It returns the correct value when I rest my mouse on it in the code, but goes to my C: drive when I actually run the command.

Private Sub Command29_Click()
Dim xlApp As New Excel.Application
Dim strfolder As String
strfolder = “g:publicmoxnesscustomers” & Me!Customer Me!CustomerPartNo
With xlApp
.Visible = True
.Dialogs(xlDialogOpen).Show strfolder
End With
Set xlApp = Nothing
End Sub

I have the same concerns regarding using customer names as folder names and will be discussing them with the department that has requested the database.

I do have one other question. (Hopefully this will be the last. Thanks for your patience.) Is there a subdirectory limit to the strFolder code? I’m trying to go one folder deeper in my strFolder path using the code that you gave me and when I run the code, the File Open screen that appears is my C: drive instead of the appropriate G: folder. The folder that I’m trying to open is g:publiccompanycustomerpart number. Using the code that you gave me, I can only get as far as the customer folder in the g: drive.

Great. One more little thing they’ve thrown at me – they’ve decided that they’re going to keep most of the Excel information in individual customer folders instead of separate Quote and Item Number folders. How can I get to a File Open screen when the folder that I’m accessing varies depending on the customer that appears in my Customer text box?

Thanks once again for your help.

Any chance you can help me with something else? They’ve changed how they want to use the database (again!). They don’t want specific Excel files to open, they want to stop at the Open screen so that the user can select which file they want opened. Is there a way to do this?

One more question – will I have to activate the Microsoft Excel 8 Object library on all of the computers that will be using this database in order for them to use the command buttons that open the Excel spreadsheets?

Your code worked perfectly. Thanks

The temporary directory for the Excel files is R:pteboFMP. There are separate subdirectories called Quote and Part Number. I’m going to have to move the files and change the referenced paths in the code after the file is moved to our appropriate divisions server.

The Access text box containing the quote number is named QuoteNo; the part number is FMPItemNo. If the quote number is 2345, the Excel file will be 2345.xls. The same goes for the part number (FMPItemNo).

Thanks for your help.

That would probably work. Is there any limitation to the number of files that can be listed?

Thanks. I’ll give it a try.

Thanks. It works!

Here is the macro. The name of the sheet that I want to do the Find on is “XRef”.

Sub FindCustomer()
‘ keyboard shortcut: Ctrl+Shift+C

Sheets(“XRef”).Select
Application.Dialogs(xlDialogFormulaFind).Show

End Sub

No it doesn’t. Do I need to specify a range when opening Find through a Macro?

Correction. This opens the Find form, but it won’t actually find anything within the spreadsheet. I added a line to the macro to make sure that it was looking in the correct sheet, but it didn’t make a difference. When I do a Find using Ctrl+F that works.

That worked. Thanks.