I need form that will give users access to word docs.

Hi folks,

I have been asked to add a method for users to access archived and current
process QA documents from the DB.

The idea that springs to mind is to create a form that would allow a user to
update the location in a text box, then the user can identify the record and
press a button to open up the document in Word.

thanks

--
How many buildings collapsed on 9/11?

I can tell you the answer isn't 2 !!

http://www.mvps.org/access/api/api0001.htm at "The Access Web" will show you
how to allow the users to select a file (or files).

Once you know which file they want to open, use Application.FollowHyperlink
to open it.

--
Doug Steele, Microsoft Access MVP
http://I.Am/DougSteele
(no e-mails, please!)


"scubadiver" wrote in message
...

Hi folks,

I have been asked to add a method for users to access archived and current
process QA documents from the DB.

The idea that springs to mind is to create a form that would allow a user
to
update the location in a text box, then the user can identify the record
and
press a button to open up the document in Word.

thanks

--
How many buildings collapsed on 9/11?

I can tell you the answer isn't 2 !!

Thanks for the link. This is a new topic for me. How does it work? Do I have
to use all the code? Where does it go? The instructions aren't very clear.

Thanks

"Douglas J. Steele" wrote:

http://www.mvps.org/access/api/api0001.htm at "The Access Web" will show you
how to allow the users to select a file (or files).

Once you know which file they want to open, use Application.FollowHyperlink
to open it.

--
Doug Steele, Microsoft Access MVP
http://I.Am/DougSteele
(no e-mails, please!)


"scubadiver" wrote in message
...

Hi folks,

I have been asked to add a method for users to access archived and current
process QA documents from the DB.

The idea that springs to mind is to create a form that would allow a user
to
update the location in a text box, then the user can identify the record
and
press a button to open up the document in Word.

thanks

--
How many buildings collapsed on 9/11?

I can tell you the answer isn't 2 !!

