Option Compare Database
Option Explicit
Private Sub Form_AfterUpdate()
UpdateControlTips
End Sub
Private Sub Form_Current()
UpdateControlTips
End Sub
Private Sub UpdateControlTips()
Me.TextBoxName.ControlTipText = DLookup("Field_Name", "Tip_Table_Or_Query_Name", _
"[Field_Name] = Form![TextBox_Name]")
'Etc.
End Sub