Option Compare Database
Option Explicit
Private msaved As Boolean


Private Sub Combo309_BeforeUpdate(cancel As Integer)

If Combo309.Value = "HR" Then
    Call GetCount("HR")
        If hrcount = 10 Then
            MsgBox "you have already reached the limit, choose another department or will be assigned"
            cancel = True

Option Compare Database

Public Function auditchanges(recordid As String, useraction As String)
On Error GoTo auditerror
Dim DB As Database
Dim rst As Recordset
Dim clt As Control

Set DB = CurrentDb
Set rst = DB.OpenRecordset("select * from audittrail", adOpenDynamic)
userlogin = getuserlogon()
Select Case useraction
    Case "new"