Get the first in the row

[solar]

In the part of the code shown below, is it possible for the constant
LngCustomer to get the fist number of the customers in the table
Customers
for example, if the first customerid = 4000, then to get LngCustId =
4000
Const lngCustomerID = 1

Dim dbs As DAO.Database
Dim rst As DAO.Recordset
Dim lngOrderID As Long
Dim strSQL As String
On Error GoTo ErrHandler

' Create a new order and obtain its OrderID
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("Orders", dbOpenDynaset)
rst.AddNew
rst!Customerid = lngCustomerID
lngOrderID = rst!OrderID
rst.Update

[salad]

solar wrote:

In the part of the code shown below, is it possible for the constant
LngCustomer to get the fist number of the customers in the table
Customers
for example, if the first customerid = 4000, then to get LngCustId =
4000
No. Constants are not dynamic. They are constant.

You could do something like
Dim lngCustomerID As Long
lngCustomerID = NZ(Dmin("CustomerID","Customers"),0)
and that will retrieve the lowest customer ID. Use NZ if it's possible
that the customer table is empty.

Const lngCustomerID = 1

Dim dbs As DAO.Database
Dim rst As DAO.Recordset
Dim lngOrderID As Long
Dim strSQL As String
On Error GoTo ErrHandler

' Create a new order and obtain its OrderID
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("Orders", dbOpenDynaset)
rst.AddNew
rst!Customerid = lngCustomerID
lngOrderID = rst!OrderID
rst.Update

[Lyle Fairfield]

Yes, it's possible.
It's not recommended, and something that changes is not a constant.