Re: 'Roll Back' new record on form

From: Stefan Hoffmann <stefan.hoffmann@xxxxxxxxxx>
Date: Mon, 17 Mar 2008 13:45:52 +0100

hi Pedro,

pedro wrote:

Not sure what you mean by 'evaluate' the ID field - I assume the code adds one to the previous ID (this would replace an auto number field?)

Yes, that's correct. Use it in the BeforeUpdate event of your Form:

Private Sub Form_BeforeUpdate(Cancel As Integer)

Me![TransactionID] = Nz(DMax("TransactionID", "yourTable"), 0) + 1

End Sub

mfG
--> stefan <--
.

References:
- Re: 'Roll Back' new record on form
  - From: Stefan Hoffmann

Prev by Date: Re: vba vs VB dotnet
Next by Date: must use dbSeeChanges option with Recordset
Previous by thread: Re: 'Roll Back' new record on form
Next by thread: must use dbSeeChanges option with Recordset
Index(es):
- Date
- Thread

Relevant Pages

Re: ComboBox Macro Issue!?
... Private Sub ComboBox1_Change ... Confectionery Mfg from Purchased Chocolate", ... "48611 Pipeline Transportation of Crude Oil", ... Wood Product Mfg", "322121 Paper Mills", ...
(microsoft.public.word.vba.general)
Re: ComboBox Macro Issue!?
... Private Sub ComboBox1_Change ... Confectionery Mfg from Purchased Chocolate", ... "48611 Pipeline Transportation of Crude Oil", ... Wood Product Mfg", "322121 Paper Mills", ...
(microsoft.public.word.vba.general)
Re: ComboBox Macro Issue!?
... Private Sub ComboBox1_Change ... Confectionery Mfg from Purchased Chocolate", ... "48611 Pipeline Transportation of Crude Oil", ... Wood Product Mfg", "322121 Paper Mills", ...
(microsoft.public.word.vba.general)
Re: ComboBox Macro Issue!?
... Private Sub ComboBox1_Change ... Confectionery Mfg from Purchased Chocolate", ... "48611 Pipeline Transportation of Crude Oil", ... Wood Product Mfg", "322121 Paper Mills", ...
(microsoft.public.word.vba.general)
Re: auto number format
... add i get an error message saying that my table cannot be found i think ... network because i am in a multi-user envirorment I think I need more ... code or something but i know you shouldn't use an auto number but i ... Private Sub Form_BeforeUpdate ...
(microsoft.public.access.forms)