برنامج لجعل تلميح عنصر التحكم من نوع مربع نص يظهر قيمة الحقل
ضع في حدث عن الحالي :
Call sShowToolTip(Me)
وفي الوحدة النمطية العامة ضع الدالة التالية :
Public Sub sShowToolTip(frm As Form)
Dim ctl As Control, i As Integer
On Error Resume Next
For Each ctl In frm.Controls
With ctl
If .ControlType = acTextBox Then
.ControlTipText = .value
ElseIf .ControlType = acComboBox Then
If .ColumnCount = 2 And .value <> "" Then
.ControlTipText = .Column(.BoundColumn)
End If
End If
End With
Next ctl
Set ctl = Nothing: Set frm = Nothing
End Sub