I have the following snippet of code in one of my databases. When an option is taken from the menu I want to run a module that updates ANOTHER database's tables.
Option Compare Database
Option Explicit
Dim dbs As DAO.Database
Dim ShortHist As DAO.Recordset
Dim WrkFile As DAO.Recordset
Dim loadhist As DAO.Recordset
Dim PgmStatus As DAO.Recordset
Dim tdf As DAO.TableDef
Dim OKtoRun As String
Public Function CreateWorkFile()
Set dbs = CurrentDb()
Set PgmStatus = dbs.OpenRecordset("tbl_Status")
HOW DO I Set dbs to another database or does this have to be done with ado? Please Advise....Thank you.
Option Compare Database
Option Explicit
Dim dbs As DAO.Database
Dim ShortHist As DAO.Recordset
Dim WrkFile As DAO.Recordset
Dim loadhist As DAO.Recordset
Dim PgmStatus As DAO.Recordset
Dim tdf As DAO.TableDef
Dim OKtoRun As String
Public Function CreateWorkFile()
Set dbs = CurrentDb()
Set PgmStatus = dbs.OpenRecordset("tbl_Status")
HOW DO I Set dbs to another database or does this have to be done with ado? Please Advise....Thank you.
