I stole this from here, thought I could fathom how to adapt it for my use haha
Sub Entry_GotFocus()
'Private Sub ChangeUoM_Click()
Dim db As Database
Dim rs As Recordset
Dim strTABLE As String
Dim strFIELD As String
Dim strOLD As String
Dim strNEW As String
Set db = CurrentDb
Set rs =...