Option Compare Database

Option Explicit

Sub ClickTracker()

With Screen

If .ActiveControl.ControlType = acCommandButton Then

ClickTracker_save

End If

End With

End Sub

Sub ClickTracker_save()

Dim db As DAO.Database, rs As DAO.Recordset

'

On Error GoTo err_sub

'

Set db = CurrentDb

Set rs = db.OpenRecordset("tbl_ClickTracker", dbOpenDynaset, dbSeeChanges)

With Screen

rs.AddNew

rs.Fields(1) = .ActiveForm.Name

rs.Fields(2) = .ActiveControl.Name

rs.Fields(3) = .ActiveControl.Caption

rs.Fields(4) = GetUser()

rs.Fields(5) = DateNoTime(Now())

rs.Update

End With

Set rs = Nothing

Set db = Nothing

exit_sub:

Exit Sub

'

err_sub:

Debug.Print Err.Number, Err.Description

Resume exit_sub

'

End Sub