Locating last item in a field

[George]

Good Day All.

I have a table "Invoices" with a field "ID", which I want to open and find the last number in the "ID" field.



This is my code:

Function CreateInvoice(OrderID As Long, Amt As Currency, InvoiceID As Long, OrigAmt As Currency _
, Vat As Currency, Reference As String, Deposit As Currency) As Boolean
    Dim rsw As New RecordsetWrapper
      
     rsw.OpenRecordset ("Invoices")
       
    MsgBox rsw.[ID]
End Function

can anyone assist?

[June7]

I have never seen RecordsetWrapper.

rsw.OpenRecordset ("SELECT * FROM Invoices ORDER BY ID;")
rsw.MoveLast

Or use DMax() instead of recordset object.

MsgBox DMax("ID", "Invoices")

[George]

Thanks VIP for that swift response to my problem.

It works just fine and is very simple. However when I changed the field name "ID" in the table to "Invoice ID" it wouldn't work. it give an error message "syntax error, missing operator in query expression 'Max(invoice ID)' ".
Does this mean I cannot use multi-word field names in the tables?

[June7]

Advise not to use spaces or punctuation/special characters (underscore only exception) in names nor reserved words as names. If you do, must enclose in [ ].

Max([invoice ID])

Better would be InvoiceID or Invoice_ID.

[George]

Thanks. It works well.