Create Shortycups in MS-Access ADP

[Lauren Quantrell]

I used to use this code to create shortcuts in my Access Jet MBD
programs but it won't work in Access ADP projects. I know it's related
to reference to CurrentDB.Properties (where it errors). IS there an
equivalent to do this in an ADP???
Any help is appreciated.
lq

Private Function CreateShortcut(myPath As String, myDest As Long,
dDrive As String)

Dim WScript As Object, myShortcut As Object, Sc As String
Set WScript = CreateObject("WScript.Shell")
Sc = GetSpecialFolderLocation(myDest)
Set myShortcut = WScript.CreateShortcut(Sc & "\NewsBase" & ".lnk")
myShortcut.TargetPath = myPath

On Error GoTo err_IconomyShortcut

myShortcut.IconLocation = CurrentDb.Properties("AppIcon")
myShortcut.WorkingDirectory = dDrive & ":\NewsBase"
myShortcut.Save

exit_CreateShortcut:
Set myShortcut = Nothing
Set WScript = Nothing
Exit Function
err_IconomyShortcut:
If Err.Number = 3270 Then
myShortcut.IconLocation = SysCmd(acSysCmdAccessDir) &
"\msaccess.exe, 1"
Resume Next
Else
MsgBox Err.Description
GoTo exit_CreateShortcut
End If
End Function

[Fletcher Arnold]

"Lauren Quantrell" <la*************@hotmail.com> wrote in message
news:47**************************@posting.google.c om...

I used to use this code to create shortcuts in my Access Jet MBD
programs but it won't work in Access ADP projects. I know it's related
to reference to CurrentDB.Properties (where it errors). IS there an
equivalent to do this in an ADP???
Any help is appreciated.
lq

Private Function CreateShortcut(myPath As String, myDest As Long,
dDrive As String)

Dim WScript As Object, myShortcut As Object, Sc As String
Set WScript = CreateObject("WScript.Shell")
Sc = GetSpecialFolderLocation(myDest)
Set myShortcut = WScript.CreateShortcut(Sc & "\NewsBase" & ".lnk")
myShortcut.TargetPath = myPath

On Error GoTo err_IconomyShortcut

myShortcut.IconLocation = CurrentDb.Properties("AppIcon")
myShortcut.WorkingDirectory = dDrive & ":\NewsBase"
myShortcut.Save

exit_CreateShortcut:
Set myShortcut = Nothing
Set WScript = Nothing
Exit Function
err_IconomyShortcut:
If Err.Number = 3270 Then
myShortcut.IconLocation = SysCmd(acSysCmdAccessDir) &
"\msaccess.exe, 1"
Resume Next
Else
MsgBox Err.Description
GoTo exit_CreateShortcut
End If
End Function

Where do you now hope to store your IconLocation? In a SQL server table, or
in a location fixed relative to the adp? If so you could look at
CurrentProject.Path which gives the folder where the adp is. You can
navigate from there.

Fletcher

[Lauren Quantrell]

Fletcher,
I realized this after posting it that it simply refers to the location
of the icon file. I was thinking something else.
Regards,
lq

"Fletcher Arnold" <fl****@home.com> wrote in message news:<c1**********@hercules.btinternet.com>...

"Lauren Quantrell" <la*************@hotmail.com> wrote in message
news:47**************************@posting.google.c om...

I used to use this code to create shortcuts in my Access Jet MBD
programs but it won't work in Access ADP projects. I know it's related
to reference to CurrentDB.Properties (where it errors). IS there an
equivalent to do this in an ADP???
Any help is appreciated.
lq

Private Function CreateShortcut(myPath As String, myDest As Long,
dDrive As String)

Dim WScript As Object, myShortcut As Object, Sc As String
Set WScript = CreateObject("WScript.Shell")
Sc = GetSpecialFolderLocation(myDest)
Set myShortcut = WScript.CreateShortcut(Sc & "\NewsBase" & ".lnk")
myShortcut.TargetPath = myPath

On Error GoTo err_IconomyShortcut

myShortcut.IconLocation = CurrentDb.Properties("AppIcon")
myShortcut.WorkingDirectory = dDrive & ":\NewsBase"
myShortcut.Save

exit_CreateShortcut:
Set myShortcut = Nothing
Set WScript = Nothing
Exit Function
err_IconomyShortcut:
If Err.Number = 3270 Then
myShortcut.IconLocation = SysCmd(acSysCmdAccessDir) &
"\msaccess.exe, 1"
Resume Next
Else
MsgBox Err.Description
GoTo exit_CreateShortcut
End If
End Function

Where do you now hope to store your IconLocation? In a SQL server table, or
in a location fixed relative to the adp? If so you could look at
CurrentProject.Path which gives the folder where the adp is. You can
navigate from there.

Fletcher