Goedeavond,
Vanuit Access wil ik een Word document openen met een druk op een knop. Dat werkt. Als ik op de knop druk dan zie ik een balkje onderin mijn scherm oranje knipperen, dat is het zojuist geopende Word-bestand.
Het Word-bestand is een bestand dat "gelinkt" is aan het bewuste Access bestand met Word-Merge / Verzendlijsten.
Als je het Word-bestand op een normale manier opent (dubbel klik op het bestand zelf), zie je deze Pop-up (zie afbeelding) die vraagt of je de gegevens in de SQL in Word wilt updaten. Ja, dat wil ik altijd.
Als ik dit bestand open met de codes hier onder dan zie ik deze pop-up niet.
Het Word-bestand "wil" ook (nog) niet dat 'Verzendlijsten' in Word wordt geopend, ik denk omdat die pop-up nog ergens '"zweeft" en wacht op een "Ja" of "Nee". Ik zie die pop-up nergens.
Ik denk dat alles is opgelost als er automatisch "ja" wordt ingevoerd in die Pop-up van de afbeelding. Dat zou sowieso wenselijk zijn, of de popup nou wel of niet zichtbaar zou zijn.
Kan dat worden toegevoegd aan de code? Kan iemand me laten zien hoe dat moet?
Vanuit Access wil ik een Word document openen met een druk op een knop. Dat werkt. Als ik op de knop druk dan zie ik een balkje onderin mijn scherm oranje knipperen, dat is het zojuist geopende Word-bestand.
Het Word-bestand is een bestand dat "gelinkt" is aan het bewuste Access bestand met Word-Merge / Verzendlijsten.
Als je het Word-bestand op een normale manier opent (dubbel klik op het bestand zelf), zie je deze Pop-up (zie afbeelding) die vraagt of je de gegevens in de SQL in Word wilt updaten. Ja, dat wil ik altijd.
Als ik dit bestand open met de codes hier onder dan zie ik deze pop-up niet.
Het Word-bestand "wil" ook (nog) niet dat 'Verzendlijsten' in Word wordt geopend, ik denk omdat die pop-up nog ergens '"zweeft" en wacht op een "Ja" of "Nee". Ik zie die pop-up nergens.
Ik denk dat alles is opgelost als er automatisch "ja" wordt ingevoerd in die Pop-up van de afbeelding. Dat zou sowieso wenselijk zijn, of de popup nou wel of niet zichtbaar zou zijn.
Kan dat worden toegevoegd aan de code? Kan iemand me laten zien hoe dat moet?
Code:
Function Openword(conPath As String)
Dim appword As Word.Application
Dim doc As Word.Document
On Error Resume Next
Error.Clear
Set appword = GetObject(, "word.application")
If Err.Number <> 0 Then
Set appword = New Word.Application
appword.Visible = True
End If
Set doc = appword.Documents.Open(conPath, , True)
appword.Activate
Set doc = Nothing
Set appword = Nothing
End Function
Private Sub cmdOpenWordCursusOvereenkomst_Click()
Dim mydoc As String
mydoc = "C:\Documents\Naam.docx"
Call Openword(mydoc)
End Sub
Laatst bewerkt: