Access 2007 not incrementing count from Access 2003

  • Thread starter Thread starter David Teich
  • Start date Start date
D

David Teich

I only use it for some home databases tracking books, movies, wines, etc. The
counter that increments the main entry's key so I can link to sub-tables has
stopped working. Here's an example of the code:

----------------------------------------
Private Sub Form_BeforeInsert(Cancel As Integer)
Me.[WineID] = Nz(DMax("[WineID]", "[Wines]"), 0) + 1

End Sub
----------------------------------------

That's worked in earlier versions of Access, upgrading ok through 03. Who
knows what's wrong that it no longer works in Access 2007?

thanx.
 
No, initially they were, but I enabled them. The other macros and event
coding seem to be working fine. It's just that, as far as I can see.

David
 
David Teich said:
I only use it for some home databases tracking books, movies, wines, etc.
The
counter that increments the main entry's key so I can link to sub-tables
has
stopped working. Here's an example of the code:

----------------------------------------
Private Sub Form_BeforeInsert(Cancel As Integer)
Me.[WineID] = Nz(DMax("[WineID]", "[Wines]"), 0) + 1

End Sub
----------------------------------------

That's worked in earlier versions of Access, upgrading ok through 03. Who
knows what's wrong that it no longer works in Access 2007?

thanx.
Click to expand...

One thing you could try is to break apart the line, making it better
debuggable:

Dim tmp As Variant
tmp = DMax("[WineID]", "[Wines]")
If Isnull(tmp) Then tmp = 0
Me.[WineID] = tmp + 1

Single-step through that and see if that turns up something (I don't have
A2007 so can't try it for you)
 
Now the weird part. I used your code, put a break point in the first line,
then added a record. It didn't break. Any reason why Before Insert would no
longer be fired in 07?

I'll now check Ling's links too.

David

Stuart McCall said:
David Teich said:
I only use it for some home databases tracking books, movies, wines, etc.
The
counter that increments the main entry's key so I can link to sub-tables
has
stopped working. Here's an example of the code:

----------------------------------------
Private Sub Form_BeforeInsert(Cancel As Integer)
Me.[WineID] = Nz(DMax("[WineID]", "[Wines]"), 0) + 1

End Sub
----------------------------------------

That's worked in earlier versions of Access, upgrading ok through 03. Who
knows what's wrong that it no longer works in Access 2007?

thanx.
Click to expand...

One thing you could try is to break apart the line, making it better
debuggable:

Dim tmp As Variant
tmp = DMax("[WineID]", "[Wines]")
If Isnull(tmp) Then tmp = 0
Me.[WineID] = tmp + 1

Single-step through that and see if that turns up something (I don't have
A2007 so can't try it for you)
Click to expand...
 
Busy week, but read the link on Ling's and the walk through didn't show
anything obvious. I tried testing the code again, and the watch list showed
the tmp variable being incremented but just not input into the field in the
record.

On a whim, I copied the code into "before update" and modified a record. It
worked. So now I'm really confused. It seems to be a problem of Before
Instert not wanting to do what it's being told to do. Does anyone have a clue
why that stopped working between versions? What about Before Insert changed
that the exact same code works Before Update but not there?

thanx,
David

David Teich said:
Now the weird part. I used your code, put a break point in the first line,
then added a record. It didn't break. Any reason why Before Insert would no
longer be fired in 07?

I'll now check Ling's links too.

David

Stuart McCall said:
David Teich said:
I only use it for some home databases tracking books, movies, wines, etc.
The
counter that increments the main entry's key so I can link to sub-tables
has
stopped working. Here's an example of the code:

----------------------------------------
Private Sub Form_BeforeInsert(Cancel As Integer)
Me.[WineID] = Nz(DMax("[WineID]", "[Wines]"), 0) + 1

End Sub
----------------------------------------

That's worked in earlier versions of Access, upgrading ok through 03. Who
knows what's wrong that it no longer works in Access 2007?

thanx.
Click to expand...

One thing you could try is to break apart the line, making it better
debuggable:

Dim tmp As Variant
tmp = DMax("[WineID]", "[Wines]")
If Isnull(tmp) Then tmp = 0
Me.[WineID] = tmp + 1

Single-step through that and see if that turns up something (I don't have
A2007 so can't try it for you)
Click to expand...
Click to expand...
 
Back
Top