We help IT Professionals succeed at work.
Get Started

Word and access 2013

chestera
chestera asked
on
58 Views
Last Modified: 2015-09-30
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("DocumentLocation")
    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.Application")
           wrdApp.Visible = True
           wrdApp.Activate
           Set wrdDoc = wrdApp.Documents.Open(path)
           wrdDoc.Application.WindowState = 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
Comment
Watch Question
CERTIFIED EXPERT
Distinguished Expert 2020
Commented:
This problem has been solved!
Unlock 1 Answer and 5 Comments.
See Answer
Why Experts Exchange?

Experts Exchange always has the answer, or at the least points me in the correct direction! It is like having another employee that is extremely experienced.

Jim Murphy
Programmer at Smart IT Solutions

When asked, what has been your best career decision?

Deciding to stick with EE.

Mohamed Asif
Technical Department Head

Being involved with EE helped me to grow personally and professionally.

Carl Webster
CTP, Sr Infrastructure Consultant
Ask ANY Question

Connect with Certified Experts to gain insight and support on specific technology challenges including:

  • Troubleshooting
  • Research
  • Professional Opinions
Did You Know?

We've partnered with two important charities to provide clean water and computer science education to those who need it most. READ MORE