' Identity
' http://www.utteraccess.com/wiki/index.php/Identity
' Code courtesy of UtterAccess Wiki
' Licensed under Creative Commons License
' http://creativecommons.org/licenses/by-sa/3.0/
'
' You are free to use this code in any application,
' provided this notice is left unchanged.
'
' rev  date                          brief descripton
' 1.0  2010-09-06                    Initial Revision
'
'---------------------------------------------------------------------------------------
' Procedure : fIdentity
' DateTime  : 05/08/2006 11:24
' ' Purpose   : get the identity  (PK) of the most recently inserted record
'---------------------------------------------------------------------------------------
'
Public Function fIdentity() As Long
   Dim rs As DAO.Recordset
   Dim strSQL As String
   Dim lResult As Long

  On Error GoTo fIdentity_Error
 
       strSQL = "SELECT @@IDENTITY as LastID;"
       
       Set rs = CurrentDb.OpenRecordset(strSQL)
       lResult = rs!LastId
       rs.Close
       Set rs = Nothing

   fIdentity = lResult

fIdentity_Exit:

  On Error GoTo 0
  Exit Function

fIdentity_Error:
   Select Case Err.Number

   Case Else
       MsgBox "Error " & Err.Number & " (" & Err.Description & ") " _
           & "in procedure fIdentity "

     
   End Select

End Function