[Access+VBA] Wordkoppeling met bookmarks

[Ibbelz]

Ik heb een koppeling tussen Access en Word gemaakt op basis van bookmarks. Onderstaand mijn code (uiteraard heb ik meer bookmarks maar die heb ik voor de overzichtelijkheid maar weg gelaten):

code:

Private Sub WordKoppeling_Click()
On Error GoTo Err_Command0_Click

    Dim oApp As Object
    Set oApp = CreateObject("Word.Application")
    oApp.Documents.Add Template:="S:\users\dabma\Access\bevestiging.dot"
        
        With oApp
              .ActiveDocument.Bookmarks("Aanhef").Range.Text = Me.Aanhef
              .ActiveDocument.Bookmarks("Voornaam").Range.Text = Me.Voornaam
              .ActiveDocument.Bookmarks("Tussenvoegsel").Range.Text = Me.Tussenvoegsel
              .ActiveDocument.Bookmarks("Achternaam").Range.Text = Me.Achternaam
        End With

    oApp.Visible = True
Exit_Command0_Click:
    Exit Sub

Err_Command0_Click:
    MsgBox Err.Description
    Resume Exit_Command0_Click

End Sub

Opzich werkt deze code goed. Echter heb ik een probleem wanneer ik een veld in een formulier leeg laat. Dan krijg ik de foutmelding "Type komen niet overeen". Nu is dit heel vervelend aangezien bepaalde velden wel is leeg blijven (bijvoorbeeld het tussenvoegsel). Ik wil eigenlijk dat dit gewoon genegeerd wordt en alle resterende gegevens toch naar Word worden verstuurd.

Iemand een idee hoe ik dit op kan lossen?

edit:

Ik heb trouwens wel e.e.a. geprobeerd met if statements, maar dat was ook geen succes. Ik denk ongetwijfeld veel te ingewikkeld, volgens mij is er een simpele oplossing. Kan hem alleen niet vinden.

[ Voor 11% gewijzigd door Ibbelz op 24-01-2006 12:43 ]

[BertS]

Visual Basic:

nz(Me!Aanhef,"")

[Ibbelz]

Ja geweldig! Dat werkt bedankt bee-es, het is precies wat ik bedoelde. Ik ben niet zo ervaren met VBA anders had ik het wellicht zelf wel kunnen bedenken. Thanks!