Drastically shorten your training time with WalkMe's advanced online training solution that Guides your trainees to action. Forget about retraining and skyrocket knowledge retention rates.
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.