Create well-organized and polished visualizations of your virtual and backup environments when planning VMware vSphere, Microsoft Hyper-V or Veeam deployments. It helps you to gain better visibility and valuable business insights.
Option Explicit Const sDBpath = "C:\Users\ChopperDave64\Documents\Repair Busniess\DB\" Const sDBfileName = "Repair Data Tracking.accdb" Dim bDBopen As Boolean, bInit As Boolean Dim dbRepairBus As DAO.Database Private Sub Class_Initialize() Dim bRes As Boolean bRes = OpenDB() Debug.Print "CCNXtoDB constructor OpenDB = " & bRes End Sub Function OpenDB() As Boolean Set dbRepairBus = DAO.DBEngine.OpenDatabase(sDBpath & sDBfileName) ' <-- Causes run time error 3343 bDBopen = True OpenDB = bDBopen End Function
Function TestClass() As Boolean Dim RepairDB As CNXtoDB Set RepairDB = New CNXtoDB Debug.Print RepairDB.OpenDB 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.