Benefit from a mission critical IT monitoring with Monitis Premium or get it FREE for your entry level monitoring needs.
-Over 200,000 users
-More than 300,000 websites monitored
-Used in 197 countries
-Recommended by 98% of users
Const cDatabaseToOpen = "C:\Users\Username\AppData\Local\Dbase.adp" On Error Resume Next Dim AcApp Set AcApp = CreateObject("Access.Application") If Val(AcApp.Version) >= 11 Then AcApp.AutomationSecurity = 1 ' msoAutomationSecurityLow End If AcApp.Visible = True AcApp.OpenCurrentDatabase cDatabaseToOpen If AcApp.CurrentProject.FullName <> "" Then AcApp.UserControl = True Else AcApp.Quit MsgBox "Failed to open '" & cDatabaseToOpen & "'." End I
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.