Krijg foutmeling 429

[gcjvanbeek]

Hallo,
Ik heb een programmatje gemaakt in VB in Access 2003. Ik probeer via een knop een Worddocument te openen, maar ik krijg de foutmelding 429 : ActiveX onderdeel kan geen object maken. Soms komt er een andere melding dat de applocation server niet beschikbaar is. Hieronder statt de code die ik gebruik.

Private Sub Document_DblClick(Cancel As Integer)

strWordDoc = Me![Document]

      strLetterDir = strDocPad & strWordDoc
      strLetter = strLetterDir & ".doc"
   Debug.Print "Letter: " & strLetter
    Documents.Open FileName:=strLetter, ReadOnly:=True, Visible:=True
   
 End Sub

Als ik naar de waarde van strLetter kijk ziet die er goed uit, namelijk excact het pad en document naam : C:/Origineel Beng/BENG/Nok-214502432-12j.doc

BDW De lange naam wordt door Access gegenereed

Ik hoop dat iemand me kan helpen.

 

[snb]

Private Sub Document_DblClick(Cancel As Integer)
  Getobject(strDocPad & Me![Document] &".doc")
End Sub

 

[gcjvanbeek]

Er gebeurt niets

Hallo snb,
Er gebeurt nu helemaal niets, wel begint de disc te draaien, maar er wordt niets geopend.
Ik gebruikt access 2003
Apestaart

 

[gcjvanbeek]

Documents.Open zou moeten werken

Hallo SNB,
Documents.Open zou toch ook moeten werken?
Daar kan ik ook bij aangeven dat het formulier alleen lezen moet zijn.

Ik gebruik de Word11 objectlib, ADODBlib,Access11 lib, stdole.

De onderstaande code werkt wel, maar geeft veel problemen met Normal.dot.

On Error GoTo ErrorHandler
Dim strLetter As String
Dim appWord As Word.Application
Dim docs As Word.Documents
Dim strWordDoc As String
 Dim wndTileWindow As Window
  
 If appWord Is Nothing Then ' Sets variable to the running instance of the Word ' Global object (which is nearly the same as Word.Application)...
Set appWord = CreateObject("Word.Application")
 End If
 
Nieuw_doc:
On Error Resume Next
   Set appWord = GetObject(, "Word.Application")
   If Err.Number <> 0 Then

   Err.Clear
   Set appWord = CreateObject("Word.Application")
    If Err.Number <> 0 Then
      Err.Clear
   End If
   End If
      On Error GoTo ErrorHandler

Debug.Print Me![Document]
strWordDoc = Me![Document]

      strLetterDir = strDocPad & strWordDoc
      strLetter = strLetterDir & ".doc"
   Debug.Print "Letter: " & strLetter
     
  Set docs = appWord.Documents
    
  Debug.Print "er zijn documenten open :" & docs.Count
  docs.Open strLetter, , ReadOnly
   
    With appWord
      .Visible = True
      .Activate
      .Selection.WholeStory
      .Selection.Fields.Update
      .Selection.MoveDown Unit:=wdLine, Count:=1
   End With
     
ErrorHandlerExit:
   Exit Sub

ErrorHandler:
   If Err = 429 Then
    'MsgBox "Word is not running; open Word with CreateObject"
      Set appWord = CreateObject("Word.Application")
      Resume Next
   Else
      MsgBox "Error No: " & Err.Number & "; Description: " & Err.Description
      Resume ErrorHandlerExit
   End If
End Sub

Ik hoop dat je me kunt helpen
Apestaart

 

[snb]

Er gebeurt zeker wel wat, jij krijgt gelukkig niets daarvan te zien (daarom gaat het ook zo snel)


Als je wel wat wil zien:

Private Sub Document_DblClick(Cancel As Integer)
  with Getobject(strDocPad & Me![Document] &".doc")
'    .visible=true
'    .application.visible=true
  end with
End Sub

test zelf even wat de goede code is van .visible.

 

[gcjvanbeek]

Het werkt nu bijna

Hallo snb,
De code werkt nu.
Het doc object wordt opgehaald en de onderstaande code maakt het zichtbaar.

application.visible=true

Het juiste document wordt opgehaald, maar het vreemde is dat het document geminimaliseerd in de taakbalk blijft staan.
Ik heb al geprobeerd application. Maximize, maar dat werkt niet.
Hoe krijg ik het document zichtbaar in het scherm?
Apestaart

 

[snb]

Private Sub Document_DblClick(Cancel As Integer)
  With Getobject(strDocPad & Me![Document] &".doc")
     With [B][COLOR="Blue"].A[/COLOR][/B]pplication
       .WindowState = 1
       .Visible=True
     End With
  End With
End Sub

 

[gcjvanbeek]

Opgelost

Bedankt sbn, het werkt