• Status: Solved
  • Priority: Low
  • Security: Public
  • Views: 46
  • Last Modified:

need to get the last record of a table

I have a client table where i assign client numbers.  I would like to go to the last record and add one to the client numbers.  
This is my code.

 Set db = CurrentDb
        Set rs = db.OpenRecordset("SELECT RIGACCT FROM ClientInfo")
        rs.MoveLast
        'rs.Move -1
        'Debug.Print rs("rigacct")
        BacctNum = rs!RIGAcct
        AcctNum = BacctNum + 1
        Me.RIGAcct = AcctNum
        'Me.Requery

It stopped working for me. it gets stuck on the Set rs.  The error message that i get is in valid type.

Any help would be appreciated
0
VGuerra67
Asked:
VGuerra67
1 Solution
 
Fabrice LambertFabrice LambertCommented:
Hi,

It looks like you are facing an ambiguity syndrom:
you think variables are on a given type where in fact it is on another.
This can be due to the use of multiple libraries (references) that define different data types with the same name.
Example:
Recordset type in ADO library VS Recordset type in DAO library. Same name but different type.

The solution is to fully qualify your data types:
Dim db As DAO.Database
Dim rs As DAO.Recordset
'// ...ect and so on

Open in new window

0
 
VGuerra67Author Commented:
thank you
0
 
Remya 6488Senior ProgrammerCommented:
HI,

I think instead of iteratiing the resultset till the end, you can use a simple  query like
    SELECT TOP 1 RIGACCT + 1 FROM ClientInfo ORDER BY ID DESC
   where, Id is the unique auto generating column of the table
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

Ultimate Tool Kit for Technology Solution Provider

Broken down into practical pointers and step-by-step instructions, the IT Service Excellence Tool Kit delivers expert advice for technology solution providers. Get your free copy now.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now