Create a new module. Copy everything from the shaded section (between the
Code Start and Code End) and paste it into that module. Save the module
(making sure you don't name it the same as any of the routines in it.)

When you want to use it, use code like the 4 lines at the beginning of the
page (that example limits the input to Excel files only). For other
examples, see the TestIt and GetOpenFile functions included in what you
copied into the module.

--
Doug Steele, Microsoft Access MVP
http://I.Am/DougSteele
(no e-mails, please!)


"scubadiver" wrote in message
...

Thanks for the link. This is a new topic for me. How does it work? Do I
have
to use all the code? Where does it go? The instructions aren't very clear.

Thanks

"Douglas J. Steele" wrote:

http://www.mvps.org/access/api/api0001.htm at "The Access Web" will show
you
how to allow the users to select a file (or files).

Once you know which file they want to open, use
Application.FollowHyperlink
to open it.

--
Doug Steele, Microsoft Access MVP
http://I.Am/DougSteele
(no e-mails, please!)


"scubadiver" wrote in message
...

Hi folks,

I have been asked to add a method for users to access archived and
current
process QA documents from the DB.

The idea that springs to mind is to create a form that would allow a
user
to
update the location in a text box, then the user can identify the
record
and
press a button to open up the document in Word.

thanks

--
How many buildings collapsed on 9/11?

I can tell you the answer isn't 2 !!

Douglas,
FYI, In some corporate environments (where I am now, for example), the
network security settings cause problems with FollowHyperlink. I originally
tried using it to replace a Shell to open a newly created Excel spreadsheet.
When I ran it, it came up with the Windows security warning you would get if
you had your Macro Security set to Medium. I changed it to Low, but got the
same results. I tried it on a user's computer and got the same results.

Not that the FollowHyperlink is a bad thing (I like it), but just info those
who may encounter this.
--
Dave Hargis, Microsoft Access MVP


"Douglas J. Steele" wrote:

http://www.mvps.org/access/api/api0001.htm at "The Access Web" will show you
how to allow the users to select a file (or files).

Once you know which file they want to open, use Application.FollowHyperlink
to open it.

--
Doug Steele, Microsoft Access MVP
http://I.Am/DougSteele
(no e-mails, please!)


"scubadiver" wrote in message
...

Hi folks,

I have been asked to add a method for users to access archived and current
process QA documents from the DB.

The idea that springs to mind is to create a form that would allow a user
to
update the location in a text box, then the user can identify the record
and
press a button to open up the document in Word.

thanks

--
How many buildings collapsed on 9/11?

I can tell you the answer isn't 2 !!

Wow. Surprising I'm not being hit by that, given how overly paranoid we are
about security!

Another approach is to use Automation.

Instantiated an instance of the Word application, then open the file:

Dim objWord As Object

Set objWord = CreateObject("Word.Application")
objWord.Documents.Open "C:\Folder\File.doc"
objWord.Visible = True


--
Doug Steele, Microsoft Access MVP
http://I.Am/DougSteele
(no e-mails, please!)


"Klatuu" wrote in message
...
Douglas,
FYI, In some corporate environments (where I am now, for example), the
network security settings cause problems with FollowHyperlink. I
originally
tried using it to replace a Shell to open a newly created Excel
spreadsheet.
When I ran it, it came up with the Windows security warning you would get
if
you had your Macro Security set to Medium. I changed it to Low, but got
the
same results. I tried it on a user's computer and got the same results.

Not that the FollowHyperlink is a bad thing (I like it), but just info
those
who may encounter this.
--
Dave Hargis, Microsoft Access MVP


"Douglas J. Steele" wrote:

http://www.mvps.org/access/api/api0001.htm at "The Access Web" will show
you
how to allow the users to select a file (or files).

Once you know which file they want to open, use
Application.FollowHyperlink
to open it.

--
Doug Steele, Microsoft Access MVP
http://I.Am/DougSteele
(no e-mails, please!)


"scubadiver" wrote in message
...

Hi folks,

I have been asked to add a method for users to access archived and
current
process QA documents from the DB.

The idea that springs to mind is to create a form that would allow a
user
to
update the location in a text box, then the user can identify the
record
and
press a button to open up the document in Word.

thanks

--
How many buildings collapsed on 9/11?

I can tell you the answer isn't 2 !!

I want to restrict it to word documents. I have changed the code at the top
of the page to the following:

Dim strFilter As String
Dim strInputFileName as string

strFilter = ahtAddFilterItem(strFilter, "Word Files (*.DOC)", "*.DOC")
strInputFileName = ahtCommonFileOpenSave( _
Filter:=strFilter, OpenFile:=True, _
DialogTitle:="Please select an input file...", _
Flags:=ahtOFN_HIDEREADONLY)

Where do I put these four lines? Also is it possible to adapt the code so
that, When the dialog box is opened, it goes straight to a specific folder
(Rather than just "my documents").

Thanks


"Douglas J. Steele" wrote:

Create a new module. Copy everything from the shaded section (between the
Code Start and Code End) and paste it into that module. Save the module
(making sure you don't name it the same as any of the routines in it.)

When you want to use it, use code like the 4 lines at the beginning of the
page (that example limits the input to Excel files only). For other
examples, see the TestIt and GetOpenFile functions included in what you
copied into the module.

--
Doug Steele, Microsoft Access MVP
http://I.Am/DougSteele
(no e-mails, please!)


"scubadiver" wrote in message
...

Thanks for the link. This is a new topic for me. How does it work? Do I
have
to use all the code? Where does it go? The instructions aren't very clear.

Thanks

"Douglas J. Steele" wrote:

http://www.mvps.org/access/api/api0001.htm at "The Access Web" will show
you
how to allow the users to select a file (or files).

Once you know which file they want to open, use
Application.FollowHyperlink
to open it.

--
Doug Steele, Microsoft Access MVP
http://I.Am/DougSteele
(no e-mails, please!)


"scubadiver" wrote in message
...

Hi folks,

I have been asked to add a method for users to access archived and
current
process QA documents from the DB.

The idea that springs to mind is to create a form that would allow a
user
to
update the location in a text box, then the user can identify the
record
and
press a button to open up the document in Word.

thanks

--
How many buildings collapsed on 9/11?

I can tell you the answer isn't 2 !!

Put those lines of code wherever you want them invoked! For example, if you
want them to click on a button to invoke the dialog, put that code in the
Click event of the button.

To start in a specific folder, pass the function a value for InitialDir:

strInputFileName = ahtCommonFileOpenSave( _
Filter:=strFilter, OpenFile:=True, _
DialogTitle:="Please select an input file...", _
InitialDir:="C:\SomeFolder\", _
Flags:=ahtOFN_HIDEREADONLY)

--
Doug Steele, Microsoft Access MVP
http://I.Am/DougSteele
(no e-mails, please!)


"scubadiver" wrote in message
...

I want to restrict it to word documents. I have changed the code at the
top
of the page to the following:

Dim strFilter As String
Dim strInputFileName as string

strFilter = ahtAddFilterItem(strFilter, "Word Files (*.DOC)", "*.DOC")
strInputFileName = ahtCommonFileOpenSave( _
Filter:=strFilter, OpenFile:=True, _
DialogTitle:="Please select an input file...", _
Flags:=ahtOFN_HIDEREADONLY)

Where do I put these four lines? Also is it possible to adapt the code so
that, When the dialog box is opened, it goes straight to a specific folder
(Rather than just "my documents").

Thanks


"Douglas J. Steele" wrote:

Create a new module. Copy everything from the shaded section (between the
Code Start and Code End) and paste it into that module. Save the module
(making sure you don't name it the same as any of the routines in it.)

When you want to use it, use code like the 4 lines at the beginning of
the
page (that example limits the input to Excel files only). For other
examples, see the TestIt and GetOpenFile functions included in what you
copied into the module.

--
Doug Steele, Microsoft Access MVP
http://I.Am/DougSteele
(no e-mails, please!)


"scubadiver" wrote in message
...

Thanks for the link. This is a new topic for me. How does it work? Do I
have
to use all the code? Where does it go? The instructions aren't very
clear.

Thanks

"Douglas J. Steele" wrote:

http://www.mvps.org/access/api/api0001.htm at "The Access Web" will
show
you
how to allow the users to select a file (or files).

Once you know which file they want to open, use
Application.FollowHyperlink
to open it.

--
Doug Steele, Microsoft Access MVP
http://I.Am/DougSteele
(no e-mails, please!)


"scubadiver" wrote in message
...

Hi folks,

I have been asked to add a method for users to access archived and
current
process QA documents from the DB.

The idea that springs to mind is to create a form that would allow a
user
to
update the location in a text box, then the user can identify the
record
and
press a button to open up the document in Word.

thanks

--
How many buildings collapsed on 9/11?

I can tell you the answer isn't 2 !!

I've got that worked out but where do I put

application.followhyperlink

thanks for your help

"Douglas J. Steele" wrote:

Put those lines of code wherever you want them invoked! For example, if you
want them to click on a button to invoke the dialog, put that code in the
Click event of the button.

To start in a specific folder, pass the function a value for InitialDir:

strInputFileName = ahtCommonFileOpenSave( _
Filter:=strFilter, OpenFile:=True, _
DialogTitle:="Please select an input file...", _
InitialDir:="C:\SomeFolder\", _
Flags:=ahtOFN_HIDEREADONLY)

--
Doug Steele, Microsoft Access MVP
http://I.Am/DougSteele
(no e-mails, please!)


"scubadiver" wrote in message
...

I want to restrict it to word documents. I have changed the code at the
top
of the page to the following:

Dim strFilter As String
Dim strInputFileName as string

strFilter = ahtAddFilterItem(strFilter, "Word Files (*.DOC)", "*.DOC")
strInputFileName = ahtCommonFileOpenSave( _
Filter:=strFilter, OpenFile:=True, _
DialogTitle:="Please select an input file...", _
Flags:=ahtOFN_HIDEREADONLY)

Where do I put these four lines? Also is it possible to adapt the code so
that, When the dialog box is opened, it goes straight to a specific folder
(Rather than just "my documents").

Thanks


"Douglas J. Steele" wrote:

Create a new module. Copy everything from the shaded section (between the
Code Start and Code End) and paste it into that module. Save the module
(making sure you don't name it the same as any of the routines in it.)

When you want to use it, use code like the 4 lines at the beginning of
the
page (that example limits the input to Excel files only). For other
examples, see the TestIt and GetOpenFile functions included in what you
copied into the module.

--
Doug Steele, Microsoft Access MVP
http://I.Am/DougSteele
(no e-mails, please!)


"scubadiver" wrote in message
...

Thanks for the link. This is a new topic for me. How does it work? Do I
have
to use all the code? Where does it go? The instructions aren't very
clear.

Thanks

"Douglas J. Steele" wrote:

http://www.mvps.org/access/api/api0001.htm at "The Access Web" will
show
you
how to allow the users to select a file (or files).

Once you know which file they want to open, use
Application.FollowHyperlink
to open it.

--
Doug Steele, Microsoft Access MVP
http://I.Am/DougSteele
(no e-mails, please!)


"scubadiver" wrote in message
...

Hi folks,

I have been asked to add a method for users to access archived and
current
process QA documents from the DB.

The idea that springs to mind is to create a form that would allow a
user
to
update the location in a text box, then the user can identify the
record
and
press a button to open up the document in Word.

thanks

--
How many buildings collapsed on 9/11?

I can tell you the answer isn't 2 !!

If you want to open the file as soon as they've selected it, put

If Len(Dir(strInputFileName)) 0 Then
Application.FollowHyperlink strInputFileName
End If

right after the

strInputFileName = aht(CommonFileOpenSave(...)

If you're saving their selected files in a table, and then letting them
select from that table, put it in the appropriate event once they've
selected it.

--
Doug Steele, Microsoft Access MVP
http://I.Am/DougSteele
(no e-mails, please!)


"scubadiver" wrote in message
...
I've got that worked out but where do I put

application.followhyperlink

thanks for your help

"Douglas J. Steele" wrote:

Put those lines of code wherever you want them invoked! For example, if
you
want them to click on a button to invoke the dialog, put that code in the
Click event of the button.

To start in a specific folder, pass the function a value for InitialDir:

strInputFileName = ahtCommonFileOpenSave( _
Filter:=strFilter, OpenFile:=True, _
DialogTitle:="Please select an input file...", _
InitialDir:="C:\SomeFolder\", _
Flags:=ahtOFN_HIDEREADONLY)

--
Doug Steele, Microsoft Access MVP
http://I.Am/DougSteele
(no e-mails, please!)


"scubadiver" wrote in message
...

I want to restrict it to word documents. I have changed the code at the
top
of the page to the following:

Dim strFilter As String
Dim strInputFileName as string

strFilter = ahtAddFilterItem(strFilter, "Word Files (*.DOC)", "*.DOC")
strInputFileName = ahtCommonFileOpenSave( _
Filter:=strFilter, OpenFile:=True, _
DialogTitle:="Please select an input file...", _
Flags:=ahtOFN_HIDEREADONLY)

Where do I put these four lines? Also is it possible to adapt the code
so
that, When the dialog box is opened, it goes straight to a specific
folder
(Rather than just "my documents").

Thanks


"Douglas J. Steele" wrote:

Create a new module. Copy everything from the shaded section (between
the
Code Start and Code End) and paste it into that module. Save the
module
(making sure you don't name it the same as any of the routines in it.)

When you want to use it, use code like the 4 lines at the beginning of
the
page (that example limits the input to Excel files only). For other
examples, see the TestIt and GetOpenFile functions included in what
you
copied into the module.

--
Doug Steele, Microsoft Access MVP
http://I.Am/DougSteele
(no e-mails, please!)


"scubadiver" wrote in message
...

Thanks for the link. This is a new topic for me. How does it work?
Do I
have
to use all the code? Where does it go? The instructions aren't very
clear.

Thanks

"Douglas J. Steele" wrote:

http://www.mvps.org/access/api/api0001.htm at "The Access Web" will
show
you
how to allow the users to select a file (or files).

Once you know which file they want to open, use
Application.FollowHyperlink
to open it.

--
Doug Steele, Microsoft Access MVP
http://I.Am/DougSteele
(no e-mails, please!)


"scubadiver" wrote in
message
...

Hi folks,

I have been asked to add a method for users to access archived
and
current
process QA documents from the DB.

The idea that springs to mind is to create a form that would
allow a
user
to
update the location in a text box, then the user can identify the
record
and
press a button to open up the document in Word.

thanks

--
How many buildings collapsed on 9/11?

I can tell you the answer isn't 2 !!