We all know we need to protect and secure our privileges, but where to start? Join Experts Exchange and ManageEngine on Tuesday, April 11, 2017 10:00 AM PDT to learn how to track and secure privileged users in Active Directory.
Private Sub cmdMergeIT_Click() DoCmd.SetWarnings False DoCmd.OpenQuery "Art Docket Recommendations Word", acViewNormal DoCmd.SetWarnings True 'For use as TEMPLATE Dim objApp As Word.Application 'For use as TEMPLATE Dim objWord As Word.Document ' Dim ObjWord2 As Word.Document ' 'For use as TEMPLATE Set objApp = New Word.Application 'For use as TEMPLATE on GRD Server - added from EE Set objWord = objApp.Documents.Add("K:\DUG\Templates\docketcharttemplate_newlayout_portrait.dot") ' Make Word visible. objWord.Application.Visible = True ' Set the mail merge data source as the DUG Access Database objWord.MailMerge.OpenDataSource _ Name:="C:\Users\HT\My Documents\Gifts\DUG.mde", _ LinkToSource:=True, _ Connection:="TABLE tblDocketRecommendations", _ SQLStatement:="SELECT * FROM [tblDocketRecommendations]" 'Execute the mail merge. objWord.MailMerge.Execute '========================================================= ' code to close mail merge doc based on template For Each ObjWord2 In objApp.Documents If ObjWord2.Name = "Document1" Then ObjWord2.Close False End If Next End Sub
|Microaoft Access on a SBS 2011 Server||4||18|
|MS Access How can I input a range of records in lieu of selecting each record one by one?||2||18|
|VBA - Transfer values from Master wb to all wbs. Delete old data, copy new data from master wb to user wbs located in a folder.||3||20|
|Email Populated Report as PDF||2||13|