Autonumbering when a checkbox is clicked?

[kutehart]

Hi there. Hoping someone can help.



I've created a form that I would like to essentially become a customer receipt when certain criteria is met. I'd like, when I click on the "Paid" button, for a Receipt # to be automatically generated and displayed on the form. Is there a way to do this?

[jzwp11]

You should be able to do it. In the on click event of the Paid button, you will want to increment the last receipt number by 1 and assign that to the textbox control that holds the receipt number. If you do not have any previous receipt numbers, you will need to check and assign the first one. The code would look something like the following. The DCount() function is used to check to see if any receipt numbers already exist, if not 1 is assigned to the receipt number control (me.longReceiptNo). If receipt numbers already exist, the DMax() function finds the last (greatest receipt number) generated and adds 1 to it and then assigns it to the control.

If DCount("*", "tblPayments","longReceiptNo<>0") = 0 Then
    Me.longReceiptNo = 1
Else
    Me.longReceiptNo = DMax("longReceiptNo", "tblPayments") + 1
End If

You'll have to substitute your own table/field names