[AccessD] Change code to A2003

I checked - no missing references.
 
Do I have to convert the database to 2003 like I did when I moved from 97 to
2000?
 
Why don't they have the reference to DAO 3.6 anymore?
 
Virginia
 
*************
 
In the code window look under Tools->References, it sounds like you have one
or more that are missing.  They should show up with:
 
MISSING:
 
as the prefix to the reference.  You will not be able to Compile your
database until all of the references used in code are resolved.
 
-Chris Mackin
 
-----Original Message-----
From: Hollis,Virginia [mailto:HollisVJ at pgdp.usec.com
<http://databaseadvisors.com/mailman/listinfo/accessd> ]
Sent: Friday, June 11, 2004 8:49 AM
To: 'accessd at databaseadvisors.com
<http://databaseadvisors.com/mailman/listinfo/accessd> '
Subject: [AccessD] Change code to A2003
 
 
I used your suggestion & it solved that problem.
 
 
 
But I am still getting errors in other places for example: .FindFirst
"[FailureTimeID]= " & right.ItemData(i) & " And [FailureReportNo]= " &
Me!FailureReportNo. I get an error on the last Me!FailureReportNo that
Method or Member not found. I have never had that error before and have been
using this database for years. I am getting compile errors on a lot of code.
What can I do??
 
 
 
Virginia
 
 
 
 
 
*************
 
 
 
EXPLICITLY DECLARE YOUR VARIABLES!
 
Dim db as DAO.Database
Dim RS as DAO.Recordset
 
Otherwise you are at the whim of how the references are listed and whatever
Access finds first as a suitable reference library.
 
-Chris Mackin
 
 
-----Original Message-----
From: Hollis,Virginia [mailto:HollisVJ at pgdp.usec.com
<http://databaseadvisors.com/mailman/listinfo/accessd
<http://databaseadvisors.com/mailman/listinfo/accessd> > ]
Sent: Friday, June 11, 2004 5:19 AM
To: 'accessD at databaseadvisors.com
<http://databaseadvisors.com/mailman/listinfo/accessd
<http://databaseadvisors.com/mailman/listinfo/accessd> > '
Subject: [AccessD] Change code to A2003
 
 
I have been using the below code to count the number of hits on a form. I
installed A2003 yesterday & receive an error on RS.Edit. In A2K I added a
reference to DAO 3.6 & the code would work. But in 2003 this is not listed
in the references.
 
 
 
What can I change the code to so it will work correctly?
 
 
 
Virginia
 
 
 
********************
 
 
 
Public Function CountThisForm(frm As Form) As Boolean
 
Dim db As Database
 
Dim RS As Recordset
 
Dim SQL As String
 
Set db = CurrentDb
 
SQL = "Select * FROM tblCounter Where FormName = """ & frm.Name & """;"
 
Set RS = db.OpenRecordset(SQL, dbOpenDynaset)
 
If RS.RecordCount > 0 Then
 
    RS.Edit
 
    RS!HitCount = RS!HitCount + 1
 
    RS.Update
 
Else
 
    RS.AddNew
 
    RS!FormName = frm.Name
 
    RS!HitCount = 1
 
End If
 
RS.Close
 
Set RS = Nothing
 
End Function
 
-- 
_______________________________________________
AccessD mailing list
AccessD at databaseadvisors.com
<http://databaseadvisors.com/mailman/listinfo/accessd
<http://databaseadvisors.com/mailman/listinfo/accessd> > 
http://databaseadvisors.com/mailman/listinfo/accessd
<http://databaseadvisors.com/mailman/listinfo/accessd> 
<http://databaseadvisors.com/mailman/listinfo/accessd
<http://databaseadvisors.com/mailman/listinfo/accessd> > 
Website: http://www.databaseadvisors.com <http://www.databaseadvisors.com>
<http://www.databaseadvisors.com <http://www.databaseadvisors.com> > 
 
 
 
-- 
_______________________________________________
AccessD mailing list
AccessD at databaseadvisors.com
<http://databaseadvisors.com/mailman/listinfo/accessd> 
http://databaseadvisors.com/mailman/listinfo/accessd
<http://databaseadvisors.com/mailman/listinfo/accessd> 
Website: http://www.databaseadvisors.com <http://www.databaseadvisors.com>