Look in field on form

technet.microsoft.com has articles how to do a counter in vb code. which is what i think you want.
you would hook macro doing the incrementing to an event on your form (like updating the field maybe). the vb code would look something like this i think:
dim counter
counter = formname!fieldname
counter = counter + 1
formname!fieldname = counter

you will have to add a form refresh to see the change...many free sample forms are available along with the vb help file explaining how they work on the second Office installation cd i think in the tools folder.

Thanks, I'll give it a try.

I tried using the code but, I wasn't able to get it to work. We don't have the second Office installation cd here so I wasn't able to look at the free sample forms. Do you know of anything else that I can try?

All you have to do is use Dmax to get the highest number, add 1 to it and then assign it to your new record

DLast will give you the last record
Dmax will give you the highst value

The code might look something like this:

Private Sub Freight_DblClick(Cancel As Integer)
Dim curY
curY = DLast ("[Freight]", "Orders")
' Add a New Record
DoCmd.GoToRecord , , acNewRec
' assign new value to
Forms!Frm_Orders!Freight = curY + 1
End Sub

Thanks Jesus, I'm a bit of a rooky at this so I'm not quite sure of how to replace your database information with mine in the code. The name of my db is Cooler, the form name is Assembly and the field name is Rework Number. The datatype for that field is text.

In the third line replace "Assembly" with the table's name, and "Rework Number" with the name of the field in that table.

if the table's name is "Assembly" (same as the form)
and field's name is "Rework Number" (same as the form)

the code should look like:

Private Sub Rework_Number_Click()
Dim curY
curY = DLast("[Rework Number]", "Assembly")
' Add a New Record
DoCmd.GoToRecord , , acNewRec
' assign new value to
Forms!Assembly![Rework Number] = curY + 1
End Sub

Note, it executes the code once you click on the field "Rework Number" ( Private Sub Rework_Number_Click() )

rookie is ok. helpless is not.
sigh.
here you go:
ACC2000: How to Use DAO to Programmatically Add an AutoNumber Field to a Table
ACC2000: How to Use DAO to Programmatically Add an AutoNumber Field to a Table

the sample forms are free for download, did you have a look?
my home page is support.microsoft.com