Situatie/Vraag
Middels onderstaande code probeer ik de invoer uit een multi-select combobox naar een Word sjabloon te kopiëren. Dit werkt perfect met vrije invoer tekstvelden en comboboxen met een vaste lijst van waarden maar niet bij een combobox waarvan de bron van de keuze mogelijkheden een aparte tabel is.
Achtergrond
Allereerst heb ik totaal geen it gerelateerde achtergrond (complete noob) en ben ik al blij dat ik mbv youtube, fora en veel trial-and-error een redelijk functionerende database heb kunnen maken.
Het betreft een database waarbij van verschillende objecten periodiek een status rapport gemaakt moet worden. Om dit ook logistiek overzichtelijk te houden maak ik gebruik van Access (veel specifieke data Query's). Voor het maken van dit rapport bestaat er in Access een invulformulier deels uit vrije tekst invoervelden, statische keuze mogelijkheden maar ook over keuze mogelijkheden die regelmatig onderhevig zijn aan veranderingen (hence een aparte tabel met de mogelijkheden gekoppeld aan een combobox, zodat deze makkelijk aan te passen zijn).
Omdat dit rapport ook in een ander programma opgeslagen moet worden heb ik in Word een sjabloon gemaakt met formfields die gevoed wordt met bovenstaande code. Hierin wordt alles netjes overgenomen in Word met uitzondering van de aangevinkte keuzemogelijkheden in de eerder beschreven multi comboboxen. De tekst in Word, wordt dan enkel gekopieerd naar programma 2.
Mijn online zoektocht naar een oplossing heeft niks opgeleverd. Ik heb reeds geprobeerd om op het formulier een extra tekstvak te maken die gevoed wordt met de aangevinkte opties om vervolgens dit tekstvak als bron voor het formfield te gebruiken. In het tekstvak verschijnen dan mooi achter elkaar de aangevinkte opties maar wordt dit helaas eveneens niet overgenomen als formfield.
Doel
Het doel hiervan is puur om makkelijk een 1 "kopieer en plak" stukje tekst te krijgen met alle relevante ingevoerde informatie uit Access in een sjabloon. De oplossing leek mij dit te doen mbv Word en formfields. Weet iemand of dit mogelijk is of een andere manier weet om zo'n makkelijk kopieerbaar rapport te maken?
Alvast bedankt voor de moeite!
Middels onderstaande code probeer ik de invoer uit een multi-select combobox naar een Word sjabloon te kopiëren. Dit werkt perfect met vrije invoer tekstvelden en comboboxen met een vaste lijst van waarden maar niet bij een combobox waarvan de bron van de keuze mogelijkheden een aparte tabel is.
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
| Function Fillwordform()
Dim appword As Word.Application
Dim doc As Word.Document
Dim path As String
On Error Resume Next
Error.Clear
path = "...../..../..../.../x.docx"
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(path, , True)
With doc
.FormFields("x").Result = Me.x
End With
appword.Activate
Set doc = Nothing
Set appwords = Nothing
End Function |
Achtergrond
Allereerst heb ik totaal geen it gerelateerde achtergrond (complete noob) en ben ik al blij dat ik mbv youtube, fora en veel trial-and-error een redelijk functionerende database heb kunnen maken.
Het betreft een database waarbij van verschillende objecten periodiek een status rapport gemaakt moet worden. Om dit ook logistiek overzichtelijk te houden maak ik gebruik van Access (veel specifieke data Query's). Voor het maken van dit rapport bestaat er in Access een invulformulier deels uit vrije tekst invoervelden, statische keuze mogelijkheden maar ook over keuze mogelijkheden die regelmatig onderhevig zijn aan veranderingen (hence een aparte tabel met de mogelijkheden gekoppeld aan een combobox, zodat deze makkelijk aan te passen zijn).
Omdat dit rapport ook in een ander programma opgeslagen moet worden heb ik in Word een sjabloon gemaakt met formfields die gevoed wordt met bovenstaande code. Hierin wordt alles netjes overgenomen in Word met uitzondering van de aangevinkte keuzemogelijkheden in de eerder beschreven multi comboboxen. De tekst in Word, wordt dan enkel gekopieerd naar programma 2.
Mijn online zoektocht naar een oplossing heeft niks opgeleverd. Ik heb reeds geprobeerd om op het formulier een extra tekstvak te maken die gevoed wordt met de aangevinkte opties om vervolgens dit tekstvak als bron voor het formfield te gebruiken. In het tekstvak verschijnen dan mooi achter elkaar de aangevinkte opties maar wordt dit helaas eveneens niet overgenomen als formfield.
Doel
Het doel hiervan is puur om makkelijk een 1 "kopieer en plak" stukje tekst te krijgen met alle relevante ingevoerde informatie uit Access in een sjabloon. De oplossing leek mij dit te doen mbv Word en formfields. Weet iemand of dit mogelijk is of een andere manier weet om zo'n makkelijk kopieerbaar rapport te maken?
Alvast bedankt voor de moeite!