G
Guest
I have a database that is set up for reports only. In addition to this the database (.mde) is also being used to manually enter data. When making an .mde file from my .mdb to promote change/or new reports, I was loosing the data as they would be replaced. I have made a database for data entry in addition to the database for running reports. I now want a button in the main database that will link me over to this other database and back. I have had a user w/in my company give me what he uses however it is not working for me
Below is what he is using. I get an error when it looks for my file after changing the path. Any help would be greatly appreciated. We do have some runtime versions being run however that code can be eliminated as there are only a couple of these users and they will not be using this database
On Error GoTo Err_btnDemandPlanning_Clic
Dim stAppName As Strin
Dim stTestVal As Intege
Dim Qte: Qte = Chr(34
'Check system to see if Runtime or Full Version of Access installed - Runtime = -
stTestVal = SysCmd(acSysCmdRuntime
If stTestVal = -1 The
stAppName = Qte & "C:\Program Files\Microsoft Office\Office\MSACCESS.EXE" & Qte &
" /runtime " & Qte & "\\lexfile1\supplychain\Flightdeck\Forecasting_Module\Forecast.mde" & Qt
Els
stAppName = "msaccess.exe \\lexfile1\supplychain\Flightdeck\Forecasting_Module\Forecast.mde
End I
Call Shell(stAppName, 1
Exit_btnDemandPlanning_Click
Exit Su
Err_btnDemandPlanning_Click
MsgBox Err.Descriptio
Resume Exit_btnDemandPlanning_Clic
Below is what he is using. I get an error when it looks for my file after changing the path. Any help would be greatly appreciated. We do have some runtime versions being run however that code can be eliminated as there are only a couple of these users and they will not be using this database
On Error GoTo Err_btnDemandPlanning_Clic
Dim stAppName As Strin
Dim stTestVal As Intege
Dim Qte: Qte = Chr(34
'Check system to see if Runtime or Full Version of Access installed - Runtime = -
stTestVal = SysCmd(acSysCmdRuntime
If stTestVal = -1 The
stAppName = Qte & "C:\Program Files\Microsoft Office\Office\MSACCESS.EXE" & Qte &
" /runtime " & Qte & "\\lexfile1\supplychain\Flightdeck\Forecasting_Module\Forecast.mde" & Qt
Els
stAppName = "msaccess.exe \\lexfile1\supplychain\Flightdeck\Forecasting_Module\Forecast.mde
End I
Call Shell(stAppName, 1
Exit_btnDemandPlanning_Click
Exit Su
Err_btnDemandPlanning_Click
MsgBox Err.Descriptio
Resume Exit_btnDemandPlanning_Clic