I use the following code in a form's on load event to to assign a unique employee number to the EmployeeNo Field.
Expand|Select|Wrap|Line Numbers
- strSQL = "SELECT TOP 1 EmployeeNo FROM tblEmployees ORDER BY tblEmployees.EmployeeNo DESC;"
- Set rs = CurrentDb.OpenRecordset(strSQL)
- Dim NewEmpNo As Long
- NewEmpNo = rs.Fields("EmployeeNo")
- Me.txtEmpNo = NewEmpNo + 10
My question how can i get my access query or SQL statement to see 100 as the highest number instead of 90.