On-screen guidance at the moment of need enables you & your employees to focus on the core, you can now boost your adoption rates swiftly and simply with one easy tool.
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.