C
Carrie L.
Frustrated! What have I done wrong, when I try to run the following code, it
gets to the set rst line and gives me a type mismatch...
Sub runstuff()
Dim dbs As Database
Dim rst As Recordset
Dim strsql As String
Dim dept, mgrid As String
Dim ckpopu1 As Integer
Dim firstd As Date
Set dbs = CurrentDb
strsql = "Select [Current Departments].* from [Current Departments]"
Set rst = dbs.OpenRecordset(strsql)
gets to the set rst line and gives me a type mismatch...
Sub runstuff()
Dim dbs As Database
Dim rst As Recordset
Dim strsql As String
Dim dept, mgrid As String
Dim ckpopu1 As Integer
Dim firstd As Date
Set dbs = CurrentDb
strsql = "Select [Current Departments].* from [Current Departments]"
Set rst = dbs.OpenRecordset(strsql)