richard luft
Registered User.
- Local time
- Today, 13:26
- Joined
- Jun 4, 2004
- Messages
- 63
Hi: I'm trying to convert an AC2 Db into AC2000, and am having a bit of trouble with the following code. This is to serve to get numbers from a 'counter Db".
>>>>>>>
Dim wrkCurrent As WorkSpace
Dim dbCounter As DAO.Database (I've added the 'DAO." for AC2000"--not present in the original)
Dim recCounter As DAO.Recordset
Dim lngNextCounter As Long
Dim lngWait As Long
Dim lngX As Long
Dim intLockCount As Integer
DoCmd.Hourglass True
intLockCount = 0
' Open a recordset on the approrpriate table in the counters database,
' denying all reads to others while it is open
Set wrkCurrent = CurrentDb AT THIS LINE I GET ERRMSG = TYPE MISMATCH!
Set dbCounter = wrkCurrent.OpenDatabase(strCounterDbName, False)
As mentioned above, at next-to-last line of code, I get errmsg as indicated. Any suggestions as to what corrections are necessary for AC2000 compiler?
>>>>>>>
Dim wrkCurrent As WorkSpace
Dim dbCounter As DAO.Database (I've added the 'DAO." for AC2000"--not present in the original)
Dim recCounter As DAO.Recordset
Dim lngNextCounter As Long
Dim lngWait As Long
Dim lngX As Long
Dim intLockCount As Integer
DoCmd.Hourglass True
intLockCount = 0
' Open a recordset on the approrpriate table in the counters database,
' denying all reads to others while it is open
Set wrkCurrent = CurrentDb AT THIS LINE I GET ERRMSG = TYPE MISMATCH!
Set dbCounter = wrkCurrent.OpenDatabase(strCounterDbName, False)
As mentioned above, at next-to-last line of code, I get errmsg as indicated. Any suggestions as to what corrections are necessary for AC2000 compiler?
Last edited: