Is your cloud always on? With an Always On cloud you won't have to worry about downtime for maintenance or software application code updates, ensuring that your bottom line isn't affected.
My problem is with the two lines:
Function GetFaxNumber(fName As String, lName As String) As String Dim wshShell, strDatabaseName As String With ActiveDocument.MailMerge If Len(.DataSource.ConnectString & "") = 0 Then Set wshShell = CreateObject("WScript.Shell") strDatabaseName = wshShell.SpecialFolders("MyDocuments") & "\JANE'S FILES\Databases\Patient information_be.mdb" .OpenDataSource strDatabaseName, wdOpenFormatText, False, True, True, , , , , , , , "SELECT * FROM `Contacts`" End If .DataSource.ActiveRecord = wdFirstRecord .DataSource.FindRecord GetFaxNumber = End With End Function
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.