Database Counter

[Kapelluschsa]

Hey everyone. I am trying to add a feature to my database that counts the number of times that the main menu is opened (I modified this form to always stay open in the background in order to get an accurate count) just out of curiosity.

Right now I have a table called "Count Table" with a field called "Counter" on it. This table acts as the control source on my main menu. The main menu also has a text box called "Page Counter". The "On Open" code looks as follows:

[Page Counter] = [Counter] + 1


'This line seems to work, page counter displays 1 with counter set at 0
[Counter] = [Page Count]
'This is where I run into trouble. The database does not want to overwrite the Counter value in the Count Table.

Any ideas of another way to do this? I tried doing a similar setup as shown above using the Dmax function but had the same outcome.

[TheShabz]

set a variable to [Counter] + 1 then run an update query to change the value

[Kapelluschsa]

Sorry for the late reply.

I tried to play around with an update query but I guess im still a bit confused.

How would I go about running the update query each time the page is loaded?

[TheShabz]

Dim intCounter as Integer
Dim strSQL as String

intCounter = [Counter] + 1
[Page Counter] = intCounter
strSQL = "UPDATE tblName SET fldName = " & intCounter & ";"
DoCmd.RunSQL (StrSQL)
Me.controlNameOfCounter.Requery

Throw that into your onOpen. I didn't check it but it should work.

[Kapelluschsa]

Awesome, that works perfect. Thanks a lot Shabz

[TheShabz]

Give it a couple form closes and opens and make sure it still works. I have a slight concern that the way I have it set up may not get it right continuously.