The results are in! Meet the top members of our 2017 Expert Awards. Congratulations to all who qualified!
Public Sub OpenDB2() Dim db As DAO.Database Dim ws As DAO.Workspace Dim rst As DAO.Recordset Dim i As Integer Cells.Clear MsgBox "Update" Set ws = DBEngine.Workspaces(0) Set db = ws.OpenDatabase _ ("\\XXX\XX\XX_2007.accdb", _ False, False, "MS Access;PWD=XXXX") ' Set ws = DBEngine.Workspaces(0) ' Set db = ws.OpenDatabase _ ' ("XXX\XX\XX\XX.mdb", _ ' False, False, "MS Access;PWD=XXXXX") ' '
Join the community of 500,000 technology professionals and ask your questions.