Navigation in DAO Recordset Issue

[d9pierce1]

Hi all,
I have worked some with Access direct edit but am new on the DAO Recordsets and unbound forms so trying to learn them. I started a new db today and was able to get populated but starting to put navigation on the form and ran into some errors to debug. I have searched and searched and just cant find a solution. Here is the code:

Option Compare Database

Private Sub Form_Current()
Dim rst As DAO.Recordset
Dim lngCount As Long
Set rst = Me.RecordsetClone
With rst
.MoveLast
.MoveFirst
lngCount = rst.RecordCount
End With
Me.txtRecordNo = "Record " & Me.CurrentRecord & " of " & lngCount
End Sub


Private Sub Form_Load()


Dim dbs As DAO.Database
Dim rst As DAO.Recordset
Set db = CurrentDb()
Set rst = db.OpenRecordset("tblCompany")
If rst.RecordCount = 0 Then Exit Sub
txtCompanyID = rst.Fields![CompanyID]
txtCompanyUID = rst.Fields![CompanyUID].Value
txtCompanyName = rst.Fields![CompanyName].Value
txtCreation = rst.Fields![Created].Value
txtModified = rst.Fields![Modified].Value
rst.Close
Set rst = Nothing
Set db = Nothing
End Sub

Now, I get a compile error on form open and highlights the " Set rst = Me.RecordsetClone" (above) and says something about a reference invalid. I have 4 buttons on form I made for MoveFirst, MoveLast, MoveNext, and MovePrev and I cant find any reference to what should go as far as OnClick for the buttons.
Could I please get some help with this as very strange there are no examples that I can get to work on the www?
Thanks
Dave

[RuralGuy]

Have you checked to see when the CurrentEvent occurs?

[d9pierce1]

Hi and thanks for responding. The error happens on form open but I am not actually sure what you are speaking of? I used this example off of a website and I must be missing something? I just dont know as it cant be this complicated.

[RuralGuy]

You are not showing anything in the OpenEvent. I'm confused.

[d9pierce1]

Hi RG,
I just started this so I can learn how to use DAO and Transactions. This is a new db and so far I made a table, form, and got it to populate by OnLoad function which works well. I am very confused with recordsets and workspaces so trying to understand them so I can use them. I couldnt find any thing on navigation and record counts other then this and it didnt really give any good info onit. I couldnt actually find a sample of it that I could actually understand but am trying. Just building one db to get familiar with how unbound, dao, and recordsets work. Thanks

[RuralGuy]

You get a Current Event *every* time you enter a different record. You are moving the record pointer in that same event which is basically a forever loop.

[d9pierce1]

Evidently not! Not sure how to do that? The only code is what I have ablove for the whole begining.

[d9pierce1]

Hi RG,
Do you possible know of a site that has a real example that works of this? Small sample db or something to this?
Thanks

[RuralGuy]

Hmm...in looking at the code again, your playing with the RecordsetClone in the Current Event and that should not cause you a problem. Try *importing* your db into a fresh new db and see if the problem follows. What you have should work. http://www.btabdevelopment.com/ts/impnew

[d9pierce1]

Hi RG,
Just tried that and same thing. Really is getting baffeling! Could I need something else like a look somewhere in this. It is driving me nuts and I have read every articale possible and no luck?
Thanks

[RuralGuy]

Zip up the db and post it and I'll take a look at it.

[d9pierce1]

How do I attache it?

[d9pierce1]

I dont have a manage attachment button at the bottom?

[RuralGuy]

Go to advanced and scroll down.

[d9pierce1]

OK, Found oout how! Thanks and here it is
Dave