Type mismatch with lack of data.

[Homegrownandy]

Im having some difficulty generating documents from the system where certain information is missing. Im wondering if thre is an easy change I can make to my code, I can wrap everything in if statements but im sondering if there is an easier change i can make to this code to ignore it if its blank

wrdApp.ActiveDocument.Bookmarks("Town").Select
        wrdApp.Selection.Text = rst("Address_3")

In this case we do not know the "town" so the VBA stopps with type mismatch.

Thanks.

[ranman256]

I add this in case of nulls:

wrdApp.Selection.Text = rst("Address_3") & ""

or I use a function:

buildAddr([addr1],[addr2],[addr3])

function buildAddr(pvAddr1, pvAddr2, pvAddr3)

dim vAddress
if Not Isnull(pvAddr1) then vAddress = pvAddr1
if Not Isnull(pvAddr2) then vAddress = vAddress & " " &  pvAddr2
if Not Isnull(pvAddr3) then vAddress = vAddress & " " & pvAddr3

buildAddr = vAddress
end function

[pbaldy]

This might also work:


vAddress = (pvAddr1 + " ") & (pvAddr2 + " ") & pvAddr3

[Homegrownandy]

Thanks both.

I knew there would be an easeir way that wrapping everything in if statements.

appreciate your replies.