MrsC
01-16-2008, 04:37 PM
Working on anther code so that when I click the command it will bring me to the directory on my computer where the file is stored.
Here is the code I've been working on:
'########################################
' Open Master Insco Look Up file
'########################################
Private Sub cmdMstrInsco_Click()
On Error GoTo Err_cmdMstrInsco_Click
'-------------------------------------------------------------
'Open Master Insco Look Up File in Access
'-------------------------------------------------------------
' stAppName = "S:\QA2\MasterInscoLookup\InscoLookup.mdb"
ShellExecute 0&, vbNullString, FMname, vbNullString, vbNullString, vbNormalFocus
'-------------------------------------------------------------
'Read the contents of the text file created by the batch script
'-------------------------------------------------------------
' AllText$ = ""
stAppName = "S:\QA2\MasterInscoLookup\InscoLookup.mdb"
'-------------------------------------------------------------
'This is a File Lookup Record
'-------------------------------------------------------------
' PathToBurnDirectory.SetFocus
' PathToBurnDirectory.Text = ""
' cmdBurnDir.Enabled = False
'-------------------------------------------------------------
'Text file error handling
'-------------------------------------------------------------
Exit_cmdMstrInsco_Click:
Exit Sub
Err_cmdMstrInsco_Click:
MsgBox Err.Description
Resume Exit_cmdMstrInsco_Click
End Sub
______________________________________________________
I'm sure that its' a mess to those that are used to working with this. Now when I click my command button, it does open but only to "My Documents". It doesn't follow the path "S:\QA2\MasterInscoLookup\InscoLookup.mdb"
Any insight would be greatly appreciated.
Here is the code I've been working on:
'########################################
' Open Master Insco Look Up file
'########################################
Private Sub cmdMstrInsco_Click()
On Error GoTo Err_cmdMstrInsco_Click
'-------------------------------------------------------------
'Open Master Insco Look Up File in Access
'-------------------------------------------------------------
' stAppName = "S:\QA2\MasterInscoLookup\InscoLookup.mdb"
ShellExecute 0&, vbNullString, FMname, vbNullString, vbNullString, vbNormalFocus
'-------------------------------------------------------------
'Read the contents of the text file created by the batch script
'-------------------------------------------------------------
' AllText$ = ""
stAppName = "S:\QA2\MasterInscoLookup\InscoLookup.mdb"
'-------------------------------------------------------------
'This is a File Lookup Record
'-------------------------------------------------------------
' PathToBurnDirectory.SetFocus
' PathToBurnDirectory.Text = ""
' cmdBurnDir.Enabled = False
'-------------------------------------------------------------
'Text file error handling
'-------------------------------------------------------------
Exit_cmdMstrInsco_Click:
Exit Sub
Err_cmdMstrInsco_Click:
MsgBox Err.Description
Resume Exit_cmdMstrInsco_Click
End Sub
______________________________________________________
I'm sure that its' a mess to those that are used to working with this. Now when I click my command button, it does open but only to "My Documents". It doesn't follow the path "S:\QA2\MasterInscoLookup\InscoLookup.mdb"
Any insight would be greatly appreciated.