chestera
asked on
Word and access 2013
Hi EE
Still having trouble opening word in access 2013. I have the following
Dim db As DAO.Database, rs As DAO.Recordset
Dim search
Set db = CurrentDb
search = "SELECT * FROM tblConfig WHERE [ConfigID] = " & 1
Set rs = db.OpenRecordset(search)
DocLocation = rs.Fields("DocumentLocatio n")
OrgID = Me!txtOrgID
Organisation = Me!txtOrgname
DocFileName = "HO" & OrgID & Organisation & ".docx"
If Right(DocLocation, 1) = "\" Then
path = DocLocation & DocFileName
Else
path = DocLocation & "\" & DocFileName
End If
Dim wrdApp As Word.Application
Dim wrdDoc As Word.Document
If Dir(path) <> "" Then
Set wrdApp = CreateObject("Word.Applica tion")
wrdApp.Visible = True
wrdApp.Activate
Set wrdDoc = wrdApp.Documents.Open(path )
wrdDoc.Application.WindowS tate = wdWindowStateMaximize
wrdDoc.Activate
Else
MsgBox ("There is no Document for this project"), vbOKOnly, "Message"
End If
At the moment wdWindowsState is maximised, I have tried Normal When I run word opens in the background (Underneath the opening form)
Before I introduced the line wdWindowsState word would open minimised. I just want word to allways open over the access form. I have made form Popup and model = no. If I transfer the code and run access 2003 there is no problems. Any help appreciated
chestera
Still having trouble opening word in access 2013. I have the following
Dim db As DAO.Database, rs As DAO.Recordset
Dim search
Set db = CurrentDb
search = "SELECT * FROM tblConfig WHERE [ConfigID] = " & 1
Set rs = db.OpenRecordset(search)
DocLocation = rs.Fields("DocumentLocatio
OrgID = Me!txtOrgID
Organisation = Me!txtOrgname
DocFileName = "HO" & OrgID & Organisation & ".docx"
If Right(DocLocation, 1) = "\" Then
path = DocLocation & DocFileName
Else
path = DocLocation & "\" & DocFileName
End If
Dim wrdApp As Word.Application
Dim wrdDoc As Word.Document
If Dir(path) <> "" Then
Set wrdApp = CreateObject("Word.Applica
wrdApp.Visible = True
wrdApp.Activate
Set wrdDoc = wrdApp.Documents.Open(path
wrdDoc.Application.WindowS
wrdDoc.Activate
Else
MsgBox ("There is no Document for this project"), vbOKOnly, "Message"
End If
At the moment wdWindowsState is maximised, I have tried Normal When I run word opens in the background (Underneath the opening form)
Before I introduced the line wdWindowsState word would open minimised. I just want word to allways open over the access form. I have made form Popup and model = no. If I transfer the code and run access 2003 there is no problems. Any help appreciated
chestera
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER
Ryan Chong
Sorry for the delay I have been away. Tried your Shell routine this morning and it worked. Many thanks.
I hope you don't mind before I close off I have a minor problem unrelated to word. I have asked the question before some months ago and couldn't get an answer.
I work from home and I have Office 2013 installed on one of my PC''s. The office uses Microsoft 365 (office2013). Problem if I generate an accde from home and run on the office PC I get the message this program was developed in a later version of Access. I then have to recompile (accde) on a PC in the office to get it to run, It's no big deal but I would like to know why. Have you any ideas, My office is the professional version. I would have assumed Microsoft 365 would be more current than my copy is a couple of years old
Alan
Sorry for the delay I have been away. Tried your Shell routine this morning and it worked. Many thanks.
I hope you don't mind before I close off I have a minor problem unrelated to word. I have asked the question before some months ago and couldn't get an answer.
I work from home and I have Office 2013 installed on one of my PC''s. The office uses Microsoft 365 (office2013). Problem if I generate an accde from home and run on the office PC I get the message this program was developed in a later version of Access. I then have to recompile (accde) on a PC in the office to get it to run, It's no big deal but I would like to know why. Have you any ideas, My office is the professional version. I would have assumed Microsoft 365 would be more current than my copy is a couple of years old
Alan
@Alan,
Glad that it solves your problem cheers!
for your another question... actually I'm not using Microsoft 365 as well as accde file before, so I may not in a good position to answer you this. However... perhaps you can run the following script to test what's the "version" returned from both your home and office's machines, see if the home one is actually higher than the your office one.
Glad that it solves your problem cheers!
for your another question... actually I'm not using Microsoft 365 as well as accde file before, so I may not in a good position to answer you this. However... perhaps you can run the following script to test what's the "version" returned from both your home and office's machines, see if the home one is actually higher than the your office one.
debug.print application.Version & " " & application.Build & " " & application.ProductCode
Hope this gives you some clues that you want.
ASKER
Ryan Chong
Thank you Ryan for all your help and that script
Alan
Thank you Ryan for all your help and that script
Alan
ASKER
Thank you Ryan I will give it a try and get back to you. I will be away from PC for a while
Alan