B
BS Galactica
I have a database that has evolved and is currently Access 2002. Quite a few
forms, tables etc and I wanted to try splitting it since we have multiple
users over the network. I did the following steps:
- Open the database and do a compact/repair to make sure
it was clean.
- Tools --> Database Splitter --> split database
- backend saved to D:\BackEnd_Test (valid directory on local drive).
- Split says it completed successfully (click OK)
- Linked Table Manager shows all tables linked to the backend
- Database seems to run fine
- Compact/Repair (also tried this without doing the Compact/Repair).
- When I exit (or do the Compact/Repair), when the database comes
back up, I get a runtime error "3219 Invalid Operation" on the following
code in the main form:
[ begin code segment ]
Private Sub Set_UserName_GVars()
Dim msg As String
Dim greeting As String
Dim mydb As Database
Dim rec1 As DAO.Recordset
Dim overunder As Integer
Set mydb = CurrentDb
Set rec1 = mydb.OpenRecordset("ProjectInfo", dbOpenTable) <<== Fails here
[end code segment]
The question is -- what piece of the puzzle am I missing. Until I see the
runtime error, there are no error messages. I can open the backend database
with no problem and the table "ProjectInfo" exists and seems fine. I have
clearly found some trap door to drop through.
HELP !! Thanks.
forms, tables etc and I wanted to try splitting it since we have multiple
users over the network. I did the following steps:
- Open the database and do a compact/repair to make sure
it was clean.
- Tools --> Database Splitter --> split database
- backend saved to D:\BackEnd_Test (valid directory on local drive).
- Split says it completed successfully (click OK)
- Linked Table Manager shows all tables linked to the backend
- Database seems to run fine
- Compact/Repair (also tried this without doing the Compact/Repair).
- When I exit (or do the Compact/Repair), when the database comes
back up, I get a runtime error "3219 Invalid Operation" on the following
code in the main form:
[ begin code segment ]
Private Sub Set_UserName_GVars()
Dim msg As String
Dim greeting As String
Dim mydb As Database
Dim rec1 As DAO.Recordset
Dim overunder As Integer
Set mydb = CurrentDb
Set rec1 = mydb.OpenRecordset("ProjectInfo", dbOpenTable) <<== Fails here
[end code segment]
The question is -- what piece of the puzzle am I missing. Until I see the
runtime error, there are no error messages. I can open the backend database
with no problem and the table "ProjectInfo" exists and seems fine. I have
clearly found some trap door to drop through.
HELP !! Thanks.