Just a quickie... (Enable/disable ControlTips)

Question

Is there a way to globally enable/disable ControlTips through code so I could offer that as an preference?

Answer

From: Shamil Salakhetdinov <shamil@marta.darts.spb.ru>
Subject: Re: Just a quickie....
Date: 24 April 1998 10:05

Michael,

I don't know about global option but here is one of workarounds:

Private Sub cmdOnOff_AfterUpdate()
   On Error Resume Next
   Dim ctl As Control
   If Me![cmdOn] = True Then
       For Each ctl In Me.Controls
         ctl.ControlTipText = ctl.Tag
       Next
    Else
       For Each ctl In Me.Controls
         ctl.ControlTipText = ""
       Next
    End If
End Sub

Private Sub Form_Open(Cancel As Integer)
    On Error Resume Next
    Dim ctl As Control
    For Each ctl In Me.Controls
        ctl.Tag = ctl.ControlTipText
        ctl.ControlTipText = ""
    Next
End Sub

It's not the best possible but it works.