Autocounter

[Arvin Meyer [MVP]]

Here's a simpler piece of code which I've tested with both On Load and
OnOpen:

Function CountOpen()
On Error GoTo Error_Handler

Dim db As DAO.Database
Dim rst As DAO.Recordset

Set db = CurrentDb
Set rst = db.OpenRecordset("tblDBOpen", dbOpenDynaset)

With rst
rst.MoveFirst
rst.Edit
rst!CountDB = rst!CountDB + 1
rst.Update
End With

Exit_Here:
On Error Resume Next
rst.Close
Set rst = Nothing
Set db = Nothing
Exit Function

Error_Handler:
MsgBox Err.Number & ": " & Err.Description
Resume Exit_Here

End Function
--
Arvin Meyer, MCP, MVP
http://www.datastrat.com
http://www.mvps.org/access
http://www.accessmvp.com

 

[an]

Sorry, AM

With this code no problem.

The problem is with expression
= CountOpen()

When form open, return:
! Compile error: Sintax error

Thanks
an

 

[Arvin Meyer [MVP]]

Have you set a reference to DAO in your code window?

Tools >>> References >>> Microsoft Data Access Objects 3.6

--
Arvin Meyer, MCP, MVP
http://www.datastrat.com
http://www.mvps.org/access
http://www.accessmvp.com

 

[an]

Sorry may delay.

Yes, it is.
In 3th position.

an

 

[an]

Sorry.

4th position:
Visual Basic For Applications
Microsoft Access 12.0 Objecto Library
OLE Automation
Microsoft DAO 3.6 Object Library

SO: WindowsXP
Acc: 2k7

an

 

[Arvin Meyer [MVP]]

The references are in order. There should be no problems. The code runs fine
in any mdb from Access 97 through Access 2003. Although I see no problem
with it running in Access 2007, I'll test it later today.
--
Arvin Meyer, MCP, MVP
http://www.datastrat.com
http://www.mvps.org/access
http://www.accessmvp.com

 

[Arvin Meyer [MVP]]

Look at the URL in my sig. At that website is my email address. Compact and
zip your database and email it to me. I'll figure out what you are having a
problem with. Before you send the database, send an email with your full
name and email address and the subject: "Re: Autocounter" I need to
whitelist you or your attachment email will be automatically deleted.

 

[an]

Ok, AM.

Any bug, eventually.
We have checked another bugs and informed the Microsoft.
Ex:
Me.xxx vrs Me!Xxx; One blank space after last character when import Excel
spreadsheet; Etc.

Thank you so much.
an