Set MyDB = CurrentDb
strSQL = "SELECT * FROM tbl_Approvers INNER JOIN tbl_Approvals ON tbl_Approvers.Approver = tbl_Approvals.Approver " _
& "WHERE tbl_Approvals.CRNumber= " & Me.CRNumber & ""
Set MyRS = MyDB.OpenRecordset(strSQL)
MyRS.MoveFirst
'Open up word template and replace all bookmarks with existing data
DoCmd.SetWarnings False
Dim Wrd As New Word.Application
Set Wrd = CreateObject("Word.Application")
'''''Wrd.Visible = True
Dim MergeDoc As String
'---------------------------------------------------------------------------------------------------------
If (MyRS![tbl_Approvals.Approver] = "Finance" And MyRS!Approved = False) Then
MergeDoc = Application.CurrentProject.Path & "\FinanceEmail.doc"
Wrd.Documents.Add MergeDoc
Else
MergeDoc = Application.CurrentProject.Path & "\ApprovalEmail.doc"
Wrd.Documents.Add MergeDoc
With Wrd.ActiveDocument.Bookmarks
.Item("FirstName").Range.Text = MyRS![tbl_Approvals.Approver]
End With
End If