MVEs are more concerned with the satisfaction of those they help than with the considerable points they can earn. They are the types of people you feel privileged to call colleagues. Join us in honoring this amazing group of Experts.
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") ' '
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|Excel VBA Workbook - Change hours||2||41|
|Excel VBA inserting a formula||12||39|
|Create macro that is run through Task Scheduler and saves all open Excel spreadsheets?||14||33|
|Email Excel WB by selecting name from a dropdown list to Outlook.||5||47|
Join the community of 500,000 technology professionals and ask your questions.