We help IT Professionals succeed at work.

Modify/Add Control Tip (ToolTip) for Access Forms using VBA

sstampf
sstampf asked
on
2,589 Views
Last Modified: 2013-11-28
I have an access form which has many controls. I want to assign a ControlTip for all of them so that when the user hovers his mouse over the control he is able to see information regarding how to use that control. I have that information stored in a seperate table where I have the ControlName and against it I have its description.

Table Name is tblDataDictionary and the Field/Column in which ControlName is stored is named as "Data Element Name" and the column/field where the Description is stored is named "Data Description"

The number of controls are so many that it is not possible for me to perform this task manually. Please help.

Thanks
Comment
Watch Question

CERTIFIED EXPERT
Top Expert 2016

Commented:
are you adding the Data description in the ControlTip Text property of the controls?
CERTIFIED EXPERT

Author

Commented:
Yes
DatabaseMX (Joe Anderson - Microsoft Access MVP)Database Architect / Application Developer
CERTIFIED EXPERT
Top Expert 2007
Commented:
This one is on us!
(Get your first solution completely free - no credit card required)
UNLOCK SOLUTION
CERTIFIED EXPERT
Top Expert 2016
Commented:
This one is on us!
(Get your first solution completely free - no credit card required)
UNLOCK SOLUTION
CERTIFIED EXPERT

Author

Commented:
Many thanks. I modified the code a bit (to suit my needs) and it worked perfectly.
Sub addToolTip()
Dim ctl As Control
 
DoCmd.OpenForm "frmEmpDetailsMain", acDesign, , , , acHidden
For Each ctl In Forms!frmEmpDetailsMain.Controls
If ctl.ControlType = acTextBox Or ctl.ControlType = acComboBox Or ctl.ControlType = acCheckBox Then
    ctl.ControlTipText = Left(Nz(DLookup("[Data Description]", "tblDataDictionary", "[Data Element Name]='" & ctl.Name & "'"), ""), 254)
End If
Next
 
DoCmd.Close acForm, "frmEmpDetailsMain", acSaveYes
 
End Sub

Open in new window

Gain unlimited access to on-demand training courses with an Experts Exchange subscription.

Get Access
Why Experts Exchange?

Experts Exchange always has the answer, or at the least points me in the correct direction! It is like having another employee that is extremely experienced.

Jim Murphy
Programmer at Smart IT Solutions

When asked, what has been your best career decision?

Deciding to stick with EE.

Mohamed Asif
Technical Department Head

Being involved with EE helped me to grow personally and professionally.

Carl Webster
CTP, Sr Infrastructure Consultant
Empower Your Career
Did You Know?

We've partnered with two important charities to provide clean water and computer science education to those who need it most. READ MORE

Ask ANY Question

Connect with Certified Experts to gain insight and support on specific technology challenges including:

  • Troubleshooting
  • Research
  • Professional Opinions
Unlock the solution to this question.
Join our community and discover your potential

Experts Exchange is the only place where you can interact directly with leading experts in the technology field. Become a member today and access the collective knowledge of thousands of technology experts.

*This site is protected by reCAPTCHA and the Google Privacy Policy and Terms of Service apply.

OR

Please enter a first name

Please enter a last name

8+ characters (letters, numbers, and a symbol)

By clicking, you agree to the Terms of Use and Privacy Policy.