object doesn't support this property

[Gavx]

Another newbie question.

I have a form on which I have added a button.
On the On Click event I have attached this code;

Private Sub cmdInvoice_Click()
Me.cmdInvoice = Nz(DMax("[InvoiceNo]", "Booking"), 0) + 1

End Sub

The purpose of which is to create a new invoice number.
cmdInvoice is the name of the button, InvoiceNo is the name of the field in the Booking table.
It is reporting that the object doesn't support this method.
Why am I getting this error please?
Gavin

 

[pbaldy]

Because you're trying to set the value of a button. Set the value of a textbox bound to that field.

 

[Gavx]

Thanks Paul,

I am trying to update the field InvoiceNo in the Booking table with the number this code creates.
Is the only way I can do this is create a text box on this form and bind it to this code (as you suggest above) and then have the InvoiceNo field with its Source as this text box?

 

[pbaldy]

Only way no, simplest way probably yes. In any case, you can't set the value of a button.

 

[stopher]

As per Paul's suggestion, try:

Private Sub cmdInvoice_Click()
Me.InvoiceNo = Nz(DMax("[InvoiceNo]", "Booking"), 0) + 1

End Sub