[AccessD] Simple Recordset Question

 This works. . . .

 ' ***************************************************

    Dim lRcdCount               As long
    Dim sSQL                    As String
    Dim dbsV2H                  As DAO.Database
    Dim rsPull                  As DAO.Recordset

    DBEngine.SetOption dbMaxLocksPerFile, 5752048

    Set dbsV2H = CurrentDb()

    sSQL = ""
    sSQL = sSQL & " SELECT "
    sSQL = sSQL & " * "
    sSQL = sSQL & " FROM "
    sSQL = sSQL & " JP02Boiler "
    sSQL = sSQL & " ; "

    Set rsPull = dbsV2H.OpenRecordset(sSQL)

    On Error Resume Next

    lRcdCount = 0

    rsPull.MoveLast
        lRcdCount = rsPull.RecordCount
    rsPull.MoveFirst

    On Error GoTo 0

    Me.txtShowCount.Value = lRcdCount

    Me.Refresh

    On Error Resume Next
       rsPull.Close
       dbsV2H.Close
    On Error GoTo 0

 ' ***************************************************



-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Asger Blond
Sent: Tuesday, May 06, 2008 3:46 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Simple Recordset Question


Steve,
If you don't qualify Recordset, Access will assume you are using ADODB,
which give you a type mis-match. You have to qualify is as DAO:
Dim rst_Matrix As DAO.Recordset

I suppose you have some reason for using a recordset here besides just
counting the records. If you just want the count of records this would be
easier: SELECT COUNT(*) FROM Matrix

HTH
Asger

-----Oprindelig meddelelse-----
Fra: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] På vegne af Steve Zayko
Sendt: 7. maj 2008 00:10
Til: Access Developers discussion and problem solving
Emne: [AccessD] Simple Recordset Question

OK, I have a first grader level question for you all.

I have an access 2003 database and a form.  When I click a button on
said form I would like the code to open a table as a recordset and count
the records.  I know I have done this before and I know I have seen this
done quite easily.  However, I am getting an error that I cannot get
past.

This is my code:

Dim rst_Matrix As Recordset
Dim int_X as integer
Set rst_Matrix = CurrentDb.OpenRecordset("SELECT Matrix.* from Matrix;",
_ DbOpenDynaset, dbReadOnly)

rst_Matrix.MoveLast
int_X = rst_Matrix.RecordCount

On line 3 I am getting a type mis-match.

What am I doing wrong and how do I get my code to get past this?

Thanks

-Z

Stephen Zayko, PE
Associate Engineer
Stantec
2321 Club Meridian Drive Suite E
Okemos MI 48864
Ph:   (517) 349-9499 Ext. 224
Fx:    (517) 349-6863
Cell: (517) 204-5136
steve.zayko at stantec.com
www.stantec.com


--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com










































































































































































--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com