Just for anyone who may be having the same issue, to fix this i simply created a Private subroutine and called this subroutine for each event that needed it.
Private Sub UpdateComm(intTabNumber As Integer)
Dim strSQL, strWhereSQL, strEmpID As String
Dim CommCount As Integer
On Error GoTo...