richard luft
Registered User.
- Local time
- Today, 02:44
- Joined
- Jun 4, 2004
- Messages
- 63
Hi;
I'm trying to convert Ac2 Db to Ac2K, and the following code doesn't compile:
>>>>>>>
Private Sub Finish_Click()
On Error GoTo Err_Finish_Click
Dim MySQL As String, MySQL1 As String, MySQL2 As String, Dt As String, I As Integer
DoCmd.SetWarnings False
Dim Db As DAO.Database, rst As DAO.Recordset, rst1 As DAO.Recordset, rst2 As DAO.Recordset, rst3 As DAO.Recordset, MySQL3 As String
Dim cp As Currency, d As Currency
DoCmd.Hourglass True
Set Db = CurrentDb()
MySQL = "SELECT DISTINCTROW Services.* "
MySQL = MySQL & "FROM Services " etc, etc, etc
Set rst = Db.OpenRecordset(MySQL, DB_OPEN_DYNASET)
Dim InsCo As String, CCode As String, Days As Integer, Modifiers As Integer, Billyear As Integer, fil As String
rst.MoveFirst
Do Until rst.EOF
If rst.[Mod1] = "26" Or rst.[Mod1] = "TC" Then
>>>>>>>
Code stops at 'rst.Mod1' with errmsg "method or data member not found". Can anyone tell me the proper identification for this db object in VBA to eliminate errmsg?
I'm trying to convert Ac2 Db to Ac2K, and the following code doesn't compile:
>>>>>>>
Private Sub Finish_Click()
On Error GoTo Err_Finish_Click
Dim MySQL As String, MySQL1 As String, MySQL2 As String, Dt As String, I As Integer
DoCmd.SetWarnings False
Dim Db As DAO.Database, rst As DAO.Recordset, rst1 As DAO.Recordset, rst2 As DAO.Recordset, rst3 As DAO.Recordset, MySQL3 As String
Dim cp As Currency, d As Currency
DoCmd.Hourglass True
Set Db = CurrentDb()
MySQL = "SELECT DISTINCTROW Services.* "
MySQL = MySQL & "FROM Services " etc, etc, etc
Set rst = Db.OpenRecordset(MySQL, DB_OPEN_DYNASET)
Dim InsCo As String, CCode As String, Days As Integer, Modifiers As Integer, Billyear As Integer, fil As String
rst.MoveFirst
Do Until rst.EOF
If rst.[Mod1] = "26" Or rst.[Mod1] = "TC" Then
>>>>>>>
Code stops at 'rst.Mod1' with errmsg "method or data member not found". Can anyone tell me the proper identification for this db object in VBA to eliminate errmsg?
