handling null value in Access-Word merge

[leeroi]

I apologize ahead of time if this question has already been addressed- I couldn't find anything relevant after doing a site search.

I am merging data from Access into a Word document. Opening a form calls code in the specified Module, and merges data from the form into bookmarked locations in the specified Word document.

The merge will not run properly is any of the fields are empty. What do I need to put in the code module to address this and allow a null value? It is only one database field that is causing the problem, so the solution can be focused on that field, rather than needing to address the possibility of a null value in any one of the merging fields.

I am not a coding wizard, so a simple explanation would be greatly appreciated. Thank you.

Lee

 

[PHV]

What do I need to put in the code module to address this and allow a null value
Which code ?

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[orna]

Use Nz function

 

[leeroi]

Could you be more specific? Here's what I have in the module. Perhaps it would help if I include some sample code.As I noted earlier, it's only the PhysicianID bookmark that's giving me a problem.

Public Function CreateMerge_ROFCoverLetter(strDocPath As String)

If IsNull(strDocPath) Or strDocPath = "" Then
Exit Function
End If

Dim dbs As Database
Dim objWord As Object
Set dbs = CurrentDb

Set objWord = CreateObject("Word.Application")

With objWord
.Visible = True
.Documents.Open (strDocPath)

.activedocument.Bookmarks("PhysicianID").Select
.Selection.Text = CStr(Nz(Forms![frmMergeROFCoverLetter]![PhysicianName]))

 

[newguy86]

Why don't you set the default value of the field in the Access table to "0"? That way when the data is transferred from Access to Word there is a value for it to process.

Travis

http://www.enterprise.com

 

[PHV]

Replace this:
.Selection.Text = CStr(Nz(Forms![frmMergeROFCoverLetter]![PhysicianName]))
With something like this:
If Trim(Forms!frmMergeROFCoverLetter!PhysicianName & "") = "" Then
.Selection.Text = "Unknown"
Else
.Selection.Text = Forms!frmMergeROFCoverLetter!PhysicianName & ""
End If

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[leeroi]

Thank you. The coding you suggested worked beautifully.

Lee