Hello,
I am using the "Application.Fo llowHyperlink strFilePath, , True" line
of code from within access forms to launch any file type I want (e.g.,
xls, doc, pdf, etc.). The files open up okay, but open up in the
background. How do I make them open in front where they are visible?
I have tried various things like "Appliction.Vis ible=True / False"
and "Screen.ActiveC ontrol.Visible= True / False" but have not been able
to figure it out.
Anyones help with this would be very much appreciated.
Regards,
Ruben Munoz
5  5120 
On 8 May, 01:23, Ruben <rubenfmu...@gm ail.comwrote:
Hello,
I am using the "Application.Fo llowHyperlink strFilePath, , True" line
of code from within access forms to launch any file type I want (e.g.,
xls, doc, pdf, etc.). *The files open up okay, but open up in the
background. *How do I make them open in front where they are visible?
I have tried various things like *"Appliction.Vi sible=True / False"
and "Screen.ActiveC ontrol.Visible= True / False" but have not been able
to figure it out.
Anyones help with this would be very much appreciated.
Regards,
Ruben Munoz
Instead of using FollowHyperlink have you considered using the Shell
command?
e.g
Shell("C:\MSOff ice\OFFICE11\WI NWORD.EXE C:\Somedir\..\. .
\somefile.doc", vbMaximizedFocu s)
this will open the word doc somefile, maximised on top of all other
windows.
Regards
Richard
"Ruben" <ru*********@gm ail.comwrote in message
news:87******** *************** ***********@y21 g2000hsf.google groups.com...
Hello,
I am using the "Application.Fo llowHyperlink strFilePath, , True" line
of code from within access forms to launch any file type I want (e.g.,
xls, doc, pdf, etc.). The files open up okay, but open up in the
background. How do I make them open in front where they are visible?
I have tried various things like "Appliction.Vis ible=True / False"
and "Screen.ActiveC ontrol.Visible= True / False" but have not been able
to figure it out.
Anyones help with this would be very much appreciated.
Regards,
Ruben Munoz
I have been using the following code to open any type of document with an
associated program
'************ Code Start **********
' This code was originally written by Dev Ashish.
' It is not to be altered or distributed,
' except as part of an application.
' You are free to use it in any application,
' provided the copyright notice is left unchanged.
'
' Code Courtesy of
' Dev Ashish
'
Private Declare Function apiShellExecute Lib "shell32.dl l" _
Alias "ShellExecu teA" _
(ByVal hwnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) _
As Long
'***App Window Constants***
Public Const WIN_NORMAL = 1 'Open Normal
Public Const WIN_MAX = 3 'Open Maximized
Public Const WIN_MIN = 2 'Open Minimized
'***Error Codes***
Private Const ERROR_SUCCESS = 32&
Private Const ERROR_NO_ASSOC = 31&
Private Const ERROR_OUT_OF_ME M = 0&
Private Const ERROR_FILE_NOT_ FOUND = 2&
Private Const ERROR_PATH_NOT_ FOUND = 3&
Private Const ERROR_BAD_FORMA T = 11&
'************** *Usage Examples******* *************** *
'Open a folder: ?fHandleFile("C :\TEMP\",WIN_NO RMAL)
'Call Email app: ?fHandleFile("m ailto:da****@ho tmail.com",WIN_ NORMAL)
'Open URL: ?fHandleFile("h ttp://home.att.net/~dashish", WIN_NORMAL)
'Handle Unknown extensions (call Open With Dialog):
' ?fHandleFile("C :\TEMP\TestThis ",Win_Norma l)
'Start Access instance:
' ?fHandleFile("I :\mdbs\CodeNStu ff.mdb", Win_NORMAL)
'************** *************** *************** ********
Function fHandleFile(stF ile As String, lShowHow As Long)
Dim lRet As Long, varTaskID As Variant
Dim stRet As String
'First try ShellExecute
lRet = apiShellExecute (hWndAccessApp, vbNullString, _
stFile, vbNullString, vbNullString, lShowHow)
If lRet ERROR_SUCCESS Then
stRet = vbNullString
lRet = -1
Else
Select Case lRet
Case ERROR_NO_ASSOC:
'Try the OpenWith dialog
varTaskID = Shell("rundll32 .exe shell32.dll,Ope nAs_RunDLL "
_
& stFile, WIN_NORMAL)
lRet = (varTaskID <0)
Case ERROR_OUT_OF_ME M:
stRet = "Error: Out of Memory/Resources. Couldn't Execute!"
Case ERROR_FILE_NOT_ FOUND:
stRet = "Error: File not found. Couldn't Execute!"
Case ERROR_PATH_NOT_ FOUND:
stRet = "Error: Path not found. Couldn't Execute!"
Case ERROR_BAD_FORMA T:
stRet = "Error: Bad File Format. Couldn't Execute!"
Case Else:
End Select
End If
fHandleFile = lRet & _
IIf(stRet = "", vbNullString, ", " & stRet)
End Function
'************ Code End **********
On May 8, 1:21*pm, "paii, Ron" <n...@no.comwro te:
"Ruben" <rubenfmu...@gm ail.comwrote in message
news:87******** *************** ***********@y21 g2000hsf.google groups.com...
Hello,
I am using the "Application.Fo llowHyperlink strFilePath, , True" line
of code from within access forms to launch any file type I want (e.g.,
xls, doc, pdf, etc.). *The files open up okay, but open up in the
background. *How do I make them open in front where they are visible?
I have tried various things like *"Appliction.Vi sible=True / False"
and "Screen.ActiveC ontrol.Visible= True / False" but have not been able
to figure it out.
Anyones help with this would be very much appreciated.
Regards,
Ruben Munoz
I have been using the following code to open any type of document with an
associated program
'************ Code Start **********
' This code was originally written by Dev Ashish.
' It is not to be altered or distributed,
' except as part of an application.
' You are free to use it in any application,
' provided the copyright notice is left unchanged.
'
' Code Courtesy of
' Dev Ashish
'
Private Declare Function apiShellExecute Lib "shell32.dl l" _
* * Alias "ShellExecu teA" _
* * (ByVal hwnd As Long, _
* * ByVal lpOperation As String, _
* * ByVal lpFile As String, _
* * ByVal lpParameters As String, _
* * ByVal lpDirectory As String, _
* * ByVal nShowCmd As Long) _
* * As Long
'***App Window Constants***
Public Const WIN_NORMAL = 1 * * * * 'Open Normal
Public Const WIN_MAX = 3 * * * * * *'Open Maximized
Public Const WIN_MIN = 2 * * * * * *'Open Minimized
'***Error Codes***
Private Const ERROR_SUCCESS = 32&
Private Const ERROR_NO_ASSOC = 31&
Private Const ERROR_OUT_OF_ME M = 0&
Private Const ERROR_FILE_NOT_ FOUND = 2&
Private Const ERROR_PATH_NOT_ FOUND = 3&
Private Const ERROR_BAD_FORMA T = 11&
'************** *Usage Examples******* *************** *
'Open a folder: * * ?fHandleFile("C :\TEMP\",WIN_NO RMAL)
'Call Email app: * *?fHandleFile(" mailto:das...@h otmail.com",WIN _NORMAL)
'Open URL: * * * * *?fHandleFile(" http://home.att.net/~dashish",WIN_N ORMAL)
'Handle Unknown extensions (call Open With Dialog):
' * * * * * * * * * ?fHandleFile("C :\TEMP\TestThis ",Win_Norma l)
'Start Access instance:
' * * * * * * * * * ?fHandleFile("I :\mdbs\CodeNStu ff.mdb", Win_NORMAL)
'************** *************** *************** ********
Function fHandleFile(stF ile As String, lShowHow As Long)
Dim lRet As Long, varTaskID As Variant
Dim stRet As String
* * 'First try ShellExecute
* * lRet = apiShellExecute (hWndAccessApp, vbNullString, _
* * * * * * stFile, vbNullString, vbNullString, lShowHow)
* * If lRet ERROR_SUCCESS Then
* * * * stRet = vbNullString
* * * * lRet = -1
* * Else
* * * * Select Case lRet
* * * * * * Case ERROR_NO_ASSOC:
* * * * * * * * 'Try the OpenWith dialog
* * * * * * * * varTaskID = Shell("rundll32 .exe shell32.dll,Ope nAs_RunDLL "
_
* * * * * * * * * * * * & stFile, WIN_NORMAL)
* * * * * * * * lRet = (varTaskID <0)
* * * * * * Case ERROR_OUT_OF_ME M:
* * * * * * * * stRet = "Error: Out of Memory/Resources.Could n't Execute!"
* * * * * * Case ERROR_FILE_NOT_ FOUND:
* * * * * * * * stRet = "Error: File not found. *Couldn't Execute!"
* * * * * * Case ERROR_PATH_NOT_ FOUND:
* * * * * * * * stRet = "Error: Path not found. Couldn'tExecute !"
* * * * * * Case ERROR_BAD_FORMA T:
* * * * * * * * stRet = "Error: *Bad File Format. Couldn't Execute!"
* * * * * * Case Else:
* * * * End Select
* * End If
* * fHandleFile = lRet & _
* * * * * * * * IIf(stRet = "", vbNullString, ", " & stRet)
End Function
'************ Code End **********
Ron,
Thanks very much for the sample code provided. The ShellExecute part
of the code work great! Is there any way to redirect the focus to
access upon closing the external file just launched? Otherwise, I can
certainly work with this.
Ruben
"Ruben" <ru*********@gm ail.comwrote in message
news:50******** *************** ***********@34g 2000hsf.googleg roups.com...
On May 8, 1:21 pm, "paii, Ron" <n...@no.comwro te:
"Ruben" <rubenfmu...@gm ail.comwrote in message
news:87******** *************** ***********@y21 g2000hsf.google groups.com...
Hello,
I am using the "Application.Fo llowHyperlink strFilePath, , True" line
of code from within access forms to launch any file type I want (e.g.,
xls, doc, pdf, etc.). The files open up okay, but open up in the
background. How do I make them open in front where they are visible?
I have tried various things like "Appliction.Vis ible=True / False"
and "Screen.ActiveC ontrol.Visible= True / False" but have not been able
to figure it out.
Anyones help with this would be very much appreciated.
Regards,
Ruben Munoz
I have been using the following code to open any type of document with an
associated program
'************ Code Start **********
' This code was originally written by Dev Ashish.
' It is not to be altered or distributed,
' except as part of an application.
' You are free to use it in any application,
' provided the copyright notice is left unchanged.
'
' Code Courtesy of
' Dev Ashish
'
Private Declare Function apiShellExecute Lib "shell32.dl l" _
Alias "ShellExecu teA" _
(ByVal hwnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) _
As Long
'***App Window Constants***
Public Const WIN_NORMAL = 1 'Open Normal
Public Const WIN_MAX = 3 'Open Maximized
Public Const WIN_MIN = 2 'Open Minimized
'***Error Codes***
Private Const ERROR_SUCCESS = 32&
Private Const ERROR_NO_ASSOC = 31&
Private Const ERROR_OUT_OF_ME M = 0&
Private Const ERROR_FILE_NOT_ FOUND = 2&
Private Const ERROR_PATH_NOT_ FOUND = 3&
Private Const ERROR_BAD_FORMA T = 11&
'************** *Usage Examples******* *************** *
'Open a folder: ?fHandleFile("C :\TEMP\",WIN_NO RMAL)
'Call Email app: ?fHandleFile("m ailto:das...@ho tmail.com",WIN_ NORMAL)
'Open URL: ?fHandleFile("h ttp://home.att.net/~dashish", WIN_NORMAL)
'Handle Unknown extensions (call Open With Dialog):
' ?fHandleFile("C :\TEMP\TestThis ",Win_Norma l)
'Start Access instance:
' ?fHandleFile("I :\mdbs\CodeNStu ff.mdb", Win_NORMAL)
'************** *************** *************** ********
Function fHandleFile(stF ile As String, lShowHow As Long)
Dim lRet As Long, varTaskID As Variant
Dim stRet As String
'First try ShellExecute
lRet = apiShellExecute (hWndAccessApp, vbNullString, _
stFile, vbNullString, vbNullString, lShowHow)
If lRet ERROR_SUCCESS Then
stRet = vbNullString
lRet = -1
Else
Select Case lRet
Case ERROR_NO_ASSOC:
'Try the OpenWith dialog
varTaskID = Shell("rundll32 .exe shell32.dll,Ope nAs_RunDLL "
_
& stFile, WIN_NORMAL)
lRet = (varTaskID <0)
Case ERROR_OUT_OF_ME M:
stRet = "Error: Out of Memory/Resources. Couldn't Execute!"
Case ERROR_FILE_NOT_ FOUND:
stRet = "Error: File not found. Couldn't Execute!"
Case ERROR_PATH_NOT_ FOUND:
stRet = "Error: Path not found. Couldn't Execute!"
Case ERROR_BAD_FORMA T:
stRet = "Error: Bad File Format. Couldn't Execute!"
Case Else:
End Select
End If
fHandleFile = lRet & _
IIf(stRet = "", vbNullString, ", " & stRet)
End Function
'************ Code End **********
Ron,
Thanks very much for the sample code provided. The ShellExecute part
of the code work great! Is there any way to redirect the focus to
access upon closing the external file just launched? Otherwise, I can
certainly work with this.
Ruben
Glad the code helped.
The ShellExecute function returns after attempting to open the file with
success or fail. At that point your Access application has no control over
the shelled application. Maybe check with the "Dev Ashish" who originally
posted the code, maybe there is a shell api that will wait for the shelled
to application to close.
On May 9, 5:13*am, "paii, Ron" <n...@no.comwro te:
"Ruben" <rubenfmu...@gm ail.comwrote in message
news:50******** *************** ***********@34g 2000hsf.googleg roups.com...
On May 8, 1:21 pm, "paii, Ron" <n...@no.comwro te:
"Ruben" <rubenfmu...@gm ail.comwrote in message
news:87******** *************** ***********@y21 g2000hsf.google groups.com...
Hello,
I am using the "Application.Fo llowHyperlink strFilePath, , True" line
of code from within access forms to launch any file type I want (e.g.,
xls, doc, pdf, etc.). The files open up okay, but open up in the
background. How do I make them open in front where they are visible?
I have tried various things like "Appliction.Vis ible=True / False"
and "Screen.ActiveC ontrol.Visible= True / False" but have not been able
to figure it out.
Anyones help with this would be very much appreciated.
Regards,
Ruben Munoz
I have been using the following code to open any type of document with an
associated program
'************ Code Start **********
' This code was originally written by Dev Ashish.
' It is not to be altered or distributed,
' except as part of an application.
' You are free to use it in any application,
' provided the copyright notice is left unchanged.
'
' Code Courtesy of
' Dev Ashish
'
Private Declare Function apiShellExecute Lib "shell32.dl l" _
Alias "ShellExecu teA" _
(ByVal hwnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) _
As Long
'***App Window Constants***
Public Const WIN_NORMAL = 1 'Open Normal
Public Const WIN_MAX = 3 'Open Maximized
Public Const WIN_MIN = 2 'Open Minimized
'***Error Codes***
Private Const ERROR_SUCCESS = 32&
Private Const ERROR_NO_ASSOC = 31&
Private Const ERROR_OUT_OF_ME M = 0&
Private Const ERROR_FILE_NOT_ FOUND = 2&
Private Const ERROR_PATH_NOT_ FOUND = 3&
Private Const ERROR_BAD_FORMA T = 11&
'************** *Usage Examples******* *************** *
'Open a folder: ?fHandleFile("C :\TEMP\",WIN_NO RMAL)
'Call Email app: ?fHandleFile("m ailto:das...@ho tmail.com",WIN_ NORMAL)
'Open URL: ?fHandleFile("h ttp://home.att.net/~dashish", WIN_NORMAL)
'Handle Unknown extensions (call Open With Dialog):
' ?fHandleFile("C :\TEMP\TestThis ",Win_Norma l)
'Start Access instance:
' ?fHandleFile("I :\mdbs\CodeNStu ff.mdb", Win_NORMAL)
'************** *************** *************** ********
Function fHandleFile(stF ile As String, lShowHow As Long)
Dim lRet As Long, varTaskID As Variant
Dim stRet As String
'First try ShellExecute
lRet = apiShellExecute (hWndAccessApp, vbNullString, _
stFile, vbNullString, vbNullString, lShowHow)
If lRet ERROR_SUCCESS Then
stRet = vbNullString
lRet = -1
Else
Select Case lRet
Case ERROR_NO_ASSOC:
'Try the OpenWith dialog
varTaskID = Shell("rundll32 .exe shell32.dll,Ope nAs_RunDLL "
_
& stFile, WIN_NORMAL)
lRet = (varTaskID <0)
Case ERROR_OUT_OF_ME M:
stRet = "Error: Out of Memory/Resources. Couldn't Execute!"
Case ERROR_FILE_NOT_ FOUND:
stRet = "Error: File not found. Couldn't Execute!"
Case ERROR_PATH_NOT_ FOUND:
stRet = "Error: Path not found. Couldn't Execute!"
Case ERROR_BAD_FORMA T:
stRet = "Error: Bad File Format. Couldn't Execute!"
Case Else:
End Select
End If
fHandleFile = lRet & _
IIf(stRet = "", vbNullString, ", " & stRet)
End Function
'************ Code End **********
Ron,
Thanks very much for the sample code provided. *The ShellExecute part
of the code work great! *Is there any way to redirect the focus to
access upon closing the external file just launched? *Otherwise, I can
certainly work with this.
Ruben
Glad the code helped.
The ShellExecute function returns after attempting to open the file with
success or fail. At that point your Access application has no control over
the shelled application. Maybe check with the "Dev Ashish" who originally
posted the code, maybe there is a shell api that will wait for the shelled
to application to close.- Hide quoted text -
- Show quoted text -
Ron,
Thanks again for your help on this. It gives something more to work
with.
Regards,
Ruben This thread has been closed and replies have been disabled. Please start a new discussion. Similar topics | |
by: Moosebumps |
last post by:
So say I am working on two separate .py files in IDLE that are part of the
same program. Does anyone have problems where when you modify one file, and
then run the other, the changes you made in the first aren't updated?
I usually just close all the files, and restart IDLE, but this is a pain.
Maybe because I always use right click -> edit with IDLE (on Windows). That
starts up a separate Python Shell too, which I always close.
MB
|
by: Lauren Quantrell |
last post by:
I'm using the following code in Access 2000 to open a new MS Internet
Explorer window with whatever URL value I pass to myURL:
Application.FollowHyperlink myURL, , True
(the True opens MS Internet Explorer in a new window)
The problem is, when a user clicks the Back button in MS Internet
Explorer, the Access Window comes back to whatever size and position
the user shaped and placed the MS Internet Explorer window. This is
worse because I...
|
by: Andy Kim via AccessMonster.com |
last post by:
Can anyone help with providing an option to attach files such as MS Word or
Excel document to a database record and be able to view without having to
store the document as an OLE object? I want to be able to link the darabase
record to many related files.
Thanks,
|
by: lknight643 |
last post by:
I have an asp.net application that works with a SQL server database on
server No. 1 but I want to upload files for storage to Server No. 2
that is accessible only from the Internet. If the file storage was on
server No. 1, I would specify a physical file path (ChosenDirectory)
for storage of the uploaded file but in my case I need to specify a
virtual path like http://server2/folder1/.
I'm trying to use server.mappath to convert the...
|
by: AlastairHardwick |
last post by:
Hi,
Wonder if you can help? I have an Image Management Database which holds various information relating to Ghost Images and Testing.
I am using a textbox with a hyperlink to display the path to a PDF file within a networked filesystem.
To open the PDF I have used the Application.FollowHyperLink(PDFPath) property to enable users to view a PDF by clicking on a "View" command Button.
I need to be able to trap the error if some dumb...
| | |
by: df |
last post by:
In the old days of Visual Basic for Applications, I successfully opened a
file (of any file type: .dwg .pdf .doc etc) in its own application using:
ActiveWorkbook.FollowHyperlink Address:=filepath, NewWindow:=True
I don't want to read/write the file, nor to display FileDialog, I just want
to open a named file it in its own application (usually Adobe.pdf).
In Visual Studio 2005 I can successfully find the file using wildcards in:
...
|
by: JimmyKoolPantz |
last post by:
Situation:
I am writing a program that opens up a data file (file ext .dbf),
imports the information into a dataset. The program also, searches
through the dataset for key words ("company names") and then displays
all records with company names in a datagridview.
Once the information has been binded to the datagridview control, I
allow the user to select all records that are not companies, for
example, during the search the key word...
|
by: jpr |
last post by:
Hello,
I would like to create a sort of lookup form with two listboxes. The
firts should read all the drives on my workstation. According to the
drive selected, the second listbox should display all the files it
containg. I would then need to open these files with the double click
event. I am not trying to replicate MyComputer functions but would like
to add this little tool to my database.
Any help or sample? Thank you.
|
by: fpesante |
last post by:
Hi,
I I'm trying to create a form on database that user can choose and adress from a list box then click on a command button and they will be able to open the site. I am not able to retreive the item from the list box, so i may use the Application.FollowHyperlink. Below is code that I am using.
Private Sub Command0_Click()
On Error GoTo Err_Command0_Click
Dim strHttp As String
Screen.PreviousControl.SetFocus
|
by: marktang |
last post by:
ONU (Optical Network Unit) is one of the key components for providing high-speed Internet services. Its primary function is to act as an endpoint device located at the user's premises. However, people are often confused as to whether an ONU can Work As a Router. In this blog post, we’ll explore What is ONU, What Is Router, ONU & Router’s main usage, and What is the difference between ONU and Router. Let’s take a closer look !
Part I. Meaning of...
|
by: Oralloy |
last post by:
Hello folks,
I am unable to find appropriate documentation on the type promotion of bit-fields when using the generalised comparison operator "<=>".
The problem is that using the GNU compilers, it seems that the internal comparison operator "<=>" tries to promote arguments from unsigned to signed.
This is as boiled down as I can make it.
Here is my compilation command:
g++-12 -std=c++20 -Wnarrowing bit_field.cpp
Here is the code in...
| | |
by: jinu1996 |
last post by:
In today's digital age, having a compelling online presence is paramount for businesses aiming to thrive in a competitive landscape. At the heart of this digital strategy lies an intricately woven tapestry of website design and digital marketing. It's not merely about having a website; it's about crafting an immersive digital experience that captivates audiences and drives business growth.
The Art of Business Website Design
Your website is...
|
by: Hystou |
last post by:
Overview:
Windows 11 and 10 have less user interface control over operating system update behaviour than previous versions of Windows. In Windows 11 and 10, there is no way to turn off the Windows Update option using the Control Panel or Settings app; it automatically checks for updates and installs any it finds, whether you like it or not. For most users, this new feature is actually very convenient. If you want to control the update process,...
|
by: tracyyun |
last post by:
Dear forum friends,
With the development of smart home technology, a variety of wireless communication protocols have appeared on the market, such as Zigbee, Z-Wave, Wi-Fi, Bluetooth, etc. Each protocol has its own unique characteristics and advantages, but as a user who is planning to build a smart home system, I am a bit confused by the choice of these technologies. I'm particularly interested in Zigbee because I've heard it does some...
|
by: agi2029 |
last post by:
Let's talk about the concept of autonomous AI software engineers and no-code agents. These AIs are designed to manage the entire lifecycle of a software development project—planning, coding, testing, and deployment—without human intervention. Imagine an AI that can take a project description, break it down, write the code, debug it, and then launch it, all on its own....
Now, this would greatly impact the work of software developers. The idea...
|
by: isladogs |
last post by:
The next Access Europe User Group meeting will be on Wednesday 1 May 2024 starting at 18:00 UK time (6PM UTC+1) and finishing by 19:30 (7.30PM).
In this session, we are pleased to welcome a new presenter, Adolph Dupré who will be discussing some powerful techniques for using class modules.
He will explain when you may want to use classes instead of User Defined Types (UDT). For example, to manage the data in unbound forms.
Adolph will...
|
by: adsilva |
last post by:
A Windows Forms form does not have the event Unload, like VB6. What one acts like?
| | |
by: muto222 |
last post by:
How can i add a mobile payment intergratation into php mysql website.
| |
