Function CommunicationHistoryAdd(sDocumentName As String)
'============================================================================
' Name        : CommunicationHistoryAdd
' Author      : Erica L Ingram
' Copyright   : 2019, A Quo Co.
' Call command: Call CommunicationHistoryAdd(sDocumentName)
' Description : adds entry to CommunicationHistory table
'============================================================================

Dim dbTranscription As DAO.Database
Dim rstCHAdd As DAO.Recordset
Dim sDocumentHyperlink As String, sDocumentPath As String, sCourtDatesID As String

sCourtDatesID = Forms![NewMainMenu]![ProcessJobSubformNMM].Form![JobNumberField]
sDocumentPath = "T:\In Progress\" & sCourtDatesID & "\" & sCourtDatesID & "-" & sDocumentName & ".docx"
sDocumentHyperlink = sCourtDatesID & "-" & sDocumentName & "#" & sDocumentPath & "#"

Set dbTranscription = CurrentDb
Set rstCHAdd = dbTranscription.OpenRecordset("CommunicationHistory")

rstCHAdd.AddNew
    rstCHAdd("FileHyperlink").Value = sDocumentHyperlink
    rstCHAdd("DateCreated").Value = Now
    rstCHAdd("CourtDatesID").Value = sCourtDatesID
rstCHAdd.Update
rstCHAdd.Close

End Function
