Waarden Exporteren naar Word

[lolpl]

ik heb een aantal waarden die ik doormiddel van een knop in een sjabloon(word) wil zetten maar als een veld geen waarden heeft krijg een foutmelding; en als er wel een waarde is ingevuld exporteerd hij het wel goed.

Ik heb dit als code:

Dim rst As Recordset
    Set rst = CurrentDb.OpenRecordset("qryPrintenVerslag") 'Query bevat gegevens

        'Declareren variabele; early binding!
    Dim oApp As Object
        'Activeer Word
    Set oApp = CreateObject("Word.Application")
    oApp.Visible = True
    
        'Voeg Word-document toe, gebaseerd op template
 oApp.Documents.Add ("c:\verslag.dot")
        
        oApp.ActiveDocument.Bookmarks("bwzVerslag").Select
        oApp.Selection = rst.Fields("[Verslag]")
etc.

alvast bedankt

LOLPL

 

[Floor E]

Ik zou de query aanpassen zodat er geen lege waarde in voor kunnen komen, plaats bij criteria: Is Not Null

 

[lolpl]

dat is onmogelijk.

sommige waarden zijn namelijk optional maar die moeten nog steeds geexporteert worden.

 

[huijb]

@lolpl lees dit even a.u.b. http://www.helpmij.nl/forum/showthread.php?t=321167