Ajit Singh
Registered User.
- Local time
- Today, 04:57
- Joined
- Jul 11, 2013
- Messages
- 34
Am using below code to create accdr files with filename as cost center number. Now I need to have filename i.e. cost center number at the application title bar of each accdr file.
Please help
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Dim appAccess As New Access.Application
sLocalPath = "h:\Global\Programs-Global\Cost Center Reporting Tool\Testing\Template.accdb"
sLocalsPath = "h:\Global\Programs-Global\Cost Center Reporting Tool\Testing\Output\" & Me.Combo8 & ".accdr"
With appAccess
.AutomationSecurity = 1 'MsoAutomationSecurityLow
.UserControl = True
.SysCmd 603, sLocalPath, sLocalsPath
End With
.MoveNext
Loop
.Close
End With
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Please help
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Dim appAccess As New Access.Application
sLocalPath = "h:\Global\Programs-Global\Cost Center Reporting Tool\Testing\Template.accdb"
sLocalsPath = "h:\Global\Programs-Global\Cost Center Reporting Tool\Testing\Output\" & Me.Combo8 & ".accdr"
With appAccess
.AutomationSecurity = 1 'MsoAutomationSecurityLow
.UserControl = True
.SysCmd 603, sLocalPath, sLocalsPath
End With
.MoveNext
Loop
.Close
End With
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -