Help with a GUi

[cloh]

I a new user of Access (I am learning to use it for an internship) and I have two questions which I can't find direct answers to. I am continuing to work on a GUI that had previously been prepared by the previous intern and I am finding it hard to pick it up.

1. There is a drop down menu with a list of different locations. When one is selected, then the GUI will proceed to graph all the related graphs for that location. What I need help with is there is an "All?" checkbox - the idea being that if I check that, the graphs for all the locations will be generated.

2. Saving the graphs. When the graphs are generated, there is a field to type in the file name the user would like. There is also a "Browse" button with no functionality associated with it yet - the idea for that is to browse the computer to pick the directory where the user would want to save the file. Any ideas for the code for that? I tried something that I found in another forum (I can't find the link right now) but it doesn't really work for me.

Again, I am a new user but any help would be really appreciated! Thanks in advance.

Carmen

[JKing]

For your second question you can code a filedialog for the click event of your browse button to return the path of the selected directory. Here's the code:

Dim dlgGetFolder As FileDialog
Dim strPath As String
 
Set dlgGetFolder = Application.FileDialog(msoFileDialogFolderPicker)
 
dlgGetFolder.Show
strPath = dlgGetFolder.SelectedItems(1)
 

As for your first question, I'm not sure I fully understand what action you want performed. You want to open graphs for all locations. Are these graphs being displayed on reports? Do you want one report with several graphs or one report with one graph that plots all the locations? Also can you give some sort of example of what data is being used on these graphs so there is a clearer picture of what is trying to be accomplished.

[cloh]

Thanks for the reply. I tried your code, but I get an error that says that the Method or Data Member is not found (it highlights the GetSaveAsFilename application). Any ideas? I'll try to give you a concise explanation about problem 1 in a bit.

[JKing]

Could you post the code that you're using?

[cloh]

At the moment I am using this. Basically someone had created a GUI that creates Excel workbooks with graphs in them. By choosing the graph type from a drop down menu, you can change the kind of graphs displayed. He has a "Browse" button with no functionality associated with it, and my boss wants me to modify it so that you can use the button to select where to save as well as name the workbook that eventually results. I hope this make sense. Sorry for being so confusing, and thanks for your help.


Private Sub cmd_Browse_Click() 'edited by CLoh on 7/9/2007

Dim xlApp As Excel.Application
Dim sFname As String
Set xlApp = New Excel.Application
sFname = xlApp.GetSaveAsFilename
Dim SaveFileAs As Variant
Dim Finfo As String
Dim Msg As String
Dim I As Integer
Dim FilterIndex As Integer
Dim Caption As String
Finfo = "All Files (*.*),*.*"
FilterIndex = 5
'Dialog box caption
Caption = "Save Workbook As"
'Get filename
SaveFileAs = Application.GetSaveAsFilename([InitialFileName], _
[FilterIndex], [Caption])
If SaveFileAs = False Then
MsgBox "No file name as provided."
Else
MsgBox "Workbook will be called " & SaveFileAs
End If

End Sub

[cloh]

Alternatively, if I use a code like that shown below to browse to the required directory, is there a way I can make the path show up in a text box so all the user has to do is add the file name?


Private Sub cmd_Browse_Click() 'edited by CLoh on 7/9/2007
Dim Msg As String
Msg = "Please select a location for the backup."
MsgBox GetDirectoryPath(Msg)

End Sub

[rewalk]

I may be wrong, but I believe that in order for your code to work you need to add a reference to the Microsoft Scripting Runtime. To do this go to your VBA editor and then Tools, References, scroll down until you see this choice and click the box next to it. I know that in order to access File System Objects you need this reference added and I suspect that maybe this reference isn't added in. If it is I apologize, but I figured I'd throw this out there and hope it helps.

[cloh]

Hi rewalk,

I just checked and there is no "References" option under Tools... I'm doing all this in Access. I'll keep looking and let you know if I find it.

[vbaInfant]

Not sure if this thread is still active...Also, bear with me as I am new to Access, VBA, and online discussion forums...

While working on my code, I bumbled upon the "References" In the Access 2003 VB window by doing the following:

1. Click on the "Object Browser" icon on the Standard Toolbar (Note: you can also press the 'F2' button on the keyboard)
2. Click the right mouse button to activate a pop-up window.
3. Select "References"

If an administrator is checking this posting...
I have an Access VBA programming problem regarding opening a dialog box for users to import an excel file into an access database. There seem to be a couple of "threads" on the forum. Should I post my question to an existing thread or start a new one?

[MMcCarthy]

Not sure if this thread is still active...Also, bear with me as I am new to Access, VBA, and online discussion forums...

While working on my code, I bumbled upon the "References" In the Access 2003 VB window by doing the following:

1. Click on the "Object Browser" icon on the Standard Toolbar (Note: you can also press the 'F2' button on the keyboard)
2. Click the right mouse button to activate a pop-up window.
3. Select "References"

If an administrator is checking this posting...
I have an Access VBA programming problem regarding opening a dialog box for users to import an excel file into an access database. There seem to be a couple of "threads" on the forum. Should I post my question to an existing thread or start a new one?

Start a new one. You can refer to other threads by their url if you wish.