Opgelost forumlieren: invulveld wordt niet bijgewerkt.

[roycke]

beste,

ik zit een beetje te stoeien met invulformulieren.
gezien mijn minimale word kennis heb ik een bestaand word document "omgekat"
Op zich werk alles goed. Echter in de laatste regel worden niet de actuele gegevens gezet. Daar blijven de gegevens van de vorige x staan.
Wat doe ik hier fout?

 

[OctaFish]

Ik zal er even naar kijken!

 

[OctaFish]

En zie geen problemen!? Wat gaat er fout volgens jou?

 

[roycke]

bij de rode balk wordt de 1 niet meegenomen. hij pakt het invulscherm van de ingegeven data.

 

[OctaFish]

Ik vond/vind je code niet helemaal logisch. Probeer het zo eens:

Private Sub cmdOK_Click()
Dim ct As Control

    For Each ct In Controls
        If TypeName(ct) = "TextBox" Then ActiveDocument.Variables(ct.name) = IIf(ct.text = "", " ", ct.text)
        If TypeName(ct) = "CheckBox" Then ActiveDocument.Variables(ct.name) = IIf(ct.Value = 0, 0, 1)
    Next
    UpdateFields
  Unload Me
End Sub

Function UpdateFields()
Dim doc As Document
Dim sRange As Range
Dim sField As Field

    Set doc = ActiveDocument
    For Each sRange In doc.StoryRanges
        For Each sField In sRange.Fields
            sField.Update
        Next sField
    Next sRange
End Function

 

[roycke]

Top Thankx! (alweer) Het werkt nu