Download this FREE eBook and learn all you need to get started with Windows Nano Server, including deployment options, remote management
and troubleshooting tips and tricks
Dim EESQL As String Dim db As Database Dim rs As DAO.Recordset EESQL = "SELECT Max(os_claims.EmployeeID) AS MaxOfEmployeeID " & _ "FROM os_claims " & _ "WHERE (((os_claims.DateClosed) Is Null) AND ((os_claims.ArchivedRecord)=False) AND ((os_claims.EmployeeID)=[forms]![frmEmployees]![id]));" Set db = CurrentDb Set rs = db.OpenRecordset(EESQL) Me.selectedEEFound.Value = rs.Fields("MaxOfEmployeeID").Value Set rs = Nothing Set db = Nothing
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.